Archive for April 2018
Kuliah 3 Membuat program operasi matematika dan persegi panjang (Tipe Data dan Var)
1
Assalamualaium semua, disini saya kembali menuliskan hasil perkuliahan saya pada mata kuliah pemrograman visual. pada kali ini saya akan share contoh membuat program operasi matematika atau yang sering kita kenal sebagai Kalkulator dan program persegi panjang.
Okelah langsung aja ya gan :D
1. Desain Program Kalkulator
2. Pengaturan Properties
Okelah langsung aja ya gan :D
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.
|
Data
Type
|
Size
in
Bytes
|
Return
Value
|
Type
|
|
Tipe Data Numeric
|
|||
|
Byte
|
1
|
8-bit unsigned integer (0 – 255)
|
System.Byte
|
|
Integer
|
3
|
32-bit
signed integer
(-2.147.483.648 s/d 2.147.483.647)
|
System.Int32
|
|
Long
|
8
|
64-bit
signed integer
-9.223.372.036.854.775.808
s/d
9.223.372.036.854.775.807
|
System.Int64
|
|
Double
|
8
|
64-bit
floating point variabel
(5E-324
s/d 1.8E+10308)
|
System.Double
|
|
Decimal
|
16
|
128-bit
floating point variabel
(Nilai
hingga 28 digit)
|
System.Decimal
|
|
Tipe Data Karakter
|
|||
|
Char
|
2
|
16-bit unicode characters
|
System.Char
|
|
String
|
Varies
|
Non-Numeric Type
|
System.String
|
|
Tipe Data Tanggal
|
|||
|
Date
|
8
|
0:00:00
on Januari 1, 0001 through 11:59:59 PM on December 31, 9999
|
System.Date
|
|
Tipe Data Logika
|
|||
|
Boolean
|
2
|
True or
False
|
System.Boolean
|
|
Tipe Data Object
|
|||
|
Object
|
4
|
Any
type can be stored in variable of type object
|
System.Object
|
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
(namavariabel) as (tipedata)
Contoh:
Dim a,b as integer
Dim i as string
Pemberian Nilai Awal pada Variabel
Bentuk Penulisan:
(namavariabel)
= NilaiAwal
Contoh:
a=10
b=5
i=“Visual Basic”
Pendeklarasian Variabel disertai pemberian Nilai Awal
Bentuk Penulisan:
Dim (namavariabel) as (tipedata) = NilaiAwal
Contoh:
Dim a as integer = 10
Dim i as string = “Visual
Basic”
Contoh Program
PUBLIC Z AS INTEGER
Private Sub Button1_Click(ByVal
sender As System.Object,
Dim x,y 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 1. Desain Program Kalkulator
NO.
|
OBJEK
|
PROPERTIES
|
PENGATURAN
|
1
|
Label1
|
Text
|
OPERASI MATEMATIKA
|
Font Size
|
9
|
||
Bold
|
True
|
||
2
|
Label2
|
Text
|
Bilangan 1 :
|
3
|
Label3
|
Text
|
Bilangan 2 :
|
4
|
Label4
|
Text
|
Hasil :
|
5
|
Label5
|
Text
|
OPERATOR
|
Bold
|
True
|
||
6
|
TextBox1
|
Name
|
txtbil1
|
7
|
TextBox2
|
Name
|
txtbil2
|
8
|
TextBox3
|
Name
|
Txthasil
|
9
|
Button1
|
Text
|
^
|
Size
|
10
|
||
Name
|
Btnpangkat
|
||
10
|
Button2
|
Text
|
*
|
Size
|
10
|
||
Name
|
Btnkali
|
||
11
|
Button3
|
Text
|
/
|
Name
|
Btnbagi
|
||
12
|
Button4
|
Text
|
+
|
Size
|
9
|
||
Name
|
Btntambah
|
||
13
|
Button5
|
Text
|
-
|
Size
|
10
|
||
Name
|
Btnkurang
|
||
14
|
Button6
|
Text
|
Bersih
|
Name
|
Btnbersih
|
||
15
|
Button7
|
Text
|
Tutup
|
Name
|
Btntutup
|
3. Alur dan perintah yang diharapkan
Alur Program
* Input bilangan 1 dan bilangan 2.
* Klik salah satu tombol operator, maka akan tampil perhitungan sesuai operator.
Tombol ^ Pangkat
Tombol * Kali
Tombol / Bagi
Tombol + Tambah
Tombol - Kurang
*Klik tombol bersih, maka bil 1 dan bil 2 dan hasil akan terhapus.
*Klik tmbol 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
Dan hasilnya akan seperrti ini
Selanjutnya kita akan membuat program persegi panjang seperti di bawah ini.
Skrip Kodenya beriku ini:
Public Class Form2
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
txtpanjang.Clear()
txtlebar.Clear()
txtluas.Clear()
txtkeliling.Clear()
End Sub
Private Sub txtp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpanjang.TextChanged
End Sub
Private Sub txtl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlebar.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim panjang, lebar As Integer
Dim Luas As Integer
Dim Keliling As Integer
panjang = Val(txtpanjang.Text)
lebar = Val(txtlebar.Text)
Luas = Val(txtluas.Text)
Keliling = Val(txtkeliling.text)
Luas = (panjang * lebar)
txtluas.Text = Luas
Keliling = (2 * (panjang + lebar))
txtkeliling.Text = Keliling
End Sub
End Class
Dan Hasilnya seperti ini gan :D
Oke gan n sist itu dulu yang dapat saya berikan kali ini semoga menambah ilmu dan wawasan kalian.
Terima Kasih telah membaca. Wassalamualaikum :D
