Menentukan Bilangan Ganjil Dan Genap Dengan VB 6.0



Buatlah Form Seperti Di Bawah Ini:

Memuat foto
Masukkan Listing Dibawah Ini:

Private Sub Command1_Click()
bil = Val(Text1)
If bil Mod 2 = 0 Then
ket = "GENAP"
Else
ket = "GANJIL"
End If
Text2 = ket
End Sub

Private Sub Command2_Click()
End
End Sub



Program ini dibuat oleh Heri Afrizal di bireuen
http://hery-pc.blogspot.com

Komentar

Posting Komentar

Tulis komentar anda disini.....

Postingan populer dari blog ini

Inilah Tempat Turunnya Nabi Isa dan 7 Ciri Kedatangannya

Gambar
Nabi Isa  Alaihissalam  -- yang oleh orang Nasrani disebut Yesus -- menjadi bahan kontroversi antara Islam, Nasrani, dan Yahudi. Orang Yahudi mempercayai bahwa mereka telah membunuh Isa, dan orang-orang Nasrani meyakini bahwa Isa telah disalib dan dikubur. Namun, kaum Muslimin meyakini dengan jelas dan tegas bahwa Nabi Isa tidak disalib atau dibunuh, melainkan 'diangkat' oleh Allah SWT. Nabi Isa akan kembali ke dunia, di suatu masa, di akhir zaman. Nabi Isa Alaihissalam adalah salah seorang dari lima nabi dan rasul yang diberi gelar 'Ulul Azmi, yakni memiliki sejumlah keistimewaan. Kelima nabi dan rasul yang mendapat gelar itu adalah Nabi Nuh, Ibrahim, Musa, Isa, dan Muhammad SAW. ''Ada 33 hadis shahih yang menegaskan bahwa Nabi Isa akan kembali turun ke bumi. Bahkan, ada yang mengatakan sampai 90 hadis,'' tutur Dr Muslih A Karim, dosen Pascasarjana Universitas Islam Negeri (UIN) Syarif Hidayatullah Jakarta, pada sebuah kesempatan. Dia lalu menye...
Baca selengkapnya

Melindungi Dokumen Word Agar Tidak Bisa Diedit

Gambar
Pernahkah Anda mengalami kejadian di mana hasil ketikkan Anda tiba-tiba berubah tidak karuan yang kemudian mengakibatkan pekerjaan Anda menjadi kacau dan tidak terselesaikan? Saya ingat betul bagaimana perasaan kesal yang teramat sangat pada saat mengalami masalah itu, alhasil seharian saya marah-marah dan ngomel ke semua teman kos tapi tetap tugas tidak selesai. Sialnya lagi tidak ada satupun teman kos yang mengaku. Komputer yang digunakan secara berjamaah oleh banyak orang rentan akan masalah-masalah seperti ini, tidak hanya masalah dokumen word saja, tapi bahkan yang berkaitan dengan file-file pribadi di dalam Windows Explorer. Saya yakin Anda juga akan merasa marah bercampur kesal jika mengalami hal tersebut, tapi untuk Anda yang tidak ingin mengalami penderitaan itu. Ada satu cara untuk mencegah tindakan editing baik disengaja ataupun tidak disengaja misalnya akibat ulah anak Anda yang masih balita dan belum paham apa yang dilakukan dan kekacauan yang bisa ditim...
Baca selengkapnya