[VB] Komunikacija s serijskimi napravami

simpl, mau poglej v help za tem
System.IO.Ports.SerialPort

se nekaj vprasanj: kako bi mi VB "sam" izbral ravno tisti port, kjer mam jst prikljucek RS232? ima kdo ksno idejo? zazeljen tudi primer s kodo...
zanima me tudi:
With mySerialPort
.Open()
.write(" bla bla bla")
End With

s kaksnimi ukazi nato sprejemam odziv-podatke te naprave? tega nisem nikjer zasledil...

oprostite za butasta vprasanja. LP

VB 2005 expres edition

zopet tezava...
prej al selj sv vedu da bom naletew tudi na ta problem: kako izbran element iz comboboxa in ga nato vkljucim nekam drugam? u mojem primeru izberem enega imed izpisanih COM-portov in tega uporabljam.... glejte odspodaj-kjer so vprasaji!

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames()) ==> mi izpise porte in si enga iberem iz delujocega programa

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mySerialPort As IO.Ports.SerialPort = New IO.Ports.SerialPort(??????????????tle morem sedaj nekako dodat moj izbran COM port, 56000, IO.Ports.Parity.None, 8,IO.Ports.StopBits.One)
With mySerialPort
.Close()
End With
If mySerialPort.IsOpen Then
Label1.Text = ("Port still Opened")
Else
Label1.Text = ("Port closed")
End If

End Sub

komunikacija z mojim GSM umesnikom ( Siemens TC35 ), sevedno ne stece.

Koda:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
With mySerialPort
.Open()
.Write("AT" + vbCr) => posiljam AT ukaze+ ukaz za odziv

End With
If mySerialPort.IsOpen = True Then
Label1.Text = ("Port odprt")
Else
Label1.Text = ("Port zaprt")
End If
End Sub
Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
Label2.Text = (mySerialPort.ReadExisting)
End Sub

v VB posiljam ukaze na ta GSM umesnik vendar se mi ta sevedno ne odziva. port imam pravilno nastavljen ( BaudRate...) in tudi koda mislim da je uredu, sai mi ukaz AT poslje ( preverjeno z programom "serial monitor" ) a ne dobim odziva.

a ima kdo se kaksno idejo, kai bi lahko bilo narobe ali kai se manjka? bilo kaksen nasvet je dobrodosel
LP vsem

"Handles mySerialPort.DataReceived" ???? zakai to? Ne, DataRecieved se mi ne pozene..

jeee bere! hvala za pomoc

A imaš obe vrstici (msgbox in label=...) ali ti ne deluje ko imaš tudi samo eno od teh dveh?

Če imaš obe vrstici eno za drugo, ne bo delalo:

MsgBox(mySerialPort.ReadExisting)
Label2.Text = mySerialPort.ReadExisting

Če imaš pa samo drugo, mora delat. ReadExisting vrne string, tako da ni treba ničesar pretvarjati

pa se eno vpr: dobro bi blo da bi posiljaw in sprejem v nekih dolocenih intervalih. tu bi lahko uporabil timer... a bi vedel kako se glasi koda za povavljanje nekega dogotka.

primer:

ce kliknem na timer u VB, si me ze opre koda:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label2.Text = mySerialPort.ReadExisting .....to bi ponavljal ( a rabim zopet private sub...)

end sub

samo je tu problem ker morem za branje iz porta zopet klicat private sub.... in private sub v private sub ne gre

iscem in iscem...ne najdem. kaksna ideja?

se opravicujem... bi se dalo bol tocno napisat?

Label2.Text = mySerialPort.ReadExisting .... kje kai dodam?

im still a noob in VB

se vedno ne dela.... labela ostane prazna,najbrz zato ker se modem niti ne odzove.

Dim strmessage As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
With mySerialPort
.PortName = ComboBox1.SelectedItem

.Open()
.Write("AT" + vbCr)

System.Threading.Thread.Sleep(200)
End With
end sub

Delegate Sub UpdateLabelHandler(ByVal sText As String)
Public Sub UpdateLabel(ByVal sText As String)

Label2.Text = sText

End Sub

Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles mySerialPort.DataReceived

Me.Invoke(New UpdateLabelHandler(AddressOf UpdateLabel), New Object() {strmessage})

End Sub

z spodnjo kodo se mi modem lepo odzove, a pride pa do napake ki sm jo ze prej navedu...

Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles mySerialPort.DataReceived

TextBox1.Text = mySerialPort.ReadExisting

end Sub

jeeesss!! dela! zakon! hvala hvala!
imas se mogoce idejo, kako bi se sedaj ta srting obdelalo? vsak byte u temu stringu mi predstawlja en znak...jst ne rabim vseh...rabim recimo samo 6 in 7 byte. ker ene bi rad daju v labele, druge u textboxe...itd.

uporabil sem ukaz: sText.Substring(0, 4) in dela!

nova tezava

'primerjam:
If sText = "OK" Then
Label1.Text = ("Port odprt, modem povezan")
Else
Label1.Text = ("Port zaprt, modem ni povezan")
End If

a se to sploh tako primerja? sicer jaz dobivam nazaj ATOK ampak tudi ce dam sText = "ATOK", se mi labela ne spremeni, oz pokaze port zaprt...

mogoce se kaksna ideja kako bi primerjal ta moj sText in na podlagi primerjave potem obdeloval podatke. jaz sem mislil delat if stavke enega pod drugim a se mi ne zdi lepo...

za ciscenje bufferjev uporabljam:
.DiscardOutBuffer()
.DiscardInBuffer()
...vsakic predem kaj posljem

tole dela super:

If InStr(sText, "OK") Then

..vendar se mi sText ne odziva vedno enako na moj poslani ukaz, zato je zgornji del kode neuporaben ko dobim samo "K" ali "O"....

kaj naj naredim da bom imel vedno enak odziv-tisti ki mi ga posilja modem? a morem pri posiljanju kaj ocistit...kaksen buffer...ali naj delam to po sprejemu?

zopet se obracam na potrpezljive, dobre ljudi

ojej...sevedno nc

sm daw RtsEnable na true in Handshake na requesttosend ( na myserialport-u nastavitvah )...ampak sevedno ne dela. najbrz sta input in output bufferja za postimat a s temi ukazi mi ni ratalo... still searching...

uporabljam ukaz ReadLine ze nekai casa...a ni dosti boljse. sevedno mi vcasih NE vrne vse kar rabim,vcasih pa samo del...in drugi del nevem kje se izgubi, vcasih mi drugi del vrne kasneje in mi zje** vse if stawke.. . jst bi pa seveda rabu vedno vse, ker drugace nemorem obdelovat podatkov.

tesko je nastavljat ReceivedBytesThreshold, saj se ne ve kaksen bo odgovor (koliko bytov bo vseboval)

pa se eno vpr.:

rad bi poslal CTRL+Z... kako to posljem?

With mySerialPort

.Write("AT+CMGS=" & Chr(34) & (TextBox1.Text) & Chr(34) + vbCrLf) 'najprej posljem stevilko

'nato pa se text in na koncu texta morem stisniti CTRL+Z
'tisti controlC nevem kako se napise da velja kot ukaz

.Write((RichTextBox1.Text) & (Keys.ControlKey) & "z" + vbCr) 'tole ne dela
End With

hmmm modem se mi vedno lepo odziva na moje ukaze...vendar mi moj ListBox ( oz. kjer cem gledat odziv v VB ) tega ne pravilno pokaze. recimo: posljem ukaz AT in dobim nazaj ATOK, alpa OKAT... pravilno bi bilo AT OK. tudi ko preverjam jakost signala s casovikom in ga nato ustavim ter posljem kaksen drug ukaz, mi ListBox sevedno nekaj casa prejema odziv za jakost signala ceprow nebi smelo. modem pa mi daje pravilno...vedno pravilno.

ReceivedBytesThreshold imam na 1, in invoke sem spremenil na begininvoke, a sevedno mi Listbox ne dela pravilno.

mogoce se nekaj z me.ivoke....

ali je treba obvezno dat tudi: end invoke??? in ce je to treba...kam in kako se to da?

LP

Obstaja kaksna dobra slovenska razlaga kaj kej pomeni oz. kaj kej dela, kdo koga klice... Mislim na me.invoke...delegate....
????