Diskuze: Detekce Serial Portu a čtení z konkrétního

V předchozím kvízu, Test znalostí C# .NET online, jsme si ověřili nabyté zkušenosti z kurzu.

Aktivity

Daniel Semerák

Člen

Daniel Semerák:28.2.2019 7:28

Zdravím.
Vytvářím do práce program na čtení ze Serial Portu a čtení z něj a posílání do něj.
Jsem naprostý laik a začátečník a zatím se mi podařilo naprogramovat jen grafické úpravy, ale SerialPort je pro mě už Vyšší Dívčí ... :-(
Ten program píši souběžně jak ve VB.Net tak i v C#. (Snad to nevadí.)
Níže uvádím celý kod, kde jsou i poznámky, co by ten program měl ještě dělat. ;-)
Díky moc za za vaše rady a tipy.

Zkusil jsem: Imports System
Imports System.Threading
Imports System.IO.Ports
Imports System.ComponentModel
Imports System.Management

Public Class FrmSprava
Dim mSerialPort As Array
Dim mNeniText As DialogResult

Private Sub FrmSprava_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
RdbViditelneHeslo.Select()
RdbObeCisla.Select()
'TxtViditelneHeslo.Select()
CmbHeslo.Select()
CmbCisloPrikazu.Items.Add("1")
CmbCisloPrikazu.Items.Add("2")
CmbCisloPrikazu.Items.Add("3")
CmbCisloPrikazu.Items.Add("4")
CmbCisloPrikazu.Items.Add("5")
mSerialPort = IO.Ports.SerialPort.GetPortNames()
CmbRychlostKomunikace.Items.Add(" 300 Baudů")
CmbRychlostKomunikace.Items.Add(" 600 Baudů")
CmbRychlostKomunikace.Items.Add(" 1 200 Baudů")
CmbRychlostKomunikace.Items.Add(" 2 400 Baudů")
CmbRychlostKomunikace.Items.Add(" 4 800 Baudů")
CmbRychlostKomunikace.Items.Add(" 9 600 Baudů")
CmbRychlostKomunikace.Items.Add("19 200 Baudů")

'CmbCisloPortu.Text = CStr(CmbCisloPortu.Items.Item(0))
CmbRychlostKomunikace.Text = CStr(CmbRychlostKomunikace.Items.Item(0))

CmbZpusobPrikazu.Items.Add("číst")
CmbZpusobPrikazu.Items.Add("spustit")
CmbZpusobPrikazu.Items.Add("zapsat")
CmbHeslo.Items.Add("MANSP5")
CmbHeslo.Items.Add("MINOS5")
CmbHeslo.Items.Add("MKDEVN")
'CmbCisloPortu.SelectedIndex = 0;
CmbRychlostKomunikace.SelectedIndex = 5
'CmbRychlost.SelectedIndex = 0
CmbHeslo.SelectedIndex = 0
CmbZpusobPrikazu.SelectedIndex = 0
CmbCisloPrikazu.SelectedIndex = 0
'ComSerialPort.Open()
'CmbCisloPortu.Items.AddRange(mSerialPort)

End Sub

Private Sub BtnOdecet_Click(sender As System.Object, e As System.EventArgs) Handles BtnOdecet.Click
Dim mOdecetDat As String
TbcVystupDat.SelectedTab = TbpOdecet
BtnKonecProgramu.Enabled = False
BtnHistoriePrikazu.Enabled = False
BtnKonecVyrobnihoModu.Enabled = False
BtnPoslatCislo.Enabled = False
BtnLog.Enabled = False
BtnPoslatPrikaz.Enabled = False
BtnPridatNoveHeslo.Enabled = False
BtnPridatSifrovaneHeslo.Enabled = False
BtnReFresh.Enabled = False
BtnVytvoritDavku.Enabled = False
BtnZpracovatDavku.Enabled = False
BtnNastavRTC.Enabled = False
BtnKontrolaRTC.Enabled = False

'Zde bude kod, kde se vyčtou data ze SerialPortu a zobrazí se vpravo v okně "Odečet".

ComSerialPort.Open()
ComSerialPort.Write("/?!" + Chr(10) + Chr(13))
'If ComSerialPort.IsOpen Then
'With RtbOdecet
'.AppendText(ComSerialPort.ReadLine & vbCrLf)
'.ScrollToCaret()
'End With
'End If
mOdecetDat = ComSerialPort.ReadLine()
ComSerialPort.Close()

BtnKonecProgramu.Enabled = True
BtnHistoriePrikazu.Enabled = True
BtnKonecVyrobnihoModu.Enabled = True
BtnPoslatCislo.Enabled = True
BtnLog.Enabled = True
BtnPoslatPrikaz.Enabled = True
BtnPridatNoveHeslo.Enabled = True
BtnPridatSifrovaneHeslo.Enabled = True
BtnReFresh.Enabled = True
BtnVytvoritDavku.Enabled = True
BtnZpracovatDavku.Enabled = True
BtnNastavRTC.Enabled = True
BtnKontrolaRTC.Enabled = True
End Sub

Private Sub BtnKonecProgramu_Click(sender As System.Object, e As System.EventArgs) Handles BtnKonecProgramu.Click
If MessageBox.Show("Opravdu chceš skončit?", "Konec programu ...", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Application.ExitThread()
End If
End Sub

Private Sub BtnReFresh_Click(sender As System.Object, e As System.EventArgs) Handles BtnReFresh.Click
ComSerialPort.PortName = CmbCisloPortu.Text
ComSerialPort.BaudRate = CInt(CmbRychlostKomunikace.Text)
ComSerialPort.Parity = IO.Ports.Parity.None
ComSerialPort.StopBits = IO.Ports.StopBits.One
ComSerialPort.DataBits = 8
ComSerialPort.Open()
ComSerialPort.DtrEnable = True
'ComSerialPort.Close()
End Sub

Private Sub Form_Unload(Cancel As Integer)

End Sub

Private Sub BtnPoslatPrikaz_Click(sender As Object, e As EventArgs) Handles BtnPoslatPrikaz.Click
ComSerialPort.Open()

End Sub

Private Sub BtnPridatNoveHeslo_Click(sender As System.Object, e As System.EventArgs) Handles BtnPridatNoveHeslo.Click
If TxtViditelneHeslo.Text = "" Then
mNeniText = MessageBox.Show("Není vložené žádné heslo!", "Není vyplněný text ...", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
CmbHeslo.Items.Add(TxtViditelneHeslo.Text)
End If
End Sub

Private Sub RdbZadneHeslo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RdbZadneHeslo.CheckedChanged
CmbHeslo.Enabled = False
TxtSifrovaneHeslo.Enabled = False
TxtViditelneHeslo.Enabled = False
BtnPridatNoveHeslo.Enabled = False
BtnPridatSifrovaneHeslo.Enabled = False
End Sub

Private Sub RdbViditelneHeslo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RdbViditelneHeslo.CheckedChanged
CmbHeslo.Enabled = True
BtnPridatNoveHeslo.Enabled = True
BtnPridatSifrovaneHeslo.Enabled = False
TxtViditelneHeslo.Enabled = True
TxtSifrovaneHeslo.Enabled = False
End Sub

Private Sub RdbSifrovaneHeslo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RdbSifrovaneHeslo.CheckedChanged
CmbHeslo.Enabled = True
TxtViditelneHeslo.Enabled = False
TxtSifrovaneHeslo.Enabled = True
BtnPridatSifrovaneHeslo.Enabled = True
BtnPridatNoveHeslo.Enabled = False
End Sub

Private Sub FrmSprava_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Dim mKonecProgramu As DialogResult
mKonecProgramu = MessageBox.Show("Opravdu chceš skončit?", "Konec programu ...", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If mKonecProgramu = Windows.Forms.DialogResult.No Then
e.Cancel = True
Else
Application.ExitThread()
End If
End Sub

Private Sub BtnVytvoritDavku_Click(sender As Object, e As EventArgs) Handles BtnVytvoritDavku.Click
'Dim mVyberSouboru As String
TbcVystupDat.SelectedTab = TbpDavka

End Sub

Private Sub CmbCisloPortu_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbCisloPortu.SelectedIndexChanged

End Sub

Private Sub CmbRychlostPortu_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CmbRychlostKomunikace.SelectedIndexChanged

End Sub

Private Sub BtnPridatSifrovaneHeslo_Click(sender As System.Object, e As System.EventArgs) Handles BtnPridatSifrovaneHeslo.Click
If TxtSifrovaneHeslo.Text = "" Then
mNeniText = MessageBox.Show("Není vložené žádné heslo!", "Není vyplněný text ...", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
CmbHeslo.Items.Add("" & TxtSifrovaneHeslo.Text & "")
End If
End Sub

Private Sub BtnHistoriePrikazu_Click(sender As System.Object, e As System.EventArgs) Handles BtnHistoriePrikazu.Click
TbcVystupDat.SelectedTab = TbpHistoriePrikazu
End Sub

Private Sub BtnLog_Click(sender As Object, e As EventArgs) Handles BtnLog.Click
TbcVystupDat.SelectedTab = TbpLog
End Sub

Private Sub BtnZpracovatDavku_Click(sender As Object, e As EventArgs) Handles BtnZpracovatDavku.Click
TbcVystupDat.SelectedTab = TbpDavka

End Sub

Private Sub RdbSerioveCislo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RdbSerioveCislo.CheckedChanged
TxtZakaznickeCislo.Enabled = False
TxtSerioveCislo.Enabled = True
End Sub

Private Sub RdbZakaznickeCislo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RdbZakaznickeCislo.CheckedChanged
TxtSerioveCislo.Enabled = False
TxtZakaznickeCislo.Enabled = True
End Sub

Private Sub RdbObeCisla_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RdbObeCisla.CheckedChanged
TxtSerioveCislo.Enabled = True
TxtZakaznickeCislo.Enabled = True
End Sub

Private Sub BtnPoslatCislo_Click(sender As System.Object, e As System.EventArgs) Handles BtnPoslatCislo.Click

End Sub
End Class

Chci docílit: Jde mi o to, abych si mohl detekovat SerialPorty, mohl přímo v programu zjistit změny, jestli se přidal nějaký další COM-port nebo nějaký byl odebraný a na základě vybraného SerialPortu mohl vyčíst z něj data anebo nějaký příkaz na něj zase odeslat.
Popřípadě, aby se mi se vyčtená data zobrazila v RichTextBoxu, který je umístěný v TabControlu.

Odpovědět

28.2.2019 7:28

Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 1 zpráv z 1.