Tipe Data Dan Variabel

KHAIRIL MUFLIH NASUTION<*_^>.....

BAB III

TIPE DATA DAN VARIABEL

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:

Contoh:

Dim a,b as integer

Dim i as string

Pemberian Nilai Awal pada Variabel

Bentuk Penulisan:

Contoh:

a=10

b=5

i=“Visual Basic”

Pendeklarasian Variabel disertai pemberian Nilai Awal

Bentuk Penulisan:

 

Contoh:

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

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

Berikut adalah Contoh Programnya:

1. Desain program

2. Pengaturan Properties

3. Pemberian Perintah/Instruksi pada Program

     Alur Program:

➤  Input Bilangan1 dan Bilangan2

➤  Klik salah satu tombol Operator, maka akan tampil hasil perhitungan sesuai operator.

-     Tombol ^   :    untuk memangkatkan

-     Tombol *   :    untuk mengalikan

-     Tombol /   :    untuk membagi

-     Tombol +  :    untuk menambahkan

-     Tombol -   :    untuk mengurangkan

➤  Klik tombol Bersih, maka isi Bilangan1, Bilangan2 dan Hasil akan bersih (kosong).

➤  Klik tombol Tutup, maka program akan ditutup.

Perintah Program:

     Private Sub btnpangkat_Click(ByVal sender As System.Object,

        txthasil.Text = txtbil1.Text ^ txtbil2.Text

  End Sub

       Private Sub btnkali_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text * txtbil2.Text

  End Sub

   Private Sub btnbagi_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text / txtbil2.Text

  End Sub

 Private Sub btntambah_Click(ByVal sender As System.Object,

    txthasil.Text = Val(txtbil1.Text) + txtbil2.Text

  End Sub

Private Sub btnkurang_Click(ByVal sender As System.Object,

         txthasil.Text = txtbil1.Text - txtbil2.Text

  End Sub

4. Hasil Program Ketika Dijalankan

Berikut adalah hasil Perpangkatan :

Catatan:

Val : berfungsi untuk mengubah tipe data string menjadi Numeric.

Nah Sekarang Kita Coba latihan berikut ini:

Latihan:

Buat program untuk menghitung Luas dan Keliling Persegi Panjang dengan tampilan sbb:

1. Desain Program

 

  

2. Pengaturan Properties

  

3.Kode Program

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtkeliling.Enabled = False
        txtluas.Enabled = False
    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        Dim panjang As Long
        Dim lebar As Long

        panjang = txtpanjang.Text
        lebar = txtlebar.Text

        txtkeliling.Text = 2 * (panjang + lebar)
        txtluas.Text = panjang * lebar
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        txtpanjang.Text = ""
        txtkeliling.Text = ""
        txtlebar.Text = ""
        txtluas.Text = ""

    End Sub
End Class

4. Hasil Program ketika dijalankan

SELESAI 😁 Terimakasih sudah mengujungi blog saya, Semoga Bermanfaat