Membuat Program Pecahan Uag dengan VB

Nah bagi temen-temen yang suka ngatik-ngtik prograk, ni saya bikin program pecahan uang ...semoga bermanfaat ! (Sebenernya cuman memanfaatkan tugas kuliah aja.. heee :P)

Objek	Properties	Value
Form1	Caption	Program Pecahan Uang
Texbox1	Text Name	<kosong> uang
Texbox2	Text Name	<kosong> seratusribu
Texbox3	Text Name	<kosong> limapuluhribu
Texbox4	Text Name	<kosong> duapuluhribu
Texbox5	Text Name	<kosong> sepuluhribu
Texbox6	Text Name	<kosong> limaribu
Texbox7	Text Name	<kosong> duaribu
Texbox8	Text Name	<kosong> seribu
Texbox9	Text Name	<kosong> limaratus
Texbox10	Text Name	<kosong> duaratus
Texbox11	Text Name	<kosong> seratus
Texbox12	Text Name	<kosong> limapuluh
Texbox13	Text Name	<kosong> Sisa
Label1	Caption	Jumlah Uang
Label2	Caption	Ratusan ribu
Label3	Caption	Limapuluh ribuan
Label4	Caption	Duapuluh ribuan
Label5	Caption	Sepuluh ribuan
Label6	Caption	Lima ribuan
Label7	Caption	Duaribuan
Label8	Caption	Seribuan
Label9	Caption	Lima ratusan
Label10	Caption	Dua ratusan
Label11	Caption	Seratusan
Label12	Caption	Lima puluhan
Label13	Caption	Sisa
Label14	Caption	Nama Anggota
Chackbox1	Caption	Ginanjar Abdul Wahab (10110610)
Chackbox2	Caption	Pramudiya (10110626)
Command1	Caption	Proses
Command2	Caption	Reset
Command3	Caption	Keluar

Masukan coding di bawah ini di command1 Private Sub Command1_Click() Pecahan (uang.Text) End Sub	Masukan coding di bawah ini di command3 Private Sub Command3_Click() End End Sub
Masukan coding di bawah ini di command2 Private Sub Command2_Click() uang.Text = "" seratusribu.Text = "0" limapuluhribu.Text = "0" duapuluhribu.Text = "0" sepuluhribu.Text = "0" limaribu.Text = "0" duaribu.Text = "0" seribu.Text = "0" limaratus.Text = "0" duaratus.Text = "0" seratus.Text = "0" limapuluh.Text = "0" sisa.Text = "0" End Sub
Masukan coding di bawah ini di form1
Function Pecahan(ByVal uang As Long) As Integer  Dim Angka As Long Angka = uang Dim NominalUang(0 To 11) As Integer If Angka >= 10000 Then NominalUang(0) = Angka \ 100000 Angka = Angka Mod 100000 End If If Angka >= 50000 Then NominalUang(1) = Angka \ 50000 Angka = Angka Mod 50000 End If If Angka >= 20000 Then NominalUang(2) = Angka \ 20000 Angka = Angka Mod 20000 End If If Angka >= 10000 Then NominalUang(3) = Angka \ 10000 Angka = Angka Mod 10000 End If If Angka >= 5000 Then  NominalUang(4) = Angka \ 5000 Angka = Angka Mod 5000 End If If Angka >= 2000 Then  NominalUang(5) = Angka \ 2000 Angka = Angka Mod 2000 End If If Angka >= 1000 Then  NominalUang(6) = Angka \ 1000 Angka = Angka Mod 1000 End If	If Angka >= 500 Then   NominalUang(7) = Angka \ 500 Angka = Angka Mod 500 End If If Angka >= 200 Then  NominalUang(8) = Angka \ 200 Angka = Angka Mod 200 End If If Angka >= 100 Then  NominalUang(9) = Angka \ 100 Angka = Angka Mod 100 End If If Angka >= 50 Then   NominalUang(10) = Angka \ 50 Angka = Angka Mod 50 End If seratusribu.Text = NominalUang(0) limapuluhribu.Text = NominalUang(1) duapuluhribu.Text = NominalUang(2) sepuluhribu.Text = NominalUang(3) limaribu.Text = NominalUang(4) duaribu.Text = NominalUang(5) seribu.Text = NominalUang(6) limaratus.Text = NominalUang(7) duaratus.Text = NominalUang(8) seratus.Text = NominalUang(9) limapuluh.Text = NominalUang(10) sisa.Text = Angka End Function

a.       Tampilan Awal

                                                  

b.      Tampilan setelah di jalankan :

Read More

Raja yang Bijaksana

Dulu ada seorang gubernur yang baik dan sangat taat dalam beribadah. Suatu saat dia berencana untuk memperbaiki dan memperluas area sebuah mesjid di daerahnnya itu. Tapi sayang, rencana tersebut terhambat  gara-gara ada sebuah rumah orang yahudi di area pembangunan mesjid. Akhirnya sang gubernur meminta orang yahudi tersebut supaya pindah rumah.Berbagai cara pun di lakukan , tapi orang yahudi tersebut bersi keras tidak mau pindah meski telah tawarin dengan uang yang besar.

Setelah semua tawarannya di tolak gubernur itu pun berkata kepada orang yahudi tersebut "Kalau kamu tidak mau pindah maka saya akan memaksamu untuk pindah dan menggusur tempat tinggalmu". Mendengar perkataan tersebut, orang yahudi itu langsung marah "Bukannkah anda seorang khalifah(pemimpin)?Bukankah seorang khalifah harus berlaku adill?jika anda terus memaksaku maka aku akan melaporkann anda ke raja". "silahkan!" Ujar sang gubernur karena dia yakin bahwa sang raja akan mendukungnya.

Tidak butuh waktu yang singkat untuk menemui sang raja itu, harus butuh beberapa hari unttuk sampai ke kediaman sang raja. Tapi semua itu tidak menghalangi niat orang yahudi tersebut untuk menemui raja dan mencari keadilan.

Ketika sesampainnya di sana orang yahudi tersebut ditanya oleh penjaga istana "Hendak menemui siapa engkau?dan dari mana engkau datang?". "Aku datang dari negri yang sangat jauh dan ingin bertemu sang raja untuk mencari keadilan. Dimanakah aku bisa menemui beliau?" jawab orang yahudi. "Silahkan anda pergi ke mesjid di sana ada sebuah pohon kurma. Di sanalah engkau dapat mengadu dan menceritakan semua masalahmu."

Tanpa basa-basi lagi orang yahudi tersebut pergi ketempat yang di maksud sambil membayangkan bahwa sang raja sedang duduk di sebuah taman yang sangat indah dan hidup enak serta mewah, berbeda dengan dirinya yang hidup sengsara dan harus berjalan beberapa hari demi mencari sebuah keadilan.

Tak lama kemudian orang yahudi itu merasa senang karena dia melihat sebuah mesjid dan dia akan segera bertemu dengan sang raja. Tapi setelah sampai, orang yahudi tersebut langsung sedih karena dia tidak melihat taman yang indah dan singgasana  yang mewah, disana dia hanya melihat seseorang yang berbadan kekar yang sedah tidur di atas pelapah kurma yang sudah kering. Dia menyangka bahwa penjaga istana tersebut membohonginnya. Dengan perasaan was-was dia memaksakan pergi menemui orang yang berbadan kekar itu dan berkata "Apakah engkau tahu dimana aku bisa menemui sang raja". Orang kekar tersebut menjawab "Anda sudah menemui raja itu!". Dengan nada yang agak meledek orang yahudi itu berkata "Anda jangan bercanda?"."Aku adalah seorang raja dan aku tidak bercanda. jika anda bener ingin di tolong turuti perintahku" Jawab raja dengan tegas

Akhirnya dengan setengah tak percaya orang yahudi itu menceritakan maksud dan tujuannya. Setelah selesai berbicara, raja tersebut berkata "silahkan anda pergi dan carilah sebuah tulang. jika sudah ketemu anda boleh datang lagi ke sini". Dengan perasaan yang sangat kesal dia mencari sebuah tulang sambil berkata "akhh...  Raja macam apa dia itu?saya sudah datang jauh-jauh dan menceritakan semuanya, dia malah menyuruhku untuk mencari sebuah tulang"

Setelah dia menemukan tulang dan balik lagi untuk menemui sang raja, lengkap sudah penderitaannya karena sang raja hanya menggoreskan garis lurus di tulang itu dengan sebuah pedang dan menyuruh orang yahudi itu untuk pulang kembali dan menberikan tulang tersebut kepada gubernur yang akan menggusur rumahnya tersebut.


"Sialan....jauh-jauh pergi malah disuruh nyari tulang setelah itu di suruh pulang. Apa maksudnya semua ini?" dengan nada yang amat kesal sambil berjalan menuju tempat gubernur itu tinggal.

Setelah menempuh perjalanan yang sangat jauh akhirnya dia bisa menemui gubernur itu kembali dan menyerahkan tulang pemberian dari sang raja. Di sanalah puncak keanehan orang yahudi tersebut, tiba-tiba setelah tulang tersebut diterima oleh gubernur, dia langsung menggigil ketakutan bahkan menangis. Dengan sangat penasaran orang yahudi itu bertanya "Wahai khalifah(sebutan bagi gubernur/pemimpin), apa maksud dari semua ini?saya melaporkan kelakuan anda kepada raja tetapi raja malah menyuruh saya memberikan tulang ii kepada anda, setelah anda menerimanya tiba-tiba anda ketakutan dan menangis?tolong beri tahu apa yang terjadi!". Kemudian sang gubernur pun menjelaskan bahwa arti tulang tersebut adalah "Aku sebagai pemimpin harus berbuatl adil dan berbutlah baik/lurus(ini makna dari garis lurus pada tulang). Jika kamu tidak bisa berbuat adil maka pedangku ini  yang akan meluruskannmu(ini makna goresan dengan pedang)".

Keadilan itu tidak memandang kesiapa dan dimana!

Read More