Gunakan MimeTex/LaTex untuk menulis simbol dan persamaan matematika.

Welcome to Forum Sains Indonesia. Please login or sign up.

Maret 29, 2024, 03:08:13 AM

Login with username, password and session length

Topik Baru

Artikel Sains

Anggota
Stats
  • Total Tulisan: 139,653
  • Total Topik: 10,405
  • Online today: 102
  • Online ever: 1,582
  • (Desember 22, 2022, 06:39:12 AM)
Pengguna Online
Users: 0
Guests: 161
Total: 161

Aku Cinta ForSa

ForSa on FB ForSa on Twitter

Belajar VB atau Visual Basic

Dimulai oleh cartiman, Juni 02, 2009, 09:47:01 AM

« sebelumnya - berikutnya »

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

cartiman

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

superstring39

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

erik hardianto

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

cartiman

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

superstring39

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.

cartiman

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 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.

insan sains

Menuju Indonesia sebagai THE COUNTRY MASTER OF TECHNOLOGY, 2030

skuler

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
"Who controls the present now controls the past. Who controls the past now controls the future."-- RATM, 1999.