Assalamu’alaikum all, pa khabar nih ???
Ane doain boy-boy semua tetap berada dalam lindungan Allah SWT yang telah
memberikan kita hidayah (PULSA tentunya…) sehingga kita semua dapat berkumpul bersama-sama di forum ini, tidak lupa pula sha... ups, kok jadi macam ceramah ya ??? Wekekeke... ya sudah lah
Okelah kalaw begitu, langsung aja… sebenarnya ni adalah program pertama ane saat baru belajar pemograman VB, jadi bagi boy-boy yang baru belajar VB (newbies… sama kyak ane… ) mungkin program ne bsa di jadiin alternatif….
Disini kita akan membuat program animasi bergerak-gerak, kesamping, keatas, kebawah, kekanan, tw ke kiri tw kmana jaboy-boy mw.. Untuk lebih jelasnya silahkan ja boy-boy ikutin langkah-langkah pembuatan nya……….
1.Bukalah program VB 6.0, kemudian buatlah project baru…(new project)
2.Desain form dengan memasukkan sebuah timer, dua bh command button dan
3. Kemudian sempurnakan desain form nya dengan menambahkan gambar kedalam control image nya… terserah ja gambarnya…disini ane memasukkan gambar-gambar emotion,,
4. OK… sampai disini pekerjaan desain form dh selesai.. selanjutnya listing program…
( hal yang paling membosankan…) kalaw g mw bosan, silahkan copy paste ja listing program dibawah ne…
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 = 350
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
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
5. TAMAT (kayak film ja…) tinggal di run ja program ny dengan menekan F5…
Tampilan program
Oy,, ,hampir lupa… untuk megganti kecepatan animasinya boy-boy smua bsa mengubah interval timer nya sesuai selera Anda….klw pengen cepat perkecil interval timer nya dan sebaliknya…
0 comments:
Posting Komentar