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