Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: VB MScomm laajennus

Sivun loppuun

pielinen [08.02.2007 19:33:59]

#

Eli mistä löytyisi tuo MScomm laajennus?
Eli tarvitsisin tuon laajennuksen tuohon visual studioon 2005.
Jotta pystyisin käyttämään com porttia tiedon siirtoon.

neau33 [08.02.2007 20:24:12]

#

Moikka pielinen!

Jos sulla sattuu olemaan VB6:n asennettuna tai OCX:t jäljellä niin:

Tee se itse!
VB:llä tai C#:lla, mutta voisi olla kuitenkin järkevämpi käytellä System.IO.Ports.SerialPort luokkaa

pielinen [08.02.2007 20:49:33]

#

Olisko jossain ohjeita suomeksi miten tuota serialport juttua käytetään?

neau33 [08.02.2007 22:22:51]

#

Moikka taas pielinen!

En usko, mutta mureakuhassa on pientä keskustelua...

pielinen [09.02.2007 16:06:52]

#

Miten toteutan tämmösen tuolla serialport hommelilla?

Private Sub Command1_Click()
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = True
End Sub

Private Sub Command2_Click()
    MSComm1.DTREnable = False
    MSComm1.RTSEnable = False
End Sub

Private Sub Form_Load()
    MSComm1.CommPort = 1
    MSComm1.PortOpen = True
    MSComm1.DTREnable = False
    MSComm1.RTSEnable = False
End Sub

pielinen [10.02.2007 13:02:23]

#

Mikä virhe tässä koodissas on , kun se lopettaa aina toimimisen kun painaa jompaa kumpaa painiketta?

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim SerialPort As IO.Ports.SerialPort = New IO.Ports.SerialPort("COM1", 56000, IO.Ports.Parity.None)
        SerialPort.Open()
        SerialPort.DtrEnable = False
        SerialPort.RtsEnable = False
End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort.RtsEnable = True
        SerialPort.DtrEnable = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort.RtsEnable = False
        SerialPort.DtrEnable = False
    End Sub
End Class

Tämmöisellä koodilla saan ledit syttymään:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim SerialPort As IO.Ports.SerialPort = New IO.Ports.SerialPort("COM1", 56000, IO.Ports.Parity.None)
        SerialPort.Open()
        SerialPort.DtrEnable = true
        SerialPort.RtsEnable = true
End Sub

neau33 [11.02.2007 01:47:38]

#

Moikka taas pielinen!

Kokeile esitellä se portti generaaleissa...

pielinen [11.02.2007 11:38:33]

#

Kiitos vinkeistä. Sain tämmöisellä koodilla toimimaan:

Public Class Form1




    Dim myserialport1 As System.IO.Ports.SerialPort = New System.IO.Ports.SerialPort("COM1", 56000, IO.Ports.Parity.None)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim serialport1 As System.IO.Ports.SerialPort = New System.IO.Ports.SerialPort("COM1", 56000, IO.Ports.Parity.None)
        myserialport1.Open()
        myserialport1.DtrEnable = True
        myserialport1.RtsEnable = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myserialport1.DtrEnable = False
        myserialport1.RtsEnable = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        myserialport1.DtrEnable = True
        myserialport1.RtsEnable = False
    End Sub
End Class

Pystyykö muuten millä lailla ohjaamaan kolmatta linjaa?
Vai onko se es mahdollista?

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta