Sorosport Liberty Basic alatt

A Liberty Basic - ami a Bascomhoz hasonló nyelvezettel bír - csak PC grafikus felületéhez...
Avatar
Theophrast
SzínkódFestő
Hozzászólások: 78
Csatlakozott: 2011. július 17. vasárnap, 6:00

Sorosport Liberty Basic alatt

HozzászólásSzerző: Theophrast » 2012. április 14. szombat, 10:48

Üdv mindenkinek

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 :P
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
Loop

Ha a Bascom saját terminálemulátorában beirom hogy 15, a led elkezd villogni a D.7 lábon

azonban 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

akkor a led nem csinál semit

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? :roll:

Avatar
Robert
Elektronbűvölő
Hozzászólások: 9813
Csatlakozott: 2005. december 9. péntek, 7:00
Tartózkodási hely: Budapest
Kapcsolat:

HozzászólásSzerző: Robert » 2012. április 14. szombat, 11:58

A sorport megnyitásakor ne kézfogásos módot használj.

http://lbpe.wikispaces.com/AccessingSerialPort

1.ds0 - Set DSR timeout in milliseconds to 0, effectively off
2.cs0 - Set CTS timeout in milliseconds to 0, effectively off
3.rs - Disable detection of RTS (request to send)

Kód: Egész kijelölése

open "com2:9600,n,8,1,ds0,cs0,rs" for random as #commHandle

Avatar
Theophrast
SzínkódFestő
Hozzászólások: 78
Csatlakozott: 2011. július 17. vasárnap, 6:00

HozzászólásSzerző: Theophrast » 2012. április 14. szombat, 12:06

uhh télleg :?

Így már működik :P
Örök hálám :P

...és ezennel kezdetét veszi az AVR-es készülékek PC-vel való vezérlése
mégegyszer nagyon szépen köszönöm :P

Theophrast

Avatar
kapu48
Elektronbűvölő
Hozzászólások: 3216
Csatlakozott: 2008. augusztus 29. péntek, 6:00
Tartózkodási hely: Újkígyós

HozzászólásSzerző: kapu48 » 2012. április 14. szombat, 15:43

Hát nem tudom!?

Nekem a demó nem készít futatható állományt!
Csak Interpeterből futatható a teljes verzióban is?

:?: :?

Avatar
Robert
Elektronbűvölő
Hozzászólások: 9813
Csatlakozott: 2005. december 9. péntek, 7:00
Tartózkodási hely: Budapest
Kapcsolat:

HozzászólásSzerző: Robert » 2012. április 14. szombat, 15:54

A teljes verzió exe-t csinál. A demo verzió csak interpreteren keresztülit.

Avatar
kapu48
Elektronbűvölő
Hozzászólások: 3216
Csatlakozott: 2008. augusztus 29. péntek, 6:00
Tartózkodási hely: Újkígyós

HozzászólásSzerző: kapu48 » 2012. április 14. szombat, 16:30

Köszi!

Már megoldottam!
:lol:

Azt hiszem a kedvencem lesz! :D :D :D
A hozzászólást 1 alkalommal szerkesztették, utoljára kapu48 2012. április 14. szombat, 17:27-kor.

Avatar
Theophrast
SzínkódFestő
Hozzászólások: 78
Csatlakozott: 2011. július 17. vasárnap, 6:00

HozzászólásSzerző: Theophrast » 2012. április 14. szombat, 17:00

Akkor már ketten vagyunk :P

én most szórakozok a sorosporttal, és egyre jobban kezdem szeretni.
3D-s grafikákat ugyan nem fogunk vele csinálni de egy avr pc-s vezérléséhez sztem tökéletes :P


Vissza: “Liberty Basic”

Ki van itt

Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 1 vendég