web control

[pedja089]

To sam ti vec objasnjavao...
http://www.elektronika.ba/forum/viewtop ... 18#p100724
Ajde ponovo mozda bolje objasnim...
Na mom kompu stoji aplikacija koja slusa port 80 na mojoj ip adresi.
Kada ja u mozilu upisem moju adresu meni se na portu pojavi ovo u drugom prozoru, znaci get /bla bla.
Da sam upisao u mozilu 192.129.12.12/xyz
Dobio bi na tom portu koji slusam get/xyz
Da sam upisao u mozili ip/mali_djokica.abc
Dobio bi get /mali....
E sad kad imas taj podatak, sta korisnik od tebe trazi, ti onda uradis sa tim nesto...
Recimo konkretan primer. (Jbg, ipak ne tako konkretan , zardjao HTML )
Ti napravis svoju stranicu koja na sebi ima linkove
IP/Upali_svetlo.html
ip/Ugasi_svetlo.html
Tu stranicu smestis na tvoj uredjaj koji glumi server.
Pokrenes aplikaciju koja slusa port 80.
I sad ti u mozili ili cemu god od kuce kucas ip od tog uredjaja.
Uredjaj dobije na portu 80, GET / (Ovo sa slike gornji crveni tekst)
http://www.elektronika.ba/forum/downloa ... hp?id=2103
I sad tvoj server kaze ako je stigao GET / posalji html stranicu koju smo napravili.
I ti posaljes na port 80 stranicu. A sta ce biti u stranici pa najjednostavnije, pre slanja IF portx.x=1 then posalji strnicu1, else posalji stranicu 2. Ili samo deo stranice. Znaci ti primis neki tekst, obradis ga, i na osnovu nekih uslova posaljes nazad tekst.
E sad mi na nasoj stranici vidimo 2 linka.
Kliknes na jedan link, recimo prvi, ti u serveru tvom dobijes
GET /Upali_svetlo.html
I ti onda u delu koda za prijem podataka sa porta napises, ako je stigao tekst get /upali_svetlo.html onda porty.y=1
if tekst ="get /ugasi svetlo" then porty.y=0
if text=mali djokica then serout portxy.d, "mali djokicva"
Nadam se da je bilo od koristi i da je malo jasnije sad...
Ako sta nije jasno pitaj pa cu probati da objasnim.

[pedja089]

Primer u vb6 koristeci winsock da odradi tcpip:

Code: Select all

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error GoTo err
Dim Str As String
Winsock1.GetData Str
If InStr(1, Str, "GET /UpaliMotor.html") > 0 Then 'Ovo ce da proveri tvoj zahtev
    MsComm1.Output = "Komanda:Upali motor" 'Ovo ce da posalje zahtev na port
    Winsock1.SendData "Komanda Motor upaljen poslana" & vbCrLf ' ovo ce da ti prikaze tekst na stranici
 End If
Exit Sub
err:
MsgBox("Err")
End Sub

Da bi upalio motor uredjaja koji se nalazi na IP:123.456.789.123 samo treba da upises u adress bar:
123.456.789.123/UpaliMotor.html
I kad to upises na ekranu ces dobiti samo tekst "Komanda Motor upaljen poslana".
Eto ga jos malo konkretniji primer...
Naravno u form load treba podesiti portove, baudrade itd... Ali ovo ovako bi moglo da radi, bez izmena.
Ne znam koji ti deo nije jasan, pa ne znam kako bi ti to jos priblizio...
EDIT:
Inace ovo GET / bla bla ces dobiti iz svakog TCPIP-a. Ne bitno jeli je on na picu, atmegi, racunaru...

[pedja089]

Dje ba sad zapelo?
I prosli put se stalo ovde...

[mario KT]

Ocito na RPi-u, ovo na VB ja sam i ja radio prije nekoliko godina, mada sad na RPi pokusavm dobiti komande na rs232 i transfer na network, pa bas neide po planu (linux). Neznam kakvo je stanje s @Liam-om ali ja u paraleli radim povezivanje serijskog porta na RPi preko net-a. Cak sam i program u VB6 napravio za simulaciju rampe. Meni je malo problem s obavezama pa nisam skroz posvecen temi. Javim kad dobijem prve rezultate (mozda potraje zbog obaveza), ali radim na tome.

[pedja089]

A u cemu na njemu pises program?
Vidim na netu ima gomila primera za python...

[mario KT]

Ma pokusavam s WebIOPi (Python script).

[pedja089]

Ako uhvatim vremena dicu i ja linux na pc, pa se probam zajebavati malo sa tim...

[mario KT]

Eto da javim da radi ovo s WebIOPi. Znaci imam slijedecu konfiguraciju:
Raspberry pi Model A
Wlan USB (ovaj model nema Lan)
USB2RS232TTL (2 komada za simulaciju na PC,rampa) FT232 (nemem MAX3232)
VB6 Program simulira rad rampe (znaci prima string i vraca ako je izvrsio naredbu)

Testirano na stolu i rade naredbe i feedback od VB6 programa.
Za prilagodbu treba samo naparviti HTML na Pi-u, (sad je samo tekstualno),npr. gumbe i funkciju s naredbama, malo grafike i to je to
Ako treba pomoc oko podesavanja tu sam..

[pedja089]

Drago mi je da ti proradilo...

[mario KT]

A sad je @Liam na redu pa da krenemo na podesavnje RPi-a.

[LIAM]

VPozdrav
Nazalost to kod mene neide tako brzo uz brdo obaveza na poslu i dvoje male djece kuci I da se kloniram nebi uspio, a tu je jos I neznanje moje. RPI je moj prvi susret sa linuxom I ako dodam da mi je trebalo oko.mjesec dana da ga pokrenem ......sta rec.
Super da ti to radi samo jos je tu nepoznanica meni kako si natjero da da posalje komandu na port

[mario KT]

Znam kako ti je i ja imam dvoje male djece a i puno obaveza, ali jucer bio miran dan na poslu pa sam se malo poigrao. RPi imam oko 20-ak dana tak da se i ja jos ucim, a Linux sam koristio prije 10 godina, tak da se i njega sada moram prisjetiti.
Ukratko ovo sto je @Pedja postao za VB6 ti je provjeren kod koji radi i vidi se lijepo kako, tak da neznam sta nije jasno.
Na RPi-u znaci imas operativni Raspbian i sve sto je potrebno skinuti i instalirati WebIOPi. Eh sad tu ima podesenja ovisno jel koristis njegov port ili USB adapter i jos neke sitne postavke. Pokrenes WebIOPi i za prvu ruku u recimo Midori ukucas http://localhost. I eto te na RPi serveru (znaci nereba ti ni Apache ni bilo sta drugo). Na index stranici imas Link Serial monitor. Kada u polje Output ukucas tekst i posaljes on to proslijedi na port , a kada s porta primi promet se prikazuje u polju Input. U HTML-u se koriste funkcije WebIOPi scripte i tu je moguce svasta mijenjati, dodavati.
Ako se odlucis da napravis kontrolu ici cemo korak po korak oko podesenja.
LP Mario