Sabtu, 23 Agustus 2014

MEMILIH PASANGAN HIDUP

7 Checklist "Memilih Pasangan Hidup Anda" - Ps. Philip Mantofa

Ps. Philip Mantofa
Kerana itu, saudara-saudara, demi kemurahan Allah aku menasihatkan kamu, supaya kamu mempersembahkan tubuhmu sebagai persembahan yang hidup, yang kudus dan yang berkenan kepada Allah: itu adalah ibadahmu yang sejati. Janganlah kamu menjadi serupa dengan dunia ini, tetapi berubahlah oleh pembaharuan budimu, sehingga kamu dapat membedakan manakah kehendak Allah: apa yang baik, yang berkenan kepada Allah dan yang sempurna. 
(Roma 12: 1-2)

Siapakah Pasangan Hidupku?

Salah satu pertanyaan terbesar dalam hidup anak-anak muda adalah “Siapakah pasangan hidupku?” Dan seringkali kita mendapatkan jawaban-jawaban yang bersifat abstrak dari orang-orang di sekeliling kita, seperti: “Dengarlah suara Tuhan...” Permasalahannya adalah, saat cinta melanda, perasaan kita begitu berkecamuk sehingga suara hati pun boleh terdengar seperti suara Tuhan. Yang kita perlukan adalah tuntunan!

Jodoh memang dari Tuhan, namun memilih dengan baik adalah tanggungjawab kita kepada-Nya. Kerana kemurahan-Nya, Tuhan telah memberikan kebebasan pada kita untuk memilih. Oleh sebab itu, pilihlah dengan persiapan yang matang—yakni kehidupan kita yang terlebih dahulu dipersembahkan kepada Tuhan, serta memiliki tujuan hidup yang benar. Selain itu, setiap keputusan yang penting harus melalui proses pertimbangan yang matang. Di sinilah pengetahuan kita yang benar akan Tuhan—dan pembaharuan budi kita—akan sangat menolong dan menguntungkan.

Inilah 7 checklist dari saya untuk membantu anda memilih dengan baik dan tanggungjawab—dan semoga keabstrakan yang ada di hati anda akan segera terjawab:

1. Pilihlah orang yang komitmen bertumbuh secara peribadi dalam Kristus.

Bukan hanya sekali beriman kepada Kristus, tetapi juga terus bertumbuh di dalam Dia. Hati-hati dengan orang yang menggantungkan pertumbuhan rohaninya sendiri semata-mata kepada kita. Contohnya, orang yang suka mengancam untuk meninggalkan Tuhan jika ia sampai diputus oleh pacarnya. Ini tidak sihat! Memang, setiap manusia pasti memerlukan orang lain dan tidak ada orang yang dapat berdiri sendiri. Namun bagaimanapun juga, iman adalah urusan peribadi.

2. Pilihlah orang yang visi hidupnya menyenangkan Tuhan.

Carilah orang yang visi hidupnya produktif; ertinya, seseorang yang punya sasaran hidup yang jelas apapun pekerjaannya. Bertanyalah kepadanya tentang apa yang menjadi rencana hidupnya dan ke arah mana nanti karir serta keluarganya kelak akan dibawa. Nilailah apakah ia melibatkan Tuhan atau tidak.

3. Pilihlah orang yang jujur.

Yang dimaksud dengan jujur adalah ketulusan seseorang yang tidak berbelat-belit mahupun menutup-nutupi sesuatu yang tidak benar. Ujilah apakah dalam perkara-perkara kecil ia suka berbohong, kerana seorang pendusta tidak akan menjadi pasangan hidup yang baik. Memang tidak ada manusia yang sempurna, tetapi ada hal mutlak seperti kejujuran. Tanpa itu, sebuah hubungan tak punya pegangan!

4. Pilihlah orang yang dewasa dan bertanggungjawab.

Umur tidaklah menjamin kedewasaan seseorang. Kenalilah seseorang dari cara berfikirnya tentang hidup dan orang lain. Cara yang terbaik untuk mengukur kematangan seseorang adalah dari tindakannya ketika ia di dalam tekanan—inilah yang memisahkan seorang jejaka sejati dari sekadar laki-laki, seorang wanita bijaksana dari sekadar kaum hawa. Oleh kerana itu, bersahabatlah dahulu dan jangan terburu-buru!

5. Pilihlah orang yang gambar dirinya sihat.

Orang tidak akan dapat mengasihi pasangannya jika ia tidak dapat “mengasihi” dirinya sendiri dahulu. Gambar diri yang sihat adalah permulaan dari sebuah hubungan yang bahagia. Lawan kata dari “gambar diri yang sihat” ada banyak, contohnya: terlalu mengikat sebelum waktunya, cemburuan yang melewati batas, suka mengancam untuk bunuh-diri. Dari melihat bagaimana seseorang menjaga dirinya sendiri dan mendengarkan pendapat orang itu tentang hidupnya, kita dapat belajar banyak tentang gambar dirinya.

6. Pilihlah orang yang sikapnya positif terhadap hidup.

Sikap hati yang positif adalah aset dalam pernikahan. Bayangkan jikalau anda harus tinggal serumah dengan orang yang menggerutu melulu—seumur hidup anda. Mengeluh sekali-kali sangatlah manusiawi, tapi mempunyai hati yang senantiasa pahit dan negatif adalah pilihan hidup. Pilihlah hidup dengan pasangan yang terbukti masih dapat “tertawa” akan hari-esoknya!

7. Pilihlah orang yang anda cintai.

Cinta-lah yang akhirnya membawa kita masuk ke dalam pernikahan. Rasa tertarik kepada pasangan anda, “sengaja” saya taruh di checklist yang terakhir bukan kerana hal itu tidak penting, melainkan agar anda objektif dalam memilih dan mempertimbangkan kriteria pasangan hidup anda. Tanpa rasa cinta, jangan pernah melangkah ke dalam pernikahan jika hanya kerana terpaksa. Sekalipun perasaan boleh menyusul, romantisme tetap harus ada!


Ingatlah bahwa memilih pasangan hidup dengan baik dan benar merupakan salah satu keputusan terpenting yang Tuhan percayakan kepada kita. 7 Checklist ini bukanlah hukum taurat, melainkan hikmat dan kemurahan Tuhan dalam menuntun kita. Oleh sebab itu, sebelum membuat pilihan, berdoalah dan libatkanlah Tuhan selalu. Buatlah keputusan bersama-Nya, lagu pernikahan sedang menunggu anda...

Suami Irene,

Philip Mantofa


(Diterjemah daripada artikel blog Philip Mantofa bertajuk "7 Checklist 'Siapakah Pasangan Hidupku?'" 

Sabtu, 16 Agustus 2014

MENCINTAI ATAU DICINTAI


Ketika kita memilih bersama dengan seseorang walaupun apapun yang terjadi, bahkan ketika kita menyadari bahwa masih banyak orang lain yang lebih menarik, lebih pandai, lebih kaya, daripada pasanganmu, dan tetap memilih untuk mencintainya, Itulah pilihan…Perasaan cinta, simpatik, tertarik, datang bagai kesempatan pada kita. Tetapi Cinta sejati yang abadi adalah Pilihan…. Pilihan yang kita lakukan…


Kita ada di dunia bukan untuk mencari seseorang yang sempurna untuk dicintai, TETAPI untuk… Belajar mencintai orang yang tidak sempurna, Dengan cara yang sempurna…
Sumber:
http://billyliando.net/kesempatan-dan-pilihan-mencintai/
http://hasansuryawan.blogspot.com/2013/05/mencintai-ataukah-dicintai.html

TUHAN LEBIH TAHU DARI PADA SAYA

Suatu hari sekitar jam 12 siang saya hendak pergi kesuatu tempat dengan menggunakan sepeda motor.

Untuk sampai ke tempat itu saya harus melewati lampu merah. Hijau….Kuning …. Merah, yah berharap lampu hijau menyala lebih lama namun sayapun harus berhenti ketika lampu merah menyalah. Dengan hati yang pasrah, matahari panas dan dalam keadaah lapar yah mo bagaimana lagi.... :).  Saya lalu melihat ke depan sisi jalan ada sederatan kendaraan yang juga  berhenti karena lampu merah.

Pada saat pandangan saya kedepan, saya melihat ada seorang ayah dengan sepeda motor, menutup mulut dan hidung anaknya yang saat itu bersama dengan dia “gonjeng depan”. Anak itu berusaha melepas tangan ayahnya karena merasa tidak nyaman dan menghalangi pandangannya. Namun semakin ia berusaha melepas tangan ayahnya. Ayahnya tetap menaruh telapak tangannya pada hidung dan mulutnya dengan maksud agar anaknya tidak menghirup debu dan asap kendaraan, dan untuk tetap menjaga kesehatan anaknya.

Mungkin saat itu terlihat lucu, namun kemudian saya berpikir, tanpa disadari kitapun sering seperti demikian, saat kita menghadapi suatu hal yang membuat kita tidak nyaman, kita kemudian mengeluh kepada Tuhan, kenapa saya harus menghadapi ini, atau itu. Saat itu saya belajar bahwa seperti pada anak tadi, pola pikirnya tidak akan sama dengan ayahnya. Yang pasti bahwa ayahnya berbuat demikian untuk kebaikan anak tersebut, yaitu untuk menjaga kesehatan anak itu. Demikian juga kita dengan Tuhan pemikiran Tuhan lebih dari pada pikiran kita manusia yang terbatas. Termenung dalam hati " Iya juga ya Tuhan aja pencipta alam semesta, dan bisa mengatur semua ciptaannya di muka bumi ini, ada matahari yang muncul siang hari, bulan dimalam hari dan banyak lagi." So alasan apa yang manusia harus pakai untuk mengeluh.   Yang pasti bahwa kalau sang ayah di dunia ini dapat melakukan yang terbaik untuk anaknya. Apa lagi Tuhan kepada kita sebagai anak-Nya, Karena ia pasti merancangangan segala sesuatu untuk mendatangkan kebaikan buat kita.


HAVE  NICE  DAY & KEEP YOUR  SPIRIT


image source: http://natal25desember.com/

Senin, 17 Juni 2013

KALKULUS

Kalkulus???
Mata kuliah yang satu ini sudah yang kadang bikin mahasiswa streeeees...... khususnya mahasiswa fakultas teknik.......................
Koq streees..... iyo to su open book tapi t_kadang tra bisa jawab>.....
ni berikut hasil mid>>> bisa di jadikan contoh soallah paling tidak.....


Minggu, 16 Juni 2013

DIAGNOSA PENYAKIT

Buat teman-teman yang ingin mengembangkan software diagnosa penyakit, ini ada sedikit prototype >>>> program ini saya beri nama DOCE..... Doce???
 Dokter Cepat >> maksudnya>>>>
download program:
http://downloads.ziddu.com/download/23926197/DOCE.rar.html


Tampilan Utama








Coding
Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog.Show
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog16.Show
ElseIf Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog17.Show
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 1 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog.Show
ElseIf Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 1 And Check6.Value = 1 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog3.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 1 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog3.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 1 And Check6.Value = 1 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog3.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 1 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog3.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 1 And Check8.Value = 1 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog6.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog18.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 1 Then
Dialog19.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 1 And Check8.Value = 1 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog6.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 1 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog6.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 1 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 1 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog9.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 1 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog9.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 1 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog9.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 1 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog9.Show
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 1 Then
Dialog12.Show
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 1 Then
Dialog12.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 1 Then
Dialog12.Show
Else

Dialog15.Show

End If

End Sub

Private Sub Command2_Click()
Dialog20.Show
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Picture1_Click()
Command1.Value = True

End Sub

Private Sub Picture10_Click()
Check9.Value = 1 And Check9.Value = 0
End Sub

Private Sub Picture11_Click()
Check5.Value = 1 And Check5.Value = 0
End Sub

Private Sub Picture12_Click()
Check11.Value = 1 And Check11.Value = 0
End Sub

Private Sub Picture13_Click()
Check12.Value = 1 And Check12.Value = 0
End Sub

Private Sub Picture2_Click()
Check1.Value = 1 And Check1.Value = 0
End Sub

Private Sub Picture3_Click()
Check2.Value = 1 And Check2.Value = 0
End Sub

Private Sub Picture4_Click()
Check3.Value = 1 And Check3.Value = 0
End Sub

Private Sub Picture5_Click()
Check4.Value = 1 And Check4.Value = 0
End Sub

Private Sub Picture6_Click()
Check10.Value = 1 And Check10.Value = 0
End Sub

Private Sub Picture7_Click()
Check6.Value = 1 And Check6.Value = 0
End Sub

Private Sub Picture8_Click()
Check7.Value = 1 And Check7.Value = 0
End Sub

Private Sub Picture9_Click()
Check8.Value = 1 And Check8.Value = 0
End Sub

Private Sub Timer1_Timer()
Label3.ForeColor = RGB(241, 89, 111) * Rnd

End Sub


Klw mo download ini linknya http://downloads.ziddu.com/download/23926197/DOCE.rar.html


Minggu, 09 Desember 2012

SIMULASI PENGISIAN BBM


download : http://downloads.ziddu.com/download/23940199/SIMULASI-BBM.rar.html
 Coding :
Option Explicit
Private hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private operator As Integer
Private NilaiBAru As Boolean
im Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer
D
Private Sub haus()
End Sub
Private Sub Command11PlusMinus_Click()
If NilaiBAru Then
Text1Display.Text = "-"
ElseIf Left$(Text1Display.Text, 1) = "-" Then
Text1Display.Text = Right$(Text1Display.Text, 2)
Else
Text1Display.Text = "-" & Text1Display.Text
End If
End Sub
Private Sub Command11_Click()
End Sub
Private Sub Command10_Click()
ue
End Sub
Private Sub alih_Click()
Timer2.Enabled = False
MsgBox ("BENSIN ANDA TELAH DIISI"), vbInformation
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command10Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command12Koma_Click()
If InStr(Text1Display.Text, ".") Then
Beep
Else
If NilaiBAru Then
Text1Display.Text = "."
NilaiBAru = False
Else
Text1Display.Text = Text1Display.Text & "."
End If
End If

End Sub

Private Sub Command13Operator_Click(Index As Integer)
Command19SamaDengan_Click
operator = Index
NilaiBAru = True
End Sub

Private Sub Command14_Click()
Image3.Visible = True
Image4.Visible = False


End Sub

Private Sub Command14Operator_Click(Index As Integer)
Command19SamaDengan_Click
operator = Index
NilaiBAru = True
End Sub

Private Sub Command15_Click()
Image4.Visible = True
Image3.Visible = False
Image5.Visible = False
Command1.Visible = False
Command3.Visible = False
jalan.Visible = True
stopp.Visible = True
ju.Visible = False
mun.Visible = False
End Sub

Private Sub Command15Operator_Click(Index As Integer)
Picture1.Visible = True
Picture3.Visible = False
Text1.Text = "0"
Command4(0).Visible = True
Command5.Visible = False

End Sub

Private Sub Command16Operator_Click()
End Sub

Private Sub Command17ClearEntry_Click()

hasil = 0
operator = opNol
End Sub
Private Sub Command18Clear_Click()
Text1Display.Text = ""
Picture3.Visible = True
Picture4.Visible = True
Timer2.Enabled = False
Command6.Caption = "Start"
Label8.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0
End Sub

Private Sub Command19SamaDengan_Click()
Dim hasilbaru As Double
If Text1Display.Text = "" Then
hasilbaru = 0
Else
hasilbaru = CDbl(Text1Display.Text)
End If
Select Case operator
Case opNol
hasil = hasilbaru
Case opTambah
hasil = hasil + hasilbaru
Case opKurang
hasil = hasil - hasilbaru
Case opKali
hasil = hasil * hasilbaru
Case opBagi
'Tidak bisa dibagi nol
If hasilbaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalkulator Error"
Call Command18Clear_Click
Else
hasil = hasil / hasilbaru
End If
End Select
operator = opNol
NilaiBAru = True
Text1Display.Text = Format$(hasil)
End Sub

Private Sub Command1Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command2_Click()
Command5.Visible = True
Command4(0).Visible = False
Picture2(1).Visible = True
Picture4.Visible = False
Text2.Text = "0"

End Sub

Private Sub Command2Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False


End Sub

Private Sub Command3Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub
Sub rp()
Text1.Text = Text1.Text + 20
End Sub
Sub ltr()
Text2.Text = Text2.Text + 0.01
End Sub

Private Sub Command4_Click(Index As Integer)
Text1.Text = Text1.Text + 20
Dim a As Integer
a = Val(Text1.Text)
Text2.Text = a / 4500

End Sub

Private Sub Command4Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command5_Click()
Text2.Text = Text2.Text + 0.01
Dim b As Single
b = Val(Text2.Text)
Text1.Text = 4500 * b
End Sub

Private Sub Command5Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub


Private Sub Command6_Click()




Timer3.Enabled = True

If Command6.Caption = "Start" Then
Label9.Caption = Format(Time(), "hh:mm:ss")
Command6.Caption = "Stop"
Timer2.Enabled = True
Command7.Enabled = False
ElseIf Command6.Caption = "Stop" Then
Label10.Caption = Format(Time(), "hh:mm:ss")
Command6.Caption = "Start"
Label11.Caption = Format((CDate(Label10.Caption) - CDate(Label9.Caption)), "hh:mm:ss")
Command6.Enabled = False
Command7.Enabled = True
Timer2.Enabled = False
End If

End Sub

Private Sub Command6Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command7_Click()
Label9.Caption = "00:00:00"
Label10.Caption = "00:00:00"
Label11.Caption = "00:00:00"

Timer2.Enabled = False

Command6.Enabled = True
Label8.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0
End Sub

Private Sub Command7Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command8_Click()



End Sub

Private Sub Command9_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command8Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command9Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub


Private Sub edwin_Click()
Image5.Visible = True
Image4.Visible = False
Image3.Visible = False
Command1.Visible = False
Command3.Visible = False
jalan.Visible = False
stopp.Visible = False
ju.Visible = True
mun.Visible = True
End Sub

Private Sub Form_Click()
Form4.Show
End Sub

Private Sub Form_Load()
Command4(0).Visible = False
Command5.Visible = False
Label8.Caption = "00 : 00 : 00,00"
Timer1.Enabled = False
Timer2.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Image3.Visible = False
Image4.Visible = False

jalan.Visible = False
stopp.Visible = False

Command1.Visible = False
Command3.Visible = False

ju.Visible = False
mun.Visible = False
End Sub

Private Sub motor_Click()

End Sub

Private Sub hitung_Click()
motor.Show

End Sub

Private Sub jalan_Click()
Timer4.Enabled = True
End Sub

Private Sub ju_Click()
Timer5.Enabled = True
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub mob_Click()
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
jalan.Visible = False
stopp.Visible = False
Command1.Visible = True
Command3.Visible = True
ju.Visible = False
mun.Visible = False
End Sub

Private Sub stop_Click()
Timer4.Enabled = False
End Sub

Private Sub mun_Click()
Timer5.Enabled = False
End Sub

Private Sub stopp_Click()
Timer4.Enabled = False
End Sub

Private Sub Text1_Change()
If Text1.Text = Text1Display.Text Then
Command4(0).Visible = False
MsgBox "ANDA TELAH MENGISI BENSIN", vbInformation
alih.SetFocus
End If

End Sub

Private Sub Text1Display_Change()
Text1Display.SelStart = Len(Text1Display.Text)
End Sub

Private Sub Text1Display_GotFocus()
Text1Display_Change
End Sub

Private Sub Text1Display_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"














0
Case "1"


1
Case "2"
2
Case "3"
3
Case "4"
4
Case "5"
5
Case "6"
6
Case "7"
7
Case "8"
8
Case "9"
9
Case "*", "x", "X"

Case "+"

Case vbCrLf, vbCr, "="

Case "-"

Case "."

Case "/"

Case "C", "c"

End Select
KeyAscii = 0
End Sub

Private Sub Text1Display_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
0
Case vbKeyNumpad1
1
Case vbKeyNumpad2
2
Case vbKeyNumpad3
3
Case vbKeyNumpad4
4
Case vbKeyNumpad5
5
Case vbKeyNumpad6
6
Case vbKeyNumpad7
7
Case vbKeyNumpad8
8
Case vbKeyNumpad9
9
Case vbKeyMultiply

Case vbKeyAdd

Case vbKeySeparator

Case vbKeySubtract

Case vbKeyDivide

Case vbKeyDecimal

Case vbKeyBack, vbKeyDelete
hapus
End Select
KeyCode = 0
End Sub

Private Sub Text2_Change()

If Text2.Text = Text1Display.Text Then
Command5.Visible = False
MsgBox "ANDA TELAH MENGISI BENSIN", vbInformation
alih.SetFocus

End If

End Sub

Private Sub Timer1_Timer()
Dim x As Integer

x = Image3.Left - 100
If Image3.Left <= -5500 Then
Image3.Left = 16110
Else
Image3.Left = x
End If


End Sub

Private Sub Timer2_Timer()
mDetik = mDetik + 5
If mDetik = 100 Then
mDetik = 0
       
Detik = Detik + 1
If Detik = 60 Then
Detik = 0
           
Menit = Menit + 1
If Menit = 60 Then
Menit = 0
Jam = Jam + 1
End If
           
End If
End If
   
Label8.Caption = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

End Sub

Private Sub Timer3_Timer()
Form1.Caption = "Sekarang Jam : " & FormatDateTime(Time(), vbLongTime)
End Sub

Private Sub Timer4_Timer()
Dim z As Integer

z = Image4.Left - 100
If Image4.Left <= -5500 Then
Image4.Left = 16110
Else
Image4.Left = z
End If

End Sub

Private Sub Timer5_Timer()
Dim ww As Integer

ww = Image5.Left - 100
If Image5.Left <= -5500 Then
Image5.Left = 16110
Else
Image5.Left = ww
End If
End Sub


JIKA  ANDA BERMINAT  UNTUK MENGEMBANGKAN PROGRAMNYA HUB.. wildamoktofiel@gmail.com