untuk memastikan tampilan data, tolong di cek melalui hiperterminal. Bisanya untuk menampilkan data harus ada proses parsing data dari "vdata". baru kemudian ditampilkan di "txtinput".
--- Pada Sab, 23/8/08, achmad zaindra <[EMAIL PROTECTED]> menulis: Dari: achmad zaindra <[EMAIL PROTECTED]> Topik: Re: [indoprog-vb] Koneksi Port Com Kepada: [EMAIL PROTECTED] Cc: [email protected] Tanggal: Sabtu, 23 Agustus, 2008, 1:26 PM Bro,saya udh coba pakai script yang diberikan,tapi tetap tidak mau tampil data dari display ke text box,tetapi untuk mengirim data dari textbox ke display sudah bisa,ini script yang saya gunakan : Private Sub Form_Load() With MSComm1 .Settings = "1200,e,7,1" .InputLen = 1 .RThreshold = 1 .CommPort = 1 .PortOpen = True If .PortOpen = True Then txtstatus.Text = "Buka" Else txtstatus.Text = "Tutup" End If End With End Sub Private Sub Form_Unload( Cancel As Integer) MSComm1.PortOpen = False End Sub Private Sub MSComm1_OnComm( ) Dim vdata As String Select Case MSComm1.CommEvent Case comEventBreak ' A Break was received. Case comEventCDTO ' CD (RLSD) Timeout. Case comEventCTSTO ' CTS Timeout. Case comEventDSRTO ' DSR Timeout. Case comEventFrame ' Framing Error Case comEventOverrun ' Data Lost. Case comEventRxOver ' Receive buffer overflow. Case comEventRxParity ' Parity Error. Case comEventTxFull ' Transmit buffer full. Case comEventDCB ' Unexpected error retrieving DCB] ' Events Case comEvCD ' Change in the CD line. Case comEvCTS ' Change in the CTS line. Case comEvDSR ' Change in the DSR line. Case comEvRing ' Change in the Ring Indicator. Case comEvReceive vdata = MSComm1.Input 'tampilkan data di Textbox txtinput.Text = vdata Case comEvSend ' There are SThreshold number of ' characters in the transmit ' buffer. Case comEvEOF ' An EOF character was found in ' the input stream. End Select End Sub Private Sub txtrxtx_KeyPress( KeyAscii As Integer) MSComm1.Output = Chr$(KeyAscii) End Sub kira2 apa yang salah dari script ini???mohon pencerahannya --- On Fri, 8/8/08, SemutIndo <[EMAIL PROTECTED] co.id> wrote: From: SemutIndo <[EMAIL PROTECTED] co.id> Subject: Re: [indoprog-vb] Koneksi Port Com To: indoprog-vb@ yahoogroups. com Date: Friday, August 8, 2008, 1:32 AM Berikut ini adalah contoh code untuk menangkap data di indikator timbangan Private Sub Command1_Click( ) With MSComm1 .Settings = "9600,n,8,1" .InputLen = 1 .RThreshold = 1 .CommPort = 1 .PortOpen = True End If End Sub Private Sub MSComm1_OnComm( ) Dim vdata As String Select Case MSComm1.CommEvent Case 2 vdata = MSComm1.Input 'tampilkan data di caption form Me.Caption = vdata End Select End Sub Dari code di atas, setiap data yang masuk dari indikator akan ditampilkan di caption form. ----- Original Message ----- From: adr14n_p To: indoprog-vb@ yahoogroups. com Sent: Monday, August 04, 2008 5:04 PM Subject: [indoprog-vb] Koneksi Port Com Dear rekan2 programmer, Apakah rekan2 sekalian ada yang tau atau pernah membuat aplikasi yang menghubungkan sebuah display jembatan timbang ( Weight Bridge),sehingga angka yang muncul di display muncul juga / Sama di Text Box dalam sebuah Form.Koneksi yang menghubungkan display timbangan dengan PC adalah Port Com,Mohon Pencerahannya. (Kalau boleh bersama contoh source nya) Best Regards, ------------ --------- --------- --------- --------- --------- - No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 270.5.12/1589 - Release Date: 8/3/2008 1:00 PM [Non-text portions of this message have been removed] [Non-text portions of this message have been removed] ___________________________________________________________________________ Yahoo! sekarang memiliki alamat Email baru. Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang lain! http://mail.promotions.yahoo.com/newdomains/id/ [Non-text portions of this message have been removed]
