Controlli via porta seriale/parallela

mercoledì 16 maggio 2007 - 20.37

Alexi Profilo | Newbie

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

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

Grazie mi sei stato molto utile!
Ho risolto
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 !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5