LA AP2 A Pertemuan 7

                                             >>>>>  DOWNLOAD .DOC <<<<<<

LAPORAN AKHIR PRAKTIKUM

Mata Praktikum          :  Algoritma & Pemrograman 2 A (AP2A)

Kelas                           :  1IA20

Praktikum ke-              :  7

Tanggal                        :  15 Mei 2015

Materi                          :  Animasi Visual basic

NPM                           :  53414057

Nama                           :  Didi Mulyadi

Ketua Asisten              :  Chairul U

Nama Asisten              :

Paraf Asisten               :

Jumlah Lembar            :   7 lembar

LABORATORIUM INFORMATIKA

UNIVERSITAS GUNADARMA

2015

Listing Program

      

         

Listing Tombol dan logika:

Form 1

Private Sub Command1_Click()

hit = hit + 1

If hit > 3 Then

MsgBox ("Invalid Login,sistem exit")

End

End If

If Text1.Text <> "labti" Then

MsgBox ("Acces Denied")

Else

MsgBox ("selamat datang")

MDIForm1.Show

Unload Me

End If

End Sub

Private Sub Command2_Click()

MsgBox ("Terima kasih")

End

End Sub

            Pada blok program di form 1 merupakan form login dimana menggunakan varibel hit untuk membatasi login salah selama tiga kali menggunakan  percabangan if , kemudian menggunakan if else untuk masuk ke form Mdiform1 dimana jika text1 bukan labti maka akan tercetak acces denied dan selain itu maka akan tercetak “selamat datang” dan menampilkan mdiform1.

Form 2

Private Sub Command1_Click()

MDIForm1.Show

Form2.Hide

End Sub

Private Sub Command2_Click()

MsgBox ("Terimakasih")

End

End Sub

            Pada blok program diatas digunakan untuk membuka mdiform1 pada  command 1 dan menyembunyikan form2, dan pada command 2 digunakan untuk mengakhiri program.

Private Sub Timer1_Timer()

hit = hit + 1

If hit > 0 And hit < 6 Then

Shape2.BackColor = vbRed

Shape3.BackColor = vbBlack

ElseIf hit >= 6 And hit < 8 Then

Shape2.BackColor = vbBlack

Shape3.BackColor = vbYellow

ElseIf hit >= 8 And hit < 13 Then

Shape3.BackColor = vbBlack

Shape4.BackColor = vbGreen

Else

Shape4.BackColor = vbBlack

Shape3.BackColor = vbYellow

End If

If hit = 16 Then

hit = 0

End If

End Sub

            Pada blok program timer ini digunakan untuk meberikan animasi dengan menggunakan waktu , menggunakan varibel hit sebagai detik sehingga setiap pecabangan kondisin hit memberikan intruksi untuk mengganti warna pada shape yang ingin kita ganti sesuai keinginan kita, contohnya seperti program lampu merah sederhana.

Form 3

Private Sub Timer1_Timer()

Label1.Top = Val(Label1.Top) + 30

Label2.Top = Val(Label1.Top) + 50

Label3.Top = Val(Label1.Top) + 60

Label4.Top = Val(Label1.Top) + 90

Label5.Top = Val(Label1.Top) + 70

Label6.Top = Val(Label1.Top) + 30

Label7.Top = Val(Label1.Top) + 40

Label8.Top = Val(Label1.Top) + 20

Label9.Top = Val(Label1.Top) + 80

Label10.Top = Val(Label1.Top) + 50

If Label1.Top > 4000 Then

Label1.Top = -2000

End If

If Label2.Top > 4000 Then

Label1.Top = -2000

End If

If Label3.Top > 4000 Then

Label1.Top = -2000

End If

If Label4.Top > 4000 Then

Label1.Top = -2000

End If

If Label5.Top > 4000 Then

Label1.Top = -2000

End If

If Label6.Top > 4000 Then

Label1.Top = -2000

End If

If Label7.Top > 4000 Then

Label1.Top = -2000

End If

If Label8.Top > 4000 Then

Label1.Top = -2000

End If

If Label9.Top > 4000 Then

Label1.Top = -2000

End If

If Label10.Top > 4000 Then

Label1.Top = -2000

End If

End Sub

           

Pada blok program timer diatas digunakan untuk menggerakan label 1 sampai 10 keatas dan kembali lagi dan terus menerus menggunakan fitur timer yang ada pada visual basic.dan menggunakan percabangan if .

Private Sub Command1_Click()

MDIForm1.Show

Form3.Hide

End Sub

Private Sub Command2_Click()

MsgBox ("Terimakasih")

End

            Pada blok program diatas digunakan untuk menampilkan form mdiform1 jika menekan tombol (command 1) dan menyembunyikan form3. Kemdian command2 digunakan untuk mengakhiri program.

Form 4

Private Sub Command1_Click()

MsgBox ("ahahah kalian benar-benar jujur sekali")

End

End Sub

Private Sub Command2_Click()

MsgBox ("perhatian")

End

End Sub

Private Sub Command3_Click()

MDIForm1.Show

Form4.Hide

End Sub

Private Sub Command4_Click()

MsgBox ("Terimakasih")

End

End Sub

           

Pada blok program diatas digunakan untuk memberikan perintah pada  tombol yang akan di klik , seperti command1 akan menampilkan “aahahah kalian benar-benar  jujur sekali” , command2 akan menampilkan “perhatian” , command3 akan menampilkan mdiform1dan menyembunyakan form4. Sedangkan command4 digunakan untuk mengakhiri program .

Private Sub Timer1_Timer()

If Label1.Visible = True Then

Label1.Visible = False

Else

Label1.Visible = True

End If

End Sub

           

Pada blok program timer1  digunakan untuk memberikan animasi kelapkelip pada label1 menggunakan percabangan IF ELSE.

MDIForm1

Private Sub iseng_Click()

Form4.Show

MDIForm1.Hide

End Sub

Private Sub matrix_Click()

Form3.Show

MDIForm1.Hide

End Sub

Private Sub MDIForm_Load()

End Sub

Private Sub traficlight_Click()

Form2.Show

MDIForm1.Hide

End Sub

           

Pada blok program MDIform ini terdapat menu yang berfungsi untuk memindahkan form ke form lain menggunakan perintah show dan hide sesuai dengan yang kita inginkan.

Output Program: