Untuk membaca dari Com port, Bung Yunatan bisa
pakai
MSComm.
MSComm1.CommPort =
1 'Tergantung pemasangannya
MSComm1.Handshaking =
comRTS 'Kalau ga bisa, pakai yang comXOnXOff
MSComm1.Settings =
"9600,N,8,1"
MSComm1.PortOpen =
True
Text1.Text =
MSComm1.Input
MSComm1.PortOpen =
False
Lebih jelasnya Bung bisa baca Language
Reference-nya MSComm di MSDN
Salam CMIIW
Toto
----- Original Message -----
Sent: Friday, July 22, 2005 8:48
AM
Subject: [Programmer-VB] Tanya :
Membaca Dari Port Com
Hi Guys....
Tolongin dong, bagaimana ya cara membaca data
dari port com???
Saya harus membuat rogram untuk jembatan
timbang nih, dimana
port com kompie terhubung dengan junction box
dari jembatan timbang.
Dari petunjuknya sih hanya diberi sebaris
perintah untuk membaca dari
port com yaitu
open "com1:9600,N,8,1" as #1
Tetapi bagaimana biar saat diklik tombol, hasil di junction box pada
port com
bisa masuk pada satu text box???
Kalau kita membaca dari text file kan kita gunakan perintah
line input. Bagaimana dengan kasus saya ini???? Terima Kasih
sebelumnya.
Contoh kalau open teks file
:
Open
"c:\Absensi\Test.txt" For Input As
#1
Do Until
EOF(1)
Line Input #1,
teks
t0 = Left(teks, 8) & Mid(teks, 13,
9)
nCEK = Mid(teks, 9,
1)
rsAbsen.AddNew
rsAbsen!Data = ""
25)
rsAbsen.Update
Loop
-------------------------------------------------------------------------------------------------------------------------
"Transmisi
ini mungkin berisi informasi yang bersifat pribadi, rahasia dan tertutup
untuk
dipublikasikan berdasarkan Hukum dan Peraturan Perundang-undangan
yang berlaku di
wilayah Republik Indonesia. Jika Anda bukanlah penerima
yang dituju, bersama ini Anda
diperingatkan bahwa semua publikasi,
penggandaan, pendistribusian, atau penggunaan
informasi yang ada disini
(berikut semua informasi yang terkait) adalah SANGAT
TERLARANG. Jika
Anda menerima transmisi ini tanpa disengaja, harap segera hubungi
pengirim dan hapus material ini seluruhnya, baik dalam bentuk elektronik
maupun
dokumen cetak. Terima
kasih."
-------------------------------------------------------------------------------------------------------------------------
