Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
$large
Dim X As Byte
Dim Y As String * 3
Dim Z As String * 3
Dim V As Integer
Dim N As Integer
Dim L As Integer
$baud = 4800
$crystal = 12000000
Start:
If P1 <> 255 Then
Dim A As Byte
Gosub Wys
Y = Str(p1)
If X <> P1 Then
If Y <> "255" Then
Reset P2.3
Z = "1"
V = Len(z)
Waitms 200
Y = Str(p1)
X = P1
Waitms 200
Gosub Nad
Waitms 200
Gosub Nad
Waitms 200
Gosub Nad
Waitms 200
Gosub Nad
Waitms 200
Gosub Nad
Waitms 200
Gosub Nad
Waitms 200
Gosub Nad
Waitms 100
Set P2.3
End If
End If
End If
If P1 = 255 Then
X = "FF"
End If
Home
Goto Start
End
Nad:
Locate 2 , 10
If V = 1 Then
N = Len(y)
If N = 1 Then
Print "100" ; Z ; "00" ; Y
Lcd "100" ; Z ; "00" ; Y
End If
If N = 2 Then
Print "100" ; Z ; "0" ; Y
Lcd "100" ; Z ; "0" ; Y
End If
If N = 3 Then
Print "100" ; Z ; Y
Lcd "100" ; Z ; Y
End If
End If
If V = 2 Then
N = Len(y)
If N = 1 Then
Print "10" ; Z ; "00" ; Y
Lcd "10" ; Z ; "00" ; Y
End If
If N = 2 Then
Print "10" ; Z ; "0" ; Y
Lcd "10" ; Z ; "0" ; Y
End If
If N = 3 Then
Print "10" ; Z ; Y
Lcd "10" ; Z ; Y
End If
End If
If V = 3 Then
N = Len(y)
If N = 1 Then
Print "1" ; Z ; "00" ; Y
Lcd "1" ; Z ; "00" ; Y
End If
If N = 2 Then
Print "1" ; Z ; "0" ; Y
Lcd "1" ; Z ; "0" ; Y
End If
If N = 3 Then
Print "1" ; Z ; Y
Lcd "1" ; Z ; Y
End If
End If
Return
$timeout
$large
P0 = 0
$baud = 4800
$crystal = 12000000
Dim S As String * 7
Dim Z As String * 6
Dim A0 As Integer
Dim A1 As Integer
Dim A2 As Integer
Dim A3 As Integer
Dim A4 As Integer
Dim A5 As Integer
Dim A6 As Integer
Dim A As Byte
Dim D As String * 6
Start:
Input S Noecho Timeout = 1159
If S <> "" Then
If Len(s) = 7 Then
A0 = Val(left(s , 1))
A2 = Val(mid(s , 2 , 1))
A2 = Val(mid(s , 3 , 1))
A3 = Val(mid(s , 4 , 1))
A4 = Val(mid(s , 5 , 1))
A5 = Val(mid(s , 6 , 1))
A6 = Val(mid(s , 7 , 1))
If A0 = 1 Then
If A1 <= 9 Then
If A2 <= 9 Then
If A3 <= 9 Then
If A4 <= 9 Then
If A5 <= 9 Then
If A6 <= 9 Then
Z = Mid(s , 5 , 3)
A = Val(z)
P0 = A
Input S Noecho Timeout = 50
Input S Noecho Timeout = 50
Input S Noecho Timeout = 50
Wait 1
Waitms 255
Waitms 245
S = ""
End If
End If
End If
End If
End If
End If
End If
End If
End If
Goto Start
