Tegnap elkezdtem ismerkedni a Liberty Basic-el. Mivel nagyon hasonlit a nyelve a Bascom-hoz, ezért akik eddig csak Bascom alatt fejlesztettek azoknak bátran ajánlom
Már szépen megy a fájlkezelés, menüsorok, gombok elhelyezése/kezelése, csak egyvalami nem akar működni:
a sorosport
AVR oldalról igy néz ki a kódom:
Kód: Egész kijelölése
$crystal = 1000000
$regfile = "m32def.dat"
$baud = 4800
Dim Beolvasott As Byte
Config Portd.7 = Output
Eleje:
Portd.7 = 0
Input "ird be hogy 15!" , Beolvasott
If Beolvasott = 15 Then
Goto Kiugras
End If
Goto Eleje
Kiugras:
Do
Portd.7 = 1
Waitms 500
Portd.7 = 0
Waitms 500
Loopazonban ha az alábbi kóddal próbálkozok Liberty Basicben
Kód: Egész kijelölése
open "com1:4800,n,8,1" for random as #sorosport
print #sorosport, "15"
close #sorosport
PC-n eddig csak egyszerübb programokat irtam, kommunikációval még nem foglakoztam.
Valaki tudna esetleg segíteni hogy mi lehet a hiba?
Esetleg valami általános hibát vétettem a sorosport kezelésével kapcsolatban?
