RogerMS
30.01.2007, 11:51
Hallo, ich bin Bascom Anfänger und hab hier ein Problem, bei dem ich eure Hilfe benötige.
Ich möchte die ID von zehn DS18B20 in einer Schleife auslesen und in die Var "Dsid" 0 bis 9 (also zehn mal) schreiben. Aber die Var ist ein Array "Dsid(8)", also heist sie korrekt: Dsid0(8) bis Dsid9(8)
Wie bekomm ich es nun Programmtechnisch hin, diese 0 bis 9 da automatisch in den Var Namen einzufügen?
Die Zählvar heist bei mir Anzahlsensor.
Ich hoffe, ich habe mich verständlich ausgedrückt!
Hier mal der Code Ausschnitt:
Dim Dsid As Byte
Dim Dsid0(8) As Byte
Dim Dsid1(8) As Byte
Dim Dsid2(8) As Byte
Dim Dsid3(8) As Byte
Dim Dsid4(8) As Byte
Dim Dsid5(8) As Byte
Dim Dsid6(8) As Byte
Dim Dsid7(8) As Byte
Dim Dsid8(8) As Byte
Dim Dsid9(8) As Byte
Dim Anzahlsensor As Byte
Anzahlsensor = 1
Dsid0(1) = 1wsearchfirst()
Do
' Wie bekomm ich es hin, das die Variable Dsid über
' die Variable Anzahlsensor hochgezählt wird?
Dsid = Val(dsid + Str(anzahlsensor))
Dsid(1) = 1wsearchnext()
Anzahlsensor = Anzahlsensor + 1
Loop
Ich möchte die ID von zehn DS18B20 in einer Schleife auslesen und in die Var "Dsid" 0 bis 9 (also zehn mal) schreiben. Aber die Var ist ein Array "Dsid(8)", also heist sie korrekt: Dsid0(8) bis Dsid9(8)
Wie bekomm ich es nun Programmtechnisch hin, diese 0 bis 9 da automatisch in den Var Namen einzufügen?
Die Zählvar heist bei mir Anzahlsensor.
Ich hoffe, ich habe mich verständlich ausgedrückt!
Hier mal der Code Ausschnitt:
Dim Dsid As Byte
Dim Dsid0(8) As Byte
Dim Dsid1(8) As Byte
Dim Dsid2(8) As Byte
Dim Dsid3(8) As Byte
Dim Dsid4(8) As Byte
Dim Dsid5(8) As Byte
Dim Dsid6(8) As Byte
Dim Dsid7(8) As Byte
Dim Dsid8(8) As Byte
Dim Dsid9(8) As Byte
Dim Anzahlsensor As Byte
Anzahlsensor = 1
Dsid0(1) = 1wsearchfirst()
Do
' Wie bekomm ich es hin, das die Variable Dsid über
' die Variable Anzahlsensor hochgezählt wird?
Dsid = Val(dsid + Str(anzahlsensor))
Dsid(1) = 1wsearchnext()
Anzahlsensor = Anzahlsensor + 1
Loop