Articles & News Stories

Bab3

Description
Description:
Published
of 63
All materials on our website are shared by users. If you have any questions about copyright issues, please report us to resolve them. We are always happy to assist you.
Share
Transcript
  BAB IIIProgram Aplikasi Pada Bab III ini ,  kita mulai membuat program aplikasi mulai dari yang sederhana sampai program aplikasi database . 3.1 Aplikasi Sederhana Kasus 1.Form Designer Gambar 3 . 1 Form Designer Kasus 1 . Daftar Komponen KOMPONENPROPERTIESNILAI Form1NameBackColor BorderStyleCaptionStartUpPositionFLatih1BebasFixedDialogLatihan Satu2-CenterScreenLabel1AlginmentCaptionBackColor FontForeColor 2-Center STMIK Tunas BangsaBebasBebasBebasLabel2AlignmentCaptionBackColor FontForeColor 2-Center 13 Desember 1972BebasBebasBebasLabel3AlignmentCaptionBackColor FontForeColor 2-Center Lebih Baik Kaya Daripada MiskinBebasBebasBebasCommandButton1NameCaptionKeluar Keluar  Kode Program Modul Praktikum Pemrograman Visual 1 14 STMIK TUNAS BANGSA  Private Sub Keluar_Click()  End End Sub Kasus 2.Form Designer Gambar 3 . 2 Form Designer Kasus 2 . Daftar Komponen KOMPONENPROPERTIESNILAI Form1NameCaptionBackColor BorderStyleStartUpPositionFlatih2Latihan DuaBebasFixedDialog2-CenterScreenLabel1CaptionNomor Pokok MahasiswaLabel2CaptionNama MahasiswaLabel3CaptionTempat / Tanggal Lahir Label4CaptionKelasLabel5CaptionJurusanText1NameText NPMKosongkanText2NameText NMMHSKosongkanText3NameTextTPLHR KosongkanText4NameTextTGLHR KosongkanText5NameTextKELASKosongkanText6NameTextJURUSKosongkanCommandButton1NameCaptionBersih&BersihCommandButton2NameCaptionKeluar &Keluar Frame1CaptionData Mahasiswa Kode Program Private Sub Bersih_Click()  NPM . Text =  NMMHS . Text =  TPLHR . Text =  TGLHR . Text =  KELAS . Text =  JURUS . Text = End SubPrivate Sub Keluar_Click()  End End Sub Modul Praktikum Pemrograman Visual 1 15  Pada Kasus 2 ,  semua komponen Text tambahkan private sub keypress ,  berfungsi supayatombol enter dapat digunakan Private Sub JURUS_KeyPress(KeyAscii As Integer)  If KeyAscii = 13 Then Bersih . SetFocus End If  End SubPrivate Sub NPM_KeyPress(KeyAscii As Integer)  If KeyAscii = 13 Then NMMHS . SetFocus End If  End SubPrivate Sub NMMHS_KeyPress(KeyAscii As Integer)  If KeyAscii = 13 Then TPLHR . SetFocus End If  End SubPrivate Sub TPLHR_KeyPress(KeyAscii As Integer)  If KeyAscii = 13 Then TGLHR . SetFocus End If  End SubPrivate Sub TGLHR_KeyPress(KeyAscii As Integer)  If KeyAscii = 13 Then KELAS . SetFocus End If  End SubPrivate Sub KELAS_KeyPress(KeyAscii As Integer)  If KeyAscii = 13 Then JURUS . SetFocus End If  End Sub Kasus 3.Form Designer Gambar 3 . 3 Form Designer Kasus 3 . Daftar Komponen KOMPONENPROPERTIESNILAI Form1NameCaptionFlatih3Latihan Tiga Modul Praktikum Pemrograman Visual 1 16  BorderStyleStartUpPositionFixedDialog2-CenterScreenLabel1CaptionNomor Induk PegawaiLabel2CaptionNama PegawaiLabel3CaptionTempat / Tanggal Lahir Label4CaptionGolonganLabel5CaptionAgamaLabel6CaptionStatusLabel7CaptionJenis KelaminText1NameText NIPKosongkanText2NameText NMPEGKosongkanText3NameTextTPLHR KosongkanText4NameTextTGLHR KosongkanComboBox1NameListTextGOLIII/A , III/B , III/C , III/D , IV/AKosongkanComboBox2NameListTextAGAMAISLAM , KRISTEN KATOLIK  ,  KRISTENPROTESTAN , HINDU , BUDHAKosongkanOptionButton1Caption NameB .  KawinBKAWINOptionButton2Caption NameKawinKAWINOptionButton3Caption NameJandaJANDAOptionButton4Caption NameDudaDUDACheckBox1Caption NamePriaPRIACheckBox2Caption NameWanitaWANITACommandButton1NameCaptionBersih&BersihCommandButton2NameCaptionKeluar &Keluar Frame1CaptionData Pegawai Kode Program Private Sub Bersih_Click()  NIP . Text =  NMPEG . Text =  TPLHR . Text =  TGLHR . Text =  GOL . Text =  AGAMA . Text =  BKAWIN . Value = False KAWIN . Value = False JANDA . Value = False DUDA . Value = False PRIA . Value = Unchecked WANITA . Value = Unchecked End SubPrivate Sub Keluar_Click()  PESAN = MsgBox( YAKIN KELUAR ... ,  vbOKCancel + 48 ,   PERHATIAN ) If PESAN = vbOK Then End End If  Modul Praktikum Pemrograman Visual 1 17

Oral

Sep 22, 2019
We Need Your Support
Thank you for visiting our website and your interest in our free products and services. We are nonprofit website to share and download documents. To the running of this website, we need your help to support us.

Thanks to everyone for your continued support.

No, Thanks
SAVE OUR EARTH

We need your sign to support Project to invent "SMART AND CONTROLLABLE REFLECTIVE BALLOONS" to cover the Sun and Save Our Earth.

More details...

Sign Now!

We are very appreciated for your Prompt Action!

x