tugas vb 5
Private Sub cbokode_Click()
Dim kode, merk, hs As String
Select Case cbokode.Text
Case “Asus A43SA”
txtmerk.Text = “Asus A43SA-VX090D”
txths.Text = “5500000”
Case “Asus A43SD”
txtmerk.Text = “Asus A43SD-VX052D”
txths.Text = “4500000”
Case “Asus A43SJ”
txtmerk.Text = “Asus A43SJ-VX792D”
txths.Text = “4300000”
Case “Asus A43TA”
txtmerk.Text = “Asus A43TA-VX034D”
txths.Text = “4900000”
Case “Asus N43SJ”
txtmerk.Text = “Asus N43SJ-VX264D”
txths.Text = “4300000”
Case “Asus U36SD”
txtmerk.Text = “Asus U36SD-VX090D”
txths.Text = “6600000”
Case “Apple MC965”
txtmerk.Text = “Apple Macbook Air MC965”
txths.Text = “12800000”
Case “Apple MC966”
txtmerk.Text = “Apple Macbook Air MC966”
txths.Text = “15800000”
Case “Apple MC969”
txtmerk.Text = “Apple Macbook Pro MC969”
txths.Text = “11900000”
Case “Apple MC700”
txtmerk.Text = “Apple Macbook Pro MC700”
txths.Text = “10800000”
Case “Apple MC723”
txtmerk.Text = “Apple Macbook Pro MC723”
txths.Text = “19300000”
Case “Apple MD311”
txtmerk.Text = “Apple Macbook Pro MD311”
txths.Text = “24200000”
Case “Apple MD313”
txtmerk.Text = “Apple Macbook Pro MD313”
txths.Text = “11900000”
Case “Apple MD314”
txtmerk.Text = “Apple Macbook Pro MD314”
txths.Text = “14700000”
Case “Apple MD322”
txtmerk.Text = “Apple Macbook Pro MD322”
txths.Text = “21300000”
End Select
txtjj.SetFocus
End Sub
Private Sub cmdhitunglagi_Click()
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”
txtterbilang.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdproses_Click()
Dim hp As String
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
If txthp.Text > 140000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 135000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp.Text > 130000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp.Text > 125000000 Then
txtdis.Text = Val(txthp.Text) * 0.02
End If
Dim tb As String
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub
Private Sub Form_Load()
cbokode.AddItem “Asus A43SA”
cbokode.AddItem “Asus A43SD”
cbokode.AddItem “Asus A43SJ”
cbokode.AddItem “Asus A43TA”
cbokode.AddItem “Asus N43SL”
cbokode.AddItem “Asus U36SD”
cbokode.AddItem “Apple MC965”
cbokode.AddItem “Apple MC966”
cbokode.AddItem “Apple MC969”
cbokode.AddItem “Apple MC700”
cbokode.AddItem “Apple MC723”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
End Sub
Private Sub txttb_Change()
txtterbilang.Text = terbilang(Val(txttb.Text))
End Sub
Private Function baca(X As Integer) As String
Dim i As Long
Dim ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String
satuan(1) = “satu”
satuan(2) = “dua”
satuan(3) = “tiga”
satuan(4) = “empat”
satuan(5) = “lima”
satuan(6) = “enam”
satuan(7) = “tujuh”
satuan(8) = “delapan”
satuan(9) = “sembilan”
For i = 1 To 9
If i = 1 Then
puluh(i) = “sepuluh”
Else
puluh(i) = satuan(i) & ” puluh”
End If
Next
For i = 1 To 9
If i = 1 Then
belas(i) = “sebelas”
Else
belas(i) = satuan(i) & ” belas”
End If
Next
For i = 1 To 9
If i = 1 Then
ratus(i) = “seratus”
Else
ratus(i) = satuan(i) & ” ratus”
End If
Next
If X >= 100 Then
sbaca = ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
sbaca = sbaca & ” ” & satuan(Val((Str(X))))
End If
baca = sbaca
End Function
Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & ” trilyun”
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” milyar”
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” rupiah”
End Function
STROBERI dikenal lezat dan sehat. Buah mungil yang menggemaskan ini memiliki rasa yang nikmat juga kaya akan manfaat kesehatan berkat kandungan nutrisi di dalamnya.
Stroberi merupakan buah yang tinggi kandungan gizi dan mengandung antioksidan. Buah ini pun kaya serat sehingga baik dijadikan menu harian, terlebih bagi Anda yang sedang berdiet.
Stroberi merupakan superfood yang mampu membantu tubuh menjaga tingkat gula darah dan mengontrol diabetes. Buah yang sangat lezat nan sehat ini pun cocok dijadikan makanan penutup atau dijadikan camilan sehat.
Berikut beberapa manfaat kesehatan yang terdapat pada stroberi, sebagaimana dilansir Boldsky, Selasa (27/3/2012):
Tinggi serat dan kaya vitamin C
Stroberi merupakan salah satu sumber vitamin C dan memiliki kadar serat tinggi. Selain itu, buah mungil ini mengandung antioksidan yang berkhasiat membantu mengurangi peradangan dalam tubuh.
Stroberi meningkatkan metabolisme dan mengatur kadar gula dalam darah. Buah mungil yang kaya gizi ini pun dapat membantu dalam mengendalikan gangguan kesehatan.
Stroberi adalah makanan super yang bermanfaat baik bagi kesehatan kulit. Vitamin C di dalamnya membantu membangun resistensi terhadap infeksi, melawan peradangan, dan radikal berbahaya.
Stroberi dapat melangsingkan
Dengan segala kandungan baik di dalamnya, buah ini dapat menjadi antioksidan yang kuat bila dikonsumsi sehari-hari dan memiliki efek melangsingkan karena kekayaan seratnya.
Stroberi merupakan makanan anti-inflamasi yang mengembalikan fungsi hormon pengontrol berat badan. Stroberi menghasilkan hormon seperti adiponektin yang meningkatkan metabolisme dan meredam nafsu makan Anda.
Buah ini pun mampu membantu menjaga tingkat gula darah. Dengan demikian, stroberi merupakan buah pendukung pencapaian berat badan normal dan mencegah Anda dari obesitas.
Konsumsi dengan tepat
Untuk mendapatkan manfaat kesehatan dari makanan super ini, lewatkan penggunaan krim, gula tambahan berlebih atau whipped cream. Ketika Anda mengonsumsi gula tambahan berlebih, kalori dalam tubuh pun akan turut berlebih. Karenanya, biarkan buah lezat ini mengeluarkan rasa lezat alaminya.
(tty)
Wanita Lansia Nyaris Terpanggang di Rumah
DENPASAR – Dua rumah ludes dilahap si Jago Merah di Jalan Letda Reta, Yang Batu Kauh, Denpasar, Bali, siang tadi. Seorang perempuan lanjut usia nyaris terpanggang. Tujuh unit pemadam kebakaran (damkar) dikerahkan untuk menjinakkan api.
Berdasarkan keterangan dihimpun, dugaan awal api berasal dari kompor yang masih menyala dan ditinggalkan korban.
“Tadi ada asap saya lihat mengepul dari rumah Wayan Tingen dan Made Adri,” ujar Made Pugug, warga setempat, Selasa (27/3/2012).
Api dengan cepat menjalar dan melalap bangunan dan barang. Sebagian besar bahan bangunan adalah kayu sehingga api cepat menjalar.
Setelah satu jam berjibaku, petugas berhasil menjinakkan api. Meski rumah dan harta benda korban ludes, warga berhasil menyelamatkan nyawa perempuan lansia yang ditinggal pulang kampung oleh keluarganya.
”Dugaan kebakaran dari laporan warga ada yang melihat ada kompor masih menyala, kami masih kumpulkan data-data di lapangan,” kata Ardi Ganggas, Kabid Penanganan Darurat BPBD Denpasar.
(ton)
Ayu Fitriana 