LA - Menghilangkan Angka Menggunakan VB

LAPORAN AKHIR

Mata Praktikum        : Algoritma dan Pemrograman 2A (AP 2A)

Kelas                          : 1IA16

Praktikum Ke-           : 2 (Dua)

Tanggal                     : 9 April 2014

Materi                         : Perulangan VB

NPM                           : 50413168

Nama                         : Adham Bachtiar Yuda Perkasa

Ketua Asisten           : Febrian Reza

Nama Asisten           :

Paraf Asisten                        :

Jumlah Lembar        : 5 Lembar

LABORATORIUM TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2014

1.    List Program

1.    Logika Program

Analisa Program :

Program ini merupakan latihan dalam mebuat program menggunakan Microsoft visual basic. Versi Microsoft Visual Basic 6.0. Pada program ini saya menggunakan kondisi perulangan yang terdapat pada Microsoft Visual Basic, yaitu kondisi perulangan (do while loop). Di sini saya akan membuat program Perulangan angka namun dengan menghilangkan angka (5)  menggunakan perulangan (do while loop) .

Penjelasan program :

Sebelum melakukan coding , saya membuat 1 textbox , 2 label ,1 Command Button , 1 List dan 1 Frame . Setelah itu saya beri variabel masing – masing .

1. Dim akhir As Integer

    Dim awal As Integer

Dim merupakan sebuah syntax untuk mendeklarasikan sebuah variabel sehingga program bisa mengenali syntax dengan baik .

2. awal = 1

Syntax diatas untuk mendeklarasikan bahwa nilai awal adalah 1

            3. akhir = Val(Text1.Text)

           

             Syntax diatas mempunyai fungsi sebagai alat untuk mendeklarasikan bahwa akhir = textbox 1 yang merupakan tempat menginput data sehingga program berjalan sesuai keinginan . .

            4. Do

    If (awal <> 5) Then

                     List1.AddItem (awal)

               End If

                       

Syntax diatas berfungsi untuk membuat sebuah parameter untuk  menghilangkan angka 5 dalam perulangan yang terjadi , List1.Additem (awal)  merupakan syntax untuk menampilkan hasil dari perulangan pada List 1 .

            5. awal = awal + 1

Syntax diatas berfungsi untuk melakukan perulangan kembali dengan menambahkan nilai 1 pada variabel awal .

            6 Loop While awal <= akhir

           

Syntax diatas berfungsi untuk melooping atau mengulang perintah sampai batas akhir / nilai yang kita input

            7 End Sub

End Sub berfungsi untuk menghentikan proses atau batas akhir dari syntax .

            INI ADALAH SYNTAX PENUH DARI PROGRAM INI

Private Sub Command1_Click()

Dim akhir As Integer

Dim awal As Integer

awal = 1

akhir = Val(Text1.Text)

Do

If (awal <> 5) Then

    List1.AddItem (awal)

End If

awal = awal + 1

Loop While awal <= akhir

End Sub

Output Program