A vevő részhez kondulásnak ezt a programot használnám:
Kód: Egész kijelölése
$regfile = "attiny2313.dat"
$crystal = 4000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portd.6
Cursor Off
Config Pind.5 = Output
On Urxc Getchar
Dim Wtime As Word
Dim Inchar As String * 1
Const Fastblink = 100
Const Slowblink = 500
Wtime = Fastblink
Enable Interrupts
Enable Urxc
Do
Locate 1 , 1
Lcd "Wait: " ; Wtime
Set Portd.5
Waitms Wtime
Reset Portd.5
Waitms Wtime
Loop
Getchar:
Inchar = Inkey()
Select Case Inchar
Case "f" : Wtime = Fastblink
Case "s" : Wtime = Slowblink
End Select
Return
End