Thursday, May 12, 2016

Latihan07 (Branching)

Latihan07 (Branching) : VB6

Do Loop
Ketika Visual menjalankan Do Loop ini, pertama kali akan di coba kondisinya jika kondisi false(Zero) akan diloncati semua statement yang mengikuti kondisi tersebut. Visual Basic akan menjalankan statement jika kondisi benar dan kembali ke Do...Loop berikutnya.

Bentuk Umum :
Function Faktorial
Dim Hasil As Double
Dim Count As Long
Hasil = 1
coun = 2
Do While Count <=x
     Hasil=Hasil*count
     count=count+!
Loop
Faktorial=count
End Function
 Variasi lai dari statement Do..Loop, yang menjamin minimal satu kali statement dijalankan :
Do
     Statement
Loop While<kondisi>
 Dua variasi yang analog dengan dua contoh sebelumnya adalah perulangan Minimal satu kali. Dan berikut ini adalah berulang atau tidak sama sekali :
Do Until<Kondisi>
statements
Loop
Do
statements
Loop Until<Kondisi>

For...Next
Do Loop bekerja dengan baik, ketika anda tidak tahu berapa banyak kali untuk butuhkan menjalankan statemen. Ketika anda mengetahui harus menjalankan statement sejumlah kali , bagaimana For...Next adalah pilihan yang lebih baik. Tidak seperti Do Loop, For...Next menggunakan suatu variabel yang disebut counter yang mana akan bertambah atau berkurang pada setiap perulangan.
Bentuk umumnya :
For<pencacah>=<awal>To<akhir>[step<langkah>]
Statement
Next<pencacah>
Keterangan :
Pencacah : Variabel (tipe:integer) yang digunakan untuk menyimpan angka pengulangan.
awal : Nilai awal dari pencacah
pencacah : Variabel (tipe:integer) yang digunakan untuk menyimpan angka pengulangan.
awal : Nilai awal dari pencacah
akhir : Nilai akhir dari pencacah
langkah : Perubahan nilai pencacah setiap pengulangan. Sifatnya optional(boleh ditulis/tidak), bila tidak ditulis maka nilai langkah adalah 1



While...Wend

While-Wend digunakan untuk mengeksekusi suatu blok statement dengan jumlah perulangan yang tak terhingga. Berikut ini adalah statement While-Wend, yang dijalankan selama kondisi benar :
WHILE<kondisi>
            <Statements/Blok Kode Program>
WEND
Jika kondisi false(zero), maka emua <statements/blok kode program> yang mengikuti kondisi akan diloncati. Program akan menjalankan <Statements/blok kode program> jika kondisi benar, dan akan kembali ke WHILE berikutnya.



Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :



 Settinglah nama objek dan caption objek dengan Fomat di bawah ini:
cmbbox prtma namenya = cmbtgl , cmbbox kedua namenya =cmbbln , cmbbox ketiga namenya=cmbtgl ,, textbox1 dan label 2 tidak diperlukan

catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.


Ketentuaan Pengerjaan :
1.ComboBox Berisi tanggal, bulan dan tahun yang akan di pilih gunakan looping untuk membuat formatnya.
2.TextBox input kata berisi data yang akan diinput dan akan diolah untuk perulangan dimana hasilnya akan ditampilkan dalam ListBox

masukkan listing program seperti berikut :
Dim i, jumlah As Variant

Private Sub cmddountil_Click()
List1.Clear
i = 1
Do Until i > 5
List1.AddItem (i)
i = i + 1
Loop
End Sub

Private Sub cmddowhile_Click()
List1.Clear
i = 10
Do While i > 6
List1.AddItem (i)
i = i - 1
Loop
End Sub

Private Sub cmdfornext_Click()
List1.Clear
Dim a As Integer
a = 1
jumlah = 0
For i = 1 To 10
List1.AddItem (i)
jumlah = jumlah + a
a = a + 2
Next
End Sub

Private Sub cmdwhilewent_Click()
List1.Clear
i = 20
While i <= 60
List1.AddItem (i)
i = i + 10
Wend
End Sub

Private Sub Form_Load()
For i = 1 To 31
Me.cmbtgl.AddItem (Str(i))
Next i

For i = 1 To 12
Me.cmbbln.AddItem (MonthName(i))
Next i

For i = 1990 To Year(Now)
Me.cmbthn.AddItem (Str(i))
Next i
End Sub

Penjelasan Coding :
For i=1990 To Year(Now) ; untuk variabel i diisi 1990 sampe tahun sekarang
Me.cmbthn.additem(Str(i)) ; cmbobox tahun di tambahkan isinya dengan nilai i ,maka isi dari cmbthn adalah 1990 sampe tahun sekarnag

Untuk pertanyaan coding yang lainnya silakan bertanya melalui komentar :)


Lalu Klik Run - Start  atau tekan f5 :

Silakan dicoba button do until, do while, for next,dan while wendnya :)













Reviewer: FajarYusuf.Com
ItemReviewed: Latihan07 (Branching)

Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.