Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
vb 2005 sisältää hyvän komponentin nimeltä serialport.
vedä designerin puolelta toolboxista controlli formiin,
ja aseta properties:sta oikeat yhteysasetukset. Muista että sekä lähettävässä että vastaanottavassa koneessa(softassa) on oltava samat asetukset sarjaportille, yhteysnopeus (baudrate), keskeytykset jne. Muista myös määrittää mitä com porttia käytät.
Muista myös että kun sinulla on read komento päällä, vakiona
komponentti odottaa jotain myös tulevan sarjaporttiin kunnes yhteys timeouttaa. muista myös jos jotain on lähetetty sarjaporttiin, toisesta päästä on oltava luku päällä ENNEN
kuin kuin lähetys toisesta päästä tapahtuu.
tässä listattuna yleisimpiä toimintoja.
'tässä käytän serialport1 nimeä, se tulee vakiona ellet nimeä uudelleen. me.serialport1.open() 'avaa portin me.serialport1.close() ' sulkee portin me.serialport1.writeline(merkkijono) 'lähettää sulkeissa olevan merkkijonon me.serialport1.readline() 'lukee sarjaporttiin vastaanotetun merkkijonon me.serialport1.isopen = True/False 'sarjaportin tila auki/kiinni me.serialport1.readbyte() 'lukee yhden bitin sarjaportista
'malliesimerkki
Public Class Form1
Dim Data as string
Dim Data2 as string
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If me.serialport1.IsOpen = False Then
me.serialport1.open()
Else
msgbox("Portti on jo auki!")
end if
End sub
Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If me.serialport1.IsOpen = False Then
msgbox("Portti on jo kiinni")
Else
me.serialport1.close()
End sub
Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lähetys()
End sub
Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
vastaanotto()
End sub
Private sub lähetys()
Data = textbox1.text
If me.serialport1.IsOpen = True Then
me.serialport1.writeline(Data)
Else
msgbox("Avaa Portti!")
end if
End sub
Private sub vastaanotto()
If me.serialport1.IsOpen = True Then
Data2 = me.serialport1.readline()
textbox2.text = Data2
Else
msgbox("Avaa portti")
End If
End sub
End ClassAihe on jo aika vanha, joten et voi enää vastata siihen.