Dasar Visual Basic Part I

Selamat malam sahabat Blog Semua.

Disini saya bukan bermaksud untuk menggurui atau bahkan ngajarin temen-temen semua, saya disini hanya sekedar berbagi dan saling bertukar pikiran tentang salah satu bahasa pemrograman yaitu Visual Basic. Visual Basic yang saya gunakan adalah VB 2010.

Kita sebut saja tutorial ini merupakan Tutorial Awal atau Dasar Visual Basic (Part 1).
Materi yang Akan Dibahas:

• Pengenalan Tipe data & Variabel
• Input & Output
• Message Box & Comand Button
• Struktur Program & Flow Chart

Langkah-Langkah Memulai VB 2010 & Membuat Program:  

Program Yang Saya Buat "Menghitung Luas Segitiga dan Phytagoras"

Buka VB 2010 Express

Klik "New Project"Pilih Windows Forms AplicationIsi Name = "(Bebas Tersarah Anda)" Lalu klik "Ok"Nanti akan muncul 1 Form, Lihat Gambar 1

Klik Comand Button, dan drag ke Form, Lihat Gambar 2

Klik 2x pada Comand Button >>akan muncul Listing Program >> Lihat Gambar 3

Lau isikan Code Berikut Pada Form, Lihat Source Code 1

Public Class Form1

        'Name: Janggawareng
        'Home-Base: www.nyit-nyit.net
        'Date: 4 December 2011 (11:08 PM)
        'Desc: VB Tutorial Part 1 "Program Menghitung Luas Segitiga dan Phytagoras"

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

                '//Pendeklarasian Tipe data & Variabel//
                Dim Nama As String
                Dim Alas As Single
                Dim Tinggi As Single
                Dim Luas As Single
                Dim Sisi_Miring As Single

                Try

                        '//Peng-Inputan Data
                        Nama = InputBox("Siapa Nama Anda? ")
                        Alas = InputBox("Berapa Alas Segitiga-nya ??")
                        Tinggi = InputBox("Berapa Tinggi Segitiga-nya ??")

                        '//Proses Data
                        Luas = (Alas * Tinggi) / 2
                        Sisi_Miring = ((Alas ^ 2) + (Tinggi ^ 2)) ^ 0.5

                        '//Output Data
                        MsgBox(Nama & ", Nilai Luas Segitiga-mu adalah = " & Luas)
                        MsgBox(Nama & ", Nilai Sisi Miring Segitiga-mu adalah = " & Sisi_Miring)

                Catch ex As Exception
                End Try

        End Sub
End Class

Lalu tekan "F5" atau klik tanda "Play" untuk proses Debugging.Untuk FlowChart (Aliran Proses) Lihat Gambar 4

Macam-Macam Tipe Data & Jangkauan, Lihat Spoiler Tipe Data

Integer (Jangkauan) -32768 s/d 32768 Bilangan Bulat
Long (Jangkauan) - 321474883648 s/d 2147483647 Bilangan Bulat
Single (Jangkauan) -3.402823E38 s/d 3.402823E38 Bilangan Rill
Double (Jangkauan) -4.90656481247E-324 s/d 4.90656481247E-324 Bilangan Rill
String (Jangkauan) 0 ... 2E32 Karakter
Byte (Jangkauan) 0 ... 255 Bilangan Bulat
Boolean (Jangkauan) True or False

Semoga dapat membantu teman-teman semua, jika ada hal yang ingin ditanyakan silahkan kita diskusikan disini. Untuk selanjutnya akan bersambung ke Dasar Visual Basic Part 2 "Fungsi IF Then atau Perintah Bersyarat".

Dasar Visual Basic Part I

Dasar Visual Basic Part II
Dasar Visual Basic Part III