Penggunaan Fungsi IF ELSE pada Visual Basic

MODUL IX

pada praktek kali ini kita kembali mengulang pemakaian pernyataan bersyarat IF.
agar lebih memahami penggunaannya, serta lebih memantapkan lagi logika berpikir.
ga ada salahnya kita kembali mengingat syntak serta pemakaiannya. syntaknya sbb:

If...Then

Gunakan suatu struktur If...Then untuk menjalankan suatu pernyataan
secara kondisional. Anda dapat menggunakan syntax satu baris ataupun syntax
banyak baris.
If kondisi Then pernyataan
atau
If kondisi Then
pernyataan-pernyataan
End If

Kondisi biasanya berupa suatu perbandingan, maupun ekspresi yang
menghasilkan nilai numerik. Visual Basic menginterpretasikan False sebagai nol
(0), dan True sebagai bukan nol.
If...Then...Else

Gunakan If…Then…Else untuk mendefinisikan beberapa blok pernyataan
yang akan dijalankan salah satu berdasarkan kondisi yang memenuhi syarat

If kondisi1 Then
[blok pernyataan-1]
[ElseIf kondisi2 Then
[blok pernyataan-2]] ...
[Else
[blok pernyataan-n]]
End If

Visual Basic awalnya akan mencoba kondisi1. Jika False, maka Visual
Basic akan memeriksa kondisi2, dan seterusnya sampai menemukan suatu kondisi
True untuk dijalankan blok pernyataannya.
Contoh :
If JlhRec > 0 Then
Posisi = 1
Else
Posisi = 0
End If

nah pada praktek kali ini kita akan mencoba beberapa contoh studi kasus yang berbeda.

latihan 1.
buatlah program untuk menentukan apakah seseorang bisa masuk perguruan tinggi, dengan syarat
sebagai berikut, umur diatas 17 tahun dan tidak lebih dari 25 tahun dan tinggi minimal 150 cm.
catatan: yang perlu kita deklarasikan dan kita uji adalah variabel umur dan tinggi.
-terlebih dahulu kita rancang antar muka sebagai berikut:

-kemudian masukan program berikut, yaitu dengan cara dobel klik tombol Cmdproses dan selanjutnya
tombol Cmdulang.

-setelah itu klik tombol F5 pada keyboard untuk menjalankan program, nah hasilnya sebagai berikut:
silahkan memasukan data terserah anda.

-gampang kan...

latihan 2.
kita akan membuat program untuk menghitung apakah seorang itu bertubuh gemuk,ideal atau kurus. ada
sebuah rumus yang digunakan yaitu:
Berat Ideal = Tinggi Badan-110*1.1
jika berat badan > 1.1. * berat ideal maka dikatakan gemuk
jika berat badan < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeCJVPSpTXViEqsODbiZ9aMj4SZ9TW-AOiYrQ9u8oSLhOIEJQSHiiOJiSzer9eYM7YDYTKP-qOVyPiIU4vc5FIkIgTbJ1-GQUkEVpveIoQnzD9lO2pc5XI0CEFf4-GOZJLy1wXXB9_YE6g/s1600-h/5.jpg">
-pada tombol proses,masukan kode program berikut:
Private Sub Command1_Click()
Dim nama As String Dim TB, BB, BI, B As Single
nama = Text1.Text
TB = Val(Text2.Text)
BB = Val(Text3.Text)
BI = (TB - 110) * 1.1
If (BB > (1.1 * BI)) Then
Text4.Text = "Hallo " + nama + " Anda GEMUK juga yah..."
Else
If (BB < (0.9 * BI)) Then Text4.Text = "Hallo " + nama + " Anda KURUS Banget..." Else Text4.Text = "Hallo " + nama + " Anda IDEAL juga ternyata..." End If End If End Sub -pada tombol ulang, masukan kode program sebagai berikut Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub -pada tombol selesai, masukan kode program berikut: Private Sub Command3_Click() MsgBox "apa ANDA yakin ingin keluar.?", vbOKCancel + vbQuestion, "KONFIRMASI" End End Sub -jika sudah selesai tekan F5, atau pilih mnenu RUN kemudian START, maka tampilannya adalah sebagai berikut; silahkan masukan data sesuai sengan yang anda ingin kan.

.......................SELAMAT MENCOBA..............................

Penggunaan Fungsi WHILE WEND pada Visual Basic

Fungsi Prulangan While-Wend
pada praktek kali ini kita akan belajar menggunakan fungsi perulangan
WHILE-WEND.While – Wend digunakan untuk mengeksekusi suatu blok statement
dengan jumlah perulangan yang tak terhingga.
Berikut ini adalah statement While –Wend, yang dijalankan selama kondisi benar :
syntaksnya adalah:

While (condition)



Wend

Ketika menjalankan While ini, pertama kali akan di coba kondisinya, jika
kondisi False (zero), akan diloncati semua statement yang mengikuti kondisi
tersebut. Program akan menjalankan statement jika kondisi benar dan kembali ke
While berikutnya.

latihan 8.1:

menampilkan kelipatan 5 mulai dari 0,5,10......100.
-langkah pertama yang kita lakukan adalah:
-buka proyek baru STANDAR EXE
-double klik form tersebut maka akan muncul program berikut dilayar:
private sub form-load(), kita akan mengubah event form_load, yaitu dengan cara:
1.lakukan seperti gambar berikut:2.kemudian masukan kode program seperti berikut:

Private Sub Form_Activate()
Dim i As Byte
i = 0
While (i <= 100) Print i, i * 5, i * 2, i + 3 i = i + 5 Wend End Sub -kemudian tekan menu RUN atau tombol F5 pada keyboard.hasilnya sebagai berikut: latihan 8.2
-buka proyek baru,dan doubel klik form
-kemudian pilih event "ACTIVATE"
-dan masukan kode program berikut:

Private Sub Form_Activate()
Dim a As Byte
a = 1
While (a <= 10) Print "1"; "*"; a; "="; a * 1, "2"; "*"; a; "="; a * 2, "3"; "*"; a; "="; a * 3, a = a + 1 Wend End Sub -kemudian tekan tombol F5 untuk melihat hasilnya..nah..hasilnya sebagai berikut:
-maksud dari program tersebut adalah menampilkan perkalian 1 sampai 3.

latihan 8.3
-buka proyek baru
-kemudian double klik form
-pilih event ACTIVATE
-dan masukan kode program berikut:
Private Sub Form_Activate()
Dim a As Byte
a = 20
While (a >= 1)
Print a
a = a - 1

Wend
End Sub

-kemudian tekan tombol F5
-maka hasilnya adalah sebagai berikut:

-maksud dari program tersebut adalah mengurutkan bilngan dari yang terbesar sampai kecil.

latihan 8.4
-buka proyek baru
-kemudian double klik form
-pilih event ACTIVATE
-dan masukan kode program berikut:
Private Sub Form_Activate()
Dim a, b As Byte
a = 1
b = 1
For a = 1 To 9 Step 1

For b = 1 To a Step 1

Print a;

Next b

'Print turun kebawah

Print
Next a

End Sub

-klik tombol F5, maka hasilnya adalah sbb:

-program tersebut menggunakan fungsi perulangan FOR didalam FOR

2.REFERENSI
Alam, M. Agus. J. 1999. Belajar Sendiri Microsoft Visual Basic 6.0. Elex Media
Komputindo. Jakarta.

Jenis pernyataan dalam Visual Basic

Praktek Modul VII
disisi pengerjaannya terdapat tiga jenis pernyataan, yaitu:
-pernyataan berurut (sequential statement)
-pernyataan bercabang (conditional statement)
-pernyataan berrulang (looping statement)

A. pernyataan berulang
adalah pernyataan yang digunakan untuk mengulang pengertian
suatu masalah. banyaknya perulangan tergantung pada permasalahan.
pada praktek kali ini kita akan membahas pernyataan berulang.
pada bahasa VB ada tiga pernyataan berulang, yaitu:
1.FOR - NEXT
2.WHILE - WEND
3.DO - WHILE

a.1. FOR - NEXT

digunakan untuk mengulangi pengerjaaan suatu pernyataan atau
banyak pernyataan secara pasti. pada bentuk ini sedah diketahui secara
jelas banyaknya perulangan.

syntaks:
FOR variabel=nilai awal TO nilai akhir [step N]

NEXT variabel

flowchart FOR - NEXT



latihan 7.1
-buka proyek baru STANDAR EXE.
-dan rancang antar muka sebagai berikut:
-masukan lblangka, dan berikan nama "angka random"
-masukan lstangka
-masukan cmdkeluar

-setelah selesai rancangan antarmukanya, doubel klik pada form1, dan
masukan program berikut ini:

Private Sub Form_Load()

Dim I As Byte
Randomize (10)
For I = 1 To 10 Step 1
lstangka.AddItem (Rnd(50) * 10)
Next I

End Sub

catatan:RAD (fungsi membangkitkan bilangan acak)
RANDOMIZE (fungsi memberikan bibit (seed) angka acak)

-setelah itu tekan menu RUN, maka hasilnya akan seperti gambar dibawah ini:
-dan masukan program berikut pada tombol cmdkeluar:
Private Sub cmdkeluar_Click()
End
End Sub
-selesai sudah program kita..gampang kan....

latihan 7.2
-rancang antar muka sebagai berikut:
-klik dobel pada tombol OK, dan masukan program berikut:
Private Sub cmdok_Click()

Dim i, n As Byte
n = Val(txtn.Text)
lstbil.Clear

For i = 1 To n Step 1
lstbil.AddItem (Str(i))

Next i
End Sub

catatan: clear(berfungsi untuk membersihkan angka yang kita input sebelumnya)

-dan masukan kode program berikut pada masing2 optionganjil,genap, dan optsemua

Private Sub optganjil_Click()
Dim i As Byte
lsthasil.Clear
For i = 0 To lstbil.ListCount - 1
If (lstbil.List(i) Mod 2 <> 0) Then
lsthasil.AddItem (lstbil.List(i))
End If
Next i
End Sub

Private Sub optgenap_Click()
Dim i As Byte
lsthasil.Clear
For i = 0 To lstbil.ListCount - 1
If (lstbil.List(i) Mod 2 = 0) Then
lsthasil.AddItem (lstbil.List(i))
End If
Next i


End Sub

Private Sub optsemua_Click()
Dim i As Byte
lsthasil.Clear
For i = 0 To lstbil.ListCount - 1
lsthasil.AddItem (lstbil.List(i))
Next i

End Sub

-dan tekan menu RUN maka hasilnya sbb:
-masukan angka 10 dan klik OK maka hasilnya sbb:

-kemudian klik option ganjil maka akan keluar bilangan ganjil:
-dan klik option genap hasilnya sbb:
-klik option semua hasilnya sbb:
-selesai sudah program kita, selamat mencoba....

Pernyataan Bersyarat SELECT CASE dan Perulangan FOR NEXT

praktek modul VI

pada praktek kali ini kita akan membahas tentang pemakaian
pernyataan bersyarat:SELECT CASE dan perulangan FOR-NEXT.

1.SELECT CASE
Struktur Select Case bekerja dengan suatu percobaan tunggal yang hanya
dievaluasi satu kali pada bagian atas struktur. Visual Basic then membandingkan
hasil ekspresi dengan nilai pada setiap Case didalam struktur tersebut, jika ada
yang sesuai, akan dijalankan blok statement yang sesuai.

Select Case ekspresi yang dicoba
[Case ekspresi1
[blok pernyataan-1]]
[Case ekspresi2
[blok pernyataan-2]]
…
[Case Else
[blok pernyataan-n]
End Select

2.FOR-NEXT
For…Next menggunakan suatu variabel yang disebut counter yang mana akan
bertambah atau berkurang pada setiap perulangan.
Syntaxnya adalah:

For counter = start To end [Step increment]

statements

Next [counter]

latihan 6.1

pada latihan kali ini kita akan mencoba menggunakan penggabungan keduanya:
-rancang antar muka sebagai berikut:
-dan berikan nama kepada setiap objek yang telah kita buat.

-doubel kilk FORM1 maka dan tuliskan kode program berikut:

Private Sub Form_Load()
Dim I As Byte
For I = 1 To 10 Step 1
cbobil.AddItem (Str(I))
Next I
cbobil.ListIndex = 0
End Sub

-langkah selanjutnya adalah dobel klik pada tombol CMDbil dan masukan kode program berikut:

Private Sub cmdbil_Click()
Dim ket As String * 10
Dim angka As Byte
angka = Val(cbobil.List(cbobil.ListIndex))
Select Case (angka)

Case 1: ket = "Satu"
Case 2: ket = "Dua"
Case 3: ket = "Tiga"
Case 4: ket = "Empat"
Case 5: ket = "lima"
Case 6: ket = "Enam"
Case 7: ket = "Tujuh"
Case 8: ket = "Delapan"
Case 9: ket = "Sembilan"
Case 10: ket = "Sepuluh"

End Select
txtket.Text = ket

End Sub

-kemudian klik menu RUN maka hasilnya sesudah dieksekusi adalah sbb:


-dari program ini yanga kita dapatkan adalah merubah nilai angka menjadi nilai huruf
dengan menggunakan fungsi pernyataan bersyarat SELECT-CASE dan perulangan FOR-NEXT.

latihan 6.2

-buka proyek baru STANDAR EXE
-kemudian rancang antar muka sbb:
-dobel klik form1 dan masukan program berikut:

Private Sub Form_Load()

txtbesar.Text = ""
txtbil.Text = ""

End Sub

-kemudian dobel klik objek txtbesar dan masukan kode program sbb:
-ganti event menjadi keypress.

Private Sub txtbesar_KeyPress(KeyAscii As Integer)
txtbil.Text = txtbesar.Text
Dim i As Byte
Dim ket As String * 15
i = KeyAscii

Select Case i
Case 49: ket = "satu"
Case 50: ket = "dua"
Case 51: ket = "tiga"
Case 52: ket = "empat"
Case 53: ket = "lima"
Case 54: ket = "enam"
Case 55: ket = "tujuh"
Case 56: ket = "delapan"
Case 57: ket = "sembilan"

Case Else
ket = "silahkan tunggu"
End Select
txtbil.Text = ket
End Sub

-langkah selanjutnya adalah klik menu RUN, maka hasilnya adalah sbb:
-masukan data sesuai contoh,jika kita masukan angka satu, maka yang akan
muncul dibawah adalah satu,coba angka lain.
-catatan: angka yang dimasukan maksimal sampai 9.

-gampang kan.....SELAMAT MENCOBA.....

Pernyataan Bersyarat IF..THEN

Praktek modul V

If...Then

Gunakan suatu struktur If...Then untuk menjalankan suatu pernyataan secara kondisional. Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris.

If kondisi Then pernyataan

atau

If kondisi Then

pernyataan-pernyataan

End If

Kondisi biasanya berupa suatu perbandingan, maupun ekspresi yang menghasilkan nilai numerik. Visual Basic menginterpretasikan False sebagai nol (0), dan True sebagai bukan nol. pada praktek kali ini kita diwajibkan lebih memahami penggunaan IF pada sebuah kasus. dan penggunaan operator logika AND. sebelum kita memulai program, yang perlu kita pahami adalah apa yang patut kita uji dari program tersebut, nah....pada praktek kali ini kita akan mencoba membuat program untuk menentukan nilai akhir mahasiswa.

soalnya sebagai berikut:

1.untuk menentukan nilai akhir seorang mahasiswa diperoleh dari rumus

berikut: NA = (NT * 0.3 + NTS * 0.2 + NAS * 0.5)

keterangan:

NA:nilai akhir

NT:nilai tugas

NTS:nilai tengah semester

NAS:nilai akhir semester

sedangkan untuk menentukan nilai huruf apakah A,B,C,D atau E didapat dari posisi nialai akhir sesuai dengan ketentuan sebagai berikut:

jika nilai akhir > 90 maka nilai huruf = "A"

jika 80 < huruf = "B"> 90 maka nilai huruf = "C"

jika 60 < huruf = "D" huruf = "E">

setelah selesai membuat antar muka prgramnya, sekarang klik doubel pada tombol "CETAK NILAI AKHIR DAN HURUF" dan masukan kode program berikut:

Private Sub cmdcetak_Click()

Dim NT, NTS, NAS, NA As Single

NT = Val(txtnt.Text)

NTS = Val(txtnts.Text)

NAS = Val(txtnas.Text)

NA = NT * 0.3 + NTS * 0.2 + NAS * 0.5

txtna.Text = Str(NA)

If (NA > 90) Then

txtnh.Text = "A"

End If

If (NA > 80) And (NA <= 90) Then

txtnh.Text = "B"

End If 

If (NA > 70) And (NA <= 80) Then

txtnh.Text = "C"

End If 

If (NA > 60) And (NA <= 70) Then

txtnh.Text = "D"

End If 

If (NA <= 60) Then 

txtnh.Text = "E"

End If

End Sub 

dan masukan program berikut di tombol cmdkeluar: 

Private Sub cmdkeluar_Click()

MsgBox ("KELUAR PROGRAM..klik OK")

End 

End Sub

program sudah selesai kita buat, saat nya kita uji program tersebut: 

-klik menu RUN kemudian START maka hasil nya seperti berikut setelah kita eksekusi

- dan masukan data seperti contoh, ga harus sama kok yang penting sesuai format:

gampang kan...selamat mencoba

Memanipulasi Objek di FORM Visual Basic

Praktek Modul IV
-memanipulasi objek diform
-pernyataan bersyarat IF

A. MEMANIPULASI OBJEK DI FORM
hal yang perlu kita ketahui dulu adalah bahwa proyek itu terdiri atas:
1.file FORM (.FORM)
2.file UNIT (.CS)
3.file KODE (.BAS)
sekarang kita akan memulai proyek,langkah-langkahnya adalah sebagai berikut:
-buka proyek STANDAR.EXE dan klik OK
maka akan terlihat layar form1.
a.1.melakukan perataan objek diform (align)
1.masukan objek seperti desain berikut:
2.objek dapat berupa teks, command, maupun yang lainnya.
3.selanjutnya bila sudah tampak diform objek-objek yang kita buat;
4.silahkan acak posisi dari masing-masing objek,
5.kemudian blok ketiga objek yang telah kita buat, pastikan form1
yang aktif.
6.lakukan dari ujung kiri sampai kekanan bawah sehingga membentuk
segi empat, pastikan ketiga objek terkena blog yang kita lakukan.
contoh seperti gambar:
7.setelah terblok langkah selanjutnya adalah klik menu FORMAT
dan klik sub menu ALIGN maka akan terlihat empat pilihan:
-lefts (membuat objek rata kiri)
-centers (membuat objek berada ditengah)
-rights (membuat objek rata kanan)
-tops (membuat objek berada dibagian atas)
-middles ()
-bottoms (membuat objek berada dibagian bawah)

silahkan dicoba dari masing-masing perintah tersebut.
a.2.mengatur ukuran objek
1.untuk memasukan objek dan memblog objek, lakukan seperti langkah 1-6 diatas.
2.langkah selanjutnya untuk mengatur ukuran objek adalah dengan cara klik menu
FORMAT dan klik sub menu MAKE SAME SIZE, maka akan terlihat empat pilihan:
-width (membuat ukuran lebar objek sama)
-height (membuat ukuran tinggi objek sama)
-both (membuat ukuran lebar dan tingginya sama)

B.PERNYATAAN BERSYARAT 'IF'

pernyataan bersyarat adalah pernyataan yang disususn menguji suatu
ekspresi apakah memenuhi syarat, bila syarat terpenuhi maka pernyataan
dibawahnya akan dikerjakan.

contoh kasus:
pertandingan futsal turnamen sistem informasi '09 memiliki syarat sbb:
1.klub yang ikut minimal memiliki anggota 12 orang.
2.pernah menjadi juara minimal 3 kali.
buatlah program VB untuk menampilkan kalimat, apakah peserta klub bisa mengikuti
lomba atau tidak, dengan rancangan sbb:
3.langkah selanjutnya adalah menggantiakan NAME dari setiap LABEL dan TEXT
-label2 menjadi labelpeserta,
-label3 menjadi labeljuara
-text1 menjadi textpeserta
-text2 menjadi textjuara
-text3 menjadi textket

4.kemudian untuk memasukan kode program lakukan doubel klik pada tombol KETERANGAN
dan tuliskan program berikut:

Private Sub Commandket_Click()
Textket.Text = "MAAF...TIDAK BISA IKUT LOMBA"
If (Textpeserta.Text >= 12) And (Textjuara.Text >= 3) Then
Textket.Text = "SELAMAT...BISA IKUT LOMBA"
End If
End Sub

5.kemudian klik menu RUN dan klik START
6.dan masukan data seperti gambar untuk menguji program..
..SELAMAT MENCOBA..

Variabel dan Tipe Data pada Visual Basic

1. LANDASAN TEORI

Visual Basic adalah salah suatu developement tools untuk membangun aplikasi dalam lingkungan Windows. Dalam pengembangan aplikasi, Visual Basic menggunakan pendekatan Visual untuk merancang user interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa Basic yang cenderung mudah dipelajari. Visual Basic telah menjadi tools yang terkenal bagi para pemula maupun para developer. Visual Basic adalah bahasa pemrograman berbasis Microsoft Windows yang merupakan Object Oriented Programming (OOP), yaitu pemrograman berorientasi objek, Visual Basic menyediakan objek-objek yang sangat kuat, berguna dan mudah.

Dalam lingkungan Windows, User-interface sangat memegang peranan penting, karena dalam pemakaian aplikasi yang kita buat, pemakai senantiasa berinteraksi dengan User-interface tanpa menyadari bahwa dibelakangnya berjalan instruksi-instruksi program yang mendukung tampilan dan proses yang dilakukan. Pada pemrograman Visual, pengembangan aplikasi dimulai dengan pembentukkan user interface, kemudian mengatur properti dari objek-objek yang digunakan dalam user interface, dan baru dilakukan penulisan kode program untuk menangani kejadian-kejadian (event). Tahap pengembangan aplikasi demikian dikenal dengan istilah pengembangan aplikasi dengan pendekatan Bottom Up.

2. ANALISA DAN PEMBAHASAN
Sebelum kita memulai membuat program, beberapa hal yang harus kita perhatikan adalah memahami dan mengetahui apa yang disebut dengan:

1. identifier (pengenal)
2. variabel,dan
3. tipe data.

Serta apa yang disebut dengan pernyataan, ekspresi, dan operator. Dalam praktek minggu lalu kita telah belajar apa yang dimaksud dengan IDE (integrated development environment).
Cara mengaktifkan VB:

• klik menu all program, kemudian pilih microsoft visual basic 6.0, yang telah tersedia dikomputer anda.
• Langkah selanjutnya adalah menentukan tipe projek yang akan dikembangkan, yaitu STANDARD. EXE. Kemudian klik OK.

Pada praktikum II kita telah belajar beberapa hal yaitu:

• menulis kode program (coding)
• dalam menulis kode program dapat dilakukan dengan dua cara yaitu dengan metode langsung dan metode tak langsung.
• metode langsung adalah metode penulisan kode program yang hasilnya dapat diketahui secara langsung, kode program dalam metode ini diterjemahkan baris per baris disebut juga penerjemahan secara INTERPRETER.
• Metode tak langsung adalah metode penulisan kode program dilakukan dengan menulis kode secara keseluruhan selanjutnya diterjemahkan. Metode seperti ini disebut penerjemahan COMPILER.
  

LATIHAN 1.

Metode langsung

• buka proyek baru VB, kemudian klik menu VIEW.
• kemudian klik IMMEDIATE WINDOW
• kemudian ketik program sederhana dibawah ini:

diatas merupakan contoh program sederhana menggunakan IMMEDIATE WINDOW, fungsi tanda tanya (?) adalah untuk menampilkan hasil dari penjumlahan sederhana.

metode tak langsung.

1. buka file new, kemudian buat seperti tampilan dibawah ini, dengan cara klik double pada tool label (untuk menampilkan nilai A dan nilai B, dan nilai C). kemudian atur sesuai gambar.
2. langkah selanjutnya adalah double klik pada text area, kemudian atur posisi seperti pada gambar, buat sebanyak tiga buah.
3. kemudian double klik pada command, kemudian ganti nama tombol yaitu dengan melihat di menu properties kemudian pada baris caption ganti dengan "HITUNG NILAI A + B"
4. kemudian lakukan seperti langkah diatas, kemudian ganti dengan nama "EXIT", kemudian atur posisi masing-masing objek sesuai gambar.

-langkah selanjutnya adalah double klik pada tombol "HITUNG NILAI A + B" kemudian akan muncul gambar seperti ini. isikan kode program sesuai dengan petunjuk.
-kemudian klik menu RUN kemudian klik start, untuk melihat hasil program, maka akan tampil seperti gambar dibawah ini:


-untuk menguji program diatas, silahkan masukan nilai A dan B,
setelah itu tekan tombol "HITUNG NILAI A + B", maka hasilnya akan terlihat di nilai C.langkah selanjutnya adalah double klik pada tombol EXIT, kemudian isikan program kedua seperti dibawah ini:
kemudian tekan start untuk melihat hasilnya, kemudian klik pada tombol "EXIT" maka akan keluar kotak pesan, seperti gambar:

gampang kan...?? selamat mencoba, BERSAMBUNG KE MODUL PRAKTIKUM III.
3. REFERENSI
buku visual basic 6.0.

Visual Basic

MODUL 1
tujuan:
1.mengenal lingkungan terpadu VISUAL BASIC.
2.cara menulis program di VISUAL BASIC.

A.mengenal IDE (Integrated Development Environment)
VISUAL BASIC adalah sebuah bahasa pemrograman aras tinggi (high level) yang merupakan
pengembangan dari versi DOS sebelumnya yaitu BASIC. VISUAL BASIC merupakan Bahasa Pemrograman
VISUAL dan events driven dalam VISUAL BASIC, program dikerjakan dalam lingkungan grafis.
Karena pengguna (user) dapat meng-click pada satu obyek tertentu secara random,
maka setiap obyek harus diprogram secara independen dapat merespon terhadap tindakan-tindakan itu (event)

Kepopuleran Visual Basic sebenarnya datang dari lingkungannya yang sering disebut
Integrated Development Environment atau IDE. IDE membantu membangun sebuah aplikasi besar,
menulis sebuah program, menjalankan program, dan menghasilkan sebuah executable file.
a.mengaktifkan VB
menentukan tipe projek yang akan dikembangkan.
b.baris menu
tekan ALT + huruf yang digaris bawahi.

catatan: sertiap file yang bertipe .EXE(executable) bisa diaktifkan dari menu RUN.
-Project adalah sekumpulan modul/program aplikasi itu sendiri, projek disimpan dalam file berextension .VBP
biasanya berisi form-form.
Ada tiga icon dalam projek:
-View Code : tampilkan jendela editor program
-View Object : tampilkan bentuk formulir
-Togle Folder : tampilkan folder tempat penyimpanan file
-toolbox adalah jendela yang berisikan kontrol-kontrol(objek) yang digunakan untuk merancang antar muka
program.
-Form adalah objek yang dipakai untuk tempat bekerja program aplikasi. Didalamnya tempat diletakan
objek-objek lainnya. Di dalam form ada grid (garis titik-titik yang berguana untuk pengaturan letak).
-Propertis adalah untuk menentukan setting suatu objek, menentukan cara kerja
dari objek saat program dijalankan misal warna, hurup dan lain-lain.

a.1.memulai porgram.
-buka projek standar EXE.
-masukan kontrol keform.
-klik dua kali kontrol, atau bisa juga dengan cara klik satu kali kontrol kemudian drag kursor mulai
dari posisi kiri atas sampai kekanan bawah dan atur besar objek sesuai dengan yang kita inginkan.
-jika kita ingin mneghapus semua kontrol diform, dapat dilakukan dengan cara menekan tombol Ctrl + A + DEL.

LATIHAN 1.
-sekarang kita akan mempraktekan cara memasukan objek diform, dan memberikan nama pada setiap objek.
-kita akan membuat antar muka sebagai berikut diform:

-gantikan nama setiap kontrol, sesuai dengan yang ada diform
pada label1, gantikan caption dengan NIM.
pada label2, gantikan caption dengan NAMA.
pada label3, gantikan caption dengan PRODI.
pada text1 dan 2, pada properti text nya dikosongkan
pada commandbotton1, gantikan caption dengan SIMPAN
pada commandbotton2, gantikan caption dengan EXIT.
-setelah selesai klik menu RUN kemudian klik sub menu START, maka hasilnya seperti berikut:

-tujuan dari program tersebut adalah pengenalan antarmuka dan cara memasukan objek didalam form,
dan pemberian nama dari setiap propertii name nya.

REFERENSI
-MODUL VISUAL BASIC 6.0, Agus muhardi.BSI Tangerang.