Visual Basic Lanjutan Teori 1 Variabel dan Type Data

Assalamu’alaikum warahmatullahi wabarakatuh..
Segala puji bagi Allah SWT yang telah memberikan saya kemudahan sehingga saya dapat menyelesaikan postingan blog ini. Tanpa pertolongan-Nya tentunya saya tidak akan sanggup untuk menyelesaikan postingan blog ini dengan baik. Shalawat serta salam semoga terlimpah curahkan kepada baginda tercinta kita yaitu Nabi Muhammad SAW yang kita nanti-natikan syafa’atnya di akhirat nanti.


Disini saya akan membahas materi tentang Variabel dan Type Data. Saya akan menjelaskan beberapa pengertian, struktur, deklarasi dll. Oke langsung saja kita bahas, check it out...

Variabel

• Variabel adalah suatu tempat dalam memori komputer yang digunakan untuk menimpan sementara data-data selama dioperasikan, seperti menghitung, memberi informasi dan sebagainya.
• Variabel memiliki nama dan isinya disesuaikan dengan tipe data yang disimpan.

Aturan Penamaan Variabel

1. Karakter pertama harus dimulai dengan huruf (abjad).
2. Karakter yang diperbolehkan hanya huruf, angka, dan garis bawah ( _ ).
3. Panjang nama variabel tidak boleh lebih dari 255 karakter.
4. Tidak boleh mengandung spasi.
5. Nama variabel harus unik atau tidak boleh sama dalam sebuah lingkup variabel.
6. Tidak boleh menggunakan keyword atau syntax yang sudah ada dalam bahasa pemrograman VB.Net seperti : module, class, integer, for, dan sebagainya.

Deklarasi

Contoh : 

• Dim kota As String atau
• Dim NamaDesa As String
• Public harga  As Integer

Pengisian Nilai Variabel

• Variabel yang telah dibuat dapat diisi dengan nilai sesuai dengan tipe data variabel tersebut.
• Untuk mengisi variabel dibutuhkan operator penugasan yaitu Sama Dengan (=).

Tipe Data

• Merupakan suatu penggolongan jenis data berdasarkan kategori data, ukuran, dan kegunaan data yang dapat ditampung oleh sebuah variabel dalam media.

Contoh:

1. Integer : untuk menampung bilangan bulat dengan daya tampung maksimal 11 karakter atau 2 miliar.
2. Double : type data untuk menampung bilangan pecahan dan ukuran sangat besar.
3. String : Tipe data yang digunakan untuk menampung text atau kumpulan dari karakter.
4. Boolean : Merupakan tipe data logika yang hanya memiliki dua nilai yaitu true dan false.

• Jenis data yang disimpan dalam variabel.
• Tipe data untuk Visual BASIC adalah sebagai berikut.

1. Tipe Data Numerik: digunakan untuk menyimpan data numerik, terdiri dari:

    2. Tipe Data String : digunakan untuk menyimpan data berbentuk karakter.

• Panjang maksimal karakter yang dapat disimpan adalah 2 milyar karakter.
• Penulisan data dengan tipe ini diawali dan diakhiri dengan tanda petik dua (“).

Contoh:

• Dim Nama As String
• Nama = “Ilham Ramadhan”   

    3. Tipe Data Logika (Boolean) : Melakukan pengetesan logika.

• Data dengan tipe data ini hanya dapat bernilai benar (True) atau salah(False).

Contoh:

• Dim Baru As Boolean 
• Baru = True

Latihan 1 Program Variabel

• Ketika Form dijalankan, input nama anda di textbox1.
• Ketika di klik Button OK, maka akan muncul isi di textbox2 seperti yang diinput di textbox1.

• Source Code

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Deklarasi Variabel Nama

        Dim nama As String

        'Mmendefinisikan variabel nama untuk Object Textbox1

        nama = TextBox1.Text

        'Memberikan Nilai  Untuk Object Textbox2 dari Variabel nama

        TextBox2.Text = "Nama Anda Adalah : " + nama

    End Sub

End Class

Local Variabel

• Variabel lokal merupakan variabel yang hanya bisa digunakan didalam satu blok program saja dan tidak bisa digunakan oleh blok program lain.
• Format : Dim Nama_Variabel As Tipe data

Contoh:

• Dim A As Integer
• Dim B As Single
• Dim C As Double

Global Variable

• Variabel Global merupakan variabel yang bisa digunakan oleh semua blok program.
• Format : Public Nama_Variabel As Tipe data 

Contoh:

• Dim A As Integer
• Dim B As Single
• Dim C As Double

Structure

• Struktur merupakan tipe data yang dibuat sendiri dari penggabungan dari beberapa variabel yang dideklarasikan dengan tipe data yang berbeda, sebelum digunakan maka structure harus dibuat.
• Contoh penulisan struktur:

[private|public] Structure NamaStructure

Nama variabel as tipe data
Nama variabel 2 as tipe data
Nama Variabel 3 as tipe data

End Structure  

Latihan 2 (Structure)

• Ketika  form dijalankan, isi textbox kosong.
• Klik tombol proses, maka data-data mobil akan terisi.
• Button bersih untuk membersihkan semua textbox.
• Keluar untuk keluar dari aplikasi.

• Source Code

Public Class Form2

    Public Structure mobil

        Dim warna As String

        Dim jumlah_pintu As Byte

        Dim merk As String

        Dim besar_silinder As String 'LaptopInformatika.com

    End Structure

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim data As mobil

        data.warna = "Merah"

        data.merk = "Toyota Avanza"

        data.jumlah_pintu = 4

        data.besar_silinder = 2.2

        TextBox1.Text = data.warna

        TextBox2.Text = data.merk

        TextBox3.Text = data.jumlah_pintu

        TextBox4.Text = data.besar_silinder  'LaptopInformatika.com

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim pesan As String

        pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com

        If pesan = vbYes Then

            Close()

            End

        End If

    End Sub

End Class

Konversi Data 

• Konversi data merupakan fungsi yang digunakan untuk melakukan perubahan tipe data dari suatu bentuk ke bentuk lainnya.
• Dibawah ini bentuk-bentuk fungsi yang digunakan untuk melakukan konversi tipe data.

• Untuk melakukan konversi tipe data kita bisa menggunakan perintah Convert.

Latihan 3 (Konversi Data)

• Desain form seperti disebelah.
• Ketika form dijalankan, isi textbox kosong.
• Klik Tombol Proses maka data-data akan terisi.
• Button bersih untuk membersihkan semua textbox.
• Keluar untuk keluar dari aplikasi.

• Source Code

Public Class Form3

    Public a As String

    Public b As Integer

    Public c As Integer

    Public hasil As Double

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        a = "100"

        b = 40

        c = Convert.ToInt32(a) 'konversi data ke type Data Integer

        hasil = b * c

        TextBox1.Text = a

        TextBox2.Text = hasil.ToString 'LaptopInformatika.com

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim pesan As String

        pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com

        If pesan = vbYes Then

            Close()

            End

        End If

    End Sub

End Class

Oke itu tadi ada beberapa contoh simple dan mudah Latihan 1 s/d Latihan 3. Saya akan memberikan contoh lain yang agak berbeda tentunya lebih hard lagi hehehe, oke lanjut...


Kasus 1 (Tipe Data dan Variabel)

• Ketika Form dijalankan, Input Nik, nama karyawan, pilih jabatan dan alamat.
• Gunakan Event Keypress untuk mengisi data dan aktifkan di isian berikutnya.
• Ketika di Klik Button Proses, isian akan tampil di textbox 4 sd 7 di groupbox biodata karyawan.
• Button Clear untuk membersihkan Layar.
• Button Keluar untuk Keluar dari aplikasi.

• Souce Code

Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Manager") 'LaptopInformatika.com
        ComboBox1.Items.Add("Supervisor")
        ComboBox1.Items.Add("Staff")
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.TextBox2.Focus()
        End If
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.ComboBox1.DroppedDown = True 'LaptopInformatika.com
        End If
    End Sub

    Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.TextBox3.Focus()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim induk, karyawan, jabatan, alamat As String
        induk = TextBox1.Text
        karyawan = TextBox2.Text
        jabatan = ComboBox1.Text
        alamat = TextBox3.Text

        TextBox4.Text = induk
        TextBox5.Text = karyawan 'LaptopInformatika.com
        TextBox6.Text = jabatan
        TextBox7.Text = alamat
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        ComboBox1.SelectedIndex = -1 'LaptopInformatika.com
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
        If pesan = vbYes Then
            Close()
            End
        End If
    End Sub

End Class

Kasus 2 ( Tipe Data dan Variabel)

• Ketika Form dijalankan, Input Kode, Nama Buku, ISBN, Kategori dan Harga.
• Gunakan Event Keypress untuk mengisi data dan aktifkan di isian berikutnya.
• Ketika di Klik Button Proses, isian akan tampil di Groupbox Output Data.
• Button Clear untuk membersihkan Layar.
• Button Keluar untuk Keluar dari aplikasi.

• Source Code

Public Class Form5
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Ekonomi")
        ComboBox1.Items.Add("Hukum")
        ComboBox1.Items.Add("Sosial")
        ComboBox1.Items.Add("Pendidikan") 'LaptopIinformatika.com
        ComboBox1.Items.Add("Komputer")
        ComboBox1.Items.Add("Politik")
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.TextBox2.Focus()
        End If
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.TextBox3.Focus()
        End If
    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.ComboBox1.DroppedDown = True 'LaptopIinformatika.com
        End If
    End Sub

    Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.TextBox4.Focus()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kode_buku, nama_buku, isbn, kategori, harga As String
        kode_buku = TextBox1.Text
        nama_buku = TextBox2.Text
        isbn = TextBox3.Text
        kategori = ComboBox1.Text 'LaptopIinformatika.com
        harga = TextBox4.Text

        TextBox5.Text = kode_buku
        TextBox6.Text = nama_buku
        TextBox7.Text = isbn
        TextBox8.Text = kategori
        TextBox9.Text = harga
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        ComboBox1.SelectedIndex = -1 'LaptopIinformatika.com
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopIinformatika.com
        If pesan = vbYes Then
            Close()
            End
        End If
    End Sub
End Class

Kasus 3 ( Tipe Data dan Variabel)

• Ketika Form dijalankan, Nim, nama, jenis kelamin, jursan dan alamat anda.
• Gunakan Event Keypress untuk mengisi data dan aktifkan di isian berikutnya.
• Ketika di Klik Button Proses, isian akan tampil di Groupbox Output Data.
• Button Clear untuk membersihkan Layar.
• Button Keluar untuk Keluar dari aplikasi.

• Source Code

Public Class Form6

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Laki-Laki")
        ComboBox1.Items.Add("Perempuan")
        ComboBox1.Items.Add("Waria")
        ComboBox2.Items.Add("Teknik Infirmatika")
        ComboBox2.Items.Add("Sistem Informasi")
        ComboBox2.Items.Add("Teknik Mesin")
        ComboBox2.Items.Add("Teknik Industri")
        ComboBox2.Items.Add("Teknik Kelautan")
        ComboBox2.Items.Add("Ekonomi")
        ComboBox2.Items.Add("Sastra Jepang")
        ComboBox2.Items.Add("Sastra China")
        ComboBox2.Items.Add("Akuntansi")
        ComboBox2.Items.Add("Manajemen") 'LaptopInformatika.com
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.TextBox2.Focus()
        End If
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.TextBox3.Focus()
        End If
    End Sub

    Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.ComboBox2.DroppedDown = True 'LaptopInformatika.com
        End If
    End Sub

    Private Sub ComboBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            Me.ComboBox2.DroppedDown = True 'LaptopInformatika.com
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim induk_mhs, nama_mhs, jenis_kelamin, jurusan, alamat As String
        induk_mhs = TextBox1.Text
        nama_mhs = TextBox2.Text
        jenis_kelamin = ComboBox1.Text
        jurusan = ComboBox2.Text
        alamat = TextBox3.Text

        TextBox4.Text = induk_mhs
        TextBox5.Text = nama_mhs
        TextBox6.Text = jenis_kelamin 'LaptopInformatika.com
        TextBox7.Text = jurusan
        TextBox8.Text = alamat
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        ComboBox1.SelectedIndex = -1
        ComboBox2.SelectedIndex = -1
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear() 'LaptopInformatika.com
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
        If pesan = vbYes Then
            Close()
            End
        End If
    End Sub
End Class

Oke segitu dulu ya teman-teman untuk materi dan pelajarannya, nanti mudah-mudahan aja bisa lanjut belajar lagi lain waktu hehehe. Comment dan share ya teman-teman untuk membuat materi selanjutnya dan berikan saran dan masukannya... Thank you...! 😉😉😉

Share this post

Berlangganan update artikel terbaru via email: