Controlli via porta seriale/parallela

mercoledì 16 maggio 2007 - 20.37

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Alexi Profilo | Newbie

29 messaggi | Data Invio: mer 16 mag 2007 - 20:37

devo controllare un picc da seriale (montato su una basetta) in ingresso devo fargli arrivare l'imput di accensione e spegnimento da tipo un timer o imposto in una numericdropdownlist con il valore in secondi che viene memorizzato in un dadabase sql e alla determinata ora fa scattare il meccanismo di imput accensione e dopo un certo numero di secondi imput di spegnimento...
avete idee?

blaudio Profilo | Newbie

40 messaggi | Data Invio: ven 18 mag 2007 - 19:56

Ciao

Questo codice si connette alla seriale

In una winform uso un button e una label

premi il button è la seriale si connette poi attivi la sub che desideri accendi spegni ripremi il pulsante e si disconnette.
nella sub accendi invio un testo ma come vedi nella sub spegni invio un byte
devi vedere tu che comando accetta il programma del pic

Imports System.IO.Ports
Public Class Form1
'selezioni la portacom del pc
Public nomeporta As String = "com8"
'selezioni la velocità di trasmissione
Public veloc As String = "19200"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.Button1.Text = "Connetti" Then

Dim connessioneok = Me.ConnettiSeriale(nomeporta, veloc, Nothing)
If connessioneok = True Then
Me.Label1.Text = "CONNESSO"
Me.Button1.Text = "Disconnetti"
Else
Me.Label1.Text = "DISCONNESSO"
Me.Button1.Text = "Connetti"
End If
Else
Me.DisconnettiSeriale()
Me.Label1.Text = "DISCONNESSO"
Me.Button1.Text = "Connetti"
End If
End Sub

Private WithEvents ConnessioneSeriale As New SerialPort

Public Function ConnettiSeriale(ByVal PortName As String, ByVal BaudRate As Integer, ByVal ex As Exception) As Boolean
Dim connessioneok As Boolean = True

ConnessioneSeriale.PortName = PortName
ConnessioneSeriale.BaudRate = BaudRate
ConnessioneSeriale.Parity = Parity.None
ConnessioneSeriale.StopBits = StopBits.One
ConnessioneSeriale.DataBits = 8
ConnessioneSeriale.Handshake = Handshake.None
ConnessioneSeriale.NewLine = vbCrLf
ConnessioneSeriale.ReadTimeout = 3000

Try
ConnessioneSeriale.Open()
Catch ex
connessioneok = False
End Try
Return connessioneok
End Function

Public Function DisconnettiSeriale() As Boolean
Dim connessioneok As Boolean = True
Dim ex As Exception
Try
ConnessioneSeriale.Close()
Catch ex
connessioneok = False
End Try
Return connessioneok
End Function

Sub accendi()
Try
ConnessioneSeriale.Write("accendi")
Catch ex1 As Exception
Exit Sub
End Try
End Sub

Sub spegni()
Try
Dim prova As Byte = 10
ConnessioneSeriale.Write(prova)
Catch ex1 As Exception
Exit Sub
End Try
End Sub

End Class

Alexi Profilo | Newbie

29 messaggi | Data Invio: gio 24 mag 2007 - 14:00

Grazie mi sei stato molto utile!
Ho risolto

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !