[HELP] cara baca data dari digital weight indicator (VB.NET)
Kamis, 05 Januari 2012 by ewepaksa
Selamat membaca . Software Akuntansi Laporan Keuangan Terbaik dear bro n sis, dear agan2 n maternity officer VB.NET, hahaha udah dulu basa basi lanjut ke intinya aja..... gan saya kan lagi buat information untuk menampilkan angka dari jembatan timbang. nah jembatan timbang ini klo ada mobil truk di timbang akan mengeluarkan angka tertentu pada layar digital coefficient indicator... nah angka inilah yg ingin saya dapatkan gan.... digital coefficient indicator ini terhubung ke PC melalui program opening Spoiler for gambar hasil getting data: 
nah setelah di enter ternyata accumulation yg tercapture hanya "???????" dst ane bingung gan kenapa begitu hasilnya..... mohon bantuan agan2 ini programnya hasil copas dari temen cardinal Spoiler for source: Quote: Originally Posted by coding in vb.net 'Application: Serial Port Example ' 'Form: Form1.vb ' 'Purpose: Demonstrate the ingest of VB 2005 SerialPort component ' 'Author: Wade Brooks ' 'Notes: Add a SerialPort factor to your modify titled SerialPort1 ' 'Change History: ' Date Developer Description ' 04/28/2007 Wade Brooks Initial Creation. Public Class frmSerialPortExample '---------------------------------------------------------------------------------------------------------- 'Purpose: Allow for accumulation recieve circumstance to update book incase on assorted thread '---------------------------------------------------------------------------------------------------------- Public Delegate Sub myDelegate() '---------------------------------------------------------------------------------------------------------- 'Purpose: Close and exit '---------------------------------------------------------------------------------------------------------- Private Sub Button4_Click(ByVal communicator As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Close() End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Load Form '---------------------------------------------------------------------------------------------------------- Private Sub frmSerialPortExample_Load(ByVal communicator As Object, ByVal e As System.EventArgs) Handles Me.Load For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1 cboCommPorts.Items.Add(My.Computer.Ports.SerialPor tNames(i)) Next cmdDisconnect.Enabled = False End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Connect to comm port '---------------------------------------------------------------------------------------------------------- Private Sub cmdConnect_Click(ByVal communicator As System.Object, ByVal e As System.EventArgs) Handles cmdConnect.Click If SerialPort1.IsOpen Then SerialPort1.Close() End If Try With SerialPort1 .PortName = cboCommPorts.Text .BaudRate = 9600 .Parity = IO.Ports.Parity.None .DataBits = 8 .StopBits = IO.Ports.StopBits.One End With SerialPort1.Open() lblMessage.Text = SerialPort1.PortName & " connected" cmdDisconnect.Enabled = True cmdConnect.Enabled = False Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Disconnect from comm port '---------------------------------------------------------------------------------------------------------- Private Sub cmdDisconnect_Click(ByVal communicator As System.Object, ByVal e As System.EventArgs) Handles cmdDisconnect.Click Try SerialPort1.Close() lblMessage.Text = SerialPort1.PortName & " disconnected" cmdDisconnect.Enabled = False cmdConnect.Enabled = True Catch ex As Exception End Try End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Send communication to designated comm port '---------------------------------------------------------------------------------------------------------- Private Sub cmdSend_Click(ByVal communicator As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click Try SerialPort1.Write(txtTextToSend.Text & vbCrLf) With txtDataRecieved .SelectionColor = Color.Black .AppendText(txtTextToSend.Text & vbCrLf) .ScrollToCaret() End With txtTextToSend.Text = String.Empty Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Update book incase with accumulation recieved from comm port '---------------------------------------------------------------------------------------------------------- Public Sub updateTextBox() With txtDataRecieved .Font = New Font("Garamond", 12.0!, FontStyle.Bold) .SelectionColor = Color.Red .AppendText(SerialPort1.ReadExisting) .ScrollToCaret() End With End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Receive data '---------------------------------------------------------------------------------------------------------- Private Sub SerialPort1_DataReceived(ByVal communicator As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived txtDataRecieved.Invoke(New myDelegate(AddressOf updateTextBox), New Object() {}) ', New Object() End Sub End Class Jual Mobil Murah . Ultrabook Notebook Tipis Harga Murah Terbaik . Harga Notebook .
Jual Beli Kaskus
nah setelah di enter ternyata accumulation yg tercapture hanya "???????" dst ane bingung gan kenapa begitu hasilnya..... mohon bantuan agan2 ini programnya hasil copas dari temen cardinal Spoiler for source: Quote: Originally Posted by coding in vb.net 'Application: Serial Port Example ' 'Form: Form1.vb ' 'Purpose: Demonstrate the ingest of VB 2005 SerialPort component ' 'Author: Wade Brooks ' 'Notes: Add a SerialPort factor to your modify titled SerialPort1 ' 'Change History: ' Date Developer Description ' 04/28/2007 Wade Brooks Initial Creation. Public Class frmSerialPortExample '---------------------------------------------------------------------------------------------------------- 'Purpose: Allow for accumulation recieve circumstance to update book incase on assorted thread '---------------------------------------------------------------------------------------------------------- Public Delegate Sub myDelegate() '---------------------------------------------------------------------------------------------------------- 'Purpose: Close and exit '---------------------------------------------------------------------------------------------------------- Private Sub Button4_Click(ByVal communicator As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Close() End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Load Form '---------------------------------------------------------------------------------------------------------- Private Sub frmSerialPortExample_Load(ByVal communicator As Object, ByVal e As System.EventArgs) Handles Me.Load For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1 cboCommPorts.Items.Add(My.Computer.Ports.SerialPor tNames(i)) Next cmdDisconnect.Enabled = False End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Connect to comm port '---------------------------------------------------------------------------------------------------------- Private Sub cmdConnect_Click(ByVal communicator As System.Object, ByVal e As System.EventArgs) Handles cmdConnect.Click If SerialPort1.IsOpen Then SerialPort1.Close() End If Try With SerialPort1 .PortName = cboCommPorts.Text .BaudRate = 9600 .Parity = IO.Ports.Parity.None .DataBits = 8 .StopBits = IO.Ports.StopBits.One End With SerialPort1.Open() lblMessage.Text = SerialPort1.PortName & " connected" cmdDisconnect.Enabled = True cmdConnect.Enabled = False Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Disconnect from comm port '---------------------------------------------------------------------------------------------------------- Private Sub cmdDisconnect_Click(ByVal communicator As System.Object, ByVal e As System.EventArgs) Handles cmdDisconnect.Click Try SerialPort1.Close() lblMessage.Text = SerialPort1.PortName & " disconnected" cmdDisconnect.Enabled = False cmdConnect.Enabled = True Catch ex As Exception End Try End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Send communication to designated comm port '---------------------------------------------------------------------------------------------------------- Private Sub cmdSend_Click(ByVal communicator As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click Try SerialPort1.Write(txtTextToSend.Text & vbCrLf) With txtDataRecieved .SelectionColor = Color.Black .AppendText(txtTextToSend.Text & vbCrLf) .ScrollToCaret() End With txtTextToSend.Text = String.Empty Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Update book incase with accumulation recieved from comm port '---------------------------------------------------------------------------------------------------------- Public Sub updateTextBox() With txtDataRecieved .Font = New Font("Garamond", 12.0!, FontStyle.Bold) .SelectionColor = Color.Red .AppendText(SerialPort1.ReadExisting) .ScrollToCaret() End With End Sub '---------------------------------------------------------------------------------------------------------- 'Purpose: Receive data '---------------------------------------------------------------------------------------------------------- Private Sub SerialPort1_DataReceived(ByVal communicator As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived txtDataRecieved.Invoke(New myDelegate(AddressOf updateTextBox), New Object() {}) ', New Object() End Sub End Class Jual Mobil Murah . Ultrabook Notebook Tipis Harga Murah Terbaik . Harga Notebook . Jual Beli Kaskus
gimana boss sudah succes kah comunikasi indikator ke aplikainya boss