Mungkin saya baru main VB, jadi saya mau share ilmu juga :D, biar sesama newbie kan harus solid, saling memberi tahu. silahkan langsung aja di baca dlu :D
*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 Aplication
Isi 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 >>
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 >>
Gambar 1
Gambar 2
Gambar 3
Gambar 4
Berikut Codenya :D
Public Class Form1 'Name: Janggawareng 'Home-Base: www.nyit-nyit.net 'Date: Isikan Sesuai Selera '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
Special Thanks to Om Janggawareng N3
0 Komentar