! Tutorial Membuat Animasi Bola Bergerak-Gerak Di Visual Basic 6.0

Pada tutor ini, Anda akan membuat suatu aplikasi contoh pembuatan aplikasi animasi sederhana. dalam hal ini anda akan membuat bola yang bergerak-gerak baik itu ke atas, ke samping atau ke bawah. Untuk lebih jelasnya, ikuti langkah-langkah pembuatannya sebagai berikut:

1. Buatlah aplikasi baru kemudian desain form tersebut dengan menambahkan dua buah CommandButton,
    sebuah Timer dan lima buah Image.

2. Sempurkan desain form dengan menambahkan gambar pada kelima kontrol image tersebut, misalnya
    gambar bola basket yg terdapat pada direktori anda. jika pada direktori anda sama sekali tidak ada
    gambar
    yg menyerupai bola, anda dapat membuatnya terlebih dahulu dengan menggunakan MSPaint milik
    Windows.
    Berikut adalah hasil akhir desain form tersebut.

3. Ketikkan listing programnya bro seperti ini :

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = False
Form1.BackColor = vbWhite
Command1.Caption = "Start"
Command2.Caption = "Stop"
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub Timer1_Timer()
If Image1.Visible = True Then
    Image1.Visible = False
    Image2.Visible = True
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = False
ElseIf Image2.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = True
    Image4.Visible = False
    Image5.Visible = False
ElseIf Image3.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = True
    Image5.Visible = False
ElseIf Image4.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = True
ElseIf Image5.Visible = True Then
    Image1.Visible = True
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = False
End If
End Sub






4. Jalankan aplikasi tersebut dan klik pada tombol Start dan lihat hasilnya. untuk proses pengembalian
    aplikasi tersebut, cukup klik  Stop.

READ MORE - ! Tutorial Membuat Animasi Bola Bergerak-Gerak Di Visual Basic 6.0

! Tutorial Membuat Efek Tampilan Teks 3D Pada Form

Untuk pembuatan tip ini hasil didapatkan adalah adanya efek 3D pada teks di dalam area dorm. berikut adalah gambar hasil uji coba aplikasi dan contoh penulisan listing programmnya.

Ini listing programnya :)


Private Sub Form_Load()
Me.FontBold = True
Me.FontName = "Comic Sans MS"
Me.BackColor = vbBlue
End Sub

Private Sub Form_Paint()
Me.CurrentX = 80
Me.CurrentY = 80
Me.FontSize = 24
Me.ForeColor = vbWhite
Print "Kaca Mata IT"
Me.CurrentX = 40
Me.CurrentY = 40
Me.FontSize = 24
Me.ForeColor = vbBlack
Print "Kaca Mata IT"
Me.CurrentX = 20
Me.CurrentY = 20
Me.FontSize = 24
Me.ForeColor = vbRed
Print "Kaca Mata IT"
End Sub


Pada hasil aplikasi jadi di atas, Anda bisa mengubah tampilan/settingan fontnya sesuai yg anda inginkan, dan warna warna nya pun dapat di ubah sebagai efek 3D sesuai pilihan anda :) Let's Try It

READ MORE - ! Tutorial Membuat Efek Tampilan Teks 3D Pada Form

! Tutorial membuat berkedip pada TitleBar form visual basic 6.0

Anda dapat mencoba trik berikut ini jika anda ingin tampilan form yang anda buat menjadi lebih menarik.
Trik berikut ini akan menghasilkan efek berkedip pada TitleBar form tersebut.

Berikut langkah-langkah pembuatannya :

1. Siapkan aplikasi baru, lalu desainlah form tersebut dengan menambahkan sebuah Timer.

2. Tuliskan listing program selengkapnya berikut :

Private Declare Function FlashWindow Lib "USER32"_

(ByVal HWND As Long, BYVALBINVERT As Long) As Long

Private Sub Form_Load ()

Timer1.Interval = 100

End Sub

Private Sub Timer1.Timer ()

Dim nReturnValue As Long

nReturnValue = FlashWindow (form1.HWND, True)

End Sub

3. Jalankan aplikasi tersebut. ketika anda menjalankan aplikasi, maka akan tampil efek berkedip-kedip pada TitleBar Form secara terus menerus.

CATATAN : Anda bisa mengatur kecepatan interval waktunya sesuai kebutuhan anda :)  

READ MORE - ! Tutorial membuat berkedip pada TitleBar form visual basic 6.0