Basic programm

[ege51]

Ich habe da meine Probleme diesen Script zu verstehen. Meine Projektarbeit hängt deswegen. Dieses Programm wurde schon definiert. Aber leider gibt es dafür keine Kommentare.
Kann jemand bitte diesen Skript kommentieren oder abschnitt für abschnitt wenigstens kurz erklären was da überhaupt passiert? Ich meine was das Skript abschnittsweise macht?

Ich bitte um Hilfe ! Danke !

Mfg

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
' WLAN RS232 Device Server
' (c) Avisaro AG 18.03.2010
' Version 1.16

Setleds 32 + 128

Exec "stpseq +\097+v+i+s+"
sleep 100
Exec "prompt"
sleep 100
Exec "sched 0"
sleep 100

Let N = 0
Rem Default-Werte ?
If((keys & 1) = 1) Then
For N = 0 To 100
If((keys & 1) = 0) Then
Goto Starting
End If
Setleds 255
sleep 10
Setleds 0 + 128
sleep 10
Next N
Exec "restart clear"
sleep 100
Setleds 255
Do
sleep 1
Loop
End If
Starting:

sleep 400

'


Dim A(500)
Dim B(0)
Let N = 0
Let T = Time
Let F = 60
Let M = 0
Let U = 0
Let Y = 0

Rem INIT WEB

Let X$ = "Connect to (IP, =0 for listen):"
Put -100 , X$ , Len(x$)
Let X$ = "Connect to / Listen (Port):"
Put -102 , X$ , Len(x$)
Let X$ = "Status (WR1 V14):"
Put -104 , X$ , Len(x$)

Load 0 , T$
Put -101 , T$ , Len(t$)


Load 25 , U
If( -1 = U) Then
Let U = 23
Save 25 , U
End If
Let X$ = Str$(u)
Put -103 , X$ , Len(x$)


Try_connect:

sleep 5

' RS232 leer lesen
Inmode -3
Input A


If(t$ = Str$(0)) Then
Let X$ = "listening"
Else
Let X$ = "try to connect"
End If

Gosub Load_web

Let Y = Status(101)

If(y = 0) Then
If(t$ = Str$(0)) Then
' listen 101, u, 0
Listen 101 , U , 20
Setleds 32 + 128
Else
Let Y = Resolv(t$)
sleep 500
' connect 101, y, u, 0
Connect 101 , Y , U , 20
Setleds 32 + 128
End If
End If

Let Y = Status(101)


If Y = 9 Then
Let X$ = "Connected (Web locked)"
Inmode 0
Gosub Load_web
Rem Connected
Exec "stream 101"
Goto Main
End If


Goto Try_connect



Main:

Setleds 48 + 128

If((keys & 1) = 1) Then
Close 101
Setleds 32
Gosub Load_web
Goto Try_connect
End If

sleep 10

Let Y = Status(101)
If(y <> 9) Then
Close 101
Setleds 32
Goto Try_connect
End If


Goto Main:

Load_web:

Put -105 , X$ , Len(x$)

Rem ?nderung auf Webseite ?
Get -103 , X$
If Val(x$) <> U Then
Let U = Val(x$)
Save 25 , U
Close 101
End If

Get -101 , X$
If T$ <> X$ Then
Let T$ = X$
Save 0 , T$
Close 101
End If


Return

'+++
'a+v+i+s
Mit Zitat antworten

[wullxz]

Ist schon ein weilchen her, dass ich das letzte Mal Basic gesehen hab...
Aber ich weiß noch, dass Kommentare in Basic mit "Rem" eingeleitet werden.
Alles was in deinem Script mit Rem anfängt, sind also Kommentare.

Beim Rest kann ich dir leider nicht weiterhelfen - dazu müsste ich Basic nochmal auffrischen

[Hiltwin]

Zitat von ege51

IIch meine was das Skript abschnittsweise macht?

Welche Abschnitte?

Ohne Code-Funktion wäre es übersichtlicher zu betrachten.

[theHacker]

Zitat von Hiltwin

Ohne Code-Funktion wäre es übersichtlicher zu betrachten.

Aber unübersichtlicher und nerviger im Forum. Hat schon seinen Sinn, wieso Code- und PHP-Tags vorgeschrieben sind, sie zu benutzen

Der Code führt hat ein paar I/O-Operationen aus (PUT, GET, SAVE).

Einige Anweisungen sind mir selber unbekannt. Setleds sieht mir z.B. nach einem Unterprogramm aus, was woanders definiert ist und wird wohl irgendwelche Lämpchen am Adapter umschalten.

Warum das Programm irgendwelche Daten an bestimmte Stellen und wieso es genau auf jene Antworten prüft, musst du aber wohl beim Hersteller des Adapters in Erfahrung bringen.