Membuat Perulangan pada Visual Basic ( Gunadarma )

LAPORAN AKHIR PRAKTIKUM

(Perulangan Pada Visual Basic)

Nama                                   : Wahyu Ajis Saputra

NPM                                    :

Kelas                                    : 1KB06

Materi Praktikum              : Perulangan Pada Visual Basic

Tanggal Praktikum            : Oktober 2014

Asisten Baris                       :

Ketua Asisten                     : 

       Paraf Asisten

(..............................................)

UNIVERSITAS GUNADARMA

LABORATORIUM SISTEM INFORMASI

2014/2015

Membuat Program Sederhana Perulangan

A.           Langkah yang paling pertama adalah pastikan anda memiliki Aplikasi Visual Basic dan aplikasi tersebut harus sudah terinstall pada PC/Notebook anda

B.            Buka aplikasi Visual Basic

C.            Cara buka aplikasi Visual Basic :

Ø  Klik menu Start

Ø  Klik all program

Ø  Pilih Microsoft Visual Basic 6.0

Ø  Dan klik ikon Microsoft Visual Basic 6.0

Ø  Kemudian muncul kotak dialog new project

Ø  Lalu pilih Standard.Exe

Ø  Dan Klik Tombol Open

D.           Ini merupakan tampilan awal dari aplikasi Visual Basic

 

1.              Untuk membuat suatu program kita harus merancang/mendesign tampilan program yang akan anda buat, saat ini saya akan membuat program sederhana perulangan.

2.      Dibawah ini adalah tampilan sebelum di edit

                                                                                     

3.             Program dapat kita edit dengan menggunakan tool properties sehingga tampilannya akan sesuai dengan apa yang kita inginkan

4.              Setelah interfae dari sebuah program selesai kita buat, sekarang saatnya kita memasukkan code pada commandbutton1 (For Next), Commandbutton2 (Do While), Commandbutton3 (Do Until), Commandbutton4 (For Next Step 2), dan Commondbutton5 (Clear).

5.              Pada comandbutton1 (For Next) kita masukkan code sebagai berikut :

Private Sub Command1_Click()

Dim a As Integer

For a = 1 To 10

List1.AddItem ("Angka " & a)

Next a

End Sub

6.             Pada commondbutton2 (Do While) kita masukkan code sebagai berikut :

Private Sub Command2_Click()

Dim a As Integer

a = 1

Do While (a < 10)

List1.AddItem ("Angka " & a)

a = a + 1

Loop

End Sub

7.             Pada Commondbutton3 (Do Until) kita masukkan code sebagai berikut :

Private Sub command3_click()

Dim a As Integer

a = 1

Do Until (a >= 9)

List1.AddItem ("Angka " & a)

a = a + 1

Loop

End Sub

8.             Pada Commondbutton4 (For Next Step 2) kita masukkan code sebagai berikut :

Private Sub command4_click()

Dim a As Integer

a = 1

For a = 1 To 10 Step 2

List1.AddItem ("Angka " & a)

Next a

End Sub

9.             Pada Commondbutton5 (Clear) kita masukkan code sebagai berikut :

Private Sub Command5_Click()

List1.Clear

End Sub

10.         Program aplikasi telah selesai kita buat. Terakhir lakukan percobaan apakah code yang kita masukkan tadi berjalan dengan tepat.

	*Ini merupakan FOR NEXT		*Ini merupakan DO WHILE

 

			*Ini merupakan DO UNTIL

	*Ini merupakan FOR NEXT STEP 2		*Ini merupakan CLEAR