Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
P3 & 4 Integrated Development Environment (IDE) Visual Basic A. Tujuan
Mahasiswa dapat memahami IDE atau lingkungan kerja pada Visual Basic Mahasiswa dapat mengenali dan mengetahui fungsi komponen-komponen IDE Mahasiswa dapat berkerja menggunakan komponen-komponen IDE
B. Pembahasan
Integrated Development Environment (IDE) Visual Basic Komponen-komponen IDE Bekerja dengan komponen-komponen IDE
3.1 Integrated Development Environment (IDE) Visual Basic IDE (Integrated Development Environment) atau lingkungan kerja Visual Basic IDE merupakan suatu lingkungan kerja untuk membuat dan mengembangkan aplikasi Visual Basic .net Langkah-langkah untuk menampilkan IDE Visual Basic pada Visual Studio 2010 adalah sebagai berikut : 1. Visual Studio yang telah ter-install dapat dijalankan dengan mengklik Start pilih All Programs Pilih folder Microsoft Visual Studio 2010 klik Microsoft Visual Studio 2010 2. Tampilan awal dari Microsoft Visual Studio 2010 terlihat seperti pada gambar 3.1, pilihlah Visual Basic Development Settings dan klik tombol Start Visual Studio, tampilan halaman muka Visual Studio 2010 seperti terlihat pada gambar 3.2.
1
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Gambar 3. 1 Tampilan halaman default environment setting
Gambar 3. 2 Tampilan halaman muka Visual Studio 2010
3. Pada halaman Start Page (gambar 3.2) klik New Project 2
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
4. Pada halaman New Project pilih komponen Windows Form Application dan klik tombol OK, lingkungan kerja Visual Basic (Integrated Development Environment/IDE) terlihat pada gambar 3.4.
Gambar 3. 3 Tampilan halaman new project Visual Basic
Gambar 3. 4 Tampilan Integrated Development Environment (IDE) Visual Basic
3
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
3.2 Komponen-komponen IDE
Gambar 3. 5 Integrated Development Environment (IDE)
Lingkungan kerja pada Visual Basic memiliki beberapa komponen antara lain : 1. Menu Bar Menampilkan berbagai menu pada Visual Basic untuk membangun pemrograman .net.
Gambar 3. 6 Menu Bar
2. Toolbar Merupakan sebuah tombol jalan pintas yang terdapat pada menu bar.
Gambar 3. 7 Toolbar
3. Form Merupakan area untuk men-desain (meletakkan dan menyusun) komponen-komponen visual dalam membangun aplikasi.
4
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Gambar 3. 8 Form Designer
4. Jendela Editor Kode Merupakan area tempat menuliskan kode dari sebuah objek atau form.
Gambar 3. 9 Jendela Editor Kode
5. Toolbox Berisi komponen-komponen yang digunakan yang digunakan sebagai objek dalam pemrograman.
Gambar 3. 10 Toolbox
5
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Toolbox terdiri dari berbagai macam objek visual misalnya : Button, Label, Textbox, ComboBox, ListBox dan lain sebagainya. 6. Data Sources Berfungsi sebagai tempat manajemen database.
Gambar 3. 11 Data Sources
7. Solution Explorer Merupakan bagian yang berfungsi untuk menampilakan/melihat item-item penyusun sebuah proyek atau solution.
Gambar 3. 12 Solution Explorer
Sebuah proyek dapat disusun oleh berbagai macam item, yaitu : - Form dan kodenya, miliki ekstensi .vb - Class, memiliki ekstensi .vb - Class Diagram, memiliki ekstensi .cd - File XML, memiliki ekstensi .xml - File Proyek, memiliki ekstensi .vbproj - File Laporan Crystal Report, memiliki ekstensi .rpt
6
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
8. Properties Berfungsi untuk melihat nilai properti dari sebuah objek atau class.
Gambar 3. 13 Properties
3.3 Bekerja dengan Komponen-komponen IDE a. Mendesain Program Desain suatu program terletak pada komponen form, yang dihiasi berbagai objek dari toolbox. Setiap objek atau komponen desain memiliki properti yang dapat diatur nilai dan atributnya. Cara untuk mendesain program adalah dengan memilih objek yang akan dipakai pada toolbox, kemudian menggambarkannya pada form yang telah ditentukan. Kemudian set nilai properti dari objek yang digambar tersebut melalui jendela properties.
7
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
b. Menggunakan Toolbox Kontrol 1. Button Latihan 3.1 : Membuat Program Warna
Gambar 3. 14 Desain form Colour
Langkah-langkah membuat program : Pada Toolbox pilih objek Button, kemudian gambarkan pada form yang telah disiapkan; Lakukan langkah yang sama atau dengan menggunakan copy-paste, sampai pada Button5; Aturlah nilai properti pada Jendela Properties untuk setiap objek tersebut, seperti pada tabel berikut : Nama Komponen Form1 Button1
Button2
Button3
8
Visual Basic .Net
Properties Name Text Name Text Font ForeColor Name Text Font ForeColor Name Text Font ForeColor
Values frmColour Favourite Colour btnRed &Red Bold, 10 Red btnYellow &Yellow Bold, 10 Yellow btnGreen &Green Bold, 10 Green
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Button4
Button5
Name Text Font Name Text Font
btnTransparent &Transparent Bold, 10 btnClose &Close Bold, 10
Ketikkanlah kode program berikut pada Jendela Editor Kode dengan cara mengklik setiap komponen : Public Class frmColour Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub btnRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRed.Click frmColour.ActiveForm.BackColor = Color.Red End Sub Private Sub btnYellow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYellow.Click frmColour.ActiveForm.BackColor = Color.Yellow End Sub Private Sub btnGreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGreen.Click frmColour.ActiveForm.BackColor = Color.Green End Sub Private Sub btnTransparent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransparent.Click frmColour.ActiveForm.Opacity = 0.7 End Sub Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Close() End Sub
End Class
Jalankanlah program dengan cara mengklik icon dan klik setiap Button;
9
Visual Basic .Net
Start Debugging pada Toolbar,
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Gambar 3. 15 Hasil eksekusi Program Warna
2. Label dan Textbox Latihan 3.2 : Membuat Program Identitas Pasien
Gambar 3. 16 Desain form Identitas Pasien
Langkah-langkah membuat program : Susunlah objek Label, TextBox dan Button seperti pada desain form Identitas Pasien ; Aturlah nilai properti pada Jendela Properties untuk setiap objek tersebut, sesuai dengan berikut : Nama Komponen Form1 Label1
10
Visual Basic .Net
Properties Name Text Name Text Font
Values frmIdentitasPasien Identitas Pasien labelID ID Pasien Bold, 10
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Label2
Label3
Label4
TextBox1
TextBox2
TextBox3
TextBox4
Button1
Name Text Fon Name Text Fon Name Text Font Name Font BackColor Name Font BackColor Name Font BackColor Name Font BackColor Name Text Font
labelNama Nama Bold, 10 labelJK Jenis Kelamin Bold, 10 labelAlamat Alamat Bold, 10 txtID Reguler, 10 ActiveCaption txtNama Reguler, 10 ActiveCaption txtJK Reguler, 10 ActiveCaption txtAlamat Reguler, 10 ActiveCaption btnClose &Close Bold, 10
Lakukan double klik pada Button Close dan ketikkan kode program berikut pada Jendela Editor Kode : Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Close() End Sub
Jalankanlah program dengan cara mengklik icon Start Debugging pada Toolbar, kemudian isilah setiap TextBox sesuai dengan nama Label.
Gambar 3. 17 Hasil eksekusi Program Identitas Pasien 11
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
3. ComboBox Latihan 3.3 : Membuat Program Jurusan
Gambar 3. 18 Desain form Jurusan
Langkah-langkah membuat program : Desainlah Form Jurusan seperti pada gambar diatas; Aturlah nilai properti untuk setiap objek tersebut, seperti pada tabel berikut : Nama Komponen Form1 Label1
ComboBox1
Button1
Button2
12
Visual Basic .Net
Properties Name Text Name Text Font Name Text Font Items
Name Text Font Name Text
Values frmJurusan Jurusan labelJurusan Jurusan Bold, 10 cmbJurusan ~Pilih~ Bold, 10 DIII Kebidanan DIII Keperawatan DIII Farmasi DIII Rekam Media & Info Kes DIII Radiologi DIII Fisioterapi SI Kebidanan SI Keperawatan SI Farmasi btnCek &Cek Bold, 10 btnClose &Close
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Font
Bold, 10
Lakukan double klik pada Button Cek, dan ketikkan kode program berikut : Private Sub btnCek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCek.Click MsgBox("Anda Memilih Jurusan :" & cmbJurusan.Text) End Sub
Lakukan double klik pada Button Close, kemudian ketikkan kode program berikut : Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Close() End Sub
Jalankanlah program dengan cara mengklik icon Start Debugging pada Toolbar, Setelah memilih Jurusan, kemudian akan ditampilkan MessageBox seperti pada gambar 3.22 :
Gambar 3. 19 Hasil eksekusi Program Jurusan
Gambar 3. 20 Tampilan MessageBox Program Jurusan
13
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
4. ListBox Latihan 3.4: Membuat Program Mata Kuliah
Gambar 3. 21 Desain form Mata Kuliah
Langkah-langkah membuat program : Desainlah Form Mata Kuliah seperti pada gambar diatas; Aturlah nilai properti untuk setiap objek tersebut, seperti pada tabel berikut : Nama Komponen Form1
Label1 ListBox1
Button1 Button2 Button3
Properties Name Text Font Name Text Name Font BackColor Shorted Name Text Name Text Name Text
Values frmMK Mata Kuliah Bold, 10 labelMataKuliah Mata Kuliah Semester III lbxMataKuliah Reguler, 10 ActiveCaptions True btn1 &Kebidanan btn2 &Farmasi btn3 &Rekam Medis
Lakukan double klik pada Button Kebidanan, dan ketikkan kode program berikut : 14
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click lbxMataKuliah.Items.Clear() lbxMataKuliah.Items.Add("Farmakologi") lbxMataKuliah.Items.Add("Ginekologi") lbxMataKuliah.Items.Add("Askeb II (Persalinan)") lbxMataKuliah.Items.Add("Askeb III (Nifas)") lbxMataKuliah.Items.Add("Asuhan Neonatus, Bayi dan Anak Balita") lbxMataKuliah.Items.Add("Dokumentasi Kebidanan") lbxMataKuliah.Items.Add("Praktik Klinik Kebidanan") lbxMataKuliah.Items.Add("IT (Cyber Midwifery)") End Sub
Lakukan double klik pada Button Farmasi, kemudian ketikkan kode program berikut : Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click lbxMataKuliah.Items.Clear() lbxMataKuliah.Items.Add("Formulasi & Teknologi Sediaan Padat") lbxMataKuliah.Items.Add("Kimia Analisi II") lbxMataKuliah.Items.Add("Toksiologi") lbxMataKuliah.Items.Add("Radiofarmasi") lbxMataKuliah.Items.Add("Farmakognosi") lbxMataKuliah.Items.Add("Farmakokinetika") lbxMataKuliah.Items.Add("Farmakologi Eksperimental II") lbxMataKuliah.Items.Add("Kimia Medisinal 1") lbxMataKuliah.Items.Add("Biokimia farmasi") End Sub
Lakukan double klik pada Button Rekam Medis, kemudian ketikkan kode program berikut :
15
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click lbxMataKuliah.Items.Clear() lbxMataKuliah.Items.Add("Bahasa Inggris 3") lbxMataKuliah.Items.Add("Biomedik-Fisiologi") lbxMataKuliah.Items.Add("Biomedik-Genetika") lbxMataKuliah.Items.Add("Pengelolaan Sistem Rekam Medis 3") lbxMataKuliah.Items.Add("Ilmu Penyakit dan Lab. Kesehatan 2") lbxMataKuliah.Items.Add("Hukum Kesehatan") lbxMataKuliah.Items.Add("Kependudukan dan Lingkungan Hidup") lbxMataKuliah.Items.Add("Epidemiologi") lbxMataKuliah.Items.Add("Penyajian Data Statistik") lbxMataKuliah.Items.Add("Praktek Lapangan 3") lbxMataKuliah.Items.Add("Basisdata") lbxMataKuliah.Items.Add("Praktikum Basisdata") Visual Basic .Net lbxMataKuliah.Items.Add("Kerja Lab Pemrograman Visual (VB)") End Sub
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Jalankanlah program dengan cara mengklik icon Start Debugging pada Toolbar, dan klik setiap Button untuk melihat Daftar Mata Kuliah.
Gambar 3. 22 Hasil eksekusi Program Mata Kuliah
5. RadioButton dan CheckBox Latihan 3.5 : Membuat Program Rekam Medis
16
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Gambar 3. 23 Desain form Rekam Medis
Langkah-langkah membuat program : Desainlah Form Rekam Medis seperti pada gambar diatas; Aturlah nilai properti untuk setiap objek tersebut, sebagai berikut : Nama Komponen Form1
Label1 RadioButton1 RadioButton2 Label2 CheckBox1
CheckBox2
CheckBox3
CheckBox4
17
Visual Basic .Net
Properties Name Text Font Name Text Name Text Name Text Name Text Name Text Enabled Name Text Enabled Name Text Enabled Name Text
Values frmRM Mata Kuliah Bold, 10 label1 Jenis Rekam Medis rbt1 Pasien Rawat Inap rbt1 Pasien Rawat Jalan label2 Dokumen Rekam Medis ckbx1 Identitas Pasien False ckbx2 Pemeriksaan False ckbx3 Diagnosis/masalah False ckbx4 Persetujuan tindakan medis
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Enabled Name Text Enabled Name Text Enabled
CheckBox5
CheckBox6
False ckbx5 Tindakan/pengobatan False ckbx6 Pelayanan lain False
Pada Jendela Editor Kode, dan ketikkan kode program berikut : Public Class frmRM Private Sub frmRM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If rbt1.Checked = True Then rbt2.Checked = True Else ckbx1.Enabled = True ckbx2.Enabled = True ckbx3.Enabled = True ckbx4.Enabled = True ckbx5.Enabled = True ckbx6.Enabled = True End If End Sub End Class
Jalankanlah program dengan cara mengklik icon
Start Debugging pada Toolbar.
Gambar 3. 24 Hasil eksekusi Program Rekam Medis 18
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
c. Menggunakan Toolbox Container 1. GroupBox Latihan 3.6 : Membuat Program Data Pasien
Gambar 3. 25 Desain Form Data Pasien
Langkah-langkah membuat program : Susunlah beberapa objek dari Toolbox seperti pada tampilan form Data Pasien diatas; Aturlah nilai properti pada Jendela Properties untuk setiap objek tersebut, sesuai dengan tabel berikut : Nama Komponen Form1 GroupBox1
Label1
Label2
19
Visual Basic .Net
Properties Name Text Name Text Font BackColor Name Text Font Name Text
Values frmDataPasien DATA PASIEN gbxInput Input Data Pasien Bold, 12 PaleGreen labelID ID Pasien Bold, 10 labelNama Nama
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Label3
Label4
TexBox1
TexBox2
TexBox3
TexBox4
Button1
GroupBox2
Label5 Label6 Label7 Label8 ListBox1 ListBox2 ListBox3 ListBox4 Button2
Font Name Text Font
Bold, 10 labelJK Jenis Kelamin Bold, 10
Name Text Font Name Font BackColor Name Font BackColor Name Font BackColor Name Font BackColor Name Text Font Name Text Font BackColor Name Text Name Text Name Text Name Text Name BackColor Name BackColor Name BackColor Name BackColor Name Text Font
labelAlamat Alamat Bold, 10 txtID Reguler, 10 ActiveCaption txtNama Reguler, 10 ActiveCaption txtJK Reguler, 10 ActiveCaption txtAlamat Reguler, 10 ActiveCaption btnSimpan &Simpan Bold, 10 gbxFile File Data Pasien Bold, 12 PaleGreen labelID ID Pasien labelNama Nama labelJK Jenis Kelamin labelAlamat Alamat lbxID ActiveCaption lbxNama ActiveCaption lbxJK ActiveCaption lbxAlamat ActiveCaption btnClose &Close Bold, 10
Lakukan double klik pada Button Simpan, dan ketikkan kode program berikut : 20
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click lbxID.Items.Add(txtID.Text) lbxNama.Items.Add(txtNama.Text) lbxJK.Items.Add(txtJK.Text) lbxAlamat.Items.Add(txtAlamat.Text) End Sub
Lakukan double klik pada Button Close, kemudian ketikkan kode program berikut : Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Close() End Sub
Jalankanlah program dengan cara mengklik icon Start Debugging pada Toolbar, isilah setiap TexBox dan klik Button Simpan, hasil eksekusi program akan terlihat seperti pada gambar berikut :
Gambar 3. 26 Hasil eksekusi Program Identitas
2. TabControl Latihan 3.7 : Membuat Program Pemeriksaan Pasien
21
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Gambar 3. 27 Desain Form Tab Input
Gambar 3. 28 Desain Form Tab File
Langkah-langkah membuat program : Desainlah form dengan sebuah TabPage, kemudian atur masing-masing tab dan komponennya seperti pada gambar 3.27 dan 3.28. Aturlah nilai properti masing-masing komponen, sebagai berikut : Nama Komponen Form1 TabControl1 TabPage1 22
Visual Basic .Net
Properties Name Text Name Font Name
Values frmPemeriksaan PEMERIKSAAN PASIEN tbc1 Bold, 10 tbp1
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
TabPage2
Label1
Label2 Label3 Label4 TexBox1 TexBox2 TexBox3 Button1
Label5 Label6 Label7 Label8 ListBox1 ListBox2 ListBox3 Button2
Text BackColor Name Text BackColor Text Font Text Text Text Name Text Font Text Font Text Text Text Name Text Font
Tab Input Light Blue tbp2 Tab Fule Light Cyan Input Data Pemeriksaan Pasien Bold, 12 Kode Deskripsi Biaya btnSimpan &Simpan Bold, 10 File Hasil Pemeriksaan Pasien Bold, 12 Kode Deskripsi Biaya btnClose &Close Bold, 10
Lakukan double klik pada Button Simpan, dan ketikkan kode program berikut : Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click lbxID.Items.Add(txtID.Text) lbxNama.Items.Add(txtNama.Text) lbxJK.Items.Add(txtJK.Text) lbxAlamat.Items.Add(txtAlamat.Text) End Sub
Lakukan double klik pada Button Close, kemudian ketikkan kode program berikut : Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Close() End Sub
23
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Setelah program dijalankan, maka hasil eksekusinya seperti pada gambar berikut :
Gambar 3. 29 Hasil eksekusi program pada Tab Input
Gambar 3. 30 Hasil eksekusi program pada Tab File
24
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
d. Menggunakan Toolbox Menu dan Toolbar 1. MenuStrip Latihan 3.8 : Membuat Program MenuStrip
Gambar 3. 31 Desain Form MenuStrip
Langkah-langkah membuat program : Desainlah form dengan sebuah MenuSTrip, seperti pada tampilan desain form Menustrip diatas. Atur beberapa nilai properti pada Jendela Editor Kode untuk komponen-komponen tersebut, seperti berikut : Nama Komponen Form1 MenuStrip1
MenuItem1
MenuItem2
MenuItem3 25
Visual Basic .Net
Properties Name Text Text Font BackColor Text Font BackColor Text Font BackColor Text
Values frmMenuStrip Membuat MenuStrip Menu 1 Bold, 12 RoyalBlue Button Bold Italic, 10 Light Blue Label and Text Bold Italic, 10 Light Blue ComboBox
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
MenuItem4
MenuItem5
MenuStrip2
MenuItem1
MenuItem2
MenuStrip3
MenuItem1
Font BackColor Text Font BackColor Text Font BackColor Text Font BackColor Text Font BackColor Text Font BackColor Text Font BackColor Text Font BackColor
Bold Italic, 10 Light Blue ListBox Bold Italic, 10 Light Blue RadioButton and CheckBox Bold Italic, 10 Light Blue Menu 2 Bold, 12 RoyalBlue GroupBox Bold Italic, 10 Light Blue TabControl Bold Italic, 10 Light Blue Menu 3 Bold, 12 RoyalBlue Exit Bold Italic, 10 Light Blue
Pada MenuStrip3, double klik pada MenuItem1 (Exit), dan ketikkan kode program berikut : Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Close() End Sub
Jalankanlah program dengan cara mengklik icon Start Debugging pada Toolbar, hasil eksekusi program akan terlihat seperti pada gambar berikut :
26
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Gambar 3. 32 Hasil eksekusi program MenuStrip
2. ToolStrip Latihan 3.8 : Membuat Program ToolStrip
Gambar 3. 33 Desain Form ToolStrip
Langkah-langkah membuat program : Desainlah form dengan sebuah ToolStrip, seperti pada tampilan desain form Menustrip diatas.
27
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Untuk menambahkan objek ToolStrip, pada icon ToolStrip klik tanda segitiga ke bawah, sehingga akan muncul menu ToolStrip, kemudian pilih salah satu objek ToolStrip yang akan ditambahkan. Aturlah nilai properti beberapa objek ToolStrip tersebut, seperti berikut : Nama Komponen Form1 ToolStrip ToolStripLabel1 ToolStripProgressBar1 ToolSTripButton1
Properties Name Text BackColor Text Font Value Text
Values frmToolStrip Membuat ToolStrip RosyBrown Belajar VB Bold Italic, 10 50 &Exit
Lakukan double klik pada icon ToolStripButton1 (Exit), dan ketikkan kode program berikut : Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click Close() End Sub
Setelah program dijalankan, hasilnya akan terlihat seperti pada gambar berikut :
Gambar 3. 34 Hasil eksekusi Program ToolStrip
28
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
TUGAS 3.1 1) Buatlah Program Pelayanan Pasien dengan tampilan hasil running seperti pada gambar 3.35, dan ketika program dijalankan dapat menyimpan Input Data Pasien ke dalam File Data Pasien.
Gambar 3. 35 Hasil eksekusi Program Pelayanan Pasien
Langkah-langkah membuat program : Desainlah sebuah form yang tersusun dari beberapa objek, seperti pada tampilan gambar diatas. Aturlan nilai properties untuk masing-masing objek, sebagai berikut : Komponen/Objek pada Form Pasien Nama Komponen Form1
GroupBox1 Label1 Label2 Label3 Label4 Label5 29
Visual Basic .Net
Properties Name Font Text Text BacColor Text Text Text Text Text
Values frmPasien Bold, 10 PELAYANAN PASIEN Input Data Pasien PowderBlue No. Rekam Medis Nama Alamat TTL Jenis Kelamin
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Label6 Label7 Label8 Label9 Label10 Label11 Label12 TextBox1 TextBox2 TextBox3 TextBox4 DateTimePicker1 ComboBox1 ComboBox2
Items
ComboBox3
Items
TextBox5 TextBox6 TextBox7 DateTimePicker2 TextBox8 Button1 GroupBox2 Label13 Label14 Label15 Label16 Label17 Label18 Label19 Label20 Label21 Label22 Label23 Label24 LixtBox1 LixtBox2 LixtBox3 LixtBox4 LixtBox5 30
Text Text Text Text Text Text Text MultiLine ScrollBars Format Items
Visual Basic .Net
Format Text Text BackColor -
Status Nikah Golongan Darah Telepon Pekerjaan Keterangan Tgl. Registrasi Biaya Registrasi True Vertical Custom P L Nikah Blm. Nikah A B AB O Custom &Simpan File Data Pasien PowderBlue -
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
LixtBox6 LixtBox7 LixtBox8 LixtBox9 LixtBox10 LixtBox11 LixtBox12 Button2
Text
&Close
Listing program untuk Button Simpan, sebagai berikut :
Catatan : 1. Tugas dibuat dalam bentuk document (Ms.Word) dengan membuat : - Print Screen desain form. - Print Screen hasil eksekusi program ketika proses input data pasien dan ketika data berhasil disimpan ke dalam file data pasien. - Listing program dari beberapa Button yang diperlukan. 2. Tugas dikumpulkan dalam bentuk PrintOut .
31
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
TUGAS 3.2 1) Buatlah Program Pengenalan Komponen VB dengan tampilan hasil running seperti pada gambar 3.36, dan ketika program dijalankan dapat menyimpan Input Data ke dalam Data Store.
Gambar 3. 36 Hasil eksekusi Program Pengenalan Komponen VB
Langkah-langkah membuat program : Desainlah sebuah form yang tersusun dari beberapa objek, seperti pada tampilan gambar diatas. Aturlan nilai properties untuk masing-masing objek, sebagai berikut : Komponen/Objek pada Form Komponen VB Nama Komponen Form1
32
Visual Basic .Net
Properties Name Font Text
Values frmKomponenVB Tahoma, Bold, 10 Mengenal Komponen VB
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
GroupBox1 Label1 Label2 Label3 Label4 Label5 TextBox1 ComboBox1 RadioButton1 RadioButton2 RadioButton3 CheckBox1 CheckBox2 CheckBox3 DataTimePicker Button1 GroupBox2 Label6 Label7 Label8 Label9 Label10 Button2
33
Visual Basic .Net
Text BackColor Text Text Text Text Text Items Text Text Text Text Text Text Format Text Text BackColor Text Text Text Text Text Text
Input Data GradientActiveCaption Nama Jenis Kelamin Pendidikan Jurusan Tgl. Lahir L P DIII SI SII Kebidanan Rekam Medis Farmasi Custom &Simpan Input Data GradientActiveCaption Nama JK Pendidikan Jurusan Tgl. Lahir &Close
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Listing program untuk Button Simpan, sebagai berikut :
Catatan : 1. Tugas dibuat dalam bentuk document (Ms.Word) dengan membuat : - Print Screen desain form. - Print Screen hasil eksekusi program ketika proses input data dan ketika data berhasil disimpan ke dalam data store. - Listing program dari beberapa Button yang diperlukan. 2. Tugas dikumpulkan dalam bentuk PrintOut .
34
Visual Basic .Net