Hallo,
Vielen Dank,
das mit dem Interrupt hab ich verstanden.
Ist bei Wiki gut erklärt.
Laut meiner Doku werden 13 Ziffern zu je 4 Bit gesendet.
Wie lese ich denn Die über meinen Eingang ein ?
Code:
$regfile = "m32def.dat" 'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
$framesize = 32 'Stackanweisungen, die eigentlich nur bei größeren Programmen
$swstack = 32 'wirklich nötig werden
$hwstack = 32
$crystal = 16000000 'Die Frequenz des verwendeten Quarzes
$baud = 9600
Config Int0 = Falling 'Configuriere Int0 auf Falling
Enable Interrupts 'einschalten Der Interrupts
Enable Int0 'einschalten Von Interrupt Int0
On Int0 Isr_von_int0 'springe Zu Isr_von _int0
Config Pina.0 = Input ' Pin A.0 als Eingang konfigurieren (Taster)
Config Pina.1 = Input
Config Pina.6 = Output
Config Pina.7 = Output
Led Alias Porta.6
OptEin Alias Porta.7
Tast Alias Pina.0
OptAus Alias Pina.1
Porta.0 = 1 ' Interner Pullup Widerstand ein
Porta.1 = 1
Dim I As Byte
Const Pon = 0
Const Poff = 1
' Hauptschleife
Do
print Tast ; " " ; OptEin ; " " ; OptAus
porta.0 = 0
Waitms 50
Loop
Isr_von_int0:
print "Port A1 = " ; optaus
porta.1 = 1
return
Lesezeichen