wah jadi inget waktu kuliah dulu sempet belajar VB.6 tapi karena udah lama enggak dipake jadi udah lupa, lumayan nih buat nginget-nginget pelajaran dulu.

terakhir gw pake kayaknya ngebuat program password menggunakan gambar buat ngerjain temen gw. gw taro dikomputernya dia, eh dia malah marah-marah he..he..

Saya ada program VB untuk interface ke RS 232 atau Serial, Tapi ada Gambarnya..
Cara masukin gambar di forum ini gimana yah..?

mas, vb kalo untuk ngluarin data ke port paralel gmn? ada contoh fullnya ga??? Tq

Pengaksesan RS232 UART menggunakan MSCOMM pada VB

Aktifkan mscomm dengan cara
Dari VB6 --> select Project --> Components --> Pada bagian Controls, Centang Microsoft Comm Control 6.0 --> Tekan OK
Pada Bagian Toolbox ada gambar Telpon.

Cara Setting Komunikasi RS232

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Artinya :
1. MSComm1.CommPort = 1 --> Port serial yang digunakan adalah COM1
2. MSComm1.Settings = "9600,N,8,1"  --> Baud Rate 9600 bps, N=Tanpa Paritas, 8=Jumlah data 8 bit, 1= jumlah bit stop
3. MSComm1.InputLen = 0 -> memerintahkan kontrol MSComm1 untuk membaca seluruh isi buffer ketika proses pengambilan data dengan perintah MSComm1.input
4. MSComm1.PortOpen = True --> Membuka Port Serial
5. MSComm1.PortOpen = False --> Menutup Port Serial


Cara Pengiriman data lewat RS232 :

Private Sub Command1_Click()

MSComm1.Output = "CARTIMAN" & Chr$(13)

End Sub

Artinya :
Mengirm data CARTIMAN dan diakhiri dengan Enter --> Char$(13)=Enter

Cara Menerima data lewat RS232 :

Private Sub MSComm1_OnComm()
Dim buffer As Variant

Select Case MSComm1.CommEvent
    Case comEvReceive
    If MSComm1.InBufferCount >= 1 Then buffer = CStr(MSComm1.Input)
End Select

Artinya :
1. Dim buffer As Variant --> variable buffer adalah variant = semua tipe data
2. Select Case MSComm1.CommEvent,  Case comEvReceive --> Event pada mscomm untuk penerimaan data
3.  If MSComm1.InBufferCount >= 1 Then buffer = CStr(MSComm1.Input) --> Jika data di buffer lebih besar atau sama dengan 1 (satu) maka semua data dari MSComm1.Input masuk ke buffer.

kbtulan ane jg lagi blajar2 nih... back to newbie bcause pas kuliah gasempet blajar vb... dan kbtulan ane ada ide, skarang ane mau nanya2 dikit ama para master disini: untuk kbutuhan monitoring dan kontrol dari jarak jauh menggunakan media internet/gprs, bisakah kita mengintegrasikan program vb kita dengan website? gmana caranya? ada contohnya g?

maaf pertanyaan gw cupu banget, maklum gw blajar dari 0