LAMPIRAN LISTING PROGRAM
1.
Tampilan Utama
Private Sub Form_Load() Label3.FontSize = 9 Label3 = "R A Y R Y A N D I F S" Label4.FontSize = 8 Label4 = "1 1 2 4 0 6 0 5 3" End Sub Private Sub Label3_Click() Form6.Show Unload Me End Sub Private Sub Label4_Click() Form6.Show Unload Me End Sub Private Sub Picture1_Click() Form2.Show Unload Me End Sub Private Sub Picture2_Click() Form4.Show Unload Me End Sub Private Sub Picture3_Click() Form3.Show Unload Me End Sub Private Sub Picture4_Click() X = MsgBox("Anda Yakin Mau Keluar ?", vbQuestion + vbOKCancel, "Informasi") If X = vbOK Then End End If End Sub
Universitas Sumatera Utara
Private Sub Timer1_Timer() Label3.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 245) If (Label3.RightToLeft + Label3.Width) <= 0 Then Label3 = Label3.RightToLeft = Me.Width End If Label3.RightToLeft = Label3.RightToLeft - 150 End Sub Private Sub Timer2_Timer() Label4.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 245) If (Label4.RightToLeft + Label4.Width) <= 0 Then Label4 = Label4.RightToLeft = Me.Width End If Label4.RightToLeft = Label4.RightToLeft - 150 End Sub
2.
Pembukaan Undang Undang Dasar
Private Sub Form_Load() Label1.FontSize = 22 Label1 = "PEMBUKAAN UNDANG-UNDANG DASAR 1945" End Sub Private Sub Picture1_Click() Form1.Show Unload Me End Sub Private Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 245) If (Label1.RightToLeft + Label1.Width) <= 0 Then Label1.RightToLeft = Me.Width End If Label1.RightToLeft = Label1.RightToLeft - 150 End Sub
3.
Undang Undang Dasar
Private Sub Combo1_Change() Combo1_Click End Sub Private Sub Combo1_Click() Image1.Picture = LoadPicture("D:\TA\MENTERI\" & Combo1.Text & ".jpg")
Universitas Sumatera Utara
End Sub Private Sub Form_Load() Label1.FontSize = 19 Label1 = "KEMENTERIAN DAN NAMA-NAMA MENTERI" Combo1.AddItem "Jaksa Agung(Basrief Arief)" Combo1.AddItem "Menteri Agama(Drs. H. Suryadharma Ali, M.Si)" Combo1.AddItem "Menteri Dalam Negeri(Gamawan Fauzi, S.H., M.M.)" Combo1.AddItem "Menteri Energi dan Sumber Daya Mineral(Ir. Jero Wacik, SE)" Combo1.AddItem "Menteri Hukum dan HAM(Amir Syamsudin)" Combo1.AddItem "Menteri Kehutanan(Zulkifli Hasan, S.E., M.M.)" Combo1.AddItem "Menteri Kelautan dan Perikanan(Syarif Cicip Sutardjo)" Combo1.AddItem "Menteri Kesehatan(Dr. Nafsiah Mboi, SpA, MPH)" Combo1.AddItem "Menteri Keuangan(Dr. Muhammad Chatib Basri, S.E., M.Ec.)" Combo1.AddItem "Menteri Komunikasi dan Informatika(Ir. H. Tifatul Sembiring)" Combo1.AddItem "Menteri Koordinator Kesejahteraan Rakyat(dr. H. R. Agung Laksono)" Combo1.AddItem "Menteri Koordinator Perekonomian(Chairul Tanjung)" Combo1.AddItem "Menteri Koordinator Politik,Hukum dan Keamanan(Marsekal TNI (Purn.) Djoko Suyanto) " Combo1.AddItem "Menteri Luar Negeri(DR. Raden Mohammad Marty Muliana Natalegawa, B.Sc., M.Phil.)" Combo1.AddItem "Menteri Negara Badan Usaha Milik Negara(Dahlan Iskan)" Combo1.AddItem "Menteri Negara Koperasi dan UKM(DR. Sjarifuddin Hasan, M.M., MBA.)" Combo1.AddItem "Menteri Negara Lingkungan Hidup(Balthazar Kambuaya)" Combo1.AddItem "Menteri Negara Pembangunan Daerah Tertinggal(Ir. H. Ahmad Helmy Faishal Zaini)" Combo1.AddItem "Menteri Negara Pemberdayaan Perempuan dan Perlindungan Anak(Linda Amalia Sari, S.IP.)" Combo1.AddItem "Menteri Negara Pemuda dan Olahraga(Roy Suryo Notodiprojo)" Combo1.AddItem "Menteri Negara Pendayagunaan Aparatur Negara dan Reformasi Birokrasi(Azwar Abubakar)" Combo1.AddItem "Menteri Negara Perencanaan Pembangunan NasionalKepala BAPPENAS(Prof. DR. Armida Salsiah Alisjahbana)" Combo1.AddItem "Menteri Negara Perumahan Rakyat(Djan Faridz)" Combo1.AddItem "Menteri Negara Riset dan TeknologiKepala BPPT(Prof.Dr.Ir. H. Gusti Muhammad Hatta)" Combo1.AddItem "Menteri Pariwisata dan Ekonomi Kreatif(Dr. Mari E. Pangestu)"
Universitas Sumatera Utara
Combo1.AddItem "Menteri Pekerjaan Umum(Ir. Djoko Kirmanto, Dipl. HE.)" Combo1.AddItem "Menteri Pendidikan dan Kebudayaan(Prof. DR. Ir. Mohammad Nuh)" Combo1.AddItem "Menteri Perdagangan(Muhammad Lutfi)" Combo1.AddItem "Menteri Perhubungan(EE Mangindaan,SIP)" Combo1.AddItem "Menteri Perindustrian(Ir. Mohamad S. Hidayat)" Combo1.AddItem "Menteri Pertahanan(Prof. DR. Ir. Purnomo Yusgiantoro, M.A., M.Sc.)" Combo1.AddItem "Menteri Pertanian(Ir. H Suswono, MMA.)" Combo1.AddItem "Menteri Sekretaris Negara(Sudi Silalahi)" Combo1.AddItem "Menteri Sosial(DR. H. Salim Segaf Al-Jufri, M.A.)" Combo1.AddItem "Menteri Tenaga Kerja dan Transmigrasi(Drs. H. A. Muhaimin Iskandar, M.Si.)" Combo1.ListIndex = 0 End Sub
Private Sub Picture1_Click() Form1.Show Unload Me End Sub Private Sub Picture2_Click() Form5.Show Unload Me End Sub Private Sub Picture3_Click() X = MsgBox("Anda Yakin Mau Keluar ?", vbQuestion + vbOKCancel, "Informasi") If X = vbOK Then End End If End Sub Private Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 200) If (Label1.Left + Label1.Width) <= 0 Then Label1.Left = Me.Width End If Label1.Left = Label1.Left - 150 End Sub
Universitas Sumatera Utara
4.
Kementerian
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) With Adodc1.Recordset Text1.Text = .Fields.Item(0).Value Text2.Text = .Fields.Item(1).Value Text3.Text = .Fields.Item(2).Value Text4.Text = .Fields.Item(3).Value End With End Sub Private Sub Picture1_Click() Form1.Show Unload Me End Sub Private Sub Picture2_Click() Form5.Show Unload Me End Sub
5.
Presiden dan wakil presiden
Private Sub Form_Load() Label1.FontSize = 14 Label1 = "Dr. H. Susilo Bambang Yudhoyono" Label2.FontSize = 14 Label2 = "Prof. Dr. Budiono, M.Ec" End Sub
Private Sub Picture3_Click() Form3.Show Unload Me End Sub Private Sub Picture4_Click() X = MsgBox("Anda Yakin Mau Keluar ?", vbQuestion + vbOKCancel, "Informasi") If X = vbOK Then End End If End Sub
Universitas Sumatera Utara
Private Sub Picture5_Click() Form1.Show Unload Me
6.
Tentang Penulis
Private Sub Picture2_Click() X = MsgBox("Anda Yakin Mau Keluar ?", vbQuestion + vbOKCancel, "Informasi") If X = vbOK Then End End If End Sub Private Sub Picture3_Click() Form1.Show Unload Me End Sub
Universitas Sumatera Utara
