Kalo di baca dari judil program tentu sangat luar biasa padahal program ini hanya menggunakan alur logika sederhana yaitu perintah menampilkan saja yang digunakan tidak ada logika aritmatika mari kita ikuti alur pembuatanya
1. Buatlah rancangan From seperti ini atau sesuai inovasi anda sendiri
2. TooL yang saya gunakan adalah sebagai berikut :
3. agar tampilanya menarik anda perlu tambahkan Background di from nya dengan cara
Caranya :
1.Select Form
2.Pada bagian Propertis Pilih “Picture”
3.Click Tombol di Ujungnya
4.Pilih Gambar yang akan anda jadikan beckground
5.OK
Hasilnya akan anda lihat seperti gambar berikut
Setelah itu pengisian koding
double clik pada tombol Buka isikan koding di bawah ini
Private Sub CmdBuka_Click()
If CmdBuka.Caption = "Buka" Then
ListData.Refresh
ListData.Text = ""
ListData.Clear
CmdBuka.Caption = "Tutup"
ListData.Visible = True
Else
CmdBuka.Caption = "Buka"
ListData.Refresh
ListData.Text = ""
ListData.Visible = False
End If
End Sub
Private Sub CmdContak_Click()
ListData.AddItem "JARINGAN INFORMASI UKM-PADUAN SUARA"
ListData.AddItem ""
ListData.AddItem "psu_bjm@yahoo.com"
ListData.AddItem ""
ListData.AddItem "http://psu-bjm.blogspot.com"
ListData.AddItem ""
ListData.AddItem "http://twitter.com/ukmpsu"
ListData.AddItem ""
ListData.AddItem "Facebook = Paduan Suara Uniska"
ListData.AddItem ""
ListData.AddItem "JL. Adhyaksa No.2 Kayu Tangi banjarmasin"
ListData.AddItem"========================================================"
End Sub
Private Sub CmdKegiatan_Click()
ListData.AddItem "KEGIATAN YANG DILAKSANAKAN"
ListData.AddItem ""
ListData.AddItem "1. Mengisi acara Orentasi Mahasiswa Baru"
ListData.AddItem "2. Mengisi acara Wisuda"
ListData.AddItem "3. Mengadakan latihan Vocal di Karang Intan (Martapura)"
ListData.AddItem "4. Mengadakan Acara Lomba Vocal Group Kemerdekaan (LVGK) "
ListData.AddItem "6. Menyelenggarakan Buka Puasa Bersama "
ListData.AddItem "7. Mengisi acara undangan dari luar."
ListData.AddItem "8. Mengadakan Latihan Bulanan"
ListData.AddItem ""
ListData.AddItem"============================================================="
End Sub
Private Sub CmdLagu_Click()
ListData.AddItem "HYMNE UNISKA"
ListData.AddItem ""
ListData.AddItem " Kami civitas akademika uniska"
ListData.AddItem " Bersimpuh munajat kehadiratmu"
ListData.AddItem " Hidup suburkan uniska"
ListData.AddItem " Mamur sejahterakan bangsa"
ListData.AddItem ""
ListData.AddItem " Di-haribaamu kami berjanji"
ListData.AddItem " Junjung tinggi martabat uniska"
ListData.AddItem ""
ListData.AddItem " Padukan iman dan ilmu "
ListData.AddItem " Dalam karya nyata (2x)"
ListData.AddItem ""
ListData.AddItem ""
ListData.AddItem " MARS UNISKA"
ListData.AddItem ""
ListData.AddItem " Kami mahasiswa uniska"
ListData.AddItem " Bersama penerus cita pahlawan "
ListData.AddItem " Berderap maju seirama"
ListData.AddItem " Demi pembangunan bangsa"
ListData.AddItem ""
ListData.AddItem " Wahai putra putri pertiwi "
ListData.AddItem " Satukan derap langka kita semua"
ListData.AddItem " Bina manusia Indonesia"
ListData.AddItem " Dan seluruh masyarakatnya"
ListData.AddItem ""
ListData.AddItem " Dengan jiwa pancasila"
ListData.AddItem " Dan semangat enpat lima"
ListData.AddItem " Tinggkatkan pengapdian "
ListData.AddItem " Tri darma"
ListData.AddItem ""
ListData.AddItem " Cerdas sejahtrakan bangsa (2x)"
ListData.AddItem ""
ListData.AddItem"============================================================"
End Sub
Private Sub CmdMisi_Click()
ListData.AddItem "MISI PADUAN SUARA UNISKA"
ListData.AddItem ""
ListData.AddItem "1. Terus menciptakan wahana-wahana reset dan eksperimen dalam rangka pengembangan "
ListData.AddItem " IPTEK khususnya seni dan kebudayaan daerah yang ada di Indonesia khususnya "
ListData.AddItem " kalimantan selatan."
ListData.AddItem ""
ListData.AddItem "2. Memberikn Kesempatan seluas-luasnya kepada seluruh mahasiswa UNISKA yang ingin "
ListData.AddItem " bergabung dalam organisasi ini untuk berpartisipasi dalam kegiatan-"
ListData.AddItem " kegiatan yang akan dilakukan."
ListData.AddItem ""
ListData.AddItem ""
ListData.AddItem"========================================================="
End Sub
Private Sub CmdPelopr_Click()
ListData.AddItem "NAMA PELOPOR BERDIRINYA PADUAN SUARA UNISKA"
ListData.AddItem ""
ListData.AddItem "1. Rahmadi, S.Sos "
ListData.AddItem ""
ListData.AddItem "2. Musrifani, S.Pd."
ListData.AddItem ""
ListData.AddItem "3. Muslim Rahmad, S.Sos."
ListData.AddItem ""
ListData.AddItem "4. Herlianor Pahdi, S.Pd."
ListData.AddItem ""
ListData.AddItem "5. Mahyuni, S.Sos."
ListData.AddItem ""
ListData.AddItem "6. Hendra W, S.Sos."
ListData.AddItem ""
ListData.AddItem "7. Abdi Permana, S.Sos."
ListData.AddItem ""
ListData.AddItem"===================================================="
End Sub
Private Sub CmdSejarah_Click()
ListData.AddItem "SEJARAH SINGKAT"
ListData.AddItem ""
ListData.AddItem "Suatu lembaga atau instansi biasanya mempunyai suatu kegiatan formal, dalam kegiatan "
ListData.AddItem "formal tersebut terkadang diwajibkan untuk menyanyikan (mengumandangkan) lagu -lagu "
ListData.AddItem "wajib nasional dan lagu -lagu wajib organsasi atau lembaga yang mengadakan acara tesebut."
ListData.AddItem ""
ListData.AddItem "Sama halnya dengan universitas islam Kalimantan Muhammad Arsyad Al-Banjary Banjarmasin "
ListData.AddItem "yang mengadakan suatu acara-acara formal, seperti, OSPEK, Yudisium dan Wisuda Sarjan yang "
ListData.AddItem "mewajibkan dalam acara prosesi tersebut menynyikan (mengumandangkan) lagu wajib nasional "
ListData.AddItem "dan jga Lagu Mars & Hymne UNISKA."
ListData.AddItem ""
ListData.AddItem "Maka itu, dibentuk suatu organisasi kemahasiswaan dalam bentuk Unit Kegiatan Mahahsiswa "
ListData.AddItem "(UKM) yang dinamakan UKM Paduan suara Uniska yang dibentuk pada tanggal 11November "
ListData.AddItem "2003 dengan surat keputusan Rektor No. 01/KEP/UNISKA/M.6/1/2004."
ListData.AddItem ""
ListData.AddItem "==========================================================="
End Sub
Private Sub CmdTujuan_Click()
ListData.AddItem "TUJUAN PADUAN SUARA UNISKA"
ListData.AddItem ""
ListData.AddItem "Tujuan dibentuknya Unit Kegiatan Mahasiswa ini ditujukan untuk para mahasiswa yang "
ListData.AddItem "berkeinginan untuk menyalurkan bakat menyanyi mereka melalui wadah ini"
ListData.AddItem ""
ListData.AddItem "Bukan hanya untuk menyalurkan bakat, tetapi juga untuk regenerasi paduan suara nantinya "
ListData.AddItem "yang terorganisir dan bisa membawa nama harum UNISKA nentinya. "
ListData.AddItem ""
ListData.AddItem ""
ListData.AddItem"============================================================="
End Sub
Private Sub CmdVisi_Click()
ListData.AddItem "VISI PADUAN SUARA UNISKA"
ListData.AddItem ""
ListData.AddItem "1. Menjadi media kegiatan mahasiswa dalam berorganisasi yang baik dan bermanfaat "
ListData.AddItem " secara langsung kepada masyarakat kampus UNISKA dan juga sebagai media regenerasi "
ListData.AddItem " untuk masyarakat kampus UNISKA dalam hal seni khususnya dalam dunia tarik suara "
ListData.AddItem " (Paduan Suara)."
ListData.AddItem ""
ListData.AddItem "2. Menjadi saran Aktualisasi dan pengembangan kemampuan mahasiswa UNISKA. "
ListData.AddItem " Terutama dalam seni khususnya dalam dunia tarik suara (Paduan Suara), kemampuan "
ListData.AddItem " berorganisasi dll."
ListData.AddItem ""
ListData.AddItem "3. Menjadi media pendidikan (Berorganisasi) dan kebudayaan (seni), terutama dalam hal "
ListData.AddItem " pemberdayaan kemampuan seni tarik suara (Paduan Suara) di kampus Uniska."
ListData.AddItem ""
ListData.AddItem "4. Menjadi Akselator pengembangan IPTEK khususnya seni dan kebudayaan daerah "
ListData.AddItem " (Khususnya Kalimantan Seatan) untuk kampus UNISKA. "
ListData.AddItem ""
ListData.AddItem"======================================================="
End Sub
Private Sub Command1_Click()
x = MsgBox("Anda Yakin Mau Keluar", vbQuestion + vbYesNo, "")
If x = vbYes Then
End
Exit Sub
End If
End Sub
Private Sub Form_Load()
'Menegahkan form di tengah- tengah layar
FrmSejarah.Top = (Screen.Height - Height) / 2
FrmSejarah.Left = (Screen.Width - Width) / 2
End Sub
Tidak ada komentar:
Posting Komentar