Membuat Aplikasi Tanggal Lahir menggunakan Program Visual Basic 6.0

1. Langkah pertama, untuk membuat suatu aplikasi, kita menggunakan software visual basic. caranya klik start, Microsoft visual studio 6.0, lalu pilih Microsoft visual basic 6.0

    2. Kemudian akan muncul tampilan sebagai berikut: 

    3. Kita pilih standard exe , lalu klik ok.

    4. Didalam program ini kita membutuhkan :

v           2 command button

v           1 form

v           5 text box

v           5 label

v           2 Timer

Dengan keterangan sebagai berikut

# Command1                                                               # Label1

Caption : Proses                                                          Caption : Masukan Tanggal

# Command2                                                               # Label2

Caption : Close                                                           Caption : Hari Lahir

# Form1                                                                       # Label3

Caption : Tanggal Lahir                                    Caption : Masukan Tanggal

Back Colour : &H00400000&

#Text Box1                                                                  # Label4

Text : (None)                                                               Caption : Bulan Lahir

#Text Box2                                                                  # Label5

Text : (None)                                                              Caption : Tahun Lahir

#Text Box3                                                                  # Timer1

Text : (None)                                                                Enabled : True

                                                                                    Interval  : 100

#Text Box4                                                                  left           : 240

Text : (None)

#Text Box5                                                                  # Timer2

Text : (None)                                                   Enabled : True

                                                                    Interval  : 100 dan Left : 720

Kemudian buatlah tampilan Tanggal Lahir sebagai berikut:

        5.  Langkah selanjutnya, Buka tampilan menu code untuk menuliskan kode program. Ada 4 langkah mudah untuk masuk ke menu code yaitu :

     # Klik pada icon View code yang terletak di pojok kanan atas tampilan VB

 

                       # Klik Kanan pada tampilan form, lalu pilih view code.

                      # Klik View pada toolbar, lalu pilih code.

 # Atau double klik pada command yang akan kita beri code.

6.   Setelah itu ketikkan kode program sebagai berikut:

Dim T, B As String

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

If txttgllahir.Text = "" Then

    MsgBox "isi masukan tanggal", vbInformation + vbOKOnly, "isi data"

    txttgllahir.SetFocus

Else

    txttgllahir.Text = Format(txttgllahir.Text, "mm/dd/yyyy")

    txthari.Text = Format(txttgllahir.Text, "dddd")

    txtbulan.Text = Format(txttgllahir.Text, "mmmm")

    txttahun.Text = Format(txttgllahir.Text)

    txttgl.Text = Format(txttgllahir.Text, "dd")

End If

End Sub

Private Sub Form_Load()

T = "           konversi tanggal dengan animasi bergerak"

judul.Caption = "     ini adalahhari lahir ku "

End Sub

Private Sub Timer1_Timer()

v1 = Right(judul.Caption, 1)

c1 = Len(judul.Caption)

b1 = Left(judul.Caption, c1 - 1)

judul.Caption = v1 + b1

Label1.ForeColor = &HFF00FF

End Sub

Private Sub Timer2_Timer()

v = Right(T, 1)

c = Len(T)

B = Left(T, c - 1)

T = v + B

frmtahunlahir.Caption = T

Label1.ForeColor = &H80FF80

End Sub

 7. Setelah itu, coba untuk menjalankan program dengan menekan  tombol F5 pada keyboard atau menekan icon segitiga yang berarti run, atau bisa juga menekan tombol  alt + R.

 

 8. Setelah itu jangan lupa untuk meyimpan dokumen  kedalam bentuk exe, agar saat kita membuka aplikasi kalkulator, program visual basic tidak ikut terbuka.

 

####SELAMAT MENCOBA###