|
|
ege51
|
| Titel: Basic script |
01.11.2011 03:20 |
|
|
Anmeldungsdatum: 01.11.2011
Beiträge: 3
|
Dieser Script ist in Basic programmiert.
Ich habe da meine Probleme diesen Script zu verstehen. Meine Projektarbeit hängt deswegen. Dieses Programm wurde schon von dem Hersteller avisaro definiert. Aber leider gibt es dafür keine Kommentare.
Ich studiere Elektrotechnik und komme nicht klar.
Kann jemand diesen Script verstehen. Was passiert hier abschnitt für abschnitt? Ich meine was das Skript abschnittsweise macht?
Ich bitte um Hilfe ! Danke !
Mfg
' 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
|
 |
|
| |
|
Guru der Antworten
|
| Titel: Basic script |
01.11.2011 11:37 |
|
|
Anmeldungsdatum: 21.01.2008
Beiträge: 2.225
 |
Tutorial Autor (?) |
|
Eine Sache kann ich daraus verstehen. Bedeutet "Exec" nicht, das etwas geladen wird ? Okay, ich denke das weißt du auch 
Angaben ohne Gewähr ^^
________________________________________
Rette den Regenwald !!
|
|
|
| |
|
ege51
|
| Titel: Basic script |
01.11.2011 14:00 |
|
|
Anmeldungsdatum: 01.11.2011
Beiträge: 3
|
Ja viele dieser Befehle sind mir klar. Aber eine professionelle Erklärung wäre nicht schlecht. Ich meine, so eine grobe Erklärung, was das Script Abschnitt für Abschnitt macht 
|
|
|
| |
|
Guru der Antworten
|
| Titel: Basic script |
01.11.2011 17:35 |
|
|
Anmeldungsdatum: 21.01.2008
Beiträge: 2.225
|
Tutorial Autor (?) |
|
Ich kenne mich eigentlich überhaupt nicht mit programmieren aus, aber in so einem Forum welches sich eher mit Allgemeinen Fragen beschäftigt ist vllt. nicht ganz so die richtige Wahl.
Frag doch dazu deinen Lehrer etc. oder "mitstudenten".
________________________________________
Rette den Regenwald !!
|
|
|
| |
|
ege51
|
| Titel: Basic script |
01.11.2011 19:50 |
|
|
Anmeldungsdatum: 01.11.2011
Beiträge: 3
|
egal...
keiner meiner mitstunden möchte helfen...die lehrer haben keine zeit...dann muss ich mich halt mit dem was ich selbst beschrieben habe, zufrieden geben
trotzdem danke
|
|
|
| |
|
|
|
|
|
|
Themen
Unbeantwortet
Betriebssysteme
