TUGAS Algoritma Dan Pemrograman 2B (VB) : PERCABANGAN

Inilah contoh programnya setelah dijalankan

Cara membuatnya adalah, Pertama-tama kita buat Formnya terlebih dahulu. Seperti ini contohnya :

Alat - alat yang kita gunakan :

>Selanjutnya yang harus dilakukan adalah klik 2x pada form 1 dan masukan codingan berikut ini:

Private Sub Form_Load()List1.AddItem "ASUS ROG GL552VX Core i7-7700"
List1.AddItem "ASUS ROG GL502VT - 128T"
List1.AddItem "ASUS ROG GX800VH G-SYNC"
List1.AddItem "ASUS ROG GL503VD SCAR"
List1.AddItem "ASUS ROG STRIX GL503VD-FY285T"
List1.AddItem "ASUS ROG GL553VE-FY280T"
List1.AddItem "ASUS ROG GX800VH - i7 7820HK"
List1.AddItem "ASUS ROG STRIX GL503VD-FY285T"
List1.AddItem "ASUS ROG GL702VM - 25T"
List1.AddItem "ASUS ROG STRIX GL553VE-FY404T"
End Sub

>Jika sudah maka selanjutnya kita masukan kodingan berikutnya ke Tombol command1 "TOTAL",dengan cara yang sama yaitu klik 2x, kemudian masukan codingan ini :

Private Sub Command1_Click()
    Dim Harga As Currency, Total As Currency
    Dim jumlah As Integer
    Dim Diskon As Single
    Dim satuan As String

    If List1.Text = " " Then
        MsgBox "Anda belum memilih barang !!"
        List1.ListIndex = 0
        Exit Sub
    End If

    If Text1.Text = " " Then
        MsgBox "Anda belum mengisi jumlah barang !!"
        Text1.SetFocus
        Exit Sub
    End If
    
    If Not IsNumeric(Text1.Text) Then
        MsgBox "Isi jumlah barang harus angka !!"
        Text1.SetFocus
        Exit Sub
    End If
    
    Select Case List1.Text
    Case "ASUS ROG GL552VX Core i7-7700"
        Harga = 12229000
        satuan = "Set"
    Case "ASUS ROG GL502VT - 128T"
        Harga = 17390000
        satuan = "Set"
    Case "ASUS ROG GX800VH G-SYNC"
        Harga = 94700000
        satuan = "Set"
    Case "ASUS ROG GL503VD SCAR"
        Harga = 18999000
        satuan = "Set"
    Case "ASUS ROG STRIX GL503VD-FY285T"
        Harga = 14499000
        satuan = "Set"
    Case "ASUS ROG GL553VE-FY280T"
        Harga = 1600000
        satuan = "Set"
    Case "ASUS ROG GX800VH - i7 7820HK"
        Harga = 93998000
        satuan = "Set"
    Case "ASUS ROG STRIX GL503VD-FY285T"
        Harga = 14450000
        satuan = "Set"
    Case "ASUS ROG GL702VM - 25T"
        Harga = 21390000
        satuan = "Set"
    Case "ASUS ROG STRIX GL553VE-FY404T"
        Harga = 14995000
        satuan = "Set"
    End Select

    LblBarang.Caption = "Barang : " & List1.Text
    LblHarga.Caption = "Harga : " & Format(Harga, "Currency") & "/" & satuan
    LblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan
    
    jumlah = Text1.Text
    
    Select Case jumlah
    Case Is < 10
        Diskon = 0
    Case 10 To 20
        Diskon = 0.15
    Case Else
        Diskon = 0.2
    End Select
    
    Total = jumlah * (Harga * (1 - Diskon))
    
    LblDiskon.Caption = "Diskon : " & Format(Diskon, "0 %")
    LblTotal.Caption = "Total Bayar : " & Format(Total, "Currency")
End Sub

>Nahh Jika sudah selesai tinggal kita jalankan saja programnya bisa dengan menekan F5 ataupun dengan cara manual. caranya menggunakan programnya adalah pertama kita isi terlrbih dahulu kotak TextBox dan ListBox, tentukan barang apa dan berapa jumlah barang yang kita inginkan kemudian jika sudah kita klik total.

contohnya seperti ini :

Dan jika kita menuliskan di kotak Text1 bukan berupa angka, maka akan keluar kotak dialog seperti ini :

*Karena command 1 terdapat codingan ini
If Not IsNumeric(Text1.Text) Then
        MsgBox "Isi jumlah barang harus angka !!"
        Text1.SetFocus
        Exit Sub
Tidak hanya itu saja, jika kita tidak mengisi text1 nya maka juga akan keluar kotak dialog yang hampir sama seperti gambar diatas juga, namun tentunya dengan codingan yang berbeda pula.

Silahkan mencoba:)