Perulangan dan Percabangan pada Visual Basic Afriduarchan10:22 AM 0 komentar

contoh  percabangan (Case_Of) =

Dim Upah, Gaji, Jamkerja As Long
Const Lembur As Long = 17500

Private Sub cmdhitung_Click()
If txtnama.Text = "" Then
    MsgBox "Nama Tidak Boleh Kosong", vbCritical, "Field Error"
    txtnama.SetFocus
    Exit Sub
End If

If cmbgolongan.Text = "" Then
    MsgBox "Golongan Belum Dipilih", vbCritical, "Field Error"
    cmbgolongan.SetFocus
    Exit Sub
End If
If txtjamkerja.Text = "" Then
    MsgBox "Jam Kerja Tidak Boleh Kosong", vbCritical, "Field Error"
    txtjamkerja.SetFocus
    Exit Sub
End If

If Not IsNumeric(txtjamkerja.Text) Then
    MsgBox "Harus Angka!", vbCritical, "Field Error"
    txtjamkerja.SetFocus
    Exit Sub
End If

lblnama.Caption = txtnama.Text
lblgolongan.Caption = cmbgolongan.Text
lbljamkerja.Caption = txtjamkerja.Text & " Jam"

Select Case cmbgolongan.Text
Case "A"
    Upah = 7000
    Jamkerja = txtjamkerja.Text
    If Jamkerja <= 48 Then
        Gaji = Upah * Jamkerja
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
    If Jamkerja > 48 Then
        Gaji = ((Jamkerja - 48) * Lembur) + (48 * Upah)
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
Case "B"
    Upah = 9000
    Jamkerja = txtjamkerja.Text
    If Jamkerja <= 48 Then
        Gaji = Upah * Jamkerja
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
    If Jamkerja > 48 Then
        Gaji = ((Jamkerja - 48) * Lembur) + (48 * Upah)
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
Case "C"
    Upah = 12000
    Jamkerja = txtjamkerja.Text
    If Jamkerja <= 48 Then
        Gaji = Upah * Jamkerja
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
    If Jamkerja > 48 Then
        Gaji = ((Jamkerja - 48) * Lembur) + (48 * Upah)
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
Case "D"
    Jamkerja = txtjamkerja.Text
    If Jamkerja <= 48 Then
        Gaji = Upah * Jamkerja
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
    If Jamkerja > 48 Then
        Gaji = ((Jamkerja - 48) * Lembur) + (48 * Upah)
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
End Select

End Sub

Private Sub cmdkeluar_Click()
Tanya = MsgBox("Apakah Anda Yakin?", vbQuestion + vbYesNo, "Akhiri Program")
Select Case Tanya
Case vbYes
    End
Case vbNo
    Cancel = 1
End Select

End Sub

Private Sub cmdulangi_Click()
    txtnama.Text = ""
    cmbgolongan.ListIndex = 0
    txtjamkerja.Text = ""
    lblnama.Caption = ""
    lblgolongan.Caption = ""
    lbljamkerja.Caption = ""
    lblgaji.Caption = ""
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Tanya = MsgBox("Apakah Anda Yakin?", vbQuestion + vbYesNo, "Akhiri Program")
Select Case Tanya
Case vbYes
    End
Case vbNo
    Cancel = 1
End Select
End Sub

buat source code dari kakaknya yang lebih lengkap klik disini