Mencari Weton dengan Visual Basic 6.0 ~ Nant's Light. . .

Assalamu’alaikum Wr.Wb

Nantslight – Bingung mau update blog apa’an, nyari-nyari artikel mana yang menarik belum ada, ya udah buat nambahin postingan ni tadi saya smpetin buka-buka buku, dan akhirnya terlintas di benak saya untuk mengunggah artikel tersebut ke dalam blog saya.. (^_^).( Udah lama gak koding di VB..)

Pada kesempatan kali ini saya akan share tentang Mencari Weton dengan Visual Basic 6.0.

Ok Langsung aja, ni juga udah mulai ngantuk.. (^_^)

Buka Visual Basic 6.0 kemudian pilih StandardExe, lalu tambahkan 5 Label, 1 TextBox, 2CommandButton dan 1 Frame bila dperlukan..

Text untuk TextBox di kosongin aja..

Caption untuk Label1 = Tanggal Lahir

Caption untuk Label2 = Hari

Caption untuk Label3 = Pasaran

Name untuk Label4 dan Label5 tetap, Caption-nya di kosongin aja..

Caption untuk Command1 = Mulai

Caption untuk Command2 = Keluar

Kurang lebih seperti berikut..

Dan akan menjadi kurang lebih seperti berikut..

Kemudian masukkan kode di bawah ini..

--------***----------------------------------------------------

Dim hari(6), pasaran(4),
beda, harike, pasaranke

Private Sub Command1_Click()

Text1.Text = ""

Label4.Caption =
""

Label5.Caption =
""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

hari(0) = "Sabtu"

hari(1) = "Minggu"

hari(2) = "Senin"

hari(3) = "Selasa"

hari(4) = "Rabu"

hari(5) = "Kamis"

hari(6) = "Jum'at"

pasaran(0) =
"Kliwon"

pasaran(1) =
"Legi"

pasaran(2) =
"Pahing"

pasaran(3) = "Pon"

pasaran(4) =
"Wage"

End Sub

Private Sub
Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    beda = DateValue(Text1.Text) -
DateValue("01/01/1900")

    harike = (beda + 2) Mod 7

    pasaranke = (beda + 2) Mod 5

    Label4.Caption = hari(harike)

    Label5.Caption = pasaran(pasaranke)

    Command2.SetFocus

End If

End Sub

--------***----------------------------------------------------

Setelah itu silahkan jalankan aplikasi tersebut dengan cara menekan F5, Masukkan tanggal dengan format dd/mm/yyyy lalu tekan Enter.. Bagi yang tidak ingin repot-repot klik di sini.

Selamat Mencoba..

Semoga Bermanfaat..

Wassalamu’alaikum Wr.Wb..

These icons link to social bookmarking sites where readers can share and discover new web pages.