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

 

 

 

Iklan

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)