Kako povezati na win-phone ( nokia lumnia925) kakšen HW

Vsi ostali OS za telefone in tablice. Tu spadajo predvsem WIN naprave

Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a VolkD » 30 Mar 2015, 22:50

Vprašanje, oziroma želja je preprosta, odgovor in rešitev pa malo manj,...

Torej imam omenjeni telefon in bi z njim rad ( za začetek) preklapljal en rele.

Kot ideja se mi tu sicer takoj pojavi Wi-fi, a je verjetno bolj praktično imeti Modri zob. No tu sem pa na zelo tankem ledu, ker tega ne poznam prav nič.

Se je že kdo ukvarjal s tem ?
Dokler bodo ljudje mislili, da živali ne čutijo bolečine, bodo živali čutile, da ljudje ne mislijowww.S5tech.net
Uporabniški avatar
VolkD
Administratorji strani
 
Prispevkov: 28827
Pridružen: 29 Dec 2014, 19:49
Kraj: Kačiče (Divača)
Zahvalil se je: 5398 krat
Prejel zahvalo: 3694 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 255

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a borisz » 31 Mar 2015, 07:46

Pri BT boš moral vsakič povezovati s telefonom.
Če lahko uporabiš Ethernet (v hipi najbrž imaš tudi WIFI), lahko zadevo spelješ s PoKeys Ethernet verzijo. Nataviš ga kot WEB server, kjer lahko vidiš stanje, za preklapljanje pa si lahko nastaviš tudi geslo.
Delovalo bo kot obisk WEB strani.
It's never too late to have a happy childhood.
Uporabniški avatar
borisz
 
Prispevkov: 2933
Pridružen: 18 Jan 2015, 12:05
Zahvalil se je: 675 krat
Prejel zahvalo: 666 krat
Uporabnika povabil: Marholt
Število neizkoriščenih povabil: 128

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a drakslar » 31 Mar 2015, 10:41

Jaz sem delal že nekaj stvari z BT, mislim da je to najlažja komunikacija med telefonom in HWjem.
Uporabniški avatar
drakslar
 
Prispevkov: 73
Pridružen: 23 Jan 2015, 11:50
Kraj: Šenčur
Zahvalil se je: 28 krat
Prejel zahvalo: 4 krat
Uporabnika povabil: forest70
Število neizkoriščenih povabil: 0

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Waldo » 31 Mar 2015, 10:57

Dobra rešitev je lahko tudi WIFi modul ESP8266. Deluje lahko samostojno kot AP ali client v omrežju, je pa dovolj močen, da na njem lahko teče enostaven spletni strežnik in še kaj drugega in ne potrebuješ dodatnih kontrolerjev. Ker v budnem stanju "dosti pije", ni ravno idealen za napajanje z baterijami, a podpira tudi "standby". Zanimiv projekt je tule.
Waldo
 
Prispevkov: 133
Pridružen: 20 Feb 2015, 14:57
Kraj: Maribor
Zahvalil se je: 10 krat
Prejel zahvalo: 22 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 4

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Zeci » 31 Mar 2015, 11:32

Ravno sedaj se ubadam s tem, vendar ne na win phone, ampak na androidu. Naredil sem si android aplikacijo, s katero krmilim koračni motor v realnem času (vklop, izklop, pospeševanje,...) prek STM32F4 Disovery plate in modrostnega zoba.
Uporabljam BT modul HC-06 in presenetljivo lepo deluje (glede na to da je poceni kitajska roba). Za Bluetooth sem se odločil, ker bo celotna aplikacija prenosna, na terenu pa seveda ni wifi-ja.
Če imaš v hiši wifi, potem bi bilo mogoče res najbolje uporabiti kak ESP8266 modul, če pa potrebuješ hujšo zverino pa morda Pokeys ethernet, kot je omenil že borisz.

Ali boš pisal svojo aplikacijo za telefon? Če ne, si prisiljen uporabiti kakšno generično, s katero boš dajal ukaze BT ali WIFI modulu, kar pa je malo nerodno, npr. za vklop releja boš moral poslati neko črko, ki pomeni vklop (samo primer).

Pokeys (ga nisem še uporabljal) predvidevam da upravljaš prek spletne strani, ki pa je bolj pregledna in samo klikneš na gumb on/off.

Sam bi rekel nekako takole:

Aplikacija prenosljiva? -> BT (ali še bolje BLE), zaradi enostavnosti in porabe energije
Aplikacija fiksna in poceni? -> BT ali WIFI modul
Aplikacija fiksna in "udobna" -> Pokeys

Obstaja še ena bolj špartanska varianta, lahko uporabiš USB OTG kabel, ki ga priklopiš na telefon (telefon mora podpirati USB HOST), nanj potem USB UART adapter (recimo FTDI, potrebuješ ustrezno aplikacijo, na androidu obstaja, za win phone ne vem) in direktno daješ UART komande vezju prek kabla... :twisted:
Uporabniški avatar
Zeci
 
Prispevkov: 102
Pridružen: 17 Jan 2015, 21:31
Kraj: Osrednjeslovenska regija
Zahvalil se je: 39 krat
Prejel zahvalo: 24 krat
Uporabnika povabil: s56rga
Število neizkoriščenih povabil: 5

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a s54mtb » 31 Mar 2015, 11:38

V praksi preverjeno:

bluegiga WT12, WT11 in rayson (microchip?) BTM182. Če boš kaj eksperimentiral, imam vse tri.
Težava sveta je, da so inteligentni ljudje polni dvomov, medtem ko so neumni polni samozavesti. (Charles Bukowski)
s54mtb
 
Prispevkov: 8294
Pridružen: 15 Jan 2015, 00:10
Zahvalil se je: 1096 krat
Prejel zahvalo: 2668 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 75

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a panda36 » 01 Apr 2015, 07:42

Po mojih izkušnjah na večini lumniah OTG priključki ne delujejo, na androidih pa ponavadi delujejo.
panda36
 
Prispevkov: 5
Pridružen: 21 Jan 2015, 14:46
Kraj: Trbovlje
Zahvalil se je: 10 krat
Prejel zahvalo: 1 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 3

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a mujo » 01 Apr 2015, 09:47

HW na večini lumia telefonov podpira OTG. Težava je, da OS ne podpira OTG.
mujo
 
Prispevkov: 732
Pridružen: 21 Jan 2015, 09:50
Kraj: MB
Zahvalil se je: 1 krat
Prejel zahvalo: 145 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 17

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Zeci » 01 Apr 2015, 10:43

Mogoče se da kaj narediti tudi z audio izhodom (3.5mm jack), vendar to je potem spet žična povezava.
Uporabniški avatar
Zeci
 
Prispevkov: 102
Pridružen: 17 Jan 2015, 21:31
Kraj: Osrednjeslovenska regija
Zahvalil se je: 39 krat
Prejel zahvalo: 24 krat
Uporabnika povabil: s56rga
Število neizkoriščenih povabil: 5

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a panda36 » 03 Apr 2015, 07:38

Mogoče bi s kakšno aplikacijo zadeva delovala na OTG, želel sem samo opozoriti da zadeva z OS 8.1 ne deluje, ker zame ni bolj zoprne stvari da zasnuješ nek projekt pa ne deluje zaradi takšne malenkosti oziroma pomankljivosti.
LP
panda36
 
Prispevkov: 5
Pridružen: 21 Jan 2015, 14:46
Kraj: Trbovlje
Zahvalil se je: 10 krat
Prejel zahvalo: 1 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 3

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Krampus » 03 Apr 2015, 08:23

Še en glas za WiFi, brez kaj dosti razmišljanja in ugibanja, kaj bi, če bi.
Uporabniški avatar
Krampus
 
Prispevkov: 520
Pridružen: 18 Jan 2015, 15:32
Kraj: Središče ob Dravi
Zahvalil se je: 212 krat
Prejel zahvalo: 81 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 18

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a VolkD » 03 Apr 2015, 08:48

Kaj pa modri zob,... naHW strani se dobi module,...
Dokler bodo ljudje mislili, da živali ne čutijo bolečine, bodo živali čutile, da ljudje ne mislijowww.S5tech.net
Uporabniški avatar
VolkD
Administratorji strani
 
Prispevkov: 28827
Pridružen: 29 Dec 2014, 19:49
Kraj: Kačiče (Divača)
Zahvalil se je: 5398 krat
Prejel zahvalo: 3694 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 255

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a s54mtb » 03 Apr 2015, 09:24

Če obljubiš, da boš prijel za spajkalo, ti pošljem par modelov modrozobih modulov, pa poskusi.
Težava sveta je, da so inteligentni ljudje polni dvomov, medtem ko so neumni polni samozavesti. (Charles Bukowski)
s54mtb
 
Prispevkov: 8294
Pridružen: 15 Jan 2015, 00:10
Zahvalil se je: 1096 krat
Prejel zahvalo: 2668 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 75

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Proteus » 03 Apr 2015, 09:28

Krampus je napisal/-a:Še en glas za WiFi, brez kaj dosti razmišljanja in ugibanja, kaj bi, če bi.

VolkD je napisal/-a:Kaj pa modri zob,... naHW strani se dobi module,...

Kot vedno, pomembna je aplikacija. Včasih je bolj primerna prva zadeva, včasih pa druga.

Na WiFi lahko dostopaš z vsem in posledično tudi s telefonom. Pogoj za enostavnost aplikacije pa je, da uporabiš kakšno standardno rešitev n.pr. malino ali pa tisto, kar trži Boris. Vse ostalo je preveč dela za premalo muzike.

Po drugi strani pa je modri zob bistveno bolj fleksibilen in enostaven. Obvladuje ga že majhen mikrokontrolerček. Poleg tega je to uporabno tudi izven urbanih območij, kjer nimaš dostopa do iNeta.
Uporabniški avatar
Proteus
 
Prispevkov: 2424
Pridružen: 18 Jan 2015, 00:31
Kraj: Planet Zemlja
Zahvalil se je: 235 krat
Prejel zahvalo: 470 krat
Uporabnika povabil: s54mtb
Število neizkoriščenih povabil: 83

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a VolkD » 03 Apr 2015, 10:01

s54mtb je napisal/-a:Če obljubiš, da boš prijel za spajkalo, ti pošljem par modelov modrozobih modulov, pa poskusi.
Ja veš, da bo. Takoj po 1. maju, ko bo pomladna šola mimo.
Dokler bodo ljudje mislili, da živali ne čutijo bolečine, bodo živali čutile, da ljudje ne mislijowww.S5tech.net
Uporabniški avatar
VolkD
Administratorji strani
 
Prispevkov: 28827
Pridružen: 29 Dec 2014, 19:49
Kraj: Kačiče (Divača)
Zahvalil se je: 5398 krat
Prejel zahvalo: 3694 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 255

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Krampus » 03 Apr 2015, 10:26

Tole deluje z enim malim programčkom, ki ga sam napišeš za WIN ali Android.
Uporabniški avatar
Krampus
 
Prispevkov: 520
Pridružen: 18 Jan 2015, 15:32
Kraj: Središče ob Dravi
Zahvalil se je: 212 krat
Prejel zahvalo: 81 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 18

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a s54mtb » 03 Apr 2015, 11:06

VolkD je napisal/-a:
s54mtb je napisal/-a:Če obljubiš, da boš prijel za spajkalo, ti pošljem par modelov modrozobih modulov, pa poskusi.
Ja veš, da bo. Takoj po 1. maju, ko bo pomladna šola mimo.


Dobiš.

Rabil boš verjetno še tole:
http://apps.microsoft.com/windows/en-us ... 9f415fdcdf

na drugi strani pa AVR ali kar ti je pač ljubo. Načeloma se bi dalo tudi direktno z BT modulom prižigat in brat bit ali dva s pomočjo kontrolnih signalov. Serial port profile (SPP) na BT je dokaj razširjena zadeva in tudi RTS/CTS lepo pričiga in bere. Drugače pa dodaš mikrokontroler in pošiljaš tekstovne komande, čez bi pa brez težav lepo šel tudi DiV.
Težava sveta je, da so inteligentni ljudje polni dvomov, medtem ko so neumni polni samozavesti. (Charles Bukowski)
s54mtb
 
Prispevkov: 8294
Pridružen: 15 Jan 2015, 00:10
Zahvalil se je: 1096 krat
Prejel zahvalo: 2668 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 75

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a VolkD » 03 Apr 2015, 12:19

Krampus je napisal/-a:Tole deluje z enim malim programčkom, ki ga sam napišeš za WIN ali Android.
A a a a ,... nemško! A mi prosim prevedeš to, da vidim zakaj se sploh gre?
Dokler bodo ljudje mislili, da živali ne čutijo bolečine, bodo živali čutile, da ljudje ne mislijowww.S5tech.net
Uporabniški avatar
VolkD
Administratorji strani
 
Prispevkov: 28827
Pridružen: 29 Dec 2014, 19:49
Kraj: Kačiče (Divača)
Zahvalil se je: 5398 krat
Prejel zahvalo: 3694 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 255

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a VolkD » 03 Apr 2015, 12:20

s54mtb je napisal/-a:... Drugače pa dodaš mikrokontroler in pošiljaš tekstovne komande, čez bi pa brez težav lepo šel tudi DiV.
Aha, zdaj si pa pogruntal kam pes ( beri Volk) taco moli.
Dokler bodo ljudje mislili, da živali ne čutijo bolečine, bodo živali čutile, da ljudje ne mislijowww.S5tech.net
Uporabniški avatar
VolkD
Administratorji strani
 
Prispevkov: 28827
Pridružen: 29 Dec 2014, 19:49
Kraj: Kačiče (Divača)
Zahvalil se je: 5398 krat
Prejel zahvalo: 3694 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 255

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Waldo » 03 Apr 2015, 12:26

Ne komplicirat no, takole je preklapljanje relejev preko brskalnika čisto enostavno.
Waldo
 
Prispevkov: 133
Pridružen: 20 Feb 2015, 14:57
Kraj: Maribor
Zahvalil se je: 10 krat
Prejel zahvalo: 22 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 4

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Krampus » 03 Apr 2015, 20:42

Tole je za android, mislim, da ti bo jasno.
Angleških navodil pa res ne najdem.

Koda: Izberi vse
Sub AStPoslji_NewData (Buffer() As Byte)                                          ' Ko pride novi podatek, ga sprejmi
    txtStatus = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
      If txtStatus.SubString2(0,1) = "S" Then                                       ' Status izhodov
         chkOut8.Checked = pomIntBoo(txtStatus.SubString2(1,2))
         chkOut7.Checked = pomIntBoo(txtStatus.SubString2(2,3))
         chkOut6.Checked = pomIntBoo(txtStatus.SubString2(3,4))
         chkOut5.Checked = pomIntBoo(txtStatus.SubString2(4,5))
         chkOut4.Checked = pomIntBoo(txtStatus.SubString2(5,6))
         chkOut3.Checked = pomIntBoo(txtStatus.SubString2(6,7))
         chkOut2.Checked = pomIntBoo(txtStatus.SubString2(7,8))
         chkOut1.Checked = pomIntBoo(txtStatus.SubString2(8,9))
      End If
   
      If TimerInp.Enabled = True Then                                                   ' Status digitalnih vhodov
         If IsNumber(txtStatus) Then
            If intInpSte = 1 Then
               chkInp1.Checked = pomIntBoo(txtStatus.SubString2(0,1))
            End If
            If intInpSte = 2 Then
               chkInp2.Checked = pomIntBoo(txtStatus.SubString2(0,1))
            End If
            If intInpSte = 3 Then
               chkInp3.Checked = pomIntBoo(txtStatus.SubString2(0,1))
            End If
            If intInpSte = 4 Then
               chkInp4.Checked = pomIntBoo(txtStatus.SubString2(0,1))
            End If
         End If
      End If
      
      If TimerADC.Enabled = True Then                                                   ' Status analognih vhodov
         If IsNumber(txtStatus) Then
            If intAdcSte = 1 Then
               lblAdc1.Text = txtStatus
               lblAd01.Text = Round2(txtStatus * 5 / 1024,2)
            End If
            If intAdcSte = 2 Then
               lblAdc2.Text = txtStatus
               lblAd02.Text = Round2(txtStatus * 5 / 1024,2)
            End If
            If intAdcSte = 3 Then
               lblAdc3.Text = txtStatus
               lblAd03.Text = Round2(txtStatus * 5 / 1024,2)
            End If
            If intAdcSte = 4 Then
               lblAdc4.Text = txtStatus
               lblAd04.Text = Round2(txtStatus * 5 / 1024,2)
            End If
         End If
      End If
End Sub
Sub cmdConn_Click                                                                           ' Poveže se z napravo
      If socPoslji.Connected = True Then                                          ' Če je povezan to sporočim
         lblMess.Text = "Povezava"
      Else                                                                                        ' Če ni povezan, poskusim povezati
       lblMess.Text = "Ni povezave, povezujem"                                 ' Sporočim, da ni povezave
        socPoslji.Initialize("socPoslji")                                          ' Vzpostavim povezavo (IP z ekrana, port 50290)
         socPoslji.Connect(txtInIP.Text, 50290, 0)
         Wait(250)                                                                              ' Malenkost počakam
         If socPoslji.Connected = True Then                                       ' Če je povezan to sporočim
            lblMess.Text = "Povezava"
         Else                                                                                    ' Če ni povezan, sporočim obvestilo o napaki
            lblMess.Text = "Preveri napako"
         End If
      End If
      Preveri                                                                                    ' Če je povezan preveri stanje
End Sub
Sub Preveri
   If socPoslji.Connected = True Then                                             ' Če je povezan pošljem zahtevo, ki vrne statuse izhodov
      If AStPoslji.IsInitialized = False Then                                    ' Če stream ni vzpostavljen, ga vzpostavim
         AStPoslji.Initialize(socPoslji.InputStream, socPoslji.OutputStream, "AStPoslji")
      End If
      txtKomand = "getstatus "                                                         ' Pripravim komando
      Dim AStBuf() As Byte
      AStBuf = txtKomand.GetBytes("UTF8")                                          
     AStPoslji.Write(AStBuf)                                                            ' Pošljem komando
   Else                                                                                           ' Če ni povezan, sporočim obvestilo o napaki
       lblMess.Text = "Ni povezave, preveri napako"
   End If
End Sub
Sub chkInpC_CheckedChange(Checked As Boolean)                                 ' Preverjanje stanja digitalnih vhodov
   If chkInpC.Checked = True Then                                                   ' Če se vklopi
      chkAdcC.Checked = False                                                            ' Izklopim preverjanje stanja analognih vhodov
      TimerInp.Initialize("TimerInp",100)                                          ' Nastavim časovnik
      TimerInp.Enabled = True                                                            ' Zaženem časovnik
   Else                                                                                          ' Če se izklopi
      TimerInp.Enabled = False                                                         ' Ustavim časovnik
   End If
End Sub
Sub chkAdcC_CheckedChange(Checked As Boolean)                                 ' Preverjanje stanja analognih vhodov
   If chkAdcC.Checked = True Then                                                   ' Če se vklopi
      chkInpC.Checked = False                                                            ' Izklopim preverjanje stanja analognih vhodov
      TimerADC.Initialize("Timeradc",100)                                          ' Nastavim časovnik
      TimerADC.Enabled = True                                                            ' Zaženem časovnik
   Else                                                                                          ' Če se izklopi
      TimerADC.Enabled = False                                                         ' Ustavim časovnik
   End If
End Sub
Sub TimerADC_Tick                                                                           ' Zagnan časovnik za preverjanje stanja analognih vhodov
intAdcSte = intAdcSte + 1                                                               ' Štejem do štiri
If intAdcSte > 4 Then intAdcSte = 1   
   txtKomVrs = "Adc" & intAdcSte                                                      ' Sestavim vrsto komande Adc = analogni vhodi (Adc1, Adc2, Adc3, Adc4)
   SendComand("getadc " & intAdcSte & " ")                                       ' Sestavim komando ("getadc 1 ", "getadc 2 ", "getadc 3 ", "getadc 4 ")
End Sub
Sub TimerInp_Tick                                                                           ' Zagnan časovnik za preverjanje stanja analognih vhodov
intInpSte = intInpSte + 1                                                               ' Štejem do štiri
If intInpSte > 4 Then intInpSte = 1   
   txtKomVrs = "Inp" & intInpSte                                                      ' Sestavim vrsto komande Inp = digitalni vhodi (Inp1, Inp2, Inp3, Inp4)
   SendComand("getport " & intInpSte & " ")                                    ' Sestavim komando ("getport 1 ", "getport 2 ", "getport 3 ", "getport 4 ")
End Sub
Sub SendComand(Komanda As String)                                                   ' Pošiljanje komand
   If socPoslji.Connected = True Then                                             ' Če je povezan pošlji vzpostavi stream
      If AStPoslji.IsInitialized = False Then      
         AStPoslji.Initialize(socPoslji.InputStream, socPoslji.OutputStream, "AStPoslji")   ' Vzpostavim stream
      End If
         Dim AStBuf() As Byte                                                            ' Pripravim podatke
      AStBuf = Komanda.GetBytes("UTF8")                                          '
      AStPoslji.Write(AStBuf)                                                         ' Pošljem podatke v stream
         Wait(50)                                                                              ' Malenkost počakam
   Else                                                                                           ' Če ni povezan, sporočim napako in zaustavim časovnike
    lblMess.Text = "Ni povezave, preveri napako"
      TimerADC.Enabled = False
      TimerInp.enabled = False
      chkAdcC.Checked = False
      chkInpC.Checked = False
   End If
End Sub
Sub chkOut1_CheckedChange(Checked As Boolean)                                 ' Digitalni izhod
   If chkOut1.Checked = True Then                                                   ' Če je potrjen
      SendComand("setport 1.1")                                                         ' Pošljem vklop
   Else                                                                                          ' Če ni potrjen
      SendComand("setport 1.0")                                                         ' Pošljem izklop
   End If
End Sub
Sub chkOut2_CheckedChange(Checked As Boolean)
   If chkOut2.Checked = True Then
      SendComand("setport 2.1")
   Else
      SendComand("setport 2.0")
   End If
End Sub
Sub chkOut3_CheckedChange(Checked As Boolean)
   If chkOut3.Checked = True Then
      SendComand("setport 3.1")
   Else
      SendComand("setport 3.0")
   End If
End Sub
Sub chkOut4_CheckedChange(Checked As Boolean)
   If chkOut4.Checked = True Then
      SendComand("setport 4.1")
   Else
      SendComand("setport 4.0")
   End If
End Sub
Sub chkOut5_CheckedChange(Checked As Boolean)
   If chkOut5.Checked = True Then
      SendComand("setport 5.1")
   Else
      SendComand("setport 5.0")
   End If
End Sub
Sub chkOut6_CheckedChange(Checked As Boolean)
   If chkOut6.Checked = True Then
      SendComand("setport 6.1")
   Else
      SendComand("setport 6.0")
   End If
End Sub
Sub chkOut7_CheckedChange(Checked As Boolean)
   If chkOut7.Checked = True Then
      SendComand("setport 7.1")
   Else
      SendComand("setport 7.0")
   End If
End Sub
Sub chkOut8_CheckedChange(Checked As Boolean)
   If chkOut8.Checked = True Then
      SendComand("setport 8.1")
   Else
      SendComand("setport 8.0")
   End If
End Sub
Sub cmdExit_Click                                                                           ' Izhod iz programa
   TimerADC.Enabled = False                                                            ' izklopim časovnike
   TimerInp.Enabled = False
   AStPoslji.Close                                                                           ' Prekinem stream
   socPoslji.Close                                                                           ' Prekinem povezavo
   Activity.Finish                                                                           ' Ustavim formo
   ExitApplication                                                                           ' Zaprem program
End Sub
Sub Wait(casMs As Int)                                                                  ' Pavza Uporaba: Wait(mili sekund)
   Dim Ti As Long
   Ti = DateTime.Now + (casMs)
   Do While DateTime.Now < Ti
     DoEvents
   Loop
End Sub
Sub pomIntBoo(intStat As String)As Boolean                                    ' Pretvorim string "1" v "True", ostalo je "False"
   If intStat = "1" Then
      Return True
   Else
      Return False
   End If
End Sub
Sub socPoslji_Connected (Successful As Boolean)                              ' Če je pri priključitvi napaka, gre naprej
    If Successful = False Then
        ToastMessageShow("Napaka, preverite napravo", False)
        Return
    End If
End Sub
Sub AStPoslji_Error                                                                        ' Če je napaka branja, prikaže napako
    ToastMessageShow(LastException.Message, True)
End Sub
Sub cmdOutV_Click                                                                           ' Vklop vse izhodov
   SendComand("setport 1.1")
   SendComand("setport 2.1")
   SendComand("setport 3.1")
   SendComand("setport 4.1")
   SendComand("setport 5.1")
   SendComand("setport 6.1")
   SendComand("setport 7.1")
   SendComand("setport 8.1")
   Preveri
End Sub
Sub cmdOutI_Click                                                                           ' Izklop vseh izhodov
   SendComand("setport 1.0")
   SendComand("setport 2.0")
   SendComand("setport 3.0")
   SendComand("setport 4.0")
   SendComand("setport 5.0")
   SendComand("setport 6.0")
   SendComand("setport 7.0")
   SendComand("setport 8.0")
   Preveri   
End Sub
Sub txtIP_EnterPressed                                                                  ' Potrditev IP polja
   cmdConn_Click
End Sub
Uporabniški avatar
Krampus
 
Prispevkov: 520
Pridružen: 18 Jan 2015, 15:32
Kraj: Središče ob Dravi
Zahvalil se je: 212 krat
Prejel zahvalo: 81 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 18

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a VolkD » 03 Apr 2015, 20:48

Ja za w8 phone bo verjetno drugače. To bo treba še raziskati.
Zaenkrat sem se torej odločil, da grem dalje z modrim zobom. Zdaj bo treba najprej narediti HW, potem bom pa spet tečen. No medtem iščem kakšno kodo, ki bi bila lahko kot vzorec komunikacije w8 phone - BT.
Dokler bodo ljudje mislili, da živali ne čutijo bolečine, bodo živali čutile, da ljudje ne mislijowww.S5tech.net
Uporabniški avatar
VolkD
Administratorji strani
 
Prispevkov: 28827
Pridružen: 29 Dec 2014, 19:49
Kraj: Kačiče (Divača)
Zahvalil se je: 5398 krat
Prejel zahvalo: 3694 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 255

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Krampus » 03 Apr 2015, 20:56

Za Win moram iti v mojo delavnico, pa ne pridem nikakor do tja.
Razbijamo po hiši in ne morem do vrat..
Uporabniški avatar
Krampus
 
Prispevkov: 520
Pridružen: 18 Jan 2015, 15:32
Kraj: Središče ob Dravi
Zahvalil se je: 212 krat
Prejel zahvalo: 81 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 18

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a Krampus » 04 Apr 2015, 14:10

Eve ga Visual Basic

Koda: Izberi vse
Public Class AvrNetIo
    Dim tcpC As TcpClient
    Public StevecPort As Integer
    Public StanjePort As Integer
    Public StanjeADC As Integer

    Private Sub AvrNetIo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(((Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2), ((Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2))
    End Sub
    Private Sub cmdExit_Click(sender As System.Object, e As System.EventArgs) Handles cmdExit.Click
        Me.Close()
    End Sub
    Private Sub cmdPrekinitev_Click(sender As System.Object, e As System.EventArgs) Handles cmdPrekinitev.Click
        If Not tcpC Is Nothing Then
            tcpC.Close()
            tcpC = Nothing
        End If
        txtPovezava.Text = "Ni povezave"
    End Sub
    Private Sub cmdPovezava_Click(sender As System.Object, e As System.EventArgs) Handles cmdPovezava.Click
        Try
            tcpC = New TcpClient
            tcpC.Connect("192.168.1.90", 50290)
            If tcpC.Connected = True Then
                txtPovezava.Text = "Povezava je vzpostavljena"
                StatusNapis.Text = txtPovezava.Text
                BeriIzhode("getstatus ")
            End If
        Catch ex As Exception
            'Console.WriteLine(ex.ToString())
            txtPovezava.Text = "Ni povezave"
        End Try
    End Sub
    Private Sub chkIzhod1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkIzhod1.CheckedChanged
        If chkIzhod1.Checked = True Then
            BeriIzhode("setport 1.1")
        Else
            BeriIzhode("setport 1.0")
        End If
        radVklop.Checked = False
        radIzklop.Checked = False
    End Sub
    Private Sub chkIzhod2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkIzhod2.CheckedChanged
        If chkIzhod2.Checked = True Then
            BeriIzhode("setport 2.1")
        Else
            BeriIzhode("setport 2.0")
        End If
        radVklop.Checked = False
        radIzklop.Checked = False
    End Sub
    Private Sub chkIzhod3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkIzhod3.CheckedChanged
        If chkIzhod3.Checked = True Then
            BeriIzhode("setport 3.1")
        Else
            BeriIzhode("setport 3.0")
        End If
        radVklop.Checked = False
        radIzklop.Checked = False
    End Sub
    Private Sub chkIzhod4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkIzhod4.CheckedChanged
        If chkIzhod4.Checked = True Then
            BeriIzhode("setport 4.1")
        Else
            BeriIzhode("setport 4.0")
        End If
        radVklop.Checked = False
        radIzklop.Checked = False
    End Sub
    Private Sub chkIzhod5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkIzhod5.CheckedChanged
        If chkIzhod5.Checked = True Then
            BeriIzhode("setport 5.1")
        Else
            BeriIzhode("setport 5.0")
        End If
        radVklop.Checked = False
        radIzklop.Checked = False
    End Sub
    Private Sub chkIzhod6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkIzhod6.CheckedChanged
        If chkIzhod6.Checked = True Then
            BeriIzhode("setport 6.1")
        Else
            BeriIzhode("setport 6.0")
        End If
        radVklop.Checked = False
        radIzklop.Checked = False
    End Sub
    Private Sub chkIzhod7_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkIzhod7.CheckedChanged
        If chkIzhod7.Checked = True Then
            BeriIzhode("setport 7.1")
        Else
            BeriIzhode("setport 7.0")
        End If
        radVklop.Checked = False
        radIzklop.Checked = False
    End Sub
    Private Sub chkIzhod8_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkIzhod8.CheckedChanged
        If chkIzhod8.Checked = True Then
            BeriIzhode("setport 8.1")
        Else
            BeriIzhode("setport 8.0")
        End If
        radVklop.Checked = False
        radIzklop.Checked = False
    End Sub
    Private Sub radVklop_Click(sender As Object, e As System.EventArgs) Handles radVklop.Click
        BeriIzhode("setport 1.1")
        BeriIzhode("setport 2.1")
        BeriIzhode("setport 3.1")
        BeriIzhode("setport 4.1")
        BeriIzhode("setport 5.1")
        BeriIzhode("setport 6.1")
        BeriIzhode("setport 7.1")
        BeriIzhode("setport 8.1")
        radVklop.Checked = True
        radIzklop.Checked = False
    End Sub
    Private Sub radIzklop_Click(sender As Object, e As System.EventArgs) Handles radIzklop.Click
        BeriIzhode("setport 1.0")
        BeriIzhode("setport 2.0")
        BeriIzhode("setport 3.0")
        BeriIzhode("setport 4.0")
        BeriIzhode("setport 5.0")
        BeriIzhode("setport 6.0")
        BeriIzhode("setport 7.0")
        BeriIzhode("setport 8.0")
        radVklop.Checked = False
        radIzklop.Checked = True
    End Sub
    Private Sub chkVhodP_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkVhodP.CheckedChanged
        If chkVhodP.Checked = True Then
            TimerVhodi.Enabled = True
        Else
            TimerVhodi.Enabled = False
        End If
    End Sub
    Private Sub chkADC_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkADC.CheckedChanged
        If chkADC.Checked = True Then
            TimerADC.Enabled = True
        Else
            TimerADC.Enabled = False
        End If
    End Sub
    Private Sub TimerVhodi_Tick(sender As System.Object, e As System.EventArgs) Handles TimerVhodi.Tick
        BeriVhode("getport 1")
        chkVhod1.Checked = StanjePort
        BeriVhode("getport 2")
        chkVhod2.Checked = StanjePort
        BeriVhode("getport 3")
        chkVhod3.Checked = StanjePort
        BeriVhode("getport 4")
        chkVhod4.Checked = StanjePort
    End Sub
    Private Sub TimerADC_Tick(sender As System.Object, e As System.EventArgs) Handles TimerADC.Tick
        BeriADC("getadc 1 ")
        txtADC1.Text = StanjePort
        txtADC01.Text = StanjePort * 5 / 1023
        BeriADC("getadc 2 ")
        txtADC2.Text = StanjePort
        txtADC02.Text = StanjePort * 5 / 1023
        BeriADC("getadc 3 ")
        txtADC3.Text = StanjePort
        txtADC03.Text = StanjePort * 5 / 1023
        BeriADC("getadc 4 ")
        txtADC4.Text = StanjePort
        txtADC04.Text = StanjePort * 5 / 1023
    End Sub
    Public Sub BeriIzhode(Komanda As String)
        Try
            If Not tcpC Is Nothing Then
                ' Odpre stream za podatke <->
                Dim netStream As NetworkStream = tcpC.GetStream()
PonoviStatus:

                ' Pošlje podatke proti serverju
                Dim sendBytes As [Byte]() = System.Text.Encoding.UTF8.GetBytes(Komanda)
                netStream.Write(sendBytes, 0, sendBytes.Length)
                ' Bere podatke s serverja v buffer
                Dim bytes(tcpC.ReceiveBufferSize) As Byte

                ' Read can return anything from 0 to numBytesToRead.
                ' This method blocks until at least one byte is read.
                netStream.Read(bytes, 0, CInt(tcpC.ReceiveBufferSize))

                ' Returns the data received from the host to the console.
                Dim Podatki As String = System.Text.Encoding.ASCII.GetString(bytes)
                If Mid(Podatki, 1, 1) = "S" Then
                    chkIzhod1.Checked = Int(Mid(Podatki, 9, 1))
                    chkIzhod2.Checked = Int(Mid(Podatki, 8, 1))
                    chkIzhod3.Checked = Int(Mid(Podatki, 7, 1))
                    chkIzhod4.Checked = Int(Mid(Podatki, 6, 1))
                    chkIzhod5.Checked = Int(Mid(Podatki, 5, 1))
                    chkIzhod6.Checked = Int(Mid(Podatki, 4, 1))
                    chkIzhod7.Checked = Int(Mid(Podatki, 3, 1))
                    chkIzhod8.Checked = Int(Mid(Podatki, 2, 1))
                Else
                    Komanda = "getstatus "
                    GoTo PonoviStatus
                End If
            Else
                txtPovezava.Text = "Ni povezave"
            End If
        Catch ex As Exception
            txtPovezava.Text = "Ni povezave, prekinil je oddaljeni strežnik"
            TimerADC.Enabled = False
            chkADC.Checked = False
        End Try
    End Sub
    Public Sub BeriVhode(Komanda As String)
        Try
            If Not tcpC Is Nothing Then
                ' Odpre stream za podatke <->
                Dim netStream As NetworkStream = tcpC.GetStream()

                ' Pošlje podatke proti serverju
                Dim sendBytes As [Byte]() = System.Text.Encoding.UTF8.GetBytes(Komanda)
                netStream.Write(sendBytes, 0, sendBytes.Length)
                ' Bere podatke s serverja v buffer
                Dim bytes(tcpC.ReceiveBufferSize) As Byte

                ' Read can return anything from 0 to numBytesToRead.
                ' This method blocks until at least one byte is read.
                netStream.Read(bytes, 0, CInt(tcpC.ReceiveBufferSize))

                ' Returns the data received from the host to the console.
                Dim Podatki As String = System.Text.Encoding.ASCII.GetString(bytes)
                'MsgBox(Podatki)
                If IsNumeric(Mid(Podatki, 1, 1)) Then
                    StanjePort = Mid(Podatki, 1, 1)
                End If
            Else
                txtPovezava.Text = "Ni povezave"
                TimerVhodi.Enabled = False
                chkVhodP.Checked = False
            End If
        Catch ex As Exception
            txtPovezava.Text = "Ni povezave, prekinil je oddaljeni strežnik"
            TimerVhodi.Enabled = False
            chkVhodP.Checked = False
        End Try
    End Sub
    Public Sub BeriADC(Komanda As String)
        Try
            If Not tcpC Is Nothing Then
                ' Odpre stream za podatke <->
                Dim netStream As NetworkStream = tcpC.GetStream()

                ' Pošlje podatke proti serverju
                Dim sendBytes As [Byte]() = System.Text.Encoding.UTF8.GetBytes(Komanda)
                netStream.Write(sendBytes, 0, sendBytes.Length)
                ' Bere podatke s serverja v buffer
                Dim bytes(tcpC.ReceiveBufferSize) As Byte

                ' Read can return anything from 0 to numBytesToRead.
                ' This method blocks until at least one byte is read.
                netStream.Read(bytes, 0, CInt(tcpC.ReceiveBufferSize))

                ' Returns the data received from the host to the console.
                Dim Podatki As String = System.Text.Encoding.ASCII.GetString(bytes)
                'MsgBox(Podatki)
                StanjePort = Podatki
            Else
                txtPovezava.Text = "Ni povezave"
                TimerADC.Enabled = False
                chkADC.Checked = False
            End If
        Catch ex As Exception
            txtPovezava.Text = "Ni povezave, prekinil je oddaljeni strežnik"
            TimerADC.Enabled = False
            chkADC.Checked = False
        End Try
    End Sub
End Class
Priponke
AvrNetIo.jpg
Uporabniški avatar
Krampus
 
Prispevkov: 520
Pridružen: 18 Jan 2015, 15:32
Kraj: Središče ob Dravi
Zahvalil se je: 212 krat
Prejel zahvalo: 81 krat
Uporabnika povabil: VolkD
Število neizkoriščenih povabil: 18

Re: Kako povezati na win-phone ( nokia lumnia925) kakšen HW

OdgovorNapisal/-a VolkD » 04 Apr 2015, 14:18

Krampus je napisal/-a:Eve ga Visual Basic
Hmm, ... tole bova pa enkrat bolj potanko preučila. Samo da najdem primeren čas,...
Dokler bodo ljudje mislili, da živali ne čutijo bolečine, bodo živali čutile, da ljudje ne mislijowww.S5tech.net
Uporabniški avatar
VolkD
Administratorji strani
 
Prispevkov: 28827
Pridružen: 29 Dec 2014, 19:49
Kraj: Kačiče (Divača)
Zahvalil se je: 5398 krat
Prejel zahvalo: 3694 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 255


Vrni se na Ostali OS - WIN naprave, iPhone

Kdo je na strani

Po forumu brska: 0 registriranih uporabnikov in 1 gost