Senin, 23 Juni 2014

LA Praktikum ke-2 Lab TI (ada 2 LA)



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