Hallo! Ich suche schon seit ner halben Stunden im Board, kann aber nichts finden. Wie kann ich mit Bascom die Seriennummer des ds1820 auslesen? Irgendwann habe ich das schon mal gemacht, aber ... . Const Read_rom = &H33 C = Read_rom LCD C Auf diese Weise erhalte ich nur die erste Zahl, in meinem fall 51. aber bei jedem weiteren mal wenn ich den Befehl ausführe, scheint er wieder von vorne anzufangen, und ich erhalte insgesammt also 8 mal die 51!! Das kann denke ich mal nicht richtig sein. Was mache ich falsch??
Für alle die nach mir auch noch das Problem haben. $regfile = "4433def.dat" $crystal = 4000000 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4 Config Lcd = 24 * 2 'configure lcd screen Const Read_rom = &H33 ' DS1820 Commands Const Skip_rom = &HCC Const Convertt = &H44 Const Read_ram = &HBE Const Write_ram = &H4E Const Copy_ram = &H48 Const Recall_ee = &HB8 Const Read_power = &HB4 Const Match_rom = &H55 Config 1wire = Portb.4 'Anschlußpin DS1820 Dim Z(8) As Byte 1wwrite Read_rom 'read ROM command For I = 1 To 8 Z(i) = 1wread() 'place into array Next Cls Lcd Z(1) Lcd " " Lcd Z(2) Lcd " " Lcd Z(3) Lcd " " Lcd Z(4) Lcd " " Lcd Z(5) Lcd " " Lcd Z(6) Lcd " " Lcd Z(7) Lcd " " Lcd Z(8) End
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.