Dear Rekan2 Indoprog Saya jg mengalami hal yang sm mengenai jembatan timbang, saya sekarang sedang mencoba membuat software untuk jembatan timbang dan saya sudah coba codingan yang dari mas Achmad dan SemuIndo,nilai berat tetap tidak tampil di form, kalau saya trace di event dari MsComm1 yaitu event "commEvReceive" tidak pernah dijalankan sehingga saya tidak pernah bisa menangkap data dari MsComm1, apakah ada sintax tertentu untuk menampilkan nilai berat nya selain menggunakan sintax MSComm1.Input..? dan untuk mengirim nilai dari textbox ke display Jembatan timbang jg tidak bisa dan klo saya trace Event dari MSComm1 jalan untuk Event "commEvReceive" tetapi data tidak tampil di display, apakah ada format command tertentu untuk mengirim nila ke display timbangan..?? Saya sudah coba pada 2 jenis Jembatan Timbang berikut : 1. Avery Weigh L205 2. Avery Weigh E1205 (http://www.averyweigh-tronix.com/main.aspx?p=7.1.282&title=E1205+advanced+multi-function+indicator ) Untuk mas Achmad sudah bisa mengirim nilai ke Display timbangan kan, klo boleh tau merk dan tipe alat nya apa ya..?? Mohon bantuan dari teman2 sekalian.
--- In [email protected], more yono <more_...@...> wrote: > > 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 <adr14...@...> menulis: > Dari: achmad zaindra <adr14...@...> > Topik: Re: [indoprog-vb] Koneksi Port Com > Kepada: semuti...@... > 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 <semuti...@yahoo. co.id> wrote: > From: SemutIndo <semuti...@yahoo. 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] >
