wymienilem konwerter przy pccie i to samo
przy atmelu mam 75176
gdzie r oraz d idzie na tx1 i rx1 na atmege
re i de sa zwarte i leca na pd7
zrobilem tak
$regfile = "m128def.dat"
$crystal = 16000000
'$baud = 9600
$baud1 = 38400
Config Portd.7 = Output
Config Spi = Soft , Din = Pinb.4 , Dout = Portb.2 , Ss = None , Clock = Portb.1
'Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim Znak As String * 5
Wait 1
Echo On
Pg:
Waitms 100
Open "com2:" For Binary As #2
Reset Portd.7
Print #2 , "start d7=0"
Waitms 100
Reset Portd.7
Waitms 100
Znak = Waitkey(#2)
Waitms 100
Set Portd.7
Print #2 , "Odebrano znak : " ; Znak
Waitms 100
Close #2
Goto Pg
End
no i teraz odbiera ale waitkey nie czeka na znak tylko leci jakby odbieral nulle
Dodano po 54 [minuty]: teraz wyglada to tak
$regfile = "m128def.dat"
$crystal = 16000000
'$baud = 9600
$baud1 = 9600
Config Portd.7 = Output
Config Spi = Soft , Din = Pinb.4 , Dout = Portb.2 , Ss = None , Clock = Portb.1
'Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim Znak As String * 15
Open "com2:" For Random As #2
Wait 1
Pg:
Waitms 100
Reset Portd.7
'Znak = Waitkey(#2)
'Input #2 , Znak
Znak = Inkey(#2)
Waitms 100
If Znak <> "" Then
Set Portd.7
Print #2 , "Odebrano znak : " ; Znak
Waitms 100
End If
Goto Pg
Close #2
End
na 38400 sa same smieci
na 9600 nawet nie ma ale
input nadal nie dziala
waitkey zbiera tylko pierwszy znak
a inkey jakies losowe znaki z wyslanej calosci ( dotego odbiera to tak jakby lecialo to osobno a nie w calosci)
