Mengetahui hari lahir dan bintang menggunakan program VB 6.0

terutama dari segi bahasa pemrogramannya ( duh bahasa pemrograman lagi, pusing dah ama logika dan codingnya ). Gak usah putus asa dulu dah, ini programnya masih sederhana banget dan hanya menggunakan beberapa kondisi seperti if, then, else, select case. Untuk hal ini kita akan bahas menggunakan Microsoft Visual Basic 6.0, emang udah rada jadul ci apalagi klo sekarang dilihat Microsoft udah ngeluarin lagi Visual Basic 2008. Ok dah lanjut aja.

1. Buka aplikasi visual basicnya, klik start kemudian all programs dan pilih Microsoft Visual Studio 6.0, pilih program VB nya.

2. Pilih standard.exe dan open

3. Buat tampilan form seperti pada tampilan berikut ini :

4. Berikut adalah listing yang didunakan :

Private Sub Command1_Click()
    'MENCARI HARI LAHIR
    Dim KodeHari As Byte
    Dim Hari As String
    KodeHari = Weekday(Text1)
    Select Case KodeHari
        Case 1: Hari = "Minggu"
        Case 2: Hari = "Senin"
        Case 3: Hari = "Selasa"
        Case 4: Hari = "Rabu"
        Case 5: Hari = "Kamis"
        Case 6: Hari = "Jumat"
        Case 7: Hari = "Sabtu"
    End Select
    Text2 = Hari
    
    'MENCARI BINTANG
    Dim Tg, Bl As Byte
    Dim Btg As String
    Tg = Day(Text1): Bl = Month(Text1)
    If (Tg >= 21 And Bl = 3) Or (Tg <= 20 And Bl = 4) Then Btg = "ARIES"
    If (Tg >= 21 And Bl = 4) Or (Tg <= 21 And Bl = 5) Then Btg = "TAURUS"
    If (Tg >= 22 And Bl = 5) Or (Tg <= 21 And Bl = 6) Then Btg = "GEMINI"
    If (Tg >= 22 And Bl = 6) Or (Tg <= 22 And Bl = 7) Then Btg = "CANCER"
    If (Tg >= 23 And Bl = 7) Or (Tg <= 22 And Bl = 8) Then Btg = "LEO"
    If (Tg >= 23 And Bl = 8) Or (Tg <= 22 And Bl = 9) Then Btg = "VIRGO"
    If (Tg >= 23 And Bl = 9) Or (Tg <= 22 And Bl = 10) Then Btg = "LIBRA"
    If (Tg >= 23 And Bl = 10) Or (Tg <= 21 And Bl = 11) Then Btg = "SCORPIO"
    If (Tg >= 22 And Bl = 11) Or (Tg <= 21 And Bl = 12) Then Btg = "SAGITARIUS"
    If (Tg >= 22 And Bl = 12) Or (Tg <= 20 And Bl = 1) Then Btg = "CAPRICORN"
    If (Tg >= 21 And Bl = 1) Or (Tg <= 19 And Bl = 2) Then Btg = "AQUARIUS"
    If (Tg >= 20 And Bl = 2) Or (Tg <= 20 And Bl = 3) Then Btg = "PISCES"
    Text3 = Btg
Command2.Enabled = True
Command1.Enabled = False
End Sub


Private Sub Command3_Click()
'listing untuk menampilkan pesan
x = MsgBox("Apakah anda yakin ingin keluar...?", vbYesNo + vbExclamation, "Perhatian")
If x = vbYes Then
End
End If
End Sub

Private Sub Command2_Click()
'listing untuk menghapus isi dari textbox
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
'listing untuk menempatkan cursor langsung pada text1
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
End Sub

Private Sub Form_Load()
'listing untuk menonaktifkan tombol OK dan Refresh serta text1 dan text2
Command1.Enabled = False
Command2.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub

Private Sub Text1_Change()
'listing untuk mengaktifkan tombol OK setelah text1 diisi
Command1.Enabled = True
End Sub

4. Dan ini adalah tampilan setelah aplikasi VB tersebut dijalankan :

Mudah bukan. Selamat mencoba

NB : Pastikan anda sudah merubah settingan untuk date/time pada PC anda ke local time ( Indonesia )

Posted in: