LATIHAN BUAT JAM VB

Salam semua

Ada latihan buat sobat yang baru belajar Visual Basic

Yaitu latihan buat timer, kita langsung aja ke te…ka..pe….

Buat dulu formnya dengan dua label satu timer

Kalo sudah jadi formnya

Masukin apasih itu namanya kalo nga salah scrip mungkin coding kalinya

Dah masukin aja nih..............................:

Dim sHari As String    

Dim aHari

Private Sub Form_Load()

  aHari = Array("Minggu", "Senin", "Selasa", "Rabu","Kamis", "Jumat", "Sabtu")

  Timer1.Interval = 500

  Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

  sHari = aHari(Abs(Weekday(Date) - 1))

  lbltanggal.Caption = "" & sHari & ", " _

                   & Format(Date, "dd mmmm yyyy")

lbljam.Caption = Format(Time, "hh:mm:ss")

End Sub

Hasilnya akan seperti ini kalo bikinan saya

Selamat belajar

Semoga sukses

ZODIAK SEDERHANA VB

Semangat pagi……………..

Asyiknya belajar visual basic       

Setelah seharian kutak katik akhirnya bisa juga bikin Zodiak sederhana dengan Visual Basic

Itu juga dapat dari para blogger yang baik hati

Langsung aja sediakan alatnya pastinya vb 6.0  dan scrip code

Pertama buat form dengan 4label ,1combobox,3textbox dan 1comandbutton

Kira-kira gambarnya kaya gini

Terus tinggal masukin aja coding berikut scripnya :

Private Sub Form_Load()

    dtpLahir.Value = Now

    Call dtpLahir_Change

End Sub

Private Sub dtpLahir_Change()

    Dim a As String, b As String

    Dim c As String

    Dim d As String

   

    Dim tgl As Integer, bln As Integer, thn As Integer

    tgl = Format(dtpLahir.Value, "dd")

    bln = Format(dtpLahir.Value, "MM")

    thn = Format(dtpLahir.Value, "yyyy")

   

    'hari

    Select Case Weekday(dtpLahir.Value)

        Case 1: a = "Minggu"

        Case 2: a = "Senin"

        Case 3: a = "Selasa"

        Case 4: a = "Rabu"

        Case 5: a = "Kamis"

        Case 6: a = "Jum'at"

        Case 7: a = "Sabtu"

    End Select

   

    Select Case DateDiff("d", CDate("1/1/1900"), dtpLahir.Value) Mod 5

        Case 0: b = "Pahing"

        Case 1: b = "Pon"

        Case 2: b = "Wage"

        Case 3: b = "Kliwon"

        Case 4: b = "Legi"

    End Select

   

    'bintang

    Select Case bln

        Case 1: c = IIf(tgl <= 19, "Capricorn", "Aquarius")

        Case 2: c = IIf(tgl <= 19, "Aquarius", "Pisces")

        Case 3: c = IIf(tgl <= 20, "Pisces", "Aries")

        Case 4: c = IIf(tgl <= 20, "Aries", "Taurus")

        Case 5: c = IIf(tgl <= 21, "Taurus", "Gemini")

        Case 6: c = IIf(tgl <= 21, "Gemini", "Cancer")

        Case 7: c = IIf(tgl <= 21, "Cancer", "Leo")

        Case 8: c = IIf(tgl <= 21, "Leo", "Virgo")

        Case 9: c = IIf(tgl <= 22, "Virgo", "Libra")

        Case 10: c = IIf(tgl <= 23, "Libra", "Scorpio")

        Case 11: c = IIf(tgl <= 22, "Scorpio", "Sagitarius")

        Case 12: c = IIf(tgl <= 22, "Sagitarius", "Capricorn")

    End Select

   

    'shio

    Select Case thn - ((Int(thn / 12) * 12))

        Case 0: d = "Kera"

        Case 1: d = "Ayam"

        Case 2: d = "Anjing"

        Case 3: d = "Babi"

        Case 4: d = "Tikus"

        Case 5: d = "Lembu"

        Case 6: d = "Macan"

        Case 7: d = "Kelinci"

        Case 8: d = "Naga"

        Case 9: d = "Ular"

        Case 10: d = "Kuda"

        Case 11: d = "Domba"

    End Select

   

    txtHari.Text = a & " " & b

    txtBintang.Text = c

    txtShio.Text = d

End Sub

Kalau sudah dimasukan scripnya langsung aja dirun

Kira-kira jadi kaya gini

Selamat belajar

Indahnya berbagi……………..