LISTING PROGRAM FORM MENU UTAMA. Private Sub Command1_Click() Unload Me Form2.Show End Sub. Private Sub Command3_Click() Form10

LISTING PROGRAM

FORM MENU UTAMA Private Sub Command1_Click() Unload Me Form2.Show End Sub

Private Sub Command3_Click() Form10.Show End Sub

Private Sub Command4_Click() Form11.Show End Sub

Private Sub Command5_Click() Unload Me End Sub

Private Sub Command6_Click() Form12.Show End Sub

Private Sub Timer1_Timer() Label3.Caption = Time

Universitas Sumatera Utara

Label4.Caption = Date End Sub Private Sub tengah() Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2 End Sub Private Sub Timer2_Timer() Me.Width = Me.Width + 100 tengah If Me.Width >= 6020 Then Timer2.Enabled = False tengah End If End Sub

Private Sub Timer3_Timer() Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250) If (Label1.Left + Label1.Width) <= 0 Then Label1.Left = Me.Width End If Label1.Left = Label1.Left - 100 End Sub

FORM MENU GERAK Private Sub Command1_Click() Unload Me Form3.Show End Sub Private Sub Command2_Click()

Universitas Sumatera Utara

Unload Me Form6.Show End Sub Private Sub Command3_Click() Unload Me Form7.Show End Sub Private Sub Command4_Click() Unload Me Form1.Show End Sub Private Sub Command6_Click() Unload Me End Sub

Private Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250) If (Label1.Left + Label1.Width) <= 0 Then Label1.Left = Me.Width End If Label1.Left = Label1.Left - 100 End Sub

FORM MENU GERAK LURUS

Private Sub Command1_Click() Unload Me Form4.Show End Sub Private Sub Command2_Click()

Universitas Sumatera Utara

Unload Me Form5.Show End Sub Private Sub Command3_Click() Unload Me Form2.Show End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250) If (Label1.Left + Label1.Width) <= 0 Then Label1.Left = Me.Width End If Label1.Left = Label1.Left - 100 End Sub

FORM MENU GLB

Private Sub Command1_Click() Label7.Caption = CDbl(Text1.Text / Text2.Text) End Sub Private Sub Command2_Click() Unload Me Form3.Show End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Label7.Caption = ""

Universitas Sumatera Utara

End Sub Private Sub Command4_Click() Unload Me End Sub

FORM MENU GLBB

Private Sub Command1_Click() Label10.Caption = CDbl(Text1.Text + (Text2.Text * Text3.Text)) Label11.Caption = CDbl((Text1.Text * Text2.Text) + (0.5 * (Text3.Text * (Text2.Text * Text2.Text)))) Label12.Caption = CDbl((Text1.Text * Text1.Text) + (2 * (Text3.Text * Label11.Caption))) End Sub Private Sub Command2_Click() Unload Me Form3.Show End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Label10.Caption = "" Label11.Caption = "" Label12.Caption = "" End Sub Private Sub Command4_Click() Unload Me End Sub

Universitas Sumatera Utara

FORM MENU GERAK PARABOLA Dim hasil As Single Const g = 10

Private Sub Opt30_Click() Textsudut.Text = "0,5" Textv0.SetFocus End Sub

Private Sub Opt45_Click() Textsudut.Text = "0,707" Textv0.SetFocus End Sub

Private Sub Opt90_Click() Textsudut.Text = "1" Textv0.SetFocus End Sub Private Sub Command1_Click() hasil = (Textv0.Text * Textsudut) / g Texthasil.Text = hasil End Sub

Private Sub Command2_Click() Unload Me Form2.Show End Sub Private Sub Command3_Click() Textsudut.Text = "" Textv0.Text = "" Texthasil.Text = ""

Universitas Sumatera Utara

End Sub Private Sub Command4_Click() Unload Me Form2.Show End Sub

FORM MENU GERAK MELINGKAR Private Sub Command1_Click() Label10.Caption = CDbl(Text1.Text + (Text2.Text * Text3.Text)) Label11.Caption = CDbl((Text1.Text * Text3.Text) + (0.5 * (Text2.Text * (Text3.Text * Text3.Text)))) Label12.Caption = CDbl((Text1.Text * Text1.Text) + (2 * (Text2.Text * Label11.Caption))) End Sub Private Sub Command2_Click() Unload Me Form2.Show End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Label10.Caption = "" Label11.Caption = "" Label12.Caption = "" End Sub Private Sub Command4_Click() Unload Me End Sub

Universitas Sumatera Utara

FORM MENU TEORI Private Sub Cmdlurus_Click() Text1.Visible = True Text2.Visible = False Text3.Visible = False End Sub

Private Sub Command1_Click() Text2.Visible = True Text1.Visible = False Text3.Visible = False End Sub

Private Sub Command2_Click() Text1.Visible = False Text2.Visible = False Text3.Visible = True End Sub

Private Sub Command3_Click() Unload Me Form1.Show End Sub

Private Sub Form_Load() Text1.Visible = False Text2.Visible = False Text3.Visible = False End Sub

Universitas Sumatera Utara

FORM MENU SOAL Private Sub Cmdlurus_Click() Text1.Visible = False Text3.Visible = True Text2.Visible = False End Sub

Private Sub Command1_Click() Text1.Visible = True Text3.Visible = False Text2.Visible = False End Sub

Private Sub Command2_Click() Text2.Visible = True Text1.Visible = False Text3.Visible = False End Sub

Private Sub Command3_Click() Unload Me Form1.Show End Sub

Private Sub Form_Load() Text1.Visible = False Text2.Visible = False Text3.Visible = False End Sub

Universitas Sumatera Utara

FORM MENU ABOUT Private Sub cmdClose_Click() Unload Me Form1.Show End Sub

Universitas Sumatera Utara

SURAT KETERANGAN Hasil Uji Program Tugas Akhir

Yang bertanda tangan dibawah ini, menerangkan bahwa Mahasiswa Tugas Akhir Program Diploma 3 Teknik Informatika :

Nama

: MASYUNI HUTASUHUT

NIM

: 112406149

Prog. Studi

: DIPLOMA (D-3) TEKNIK INFORMATIKA

Judul Tugas Akhir : APLIKASI PEMBELAJARAN GERAK PADA FISIKA DENGAN VISUAL BASIC 6.0

Telah melaksanakan test program Tugas Akhir Mahasiswa tersebut di atas pada tanggal ……………………….

Dengan Hasil :

Sukses / Gagal

Demikian diterangkan untuk digunakan melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa bersangkutan di Departemen Matematika FMIPA USU Medan.

Medan, Juni 2014

Dosen Pembimbing Program Studi D-3 Teknik Informatika,

Drs. Suyanto, M.Kom. NIP : 195908131986011002

Universitas Sumatera Utara

KEMENTERIAN PENDIDIKAN DAN KEBUDAYAAN

UNIVERSITAS SUMATERA UTARA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM DEPARTEMEN MATEMATIKA PROGRAM STUDI D-3 TEKNIK INFORMATIKA Jl. Bioteknologi No. 1 Kampus USU Telp. (061) 8214290, 8211212, 8211414 Fax. (061) 8214290 Medan 20155

KARTU BIMBINGAN TUGAS AKHIR MAHASISWA

Nama

: MASYUNI HUTASUHUT

Nomor Induk Mahasiswa

: 112406149

Judul Tugas Akhir Dosen Pembimbing

: APLIKASI PEMBELAJARAN GERAK FISIKA DENGAN VISUAL BASIC 6.0 : Drs. Suyanto,M.Kom

Tanggal Mulai Bimbingan

: ................................

PADA

Tanggal Selesai Bimbingan : ................................. No

Tanggal Asistensi Bimbingan

Pembahasan Pada Asistensi Mengenai, Pada Bab :

Paraf Dosen Pembimbing

Keterangan

*Kartu ini harap dikembalikan ke Departemen Matematika bila bimbingan mahasiswa telah selesai

Diketahui, Program Studi D3 Teknik Informatika FMIPA USU Ketua,

Disetujui, Pembimbing Utama/ Penanggung Jawab

Dra. Elly Rosmaini, M.Si

Drs. Suyanto, M.Kom.

NIP. 196005201985032002

NIP : 195908131986011002

Universitas Sumatera Utara