Latihan06 (Percabangan)

Latihan06 (Percabangan) : VB6

Percabangan
Percabangan adalah pemilihan statemen pada kondisi dua pilihan atau banyak pilihan, yang akan dieksekusi selanjutnya di mana pemilihan tersebut didasarkan atas kondisi tertentu.


IF
IF...Then
Gunakan suatustruktur if...then untuk menjalankan suatu pernyataan secara kondisional. Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris.

Bentuk Umum :
If kondisi Then pernyataan
Atau
If kondisi Then
pernyataan
pernyataan
End if


Kondisi biasanya berupa suatu perbandingan, maupun expresi yang menghasilkan nilai numerik. Visual Basic menginterprestasikan False sebagai nol (0), dan True sebagai satu.


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:

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


Ketentuaan Pengerjaan :
Logika dari program diatas ketika diinput nilai lebih dari atau sama dengan 60(>=) maka akan menghasilkan keterangan"Anda Lulus".

masukkan listing program seperti berikut :
Private Sub cmdproses_Click()
If txtnilai.Text >= 60 Then
txtket.Text = "Anda Lulus"
End If
End Sub

Penjelasan Coding :
If txtnilai.text >=60 ; jika textbox nilai lebih atau sama dengan 60
then ; maka
txtket.text = "Anda Lulus" ; Textbox keterangan akan menampilkan Anda Lulus


Lalu Klik Run - Start  atau tekan f5 :






 If...Then...Else
Gunakan If...Then...Else untuk mendefinisikan beberapa blok pernyataan yang akan dijalankan salah satu berdasarkan kondisi yang memenuhi syarat. Visual Basic awalnya akan mencoba kondisi 1. Jika False , maka Visual Basic akan memeriksa kondisi 2, dan seterusnya sampai menemukan suatu kondisi True untuk dijalankan blok pernyataannya.

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:


Ketentuaan Pengerjaan :
Dari kondisi diatas jika untuk menampilkan keterngan gagal, kita cukup menambahkan kondisi yang kedua saja yaitu else

masukkan listing program seperti berikut :
Private Sub txthitung_Click()
If txtnilai.Text >= 60 Then
txtket.Text = "Anda Lulus"
Else
txtket.Text = "Anda Gagal"
End If
End Sub
 Penjelasan Coding :
If txtnilai.text >=60 ; jika textbox nilai lebih atau sama dengan 60
then ; maka
txtket.text = "Anda Lulus" ; Textbox keterangan akan menampilkan Anda Lulus
 Else ; tetapi jika tidak seperti kondisi if
 txtket.text = "Anda Gagal" ; Textbox keterangan akan menampilkan Anda Gagal

Lalu Klik Run - Start  atau tekan f5 :



  
If dalam If/Nested If
Bentuk Umum :
If kondisi ke-1 Then
If kondisi ke-2 dari If ke-1 Then
    Pernyataan ke-1
 Else 
    Pernyataan ke-2
End If
Else
If kondisi ke-2 Then
    Pernyataan ke-1
Else
    Pernyataan ke-2
 end if
End If


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:


Ketentuaan Pengerjaan :
  • Saat Program dijalankan maka textbox habsen,htgs,dan huas dalam kondisi tidak aktif dan kursor berada dalam textbox txtabsen
  • Pengisian nilai berdasarkan ketentuan berikut pada saat nilai diinput:
    • habsen didapat dari 10% x nilai absen
    • htgs didapat dari 20% x nilai tugas
    • huts didapat dari 30% x nilai UTS
    • huas didapat dari 40% x nilai UAS
  • Button hitung di klik maka akan tampil total nilai, grade dan keterangan dengan ketentuan :
    • Total Nilai didapat dari habsen + htg + huts+ huas
    • Grade didapat berdasarkan ketentuan dibawah ini 
  • Button hitung di klik maka akan tampil total nilai, grade dan keterangan dengan ketentuan :
    • Total Nilai didapat dari habsen+htgs+huts+huas
    • Grade didapat berdasarkan ketentuan dibawah ini :
    •  keterangan dengan berdasarkan grade jika A atau B atau C maka keterangan "LULUS" selain itu maka akan "GAGAL"
  • Button Bersih untuk mengulang kembal
  
masukkan listing program seperti berikut : 
Private Sub cmdbersih_Click()
txtabsen.Enabled = False
txttgs.Enabled = False
txtuts.Enabled = False
txtuas.Enabled = False
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmhitung_Click()
'Menghitung Total Nilai
txttotnil = Val(habsen.Text) + Val(htgs.Text) + Val(huts.Text) + Val(huas.Text)
'menghitung grade
If txttotnil >= 80 And txttotnil <= 100 Then
txtgrade = "A"
Else
If txttotnil >= 69 And txttotnil <= 79 Then
txtgrade = "B"
Else
If txttotnil >= 56 And txttotnil <= 68 Then
txtgrade = "C"
Else
If txttotnil >= 40 And txttonil <= 55 Then
txtgrade = "D"
Else
txtgrade = "E"
End If
End If
End If
End If
'MENGHITUNG KETERANGAN
If txtgrade = "A" Or txtgrade = "B" Or txtgrade = "C" Then
txtket = "LULUS"
Else
txtket = "GAGAL"
End If
End Sub
Private Sub Form_Activate()
habsen.Enabled = False
htgs.Enabled = False
huas.Enabled = False
huts.Enabled = False
End Sub
Private Sub txtabsen_Change()
habsen = 0.1 * Val(txtabsen)
End Sub

Private Sub txttgs_Change()
htgs = 0.2 * Val(txttgs)
End Sub
Private Sub txtuas_Change()
huas = 0.4 * Val(txtuas)
End Sub
Private Sub txtuts_Change()
huts = 0.3 * Val(txtuts)
End Sub
Penjelasan Coding :
cmdbersih ; dimasukkan koding untuk membersihkan
cmd keluar ; unload me untuk keluar dari program
cmd hitung ; percabangan if untuk total nilai grade dan keterangan
habsen=0.1*val(txtabsen) ; saat nilai absen diinput nilai hasi akan terlihat dari nilai absen dikali 10

Untuk penjelasan yang lain silakan berkomentar...

Lalu Klik Run - Start  atau tekan f5 :






Select Case
Visual Basic menyediakan struktur Select Case sebagai suatu alternatif terhadapnIf...Then...Else. Suatu Select Case statement memiliki kemampuan yang sama dengan If…Then…Else…, tetapi membuat code lebih mudah dibaca.
Bentuk Umum :

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:
COMBO BOX set name cmbjurusan
    Masukkan juga list dalam combo box dengan : MI ,KA, dan TK
TEXTBOX set name txtjurusan
masukkan listing program seperti berikut : 
Private Sub cmbjurusan_Click()
Select Case cmbjurusan
Case "MI"
txtjurusan.Text = "Manajemen Informatika"
Case "KA"
txtjurusan.Text = "Komputer Akuntansi"
Case Else
txtjurusan.Text = "Tekhnik Informatika"
End Select
End Sub


Penjelasan Coding :
Private sub cmbjurusan_click() ; even saat combo boc cmbjurusan diklik 
 case "MI" ; Jika memilih MI
txtjurusan.text ="Manajemen Informatika" ; maka textbox txtjurusan akan muncul tulisan Manajemen Informatika

Berlangganan update artikel terbaru via email:

6 Responses to "Latihan06 (Percabangan)"

Kang Wahyu said...

wah mantap gan keren makasih infonya (y)

Muhammad Anggi said...

mantep gan tutorialnyaa
bermanfaat banget buat anee sendiri :D

Fajar Yusuf said...

sama sama gan :)

Fajar Yusuf said...

Semoga membantu gan :)

Muhammad Perdi said...

kebetulan banget nih ane lagi belajar pemrogaraman,, thanks gan :D

Fajar Yusuf said...

semoga membantu gan

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel