Erklärung für "Offset" gesucht

[Searcher]

Hallo Searcher,vielen Dank für Deine Antwort. Ich nehme an Du meinst mich.Ja ich weiß, manchmal nerve ich ganz schön, also nimm es mir bitte nicht übel, OK?...

Hallo HM,
Ja, ich meinte Dich, HM. Bin ich wohl mit 'nem anderen thread durcheinandergeraten. Außer der Anrede paßte aber der Inhalt.

Du nervst zumindest mich nicht. Ich kann, denke ich, nachfühlen, wie das ist, wenn man an Begriffen knobelt, die andere wie selbstverständlich benutzen und man da selbst irgendeine unbegreifliche Blockade hat. Geht mir manchmal so, aber irgendwann wird sich das Dunkel schon lichten.

Also keine Frage von übel nehmen. Wenn mein Beitrag so geklungen hat, stammte das möglicherweise aus meinem pP (persönlichem Problem). Ich war dabei auf auf Deinen thread detailiert einzugehen, was dann aber auszuarten drohte, nicht mehr zum topic gehört hätte und ich dann auf die Bremse trat.

Also weiter so und
Gruß
Searcher

[Richard]

Beispiel:

Dim Offset As Byte
Offset = 0
Dim Ar(5) As Byte

Ar(0) = 1
Ar(1) = 2
Ar(2) = 3
Ar(3) = 4

Offset = 1
Print Ar(offset) .......2
Offset = 3
Print Ar(offset)........4

Sas sollte doch halbwegs zu verstehen sein?

Gruß Richard

[PicNick]

@richard, alter schlingel, Bascom-Tabellen fangen mit "1" an.
und, offset und index sollte man vielleicht nicht in einen Topf werfen

[Richard]

und, offset und index sollte man vielleicht nicht in einen Topf werfen

Passt aber in diesem Fall als (Verständnis) Beispiel ganz gut, ok das der Insex mit 1 anfängt...ich war zu faul alles zu verbessern.

Gruß Richard

[HM]

Hallo Richard,
vielen Dank für Deine Antwort.
Ich nehme mal das Beispiel von PicNick, da habe ich genug zum Ausprobieren.
Also ich denke, daß diese Diskussion nicht nur mir, sondern auch einigen anderen Anfängern helfen wird.
Nochmals vielen Dank an Alle. MfG

[HM]

Hallo PicNick und alle Anderen,
wie man sieht interessiert dieses Thema viele User (ca. 550) Hits, das zeigt, daß meine Frage doch nicht so abwegig ist.
Das Programm von "PicNick" funktionierte auf Anhieb, vielen Dank nochmal.
Ich habe mal versucht das Programm auszukommentieren, korrigiert mich bitte, wenn was falsch ist.
PS.:Wie bekomme ich denn die Kommentare im Fenster auf gleiche Höhe?
MfG

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200

Dim Offset As Byte
Dim Base As Word
Dim Element As Byte

Base = Loadlabel(alphabet)                       'Adresse der Tabelle "Alphabet" laden

For Offset = 0 To 25                      'gibt an wieviel Buchstaben in der Tabelle sind 
                                                       'und erfaßt die Buchstaben der Reihe nach
Element = Lookup(offset , Alphabet)       'holt die Buchstaben aus der Tabelle unter
                                                       'Berücksichtigung der Reihenfolge
Print "   Lookup=" ; Chr(element) ; "";     'gibt an was und wie angezeigt wird
Next                                                 'zum Anfang "For"

Print                                                'Ausgabe auf dem Terminal neue Zeile 


End

Alphabet:                                          'Label

Data "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'Tabelle

[PicNick]

Ich hab's wegen der Formatierung versucht, viel besser bring ich das auch nicht zusammen. sry

Kommentare passen so, alles klar

[HM]

Hallo PicNick und alle Anderen,
vielen Dank für Deine Antwort.
Ja wenn die Kommentare stimmen, dann habe ichs wohl verstanden, jedenfalls für dieses Beispiel.
Aber was ist, wenn da im Programm mehrere Offset stehen?
Zum Programm:
Man könnte ja versuchen, die Anzeigedauer der Buchstaben / Ausgabe noch zeitlich zu steuern oder geht das jetzt zu weit (nur so ein Gedanke)?
Vielen Dank für Antworten. HM