Dim Seingang As String * 50 , S As String * 1 , Musik(5) As String * 50
Dim Elaenge As Byte , B As Byte
Enable Urxc
On Urxc Empfangen
Enable Interrupts
'Config Serialin = Buffered , Size = 50
'_______________________________________________________________________________
Print "Version: " ; Version(1)
Call Lcd_init() 'lcd initialisieren
Call Lcd_clear(black) 'lcd schwarz färben
Call Lcd_reset_window(0 , 240 , 0 , 90) 'lcd größe bzw beschreibbare größeandern
Do
'Delscroll = Xyz - 2 'schrift 12x16
' Xyz = Xyz + 1
' Yzx = Yzx - 1
Call Lcdtext(musik(1) , 0 , 0 , 5 , Red , Black )
'Call Draw_box(delscroll , Xyz , 0 , 20 , Black)
Call Lcdtext(musik(2) , 0 , 20 , 5 , Red , Black )
'Call Draw_box(delscroll , Xyz , 0 , 20 , Black)
Call Lcdtext(musik(3) , 0 , 40 , 5 , Red , Black )
'Call Draw_box(delscroll , Xyz , 0 , 20 , Black)
Call Lcdtext(musik(4) , 0 , 60 , 5 , Red , Black )
'Call Draw_box(delscroll , Xyz , 0 , 20 , Black)
Call Lcdtext(musik(5) , 0 , 80 , 5 , Red , Black )
'Call Draw_box(delscroll , Xyz , 0 , 20 , Black)
Loop
End
'_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Empfangen:
Set Led2
B = Inkey()
If B >= 13 Then
If B = 13 Then 'prüft auf zeichen Cr
Gosub Auswerten
Else
If Len(seingang) < 50 Then 'seingang = eingangsstring
Seingang = Seingang + Chr(b)
Else
Seingang = ""
End If
End If
End If
Reset Led2
Return
Auswerten:
S = Left(seingang , 1) ' schneidet das erste zeichen von links ab
B = Val(s)
Elaenge = Len(seingang)
Elaenge = Elaenge - 1
Select Case S
Case "1":
Musik(1) = Mid(seingang , 2 , Elaenge)
Print "Artist: " ; Musik(1)
Case "2":
Musik(2) = Mid(seingang , 2 , Elaenge)
Print "Titel: " ; Musik(2)
Case "3":
Musik(3) = Mid(seingang , 2 , Elaenge) + "kb/s"
Print " Musikinfo3 " ; Musik(3)
Case "4":
Musik(4) = Mid(seingang , 2 , Elaenge)
Print " Musikinfo4 " ; Musik(4)
Case "5":
Musik(5) = Mid(seingang , 2 , Elaenge)
Print " Musikinfo5 " ; Musik(5)
Case Else:
Print " Nix sinnvolles angekommen"
End Select
Call Lcd_clear(black)
Print "Artist " ; Musik(1)
Print "Titel " ; Musik(2)
Print "Bitrate " ; Musik(3)
Print "Artist " ; Musik(4)
Print "Artist " ; Musik(5)
Print "_________________________________________"
Seingang = ""
Return