Egy ledet szeretnék egy AVR-en keresztül kapcsolgatni PC-ről.
Liberty Basic oldalról a kód igy néz ki:
Kód: Egész kijelölése
[InitColors]
ForegroundColor$ = "Black"
BackgroundColor$ = "Buttonface"
TexteditorColor$ = "White"
TextboxColor$ = "White"
ComboboxColor$ = "White"
ListboxColor$ = "White"
[WindowSetup]
NOMAINWIN
WindowWidth = 484 : WindowHeight = 307
UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
UpperLeftY = INT((DisplayHeight-WindowHeight)/2)
[ControlSetup]
button #main.Button1, "Led bekapcsolva", [Button1.click], UL, 162, 108, 120, 35
button #main.Button2, "Led kikapcsolva", [Button2.click], UL, 162, 160, 120, 35
statictext #main.StaticText1, "Led kapcsoló", 46, 54, 377, 18
Open "LED kapcsoló" for Window as #main
#main "font MS Sans Serif 8"
#main "trapclose [quit]"
[loop]
Wait
[quit]
close #main : END
[Button1.click]
open "com1:4800,n,8,1,ds0,cs0,rs" for random as #1
print #1, "1"
close #1
Wait
[Button2.click]
open "com1:4800,n,8,1,ds0,cs0,rs" for random as #1
print #1, "2"
close #1
Wait
Kód: Egész kijelölése
$crystal = 1000000
$regfile = "m32def.dat"
$baud = 4800
Dim Beolvasott As Byte
Config Portd.7 = Output
Eleje:
Input Beolvasott
If Beolvasott = 1 Then
Portd.7 = 1
Else
Portd.7 = 0
End If
Goto Eleje
Azonban többször nem sikerül bekapcsolni a ledet
A hiba Liberty Basic oldalról lesz, mert terminál emulátorban szépen működik...
