KULIAH PEMOGRAMAN ALGORITMA VISUAL BASIC

KULIAH PEMOGRAMAN ALGORITMA VISUAL BASIC

Assalamualaikum Wr Wb,
Segala puji bagi Tuhan yang telah menolong hamba-Nya dengan penuh kemudahan. Tanpa pertolongan Nya mungkin blog sederhana ini tidak akan sanggup tampil dengan baik. 

Blog ini dibuat agar pengunjung dapat Kemudahan Berkreasi Pada Blog, yang saya sajikan berdasarkan pengamatan dari berbagai sumber. Blog ini saya buat dengan berbagai rintangan. Baik itu yang datang dari diri saya maupun yang datang dari PC dan Network. Namun dengan penuh kesabaran dan terutama pertolongan dari Tuhan akhirnya blog ini dapat dibuat.

Blog ini memuat tentang “Teknik Perulangan For , Do , While” mudah-mudahan yang sangat membantu sobat blogger sekalian. Walaupun blog ini mungkin kurang sempurna tapi juga memiliki detail yang cukup jelas bagi pengunjung.

Saya mengucapkan terima kasih kepada sobat blogger yang menjadi inspirasi saya yang telah membantu saya dapat mengerti tentang bagaimana cara saya membuat blog ini.

Semoga blog ini dapat memberikan wawasan yang lebih luas kepada pengunjungnya. Walaupun blog ini tidak memiliki kelebihan dan banyak kekurangan. Saya mohon untuk saran dan kritiknya. Terima kasih.

1. Do While … Loop

Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya. Bentuk umum :

Do While Kondisi
Pernyataan
…
Loop

Sintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sbb :

Do
Statement
……
Loop While Kondisi

2. Do Until … Loop

Pada dasarnya, perulangan DO Until adalah sama dengan perulangan DO While. Yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True. 

Bentuk Umum :

Do Until Kondisi
Pernyataan
…
Loop


Perulangan Do Until juga memiliki bentuk sintaks yang lain dimana kondisi diletakkan di akhir pernyataan perulangan. Bentuk sintaksnya adalah sbb :

Do
Pernyataan
……
Loop Until Kondisi

3. While … Wend

Perulangan While … Wend digunakan saat kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True.

Bentuk Umum :

Pernyataan
…
Wend

4. For … Next
Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan. 
Bentuk Umum :

For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
Next Indeks

Contoh Programnya pada Visual Basic 6 :

1.Buat Form seperti pada gambar berikut

2. 2X klik pada dimana saja pada form untuk membuka code editor dan tuliskan code :

Private Sub Form_Load()
Combo1.AddItem ("A")
Combo1.AddItem ("B")
Combo1.AddItem ("C")
End Sub 

3. 2X klik pada command button "Hitung" untuk membuka code editor 

Private Sub Command1_Click()
Dim upah As Long
jk = Text2.Text

If Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Then
MsgBox "data belum lengkap", vbCritical, "error"
Exit Sub
End If

If Not IsNumeric(Text2.Text) Then
MsgBox " Jam kerja harus angka", vbCritical, "error"
Else
Label5.Caption = Text1.Text
Label6.Caption = Combo1.Text
Label7.Caption = Text2.Text
Select Case Combo1.Text
Case "A"
If jk < 48 Then
upah = jk * 2000
Else
upah = Val(48) * 2000 + (jk - 48) * 2000
End If
Label8.Caption = upah
Case "B"
If jk < 48 Then
upah = jk * 3000
Else
upah = Val(48) * 3000 + (jk - 48) * 2000
End If
Label8.Caption = upah
Case "C"
If jk < 48 Then
upah = jk * 4000
Else
upah = Val(48) * 4000 + (jk - 48) * 2000
End If
Label8.Caption = upah
End Select
End If
End Sub

4. 2X Klik pada tombol "Exit: untuk membuka jendela code editor 

Private Sub Command2_Click()
End
End Sub
Terimakasih