Pengertian Variabel
- Penamaan variabel harus diawali dengan karakter huruf, tidak boleh diikutidengan karakter lain kecuali underscore(“_”).
- Perintah yang dibuat oleh vb.net tidak boleh digunakan sebagai nama variabel.
- Nama variabel tidak boleh sama dalam prosedur yang sama.
- Tidak boleh mengandung spasi.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Bilangan1, Bilangan2 As Integer
Bilangan1 = 8
Bilangan2 = 3
TextBox1.Text = Bilangan1*Bilangan2
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Bilangan1, Bilangan2 As Integer
Bilangan1 = 10
Bilangan2 = 5
TextBox2.Text = Bilangan1+Bilangan2
End Sub
Perhatikan tulisan yang tebal dan berwarna merah diatas, jika kita menggunakan variabel lokal, maka kita harus mendeklarasikan kembali variabel di setiap blok program, karena variabel lokal hanya berlaku untuk satu blok program saja yaitu blok program itu sendiri.
Variabel global
Variabel global merupakan variabel yang bisa digunakan oleh semua blok program. Perhatikan kode dibawah ini :
Public Bilangan1, Bilangan2 As Integer
Bilangan1 = 8
Bilangan2 = 3
TextBox1.Text = Bilangan1*Bilangan2
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Bilangan1 = 8
Bilangan2 = 3
TextBox1.Text = Bilangan1*Bilangan2
End Sub
Perhatikan tulisan yang bercetak tebal dan berwarna merah diatas. Kita dapat menggunakan variabel tersebut di semua blok program, sehinga kita bisa langsung memasukkan nilainya pad variabel tersebut tanpa perlu mendeklarasikannya kembali.
Deklarasi variabel pada VB.Net
Di VB.Net, cara mendekalarasikan variabel yaitu dengan menggunakan perintah Dim untuk menggunakan variabel lokal dan perintah public untuk variabel global. Berikut sintaks untuk mendefinisikan variabel.
Variabel lokal
Inisialisasi variable
Pada hari ini gue akan share tentang software untuk menghitung Keliling dan luas layang - layang. Terima Kasih gue ucapin untuk para temen - temen gue yang telah membantu gue untuk menyelesaikan software Kl Layang - layang ini. Bagi kalian yang ingin mencoba software ini gue persilahkan untuk mendownload di link di bawah ini. Bagi kalian yang mempunyai saran dan kritik bisa komen di bawah guys. Gue sangat berterima Kasih banget kalo loe semua mau memberi kritik dan saran atas software yang telah gue buat ini. Sebelum nya gue juga udah share tentang cara pembuatan software ini yaitu di sini...
Cara penggunaan software ini sudah terdapat di dalam file rar nya guys, jadi loe gak usah bingung untuk cara menggunakan nya. Ok guys langsung saja gue berikan link download nya...
DOWNLOAD Via tusfiles
Setelah gue post tentang software Menghitung persegi, kali ini gue akan lanjutin dengan software menghitung bangun datar persegi panjang. Software ini tidak beda jauh dari software menghitung bangun datar persegi panjang.
Software ini berfungsi untuk :
1. Menghitung luas dan keliling persegi panjang jika diketahui panjang dan lebar.
2. Menghitung panjang jika diketahui luas dan lebar, atau keliling dan lebar.
3. Menghitung lebar jika diketahui luas dan panjang, atau keliling dan panjang.
Mungkin untuk sementara software ini hanya memiliki fungsi seperti itu. Dan berharap untuk kedepannya software ini bisa berkembang lebih baik lagi.
Silahkan bagi yang ingin mendownload dan terima kasih bagi yang sudah download maupun yang datang berkunjung.
Link download
Via tusfiles DOWNLOAD
Via usercloud DOWNLOAD
Tanpa banya ngomong lagi, silahkan download saja di bawah ini.
Thanks banget gan bagi yang udah download, gue harap loe semua gak kecewa. Jangan lupa tunggu karya gue berikutnya....
.
Langkah 1 : membuat desain form
Buat form baru dengan cara klik file – new – project – windows form application
Buatlah desain form seperti gambar diatas
Komponen yang dibutuhkan adalah 1 buah picturebox, 3 buah button, 13 label, 1 buah groupbox, 12 buah radiobutton, 12 buah textbox
Nb : pada gambar diatas ada dua operasi untuk menghitung panjang dg yaitu dg dan dg 2. Yang perlu diketahui adalah operasi panjang dg digunakan jika yang dii tanyakan panjang dg dan yang diketahui adalah panjang cd dan panjang cg sementara operasi panjang dg 2 digunakan jika ditanyakan panjang dg sementara yang diketahui adalah panjang de dan panjang eg.
Langkah 2 : ,memberi nilai pada masing2 komponen
Klik pada komponen yang akan diberi nilai kemudian masukkan nilai berikut pada properti komponen.
Langkah 3 : listing code
Klik view – code atau shortcut F7 untuk memulai memasukkan kode
Masukkan kode seperti dibawah ini
Public Class Form1
Public operasi As Byte
Public diagonal1 As Double
Public diagonal2 As Double
Public luas As Double
Public keliling As Double
Public hasila As Double
Public hasilb As Double
Public hasilc As Double
Public akhir As Double
Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
Me.Close()
End Sub
Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
If operasi = "1" Then
luas = txtd1.Text * txtd2.Text * 1 / 2
txtluas.Text = luas
ElseIf operasi = "2" Then
hasila = Double.Parse(txtcd.Text) + Double.Parse(txtde.Text)
keliling = 2 * (hasila)
txtkeliling.Text = keliling
ElseIf operasi = "3" Then
hasila = 1 / 2 * Double.Parse(txtd2.Text)
diagonal1 = Double.Parse(txtluas.Text) / (hasila)
txtd1.Text = diagonal1
ElseIf operasi = "4" Then
hasila = txtcg.Text ^ 2
hasilb = txtdg.Text ^ 2
hasilc = hasilb + hasila
akhir = Math.Sqrt((hasilc))
txtcd.Text = akhir
ElseIf operasi = "5" Then
hasila = txtcd.Text ^ 2
hasilb = txtcg.Text ^ 2
hasilc = hasila - hasilb
akhir = Math.Sqrt((hasilc))
txtdg.Text = akhir
ElseIf operasi = "6" Then
hasila = txtcd.Text ^ 2
hasilb = txtdg.Text ^ 2
hasilc = hasila - hasilb
akhir = Math.Sqrt((akhir))
txtcg.Text = akhir
ElseIf operasi = "7" Then
hasila = 1 / 2 * Double.Parse(txtd1.Text)
diagonal2 = Double.Parse(txtluas.Text) / (hasila)
txtd2.Text = diagonal2
ElseIf operasi = "8" Then
hasila = Double.Parse(txtdg.Text) ^ 2
hasilb = Double.Parse(txteg.Text) ^ 2
hasilc = hasila + hasilb
akhir = Math.Sqrt((hasilc))
txtde.Text = akhir
ElseIf operasi = "9" Then
hasila = Double.Parse(txtde.Text) ^ 2
hasilb = Double.Parse(txtdg.Text) ^ 2
hasilc = hasila - hasilb
akhir = Math.Sqrt((akhir))
ElseIf operasi = "10" Then
hasila = Double.Parse(txtcg.Text) + Double.Parse(txteg.Text)
txtce.Text = hasila
ElseIf operasi = "11" Then
hasila = Double.Parse(txtdg.Text) + Double.Parse(Label14.Text)
txtdf.Text = hasila
ElseIf operasi = "12" Then
hasila = Double.Parse(txtde.Text) ^ 2
hasilb = Double.Parse(txteg.Text) ^ 2
hasilc = hasila - hasilb
akhir = Math.Sqrt((hasilc))
txtdg.Text = akhir
End If
End Sub
Private Sub rbluas_Click(sender As Object, e As EventArgs) Handles rbluas.Click
operasi = 1
End Sub
Private Sub rbkeliling_Click(sender As Object, e As EventArgs) Handles rbkeliling.Click
operasi = 2
End Sub
Private Sub rbd1_Click(sender As Object, e As EventArgs) Handles rbd1.Click
operasi = 3
End Sub
Private Sub rbcd_Click(sender As Object, e As EventArgs) Handles rbcd.Click
operasi = 4
End Sub
Private Sub rbdg_Click(sender As Object, e As EventArgs) Handles rbdg.Click
operasi = 5
End Sub
Private Sub rbcg_Click(sender As Object, e As EventArgs) Handles rbcg.Click
operasi = 6
End Sub
Private Sub rbd2_Click(sender As Object, e As EventArgs) Handles rbd2.Click
operasi = 7
End Sub
Private Sub rbde_Click(sender As Object, e As EventArgs) Handles rbde.Click
operasi = 8
End Sub
Private Sub rbeg_Click(sender As Object, e As EventArgs) Handles rbeg.Click
operasi = 9
End Sub
Private Sub rbce_Click(sender As Object, e As EventArgs) Handles rbce.Click
operasi = 10
End Sub
Private Sub rbdf_Click(sender As Object, e As EventArgs) Handles rbdf.Click
operasi = 11
End Sub
Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtcd.Text = ""
txtce.Text = ""
txtcg.Text = ""
txtd1.Text = ""
txtd2.Text = ""
txtde.Text = ""
txtdf.Text = ""
txtdg.Text = ""
txteg.Text = ""
txtfg.Text = ""
txtkeliling.Text = ""
txtluas.Text = ""
End Sub
Private Sub rbdg2_Click(sender As Object, e As EventArgs) Handles rbdg2.Click
operasi = 12
End Sub
End Class
Langkah 4 : Debugging
Langkah 1 : Membuat desain form
Buat form baru dengan cara klik file ( new ( project ( pilih windows form application ( ok
Buatlah desain atau tampilan program seperti gambar diatas.
Langkah 2 : Memberi nilai pada properti kompoen
Klik pada komponen yang akan diberi nilai.
Masukkan nilai berikut pada properti masing – masing.
Langkah 3 : Listing code
Klik pada view ( code, atau mengunakan shortcut F7
Masukkan code berikut ini.
Public Class Form1
Public luas As Double
Public panjang As Double
Public lebar As Double
Public keliling As Double
Public operation As Byte
Public hasila As Double
Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
txtkeliling.Text = ""
txtluas.Text = ""
txtlebar.Text = ""
txtpanjang.Text = ""
End Sub
Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
If operation = "1" Then
keliling = 2 * Double.Parse(txtpanjang.Text) + 2 * Double.Parse(txtlebar.Text)
txtkeliling.Text = keliling
ElseIf operation = "2" Then
luas = Double.Parse(txtpanjang.Text) * Double.Parse(txtlebar.Text)
txtluas.Text = luas
ElseIf operation = "3" Then
hasila = Double.Parse(txtkeliling.Text) / 2
panjang = hasila - Double.Parse(txtlebar.Text)
txtpanjang.Text = panjang
ElseIf operation = "4" Then
hasila = Double.Parse(txtkeliling.Text) / 2
lebar = hasila - Double.Parse(txtpanjang.Text)
txtlebar.Text = lebar
End If
End Sub
Private Sub rbluas_Click(sender As Object, e As EventArgs) Handles rbluas.Click
operation = 2
End Sub
Private Sub rbkeliling_Click(sender As Object, e As EventArgs) Handles rbkeliling.Click
operation = 1
End Sub
Private Sub rbpanjang_Click(sender As Object, e As EventArgs) Handles rbpanjang.Click
operation = 3
End Sub
Private Sub rblebar_Click(sender As Object, e As EventArgs) Handles rblebar.Click
operation = 4
End Sub
End Class
Langkah 4 : Debugging
Untuk memulai menjalankan software klik Debug ( Start Debugging atau dengan shortcut F5
Jika tidak terjadi masalah berarti anda telah sukses membuat nya.
Download Instaler software nya di sini.
