LA AP2 A Pertemuan 6

>>>>>  DOWNLOAD .DOC <<<<<<

LAPORAN AKHIR PRAKTIKUM

Mata Praktikum          :  Algoritma & Pemrograman 2 A (AP2A)

Kelas                           :  1IA20

Praktikum ke-              :  6

Tanggal                        :  8 Mei 2015

Materi                          :  Percabangan dan perulangan Visual basic

NPM                           :  53414057

Nama                           :  Didi Mulyadi

Ketua Asisten              :  Chairul U

Nama Asisten              :

Paraf Asisten               :

Jumlah Lembar            :   lembar

LABORATORIUM INFORMATIKA

UNIVERSITAS GUNADARMA

2015

PERCABANGAN DAN PERULANGAN

PADA VISUAL BASIC

A. PERCABANGAN

Pernyataan percabangan untuk memecahkan persoalan dalam mengambil keputusan dari beberapa pernyataan/pilihan yang ada.

Penulisan fungsi percabangan ada beberapa macam.

·        ~  IF

o   IF… Then

o   IF… Then… Else

o   IF Bercabang / Bersarang (Nested IF)

·         ~ Select Case

a.      IF… Then

Perintah  ini memiliki pengertian “Jika kondisi benar, maka perintah akan diproses. Jika tidak maka akan diabaikan (program berhenti diproses)”.

If ini disebut juga IF Tunggal

Penulisan syntaknya dalam VB seperti berikut:

     

      If kondisi Then

                  Pernyataan

      End If

b.      IF… Then… Else

Perintah  ini memiliki pengertian “Jika kondisi benar, maka perintah akan diproses. Jika tidak maka akan memproses perintah yang lain”.

          If kondisi Then

                        Pernyataan

          Else

                        Pernyataan

          End If

c.       If Bercabang / Bersarang (Nested If)

Ini digunakan untuk suatu kondisi yang bercabang.

            If kondisi Then

                      If kondisi Then

                                    Pernyataan

          Else

                                    Pernyataan

          End If

                                   Pernyataan

           End If

d.      Select Case

Pada dasarnya penggunaan Select Case sama dengan IF hanya saja terdapat sedikit perbedaan pada struktur penulisannya. Select case bekerja dengan percobaan tunggal dan dalam pernyataan casenya membandingkan nilai yang berbeda dari pernyataan sebelumnya.

            Select Case ekspresi yang dicoba

                        Case (ekspresi1)

                                     Pernyataan

                       Case (ekspresi2)

                                     Pernyataan

                       Case Else

                                    Pernyataan

            End Select

B. PERULANGAN

Pengulangan (Looping) dalam proses pembuatan program, umumnya digunakan untuk mengeksekusi satu atau beberapa baris kode program secara berulang-ulang. Banyaknya pengulangan dapat ditentukan sesuai dengan kondisi yang diberikan.

a.  Struktur For…Next

Struktur pengulangan ini adalah dimana satu atau beberapa baris kode program akan diulang sebanyak jumlah yang telah ditetapkan. Berikut adalah aturan penulisannya:

For = to Step

Next

B. Struktur Do While…Loop

Struktur pengulangan ini adalah dimana proses pengulangan tersebut akan berlangsung hingga suatu kondisi bernilai benar (true). Berikut adalah aturan penulisannya:

Do While (kondisi)

Pernyataan

Loop

c. Struktur Do Until…Loop

Struktur pengulangan ini adalah kebalikan dari pengulangan Do While…Loop, dimana apabila kondisi pengulangan tidak memenuhi syarat (bernilai False), maka pernyataan didalam kondisi tersebut akan diulang terus menerus sampai (until) kondisi memenuhi syarat (bernilai True). Berikut adalah aturan penulisannya:

Do Until (kondisi)

Pernyataan

Loop

d. Struktur While…Wend

Struktur pengulangan ini mirip dengan struktur pengulangan Do While…Loop,dimana proses pengulangan tersebut akan berlangsung hingga kondisi memenuhi syarat (bernilai True). Berikut adalah aturan penulisannya:

While  (kondisi)

Pernyataan

Loop

Listing Program

Listing Tombol dan logika:

-          FORM 1 CEK GRADE Private Sub Command1_Click() If Text1.Text <= "40" Then Text2.Text = "Grade E, TIDAK LULUS" ElseIf Text1.Text <= "60" Then Text2.Text = "Grade D KURANG, " ElseIf Text1.Text <= "75" Then Text2.Text = "Grade C CUKUP, " ElseIf Text1.Text <= "85" Then Text2.Text = "Grade B BAIK, " ElseIf Text1.Text <= "99" Then Text2.Text = "Grade A AMAT BAIK, " ElseIf Text1.Text = "100" Then Text2.Text = "Grade A AMAT BAIK, " Else Text2.Text = "masukan salah " End If End Sub             Pada isi command line di atas  menggunakan percabangan pada visual basic yaitu IF_THEN_ELSIF_ELSE / If bersarang . pada command di atas jika text1 kurang dari 40 maka akan tercetak “Grade E, TIDAK LULUS” begitu seterus nya pada elseif kemudian program default pada program pecabangan ini akan mencetak “masukan salah”. Kemudian end if untuk mengakhiri percabangan.

Output Program: