LAPORAN
AKHIR
Mata Praktikum : Algoritma
dan Pemrograman 2A (AP 2A)
Kelas : 1IA16
Praktikum Ke- : 2
(Dua)
Tanggal : 16 April 2014
Materi : Pengenalan VB
NPM : 59413607
Nama : Yunita Rahman
Ketua Asisten : Febrian
Reza
Nama Asisten :
Paraf Asisten :
Jumlah Lembar : 6
Lembar
LABORATORIUM
TEKNIK INFORMATIKA
UNIVERSITAS
GUNADARMA
2014
Membuat
Program Perulangan Menggunakan For Next
Perintah For
- Next merupakan perintah yang digunakan untuk mengulang blok perintah
dalam jumlah yang ditentukan, didalamnya hanya perlu menuliskan nilai awal dan
nilai akhir variable penghitung.
Bentuk Umum :
For
(variable integer) = Nilai awal To Nilai akhir
[steatment]
…
Next
Berikut adalah contoh
program perulangan angka genap dengan input angka awal 0 dan input angka akhir
20 menggunakan statement For - Next.
Ketika visual basic
6.0 telah terbuka maka :
1. Tahap pertama yaitu klik tools Label. Lalu kita
membuat Label1
yaitu untuk judul Daftar
Angka Genap, label2 Input Angka Awal, label3 Input Angka Akhir. Setelah
itu, membuat 2 TextBox untuk menginput angka awal dan angka akhir.
2.
Selanjutnya membuat tombol Button pada tools
CommandButton. Kemudian membuat list untuk menampilkan hasil Output dari program tersebut.
Atur sesuai keinginan penempatan, lalu akan
seperti pada tampilan berikut.
Langkah pembuatan sintaks :
Double
klik tombol Button. Yang selanjutnya
kita masukan program yang akan dijalankan pada Project1.Form1 (code). Maka
ketika code atau sintaks telah ditulis akan muncul gambar berikut :
Berikut
sintaknya seperti pada gambar diatas:
Private
Sub Command1_Click()
If
Text1.Text < Text2.Text Then
nilai_awal = Text1.Text
nilai_akhir = Text2.Text
Else
nilai_awal = Text2.Text
nilai_akhir = Text1.Text
End
If
List1.Clear
For
a = nilai_awal To nilai_akhir
If
a Mod 2 = 0 Then
List1.AddItem
(a)
End
If
Next
End
Sub
Penjelasan
sintaks :
Pada bagian Command1_Click()
terdapat perintah
If
Text1.Text < Text2.Text Then
nilai_awal = Text1.Text
nilai_akhir = Text2.Text
perintah
if di atas berguna untuk menjelaskan bahwa TextBox1 berisikan nilai yang lebih
kecil daripada nilai TextBox2. Perintah pada baris ke 2 dan baris ke 3
mengganti variabel pada TextBox (Text1) menjadi nilai_awal yang bertipe integer dan mengganti variabel pada TextBox
(Text2) menjadi nilai_akhir yang
bertipe integer.
Else
nilai_awal = Text2.Text
nilai_akhir = Text1.Text
End
If
Pertintah diatas menjelaskan
bahwa ketika inputan dimasukan terbalik, misalnya nilai TextBox2 < TextBox1
maka program perulangan masih bisa dijalankan karena menggunakan perintah
diatas.
List1.Clear
Perintah
List1.Clear adalah berfungsi untuk menghapus hasil dari output variabel a di
List1 pada program yang telah di jalankan.
For
a = nilai_awal To nilai_akhir
Perintah
di atas mendeklarasikan variabel a sebagai perulangannya, serta variabel nilai_awal yang di gunakan sebagai
permulaan dari perulangan dan variabel nilai_akhir
yang di gunakan sebagai akhiran dari perulangan. Kedua variabel tersebut di
pisah oleh perintah To yang
merupakan bagian dari perintah perulangan For,
misalnya nilai awal dibatasi sampai nilai akhir.
If
a Mod 2 = 0 Then
Pada
perintah If terdapat perintah Mod yang berfungsi untuk
mendeklarasikan variabel a habis di bagi 2 sehingga menghasilkan nilai 0. Nilai
0 ini menyatakan bahwa output yang di hasilkan dari pembagian dengan variabel a
bernilai genap.
List1.AddItem
(a)
Perintah List1.AddItem (a) berfungsi untuk mencetak output yang di hasilkan
akan dari program perulangan tersebut. Output akan munculkan pada ListBox
(List1) yang merupakan output dari hasil perulangan variabel a.
End
If
Next
End
Sub
Perintah
diatas berfungsi untuk mengakhiri statement If dengan menggunakan perintah End
If. Perintah Next berfungsi
untuk mengakhiri perintah perulangan For pada
variable a. Sedangkan perintah End
yang berfungsi untuk mengakhiri jalannya program.
Menjalankan Program
Perulangan Daftar Angka Genap:
Pada
saat di run atau tekan F5 akan
muncul tampilan seperti gambar berikut
Output pada prongram
perulangan Daftar Angka Genap:
Setelah
memasukan input data pada TextBox1 dan TextBox2, lalu klik double Button maka akan muncul output seperti
gambar dibawah ini.
LAPORAN
AKHIR
Mata Praktikum : Algoritma
dan Pemrograman 2A (AP 2A)
Kelas : 1IA16
Praktikum Ke- : 2
(Dua)
Tanggal : 9 April 2014
Materi : Perulangan VB
NPM : 59413607
Nama : Yunita Rahman
Ketua Asisten : Febrian
Reza
Nama Asisten :
Paraf Asisten :
Jumlah Lembar : 5
Lembar
LABORATORIUM
TEKNIK INFORMATIKA
UNIVERSITAS
GUNADARMA
2014
Cara
membuat output agar menghilangkan angka 5
Buka aplikasi Microsoft
Visual Basic 6.0
Langkah pertama adalah
membuat TextBoxt, CommandButton dan ListBoxt. Lalu akan tampil di Ms.Visual
Basic 6.0 seperti gambar dibawah ini.
Kemudian double klik
CommandButton, lalu isi syntax yang akan dijalankan untuk program tersebut pada
Project1 – From1
Syntax
pada program tersebut :
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
Penjelasan Analisa dan Logika pada
Program
Analisa Program :
Program yang dibuat
menggunakan Microsoft visual basic ini (Versi Microsoft Visual Basic 6.0)
adalah membuat program Perulangan Angka yang menggunakan kondisi perulangan
menggunakan do while loop. Dimana menggunakan kondisi ini saya membuat program
yang dapat menghilangkan angka 5.
Logika Program :
Dim akhir As Integer
Dim awal As Integer
Syntax
ini merupakan sebuah syntax untuk mendeklarasikan sebuah
variabel sehingga program tersebut bisa mengenali syntax
dengan sesuai
dengan program yang akan dijalankan nanti. Dan juga menjelaskan
bahwa data yang yang di inputkan berupa integer.
awal = 1
Syntax tersebut berfungsi untuk
mendeklarasikan
atau menjelaskan bahwa nilai awal yang akan muncul pada output adalah
angka 1
akhir = Val(Text1.Text)
Syntax iniberfungsiuntuk menjelaskan atau mendeklarasikan bahwa nilai yang akan diinput pada TextBox1 adalah nilai akhir
pada program yang telah dirunning, sehingga menghasilkan nilai akhir = TextBox1.
Misalkan menginput nilai 20 pada TextBox1
maka setelah di running program akan memunculkan nilai terakhirnya 20.
Do
If (awal <>
5) Then
List1.AddItem
(awal)
End If
Syntax berikut berfungsi untuk
menghilangkan angka 5 dalam perulangan yang terjadi Pada program
tersebut,sedangkanList1.Additem (awal) merupakan syntax untuk menampilkan
output yang di hasilkan dari program perulangan tersebut.
awal = awal + 1
Syntax ini berfungsi untuk
melakukan perulangan kembali dengan menambahkan nilai 1 pada variabel awal pada program.
Loop While awal
<= akhir
End Sub
Syntax diatas berfungsi untuk mendeklarasikanpengulangan perintahhingga batas akhir atau nilai yang kita input. End Sub berfungsi untuk menghentikan proses atau batas akhir
dari syntax .
Berikut outputnya
Tidak ada komentar:
Posting Komentar