Basic Programmierung

[-schumi-]

Herzlich willkommen im Forum

Paar Einrückungen können nicht schaden:

' 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

Das erleichtert das Lesen sehr, so kann man schon sehr leicht Unterprogramme/Was alles zu IF gehört/Was alles in der For-Schleife ausgeführt wird usw erkennen.
Genau erläutern kann ichs dir aber nicht, hab mich dazu zu wenig mit Bascom auseinander gesetzt (z.B. is mir schleierhaft warum er manchmal REM und dann wieder ' verwendet)

Gruß

[MagicWSmoke]

Paar Einrückungen können nicht schaden:

Da kann er einrücken soviel er will, das wird deswegen immer noch kein Bascomcode.

Besonders einfach hieran zu erkennen:

If((keys & 1) = 1) Then

[PicNick]

Wenn du das "Handbuch" liest, kannst du dir vielleicht zusammenreimen, was da da passiert und warum.

http://www.avisaro.com/tl/dokumentation_wr1.html

Soweit ich das im Groben verstehe, läuft der Code auch in der beschriebenen Folge ab.

Sonst sind da leider ein paar "non-basic" Spezial-Befehle drin, die die Sache erschweren

[Richard]

Wenn du das "Handbuch" liest, kannst du dir vielleicht zusammenreimen, was da da passiert und warum.

http://www.avisaro.com/tl/dokumentation_wr1.html

Soweit ich das im Groben verstehe, läuft der Code auch in der beschriebenen Folge ab.

Sonst sind da leider ein paar "non-basic" Spezial-Befehle drin, die die Sache erschweren

na ja, Basic ist nicht gleich Basic da gibt es viele Arten mit eigenem Wortschatz, Bascom ist der hier verwendete Code jedenfalls nicht. Wenn man herausbekommt was das für eine Basic Version ist, kann man sicher auch den Quellcode überseten. Das 8051 Basic hat ähnliche Ausdrücke...Laut Handbuch ist dort anscheinend auch kein AVR verbaut.

Gruß Richard

[PicNick]

Wette, dass das überhaupt kein "richtiger" Basic ist, sondern ein spezielles Script im Basic-Style für eben dieses WLAN-Modul.