jozefowicz
23.02.2009, 19:19
Guten Nabend!
Ich hab da ein kleines Problem!
Der Folgende Code Funktioniert beim Mega32 Tadellos nur bei den 644er wird kein Wert über RS232 eingelesen! Inkey ist immer 0 Gleiche Platine nur den Chip nach Mega32 gewechselt und die dat geändert, schon funktioniert das einlesen. Weiss einer von euch Rat. Habe bereits 4 Chips ausprobiert Können ja nicht alle defekt sein?
$regfile = "m644pdef.DAT"
$baud = 9600 'zum Debuggen
$crystal = 16000000
'$hwstack = 32 ' default use 32 for the hardware stack
'$swstack = 10 ' default use 10 for the SW stack
'$framesize = 40 ' default use 40 for
Dim Akey As Byte 'Here we declare a byte variable
Dim String_temp As String * 64
Do
Wait 1
String_temp = Inkey()
Print "Got Nm " ; Akey
Loop
End
Vielendank Für die Hilfe
Mfg
MrCrash112
Ich hab da ein kleines Problem!
Der Folgende Code Funktioniert beim Mega32 Tadellos nur bei den 644er wird kein Wert über RS232 eingelesen! Inkey ist immer 0 Gleiche Platine nur den Chip nach Mega32 gewechselt und die dat geändert, schon funktioniert das einlesen. Weiss einer von euch Rat. Habe bereits 4 Chips ausprobiert Können ja nicht alle defekt sein?
$regfile = "m644pdef.DAT"
$baud = 9600 'zum Debuggen
$crystal = 16000000
'$hwstack = 32 ' default use 32 for the hardware stack
'$swstack = 10 ' default use 10 for the SW stack
'$framesize = 40 ' default use 40 for
Dim Akey As Byte 'Here we declare a byte variable
Dim String_temp As String * 64
Do
Wait 1
String_temp = Inkey()
Print "Got Nm " ; Akey
Loop
End
Vielendank Für die Hilfe
Mfg
MrCrash112