LABTI Visual Basic - Kondisi Perulangan (Do While..Loop)

1Penjelasan Visual Basic

Pada paktikum laboratorium teknik informatika, saya mendapat  materi visual basic. Visual basic adalah tools dalam pengembangan  aplikasi visual yang dikembangkan oleh Microsoft. Pada Praktikum minggu ke 2 ini saya membuat aplikasi yaitu percabangan. Berikut adalah contoh sederhana program percabangan.

     List Program

1.    Logika Program

·         Analisa Program

Program inisayabuatuntuklatihanmembuatsalahuatuprogram menggunakan Microsoft visual basic. Versi yang di gunakanpada program iniadalah Microsoft Visual Basic 6.0 portable. Padakesempatan kali inisayamembuat program menggunakankondisipercabangan, yaitukondisiperulangan  while. Sayaakanmembuat program dengan output angkaganjil.

·         Penjelasan Program

Pertama-tama menggunakanPerintahwhile atau forpada list koding.Pada list program, sayamembuattiga label yang diberinama “Awalan” dan “Akhiran” dan “Hasil Data” lalusayamembuatdua textbox yang diberinama textbox1 = “Nilai1” dan textbox2 = “Nilai2” yang bergunauntukmemberi input angka – angka yang saya yang masukankedalamkedua textbox tersebut.dansayamembuatcommandbutton yang sayaberinama “Temukan”. Untukmengkodingdari program yang sayabuat.

Pada list program yang sayabuat,sayamemasukansatu list box yang bergunauntukmemunculkan output angkaganjildariangkabatasawalsampaibatasakhir yang sayamasukankedalamkedua textbox.

1.    Dim awal, akhir As Integer

Untukmenjalankan program sayamenggunakanlist sintaks yang bergunauntukmemunculkan output angka-angkaganjilsaja. Padaawalsintaksterdapat“Dim awal, akhir As Integer”bergunauntukmendeklarasikan sebuah variabel sehingga program bisa mengenali syntax dengan baik.

2.    If Nilai1.Text < Nilai2.Text Then

awal = Nilai1.Text

akhir = Nilai2.Text

Pada sintaks berikutnya saya memasukan kondisi “If Nilai1.Text < Nilai2.TextThen awal = Nilai1.Text ; akhir = Nilai2.Text”, jika input nilai awal lebih besar dari nilai akhir maka “Niali1.Text” akan diganti variabelnya dengan “awal”begitu pula dengan “Nilai2.Text” akan diganti variabelnya dengan “akhir”.

3.    Else

awal = Nilai2.Text

akhir = Nilai1.Text

Sintaks berikutnya terdapat “Else awal = Nilai2.Text ;akhir = Nilai1.Text", jika “TextBox2.Text” lebih besar dari “Nilai1.Text” maka “Nilai2.Text” akan diganti menjadi “awal” dan sebaliknya.Yang mempunyai fungsi sebagai tanda untuk mencegah pemasukan data yang salahsehingga program berjalan dengan lancer danbenar

4.    End if

Sintaksberikutnyayaitukondisi“End if”berfungsiuntukmenutup statement if agar tidakberjalanterus.

5.    List1.Clear

Berikutnyaakanmembuatsintaksintipadaawal“List1.clear”, jikamemasukan data yang kedua kali makahasil output pertamatidakterdapatpadahasil input daridata kita yang keduajadiberfungsiuntukmenghilangkantampilanpada list1.

6.    While awal<akhir

If awal Mod 2 = 1 Then

            Berikutnyaterdapatkondisisintaks“While awal<akhirIf awal Mod 2 = 1 Thenyaitusintakssebagaikondisibahwajikanilaiawallebihkecildarinilaiakhirdannilaiawaldibagi 2 samadengansatumakanilaiawaldisebutganjil.

7.    List1.AddItem (awal)

           

Kemudianmasukansintaks“ThenList1.AddItem (awal)”, jikakeduadarikondisidiatasselesaimaka output dari program iniakanditampilkan di list1.

8.    End If

           

Setelahituadasintaks“End If”makaperintah if akanberhentidantidakakanberjalanlagi.

9.    awal = awal + 1

            sintaksberikutberfungsiuntukmelakukanperulangankembalidenganmenambahnilai 1 pada variable awal.

10. Wend

 End Sub

              Untukmengakhiridarisintaksterdapat“Wend” sehinggakondisiiniakanberakhir.Dan “End Sub” berfungsiuntukmenghentikan proses program dari syntax yang dibuat.

             

Berikutiniadalahsemuasintaksdarianalisa programdiatas :

Private Sub Command1_Click()

Dim awal, akhir As Integer

If Nilai1.Text < Nilai2.Text Then

awal = Nilai1.Text

akhir = Nilai2.Text

Else

akhir = Text1.Text

awal = Text2.Text

End If

List1.Clear

While awal<akhir

If awal Mod 2 = 1 Then

List1.AddItem (awal)

End If

awal = awal + 1

Wend

End Sub

Output Program