Hallo Profis,
ich hatte Bedenken das jemand Antworten noch liest.
Mit dem Code stimme ich zu.Anbei ein geänderte Form.
Die Anzahl der Wertepaare stimmt.Es werden aber Wertepaare aus
beiden Data Blocks benutzt.Das ergibt keinen Sinn.
die Hilfe kann ich schon langsam auswendig.Ich habe bewußt
mal alles stehen lassen.Kriege soweit alles hin,bis auf die Ausgabe.
Übrigens ich lese immer mit einen Terminalprogramm aus.
Es wurden mehrere Varianten der Ausgabe probiert.
Und Danke für die formellen Hinweise.
Code:
$regfile = "attiny2313.dat"
$crystal = 3686400
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40
Config Serialout = Buffered , Size = 10
Config Com1 = Dummy , Synchrone = 0 , Parity = Even , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim S As Byte , Count As Byte
Declare Sub Datenpunkt
Declare Sub Displaycls
Do
'Print Chr(&H02) ; Chr(&H43) ; Chr(&H41) ; 'Display löschen
Datenpunkt 'Datenpunkt setzen
Restore Dta2:
For Count = 1 To 4
Read S : Printbin S;
Next
Wait 2
Loop
'Sub Displaycls
'Local C As Byte
'Restore Cls1:
'For Count = 1 To 3
' Read C : Print Chr(c);
' Next
'End Sub
Sub Datenpunkt
Local A As Byte
Restore Dta1:
For Count = 1 To 5
Read A : Printbin A;
Next Count
Wait 1
End Sub
'Datentabelle
Dta1:
Data &H04 , &H53 , &H01 , &H00 , &H56 '04 53 01 00 56
Dta2:
Data &H03 , &H50 , &H41 , &H12 '03 50 41 12
Lesezeichen