Tugas Penerapan IF,THEN,ELSE pada sistem Warung

 

Ini adalah Nama" objek pada penerapan sistem warung Ini

Private Sub cmdhitung_Click()

If commakanan.Text = "Nasi Pecel" Then
txt2.Text = txt1 * 10000
ElseIf commakanan.Text = "Nasi Soto" Then
txt2.Text = txt1 * 12000
ElseIf commakanan.Text = "Nasi Rawon" Then
txt2.Text = txt1 * 15000
ElseIf commakanan.Text = "Nasi Goreng" Then
Else
txt2.Text = txt1 * 13000
End If
If comminuman.Text = "Es Degan" Then
txt4.Text = txt3 * 7000
ElseIf comminuman.Text = "Es Manado" Then
txt4.Text = txt3 * 10000
ElseIf comminuman.Text = "Es Campur" Then
txt4.Text = txt3 * 10000
ElseIf comminuman.Text = "Es Kopyor" Then
Else
txt4.Text = txt3 * 7000
End If
total = Val(txt2) + Val(txt4)
lbltotal.Caption = "Total                      = Rp." & total

If comdiskon.Text = "Umum" Then
lbldiskon = 0
ElseIf comdiskon.Text = "Silver" Then
diskon = 0.05 * total
Else
diskon = 0.1 * total
       End If
If comdiskon.Text = "Umum" Then
lbldiskon2 = 0
ElseIf comdiskon.Text = "Silver" Then
diskon2 = 0.1 * total
Else
diskon2 = 0.05 * total

End If

lbldiskon.Caption = "Diskon Makanan  = Rp." & diskon
lbldiskon2.Caption = "Diskon Minuman  = Rp." & diskon2
lblbayar.Caption = "Bayar                      = Rp." & (total - (diskon + diskon2))

End Sub

YANG DI ATAS ADALAH KODE YANG TERDAPAT DI PENERAPAN SISTEM WARUNG YANG SAYA BUAT

Daftar Makanan

Ini adalah macam" makanan yang terdapat pada Tugas warung kali ini

Daftar Minuman

Ini Juga adalah macam" minuman yang terdapat pada warung Ngapung di progam Visual Basic 06

Daftar Diskon

Dan ini adalah daftar Diskon" yang di berikan warung Ngapung di progam ini

Daftar Lengkap harga dan Diskon

Gambar di atas adalah daftar harga minuman, makanan ,dan diskon pada Tugas visual basic yang saya buat

Saya ambil contoh pada gambar di atas yaitu :
Makanan = Nasi rawon Dengan jumlah 2
Dan Minumannya = Es Manado dengan jumlahnya 3
Dan di kasih diskon "Silver"

Setelah Di klik Hitung ,Bimsalabim !!! Jawabannya semua terdapat di bawah :D (y)
Dan inilah Cara manualnnya :

Total = Harga Makanan + Harga Minuman atau (30000 + 30000 =Rp. 60000)
Diskon Makanan = Harga makanan x Jenis Diskon yang di pilih atau (30000 x 0,05 "Silver" = Rp. 1500)
Diskon Minuman = Harga Minuman x Jenis Diskon yang di pilih atau (30000 x 0,1 "Silver" = Rp. 3000)
Bayar = Total - (Diskon makanan + Diskon minuman) atau (60000 - (1500 + 3000) =Rp. 55500)

Keterangan :
- Yang terdapat di dalam kurung setelah "atau" itu cara manual pada gambar diatas :D
- Harga makanan, minuman dan Jumlah diskonnya terdapat di gambar di atas yang judulnya "Daftar lengkap harga dan diskon" coba di lihat sendiri :D

Jangan lupa kritik,saran dan Kometarnya di bawahh ini (y)

Tugas Menghitung keliling dan luas lingkaran menggunakan Visual Basic 06

Ini adalah nama" objek pada sistem ini

Private Sub cmdhitung_Click()
Const phi As Single = 3.14
Dim luas As Single
Dim keliling As Single

r = txtjarijari.Text

luas = phi * (r * r)
keliling = 2 * phi * r
lblLuas.Caption = "Luas     : " & luas
lblkeliling.Caption = "Keliling : " & keliling

End Sub

YANG DI ATAS ADALAH KODE YANG TERDAPAT DI SISTEM YANG SAYA BUAT

Tampilan Data Luas dan Keliling lingkaran dan Gambar lingkaran

Ini adalah tampilan hasil dari rumusan Luas dan Keliling Lingkaran, setelah di isi r (jari-jari) lalu klik Hitung secara otomatis akan terdapat jawabanya di bawah .

Saya buat r (jari-jari) nya itu 13

Dan cara manual ada di bawah sini \\//

r = 13
jadi :
Luas       = Phi * (r * r)
               = 3,14 * (13 * 13)
               = 3,14 * 169
               = 530,66 (benar)

Keliling  = 2 * phi * r
               = 2 * 3,14 * 13
               = 81,64 (benar)

 Jangan lupa kritik,saran dan Kometarnya di bawahh ini (y)