VB atau Visual Basic adalah jenis bahasa pemrograman komputer.
Berikut contoh program VB untuk Tampilan Jam/waktu.
- Masuk ke VB 6 dan buka standard exe
- Letakkan label ke form 1, dan beri nama waktu
- Letakkan Timer ke form 1, setting interval timer = 500.
- klik dua kali timer dan masukan code berikut :
Private Sub Timer1_Timer()
Dim jam, min, sec As Integer
jam = Hour(Now())
min = Minute(Now())
sec = Second(Now())
waktu.Caption = jam & ":" & min & ":" & sec
End Sub
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.. ;D
Kutip dari: superstring39 pada Juni 02, 2009, 10:53:34 AM
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.. ;D
mas, vb kalo untuk ngluarin data ke port paralel gmn? ada contoh fullnya ga??? Tq
Saya ada program VB untuk interface ke RS 232 atau Serial, Tapi ada Gambarnya..
Cara masukin gambar di forum ini gimana yah..?
Kutip dari: erik hardianto pada Juni 02, 2009, 11:22:38 AM
mas, vb kalo untuk ngluarin data ke port paralel gmn? ada contoh fullnya ga??? Tq
wah kalo saya enggak tau sedalem itu tapi temen kuliah saya ada yang pernah penelitian tentang keluaran data melalui port paralel dengan VB, kalo dia output-nya cuma simulasi di koputer.
Kutip dari: erik hardianto pada Juni 02, 2009, 11:22:38 AM
mas, vb kalo untuk ngluarin data ke port paralel gmn? ada contoh fullnya ga??? Tq
Pengaksesan RS232 UART menggunakan MSCOMM pada VBAktifkan 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 RS232Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End SubPrivate Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End SubArtinya :
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 SubArtinya :
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 SelectArtinya :
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.
wah... muantep... ;)
lanjut....
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