Tujuan
Memberikan pemahaman tentang tipe data dan variabel.
Tipe Data
Seperti bahasa pemrograman yang lain, Visual Basic .Net juga menyediakan berbagai tipe data yang dapat digunakan oleh pemrograman sesuai dengan konteks pemakaiannya. Berikut beberapa tipe data yang tersedia dalam VB.Net yang sering digunakan.
Variabel
Variabel merupakan tempat penyimpanan data. Variabel memiliki sebuah nama disertai dengan tipe data yang akan ditampung oleh variabel tersebut.
Berbeda dengan VB6, variabel dalam VB.Net harus dideklarasikan terlebih dahulu, jika tidak akan terjadi kesalahan Compiler.
Deklarasi Variabel
Dim merupakan keyword dalam pendeklarasian variabel.
Bentuk penulisan Deklarasi Variabel:
Dim a,b as integer
Dim i as string
Pemberian Nilai Awal pada Variabel
Bentuk Penulisan:
Bentuk Penulisan:
a=10
b=5
i=“Visual Basic”
Pendeklarasian Variabel disertai pemberian Nilai Awal
Bentuk Penulisan:
Bentuk Penulisan:
Dim a as integer = 10
Dim i as string = “Visual Basic”
Contoh Program
Private Sub Button1_Click(ByVal sender As System.Object,
Dim x,y,z as integer
x=15
y=5
z=x*y
TextBox1.Text=z
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,
Dim x,y,z as integer
x=15
y=5
z=x*y
TextBox1.Text=z
End Sub
Operasi Terhadap Tipe Data Numeric
Operasi terhadap tipe data numeric sama halnya melakukan perhitungan matematik atau aritmatika. Ada penjumlahan, pengurangan, perkalian, pembagian, dan sebagainya.
Untuk melakukan perhitungan matematika dibutuhkan operator aritmatika.
Berikut operator aritmatika sesuai urutan pengerjaannya :
^ : Perpangkatan
* : Perkalian
/ : Pembagian
+ : Penjumlahan
- : Pengurangan
Operasi terhadap tipe data numeric sama halnya melakukan perhitungan matematik atau aritmatika. Ada penjumlahan, pengurangan, perkalian, pembagian, dan sebagainya.
Untuk melakukan perhitungan matematika dibutuhkan operator aritmatika.
Berikut operator aritmatika sesuai urutan pengerjaannya :
^ : Perpangkatan
* : Perkalian
/ : Pembagian
+ : Penjumlahan
- : Pengurangan
Contoh Program:
Langkah 1
Buka Aplikasi Microsoft Visual Basic → File → New Project → WindowsApplication1 pada Name kita ubah sesuai keinginan → Klik OK
Maka akan muncul tampilan seperti dibawah
Langkah 2
Pada lembar kerja Form1, buatlah Objek seperti dibawah ini
Setelah itu kita ganti Nama Objek berikut dengan cara Klik 1x Objek → Properties → Text.
Maka Hasilnya seperti dibawah
Langkah 3
Pada TextBox 1-3 kita ubah Namanya menjadi:
TextBox1 → TxBil1
TextBox2 → TxBil2
TextBox3 → Txhasil
Langkah 4
Pada Objek (^) (*) (/) (+) (-) (Bersih) (Tutup) kita ubah Namanya menjadi:
(^)→ Btnpangkat
(*)→ Btnkali
(/)→ Btnbagi
(+)→ Btntambah
(-)→ Btnkurang
(Bersih)→ Btnbersih
(Tutup)→ Btntutup
Langkah 5
Setelah semua sudah diberi Nama, mari kita isi Programnya dengan cara dibawah ini:
- Klik 2x Objek (^) maka akan muncul Program dan kita isi dengan
Txhasil.Text = TxBil1.Text ^ TxBil2.Text
- Klik 2x Objek (*) maka akan muncul Program dan kita isi dengan
Txhasil.Text = TxBil1.Text * TxBil2.Text
- Klik 2x Objek ( / ) maka akan muncul Program dan kita isi dengan
Txhasil.Text = TxBil1.Text / TxBil2.Text
- Klik 2x Objek (+) maka akan muncul program dan kita isi dengan
Txhasil.Text = Val(TxBil1.Text) + TxBil2.Text
Val : berfungsi untuk mengubah tipe data string menjadi Numeric.
- Klik 2x Objek (-) maka akan muncul program dan kita isi dengan
Txhasil.Text = TxBil1.Text - TxBil2.Text
- Klik 2x Objek (Bersih) maka akan muncul program dan kita isi dengan
TxBil1.Text = ""
TxBil2.Text = ""
Txhasil.Text = ""
- Klik 2x Objek (Tutup) maka akan muncul program dan kita isi dengan
End
Setelah semua sudah selesai klik File → lalu Save
Setelah itu mari kita jalankan Aplikasi Operasi Matematikanya, dengan cara Klik Start Debugging atau tekan tombol F5.
Untuk menghentikan Aplikasi tekan Stop Debugging atau Tutup pada Aplikasi tersebut.
 | |||
| Hasil KALI 9*9 |
Sekian dulu dari saya, semoga Tutorial ini berguna bagi teman-teman semua. Terimakasih 😇
Script Kode diatas sbb:
Public Class Form1
Private Sub Btnpangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpangkat.Click
Txhasil.Text = TxBil1.Text ^ TxBil2.Text
End Sub
Private Sub Btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkali.Click
Txhasil.Text = TxBil1.Text * TxBil2.Text
End Sub
Private Sub Btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbagi.Click
Txhasil.Text = TxBil1.Text / TxBil2.Text
End Sub
Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click
Txhasil.Text = Val(TxBil1.Text) + TxBil2.Text
End Sub
Private Sub Btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkurang.Click
Txhasil.Text = TxBil1.Text - TxBil2.Text
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
TxBil1.Text = ""
TxBil2.Text = ""
Txhasil.Text = ""
End Sub
Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
End
End Sub
End Class
Catatan:
Val : berfungsi untuk mengubah tipe data string menjadi Numeric.
===========================
LATIHAN 1
Membuat Program untuk Luas dan Keliling Persegi Panjang dengan tampilan sbb:
1. Desain Program
2. Pengaturan Properties
Keliling = (2 x Panjang) + (2 x Lebar)
Luas = Panjang x Lebar
3. Kode Program
Public Class Form1
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
txtLuas.Text = txtP.Text * txtL.Text
txtKel.Text = Val(2 * txtP.Text) + Val(2 * txtL.Text)
End Sub
Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
txtP.Text = ""
txtL.Text = ""
txtKel.Text = ""
txtLuas.Text = ""
End Sub
Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click
End
End Sub
End Class
4. Hasil Program
Setelah semua selesai di Input dengan benar, mari kita lakukan Start Debugging atau dengan menekan tombol F5. Untuk menghentikan Progam bisa menekan Tombol Tutup atau Stop Program.
Maka tampilannya seperti dibawah ini:
Dan itulah Tutorial untuk mencari Luas dan Keliling Persegi Panjang, semoga Tutorial diatas bisa membantu teman-teman semuanya. Terimakasih 😇
===========================
LATIHAN 2
Membuat Program untuk mencari Luas dan Keliling Segitiga dengan tampilan sbb:
1. Desain Program
 |
| Desain Program |
2. Pengaturan Properties
 |
| Tabel Properties |
Rumus Luas dan Keliling Segitiga :
Luas = ½ x Alas x Tinggi
Keliling = Sisi A + Sisi B + Sisi C
3. Kode Program
Public Class Form1
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
txtLuas.Text = Val(0.5 * txtA.Text) * txtT.Text
txtKel.Text = Val(txtSA.Text) + Val(txtSB.Text) + Val(txtSC.Text)
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
txtA.Text = ""
txtT.Text = ""
txtSA.Text = ""
txtSB.Text = ""
txtSC.Text = ""
txtLuas.Text = ""
txtKel.Text = ""
End Sub
Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
End
End Sub
End Class
Catatan:
Val : berfungsi untuk mengubah tipe data string menjadi Numeric.
4. Hasil Program
Setelah semua selesai di Input dengan benar, mari kita lakukan Start Debugging atau dengan menekan tombol F5. Untuk menghentikan Progam bisa menekan Tombol Tutup atau Stop Program.
Maka tampilannya akan seperti dibawah ini:
 |
| Tampilan Program |
 |
| Tampilan Hasil Program |
Sumber :
STMIK Triguna Dharma Medan
Tidak ada komentar:
Posting Komentar