operator perbandingan

buat form seperti ini :

masukkan script di bawah ini:

Private Sub cmdproses_Click()

If Val(txtnilai) <> 0 Then

If txtnilai <= 74 Then

txtpredikat = "kurang"

ElseIf txtnilai <= 75 Then

txtpredikat = "standar"

ElseIf txtnilai <= 85 Then

txtpredikat = "cukup"

ElseIf txtnilai <= 89 Then

txtpredikat = "baik"

Else

txtpredikat = "memuaskan"

End If

Else

MsgBox "inputkan dulu dong nilainya....!! ^_^"

txtnilai.SetFocus

txthasil = ""

End If

End Sub

Hasilnya :

perjalanan

Pada hari selasa 8 november 2011 pukul 04:30 wita, saya dan teman-teman berkumpul di smk ti airlangga samarinda untuk bersiap-siap melakukan perjalanan. Disana kami melakukan pengumpulan bagasi dan sarapan pagi. 

Setelah sarapan dan semua siap, kami berdoa agar selamat dan sampai dengan keadaan sehat, lalu kami memulai perjalanan dengan menggunakan bis pemerintah kota samarinda menuju kota Balikpapan. 

Sesampainya di kota Balikpapan kami menuju bandara sepinggan Balikpapan dan melakukan check in. 

Tepat pada pukul 10:25 wita pesawat udara lion terbang membawa kami menuju bandara internasional juanda Surabaya. Bandara Internasional Juanda adalah bandara terbesar dan tersibuk kedua di Indonesia.

KISAHKU

          Dua hari terakhir liburanku di villa di kampong ayahku, sama berlalu seperti biasa “mam, aku pergi ke danau ya ?” itulah kata yang terucap tiap pagi dari bibirku. Di danau ini lah satu-satunya tempat yang bisa membuat aku tenang dari berbagai macam masalah. Saat aku sedang memandang danau, 3orang lelaki yang bersepeda berhenti memperhatikanku dari jauh, namun ketika aku menoleh kearah mereka, mereka bergegas pergi seperti takut padaku. Sore pun tiba, aku berjalan pulang ke villa ternyata seorang lelaki yang tadi memperhatikanku didanau mengikutiku hingga di depan rumahku. “ssssssstttttttt, sssssttttttt !!!” caranya memanggilku karena tak tau namaku. “ya ?” jawabku mendekatinya. Ketika itu pun kami berkenalan dan janjian untuk pergi kedanau besok.

gombal

Cowok: Maaf mbak, jangan terlalu lama duduk dikursi itu, pindah deket saya saja?
Cewek: Loh? Emangnya kenapa??
Cowok: Biar gak dikerubung semut.. soalnya mbak manis sich?

Cowok : Aku didiagnosa Sakit jantung.
Cewek : Hah! Kok bisa?
Cowok : Iya. Jantungku selalu berdegup kencang bila dekat denganmu.

Cowok : Kemarin aku ke dokter mata. Kamu tau apa kata dokter?
Cewek : Apa? Parah?
Cowok : Kata dokter ada kamu di mataku.

Cowok : Kamu punya kunci apa aja sih?
Cewek : Kunci rumah, kunci mobil, kunci lemari. Emang ada apa?
Cowok : Punya nggak kunci untuk membuka hatimu kepadaku?

Cowok : Kamu punya peta nggak?
Cewek : Peta apa?
Cowok : Peta hatimu. Karena aku tersesat dan tak bisa keluar dari hatimu.

- Bapak kamu pasti seorang astronot ??? Soalnya aku melihat banyak bintang di matamu.

- Kamu pasti kuliah di seni pahat ya ??? Soalnya kamu pintar sekali memahat namamu di hatiku.

-Kakekmu pasti penambang ya ??? Soalnya banyak berlian di matamu.

-Kamu Mantan pencuri ya ??? Abisnya kamu mencuri hatiku sih!

Cowok : Aku suka senyum-senyum sendiri lho.
Cewek : Hah .. Gila Ya
Cowok : Nggak. Aku sedang mikirin kamu.

asmaul husna

1. Ar-Rahman (Ar Rahman) Artinya Yang Maha Pemurah....................................................... 2. Ar-Rahim (Ar Rahim) Artinya Yang Maha Mengasihi....................................................... 3. Al-Malik (Al Malik) Artinya Yang Maha Menguasai / Maharaja Teragung....................................................... 4. Al-Quddus (Al Quddus) Artinya Yang Maha Suci....................................................... 5. Al-Salam (Al Salam) Artinya Yang Maha Selamat Sejahtera....................................................... 6. Al-Mu'min (Al Mukmin) Artinya Yang Maha Melimpahkan Keamanan....................................................... 7. Al-Muhaimin (Al Muhaimin) Artinya Yang Maha Pengawal serta Pengawas....................................................... 8. Al-Aziz (Al Aziz) Artinya Yang Maha Berkuasa....................................................... 9. Al-Jabbar (Al Jabbar) Artinya Yang Maha Kuat Yang Menundukkan Segalanya....................................................... 10. Al-Mutakabbir (Al Mutakabbir) Artinya Yang Melengkapi Segala kebesaranNya....................................................... 11. Al-Khaliq (Al Khaliq)

script program kalkulator

buat form seperti gambar ini:

masukkan script berikut :

Dim nilai1, nilai2 As Double
Dim operator As String

Private Sub Form_Activate()
txtinput = "0"
End Sub

Private Sub cmd0_Click()
txtinput = Val(txtinput + "0")
End Sub

Private Sub cmd1_Click()
txtinput = Val(txtinput + "1")
End Sub

Private Sub cmd2_Click()
txtinput = Val(txtinput + "2")
End Sub

Private Sub cmd3_Click()
txtinput = Val(txtinput + "3")
End Sub