Melihat Tahun Kabisat Dengan Vb 6.0

Buatlah Form Seperti dibawah ini
Memuat foto

Lalu Masukanlah Listing Di Bawah Ini
Private Sub Command1_Click()
List1.Clear
For h = Text1 To Text2 Step 4
List1.AddItem h
Next h
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub P_Click()
Text1 = "": Text1.SetFocus
Text2 = ""
List1.Clear
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

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

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

Program Mencari Bilangan Prima Dengan Vb 6.0

Gambar
Bilangan prima adalah bilangan yang hanya bisa dibagi oleh 1 dan bilangan itu sendiri selain itu dianggap bukan prima. Khusus untuk angka 1 disebut bilangan bukan prima dan 2 disebut bilangan prima. Contoh bilangan prima : 2, 3, 5, 7, 11,…```````````````````````````````````````````````````````````````````````````````` Secara manual kita mencari bilangan itu prima atau tidak dengan cara : Contoh masukan angka adalah 5, maka proses penghitungannya adalah sebagai berikut : 1) 5 Mod 5 = 0 2) 5 Mod 4 = 1 3) 5 Mod 3 = 2 4) 5 Mod 2 = 1 5) 5 Mod 1 = 0 Perhatikan pada sub penghitungan 2-4 tidak ada angka 0 dalam rangkaian penghitungan tersebut membuktikan bahwa angka 5 tidak habis dibagi oleh angka-angka selain 1 dan 5 (bilangan itu sendiri), lain halnya jika yang bukan prima (coba kita masukkan angka 6 misalnya) 1) 6 Mod 6 = 0 2) 6 Mod 5 = 1 3) 6 Mod 4 = 2 4) 6 Mod 3 = 0 5) 6 Mod 2 = 0 6) 6 Mod 1 = 6 Perhatikan pada sub penghitungan 2-4 ternyata angka 0 dalam rangkaian p...
Baca selengkapnya