Contoh : ‘program untuk menghitung persegi panjang.
VARIABEL
Penampung/kontener nilai dan dapat berubah pada saat run time. Di VB.net harus di deklarasikan dulu. Variabel memiliki tipe data.Contoh : Dim angka as Integer
Dim conn as ADODB.CONNECTION
Pemasukkan data Variabel :
- Penugasan
- Penginputan
KONSTANTA
Variabel yang nilainya bersifat tetap.Deklarasi konstanta
CONST nama_konstanta as tipe_data = nilai_konstanta
Contoh:
Const PHI as double = 3.14
Scope
Private Variabel hanya diakses oleh classnya sendiri.Public Variabel bisa diakses oleh lai kelas.
Bila kita menulis variabel diatas semua procedure, artinya anda menyimpan sebagai variabel public yang bisa diakses oleh semua prosedure di bawahnya.
Contoh:
Public Class Form1
Inherits System.Windows.Forms.Form
Dim angka As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bilangan1 As Integer
bilangan1 = 10
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim bilangan, bilangan1 As Integer
bilangan = 0
angka = 100
bilangan = bilangan1 + bilangan
TextBox1.Text = bilangan
End Sub
End Class
TIPE DATA
Jenis atau tipe dari nilai yang ada pada variabel. Keperluan tipe data untuk alokasi memori di fisikal memori. Tipe data memiliki range atau daya tampung masing-masing.| TIPE DATA | UKURAN (DALAM BYTES) | DESKRIPSI JANGKAUAN |
| Byte | 1 | Nilai antara; 0 s.d. 255 |
| Boolean | 1 | Bernilai : True/False |
| Char | 2 | Karakter Unicode |
| Datetime | 8 | 1/1/0001 jam 11:59:59 s.d. 12/21/9999 |
| Decimal | 16 | Nilai negatif: -29228162514264222592542950225 s.d. 0.0000000000000000000000000001 Positif : 0.0000000000000000000000000001 s.d. 29228162514264222592542950225 |
| DOUBLE | 8 | Nilai negatif : -1.29269212486222 E208 sd
4.94065645841242 E-224 Nilai positif : 4.94065645841242 E-224 s.d. 1.29269212486222 E208 |
| Integer | 4 | -21424826048 s.d. 2142482642 |
| Short | ||
| Single | ||
| String | Deretan karakter-karakter unicode |
CASTING
Konversi tipe data satu ke tipe data yang lain.| Fungsi | Konversi String ke | Keterangan |
| Cbool | Boolean | Mengkonversi nilai 0 diubah menjadi False, sedangkan nilai 1 diubah menjadi True |
| Cint | Integer | Konversi nilai String / decimal ke Integer |
| Cdate | Date | Dari string ke date |
Dim angka as integer
Angka= cint(textbox1.text)
Tanggal = cdate(textbox1.text)
Manakah tipe data yang paling tepat untuk nilai ini? 99,99
FUNGSI STRING
LEFT berfungsi untuk mengambil sebanyak n-karakter di sebelah kiri.RIGHT berfungsi untuk mengambil sebanyak n-karakter di sebelah kanan.
MID Berfungsi ….
TRIM
LTRIM
RTRIM
LEN
Contoh:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim bilangan, bilangan1 As Integer
Dim I, n, x As Integer
Dim kata As String
kata = TextBox2.Text
I = ComboBox1.SelectedIndex
If Len(TextBox1.Text) <= 0 Then
n = 1
Else
n = CInt(TextBox1.Text)
End If
If Len(TextBox3.Text) <= 0 Then
x = 1
Else
x = CInt(TextBox3.Text)
End If
Select Case I
Case 0
TextBox4.Text = Microsoft.VisualBasic.Left(kata, )
Case 1
TextBox4.Text = Microsoft.VisualBasic.Right(kata, n)
Case 2
TextBox4.Text = Microsoft.VisualBasic.Mid(kata, x, n)
End Select
End Sub
End Class
OPERATOR
Operator adalah simbol yang menghubungan dua atau lebih operand sehingga memiliki nilai. Tipe-tipe operator adalah sebagai berikut:- Operator matematika
- Operator Logika
- Operator Pembanding
Mana yang disebut operator? Jawab :+
10 dan 20 apa? Operand
Y adalah variabel .
Operator Matematika
Operator matematika terdiri dari:
| Operator Matematika | Operasi yang dilakukan |
| + | Penambahan |
| – | Pengurangan |
| * | Perkalian |
| / | Pembagian dengan hasil Bulat |
| ^ | Pangkat |
| MOD | Mengitung sisa pembagian(modulus) |
| += | Ingkremen penambahan |
| -= | Ingkremen Pengurangan |
| *= | Ingkremen Perkalian |
angka = angka ^ 2
TextBox5.Text = angka
Operator Pembanding
| Operator | Keterangan |
| = | Sama Dengan |
| > | |
| < | |
| <> | |
| <= | |
| >= | |
| Between | Menentukan antara nilai |
| Like | Pencarian dengan Pola |
| In | Mencari data dalam nilai-nilai tertentu |
| Operator | Ekspresi | Hasil | Keterangan |
| And | X1=2 and x2=5 | FALSE | |
| OR | |||
| XOR | |||
| NOT |
| OPERAND1 | OPERAND2 | HASIL |
| TRUE | TRUE | TRUE |
| TRUE | FALSE | FALSE |
| FALSE | FALSE | FALSE |
| FALSE | TRUE | FALSE |
| OPERAND1 | OPERAND2 | HASIL |
| TRUE | TRUE | TRUE |
| TRUE | FALSE | TRUE |
| FALSE | FALSE | FALSE |
| FALSE | TRUE | TRUE |
- IF sederhana
- IF – Then –Else
- IF bersarang
- Select Case
- IF Sederhana
Pernyataan bila benar
END IF
Contoh :
Nilai = 11
IF nilai > 10 then
Text1.text = “Benar”
End IF
- IF –THEN-ELSE
Pernyataan bila benar
Else
Pernyataan bila salah
END IF
Contoh :
Nilai = 10
IF nilai > 10 then
Text1.text = “Benar”
Else
Text1.text= “Salah”
End IF
- IF –Bersarang
‘Pernyataan Benar
IF kondisi THEN
Pernyataan bila benar
Else
Pernyataan bila salah
END IF
Else
‘Pernyataan bila salah
IF kondisi THEN
Pernyataan bila benar
Else
Pernyataan bila salah
END IF
END IF
Contoh :
Buatlah sebuah form untuk memasukkan nilai sebuah mata kuliah.
Adapun nilai akhir mata kuliah dihitung sebagai berikut:
Nilai akhir = Tugas *25% +UTS *30 +UAS *55%
Huruf mutu dihitung sebagai berikut:
Nilai Akhir Huruf Mutu
80-100 A
69-79 B
54-68 C
45-53 D
0-44 E
K
Jika mahasiswa mendapat nilai D, E dan maka harus tampil tulisan “TIDAK LULUS”, Selain itu Tampilkan tulisan di textbox “LULUS”.
Akhir dari program adalah menginformasikan huruf mutu yang didapat.
SELECT CASE
Select case bentuk kondisi yang menyederhanakan sintak dari IF bersarang. Penggunaan IF-bersarang akan sangat repot bila kita harus mengecek variabel yang banyak.
Bentuk dari Select case adalah sebagai berikut:
Variabel_nilai = nilai
Select case Variabel_nilai
Case nilai pernyataan 1
Case nilai pernyataan 2
…
Case nilai pernyataan n
Else Case
Pernyataan else_case
End Select
Contoh 1
‘range Variabel_nilai dari 1 sampai 10
Variabel_nilai = textbox1.text
Select case Variabel_nilai
Case 1 pernyataan 1
Case 2 pernyataan 2
…
Case 10 pernyataan n
Else Case
Pernyataan else_case
End Select
Kasus
1. Carilah nama hari dengan cara menginputkan nilai pada textbox.
Jika Textbox bernilai 1, maka akan muncul nama hari : Minggu, jika diinputkan 2 maka akan muncul Senin, 3 untuk selasa, 4 untuk kamis dan sebagainya. Jika menginputkan selain angka 1-7, muncul komentar “NILAI HARI TIDAK ADA”
2. Carilah nama BULAN dengan cara menginputkan nilai pada textbox.
Jika Textbox bernilai 1, maka akan muncul nama bulan : Januari, jika diinputkan 2 maka akan muncul Februari, 3 untuk Maret, 4 untuk April dan sebagainya. Jika menginputkan selain angka 1-12, muncul komentar “NILAI BULAN TIDAK ADA”.
LOOP
Loop adalah pengulangan proses jika kondisi tertentu dipenuhi.
Loop dapat dikategorikan menjadi beberapa bentuk sebagai berikut:
- While-Wend
- FOR-NEXT
- Do-Loop
Sifat dari loop ini akan mengeksekusi jika pernyataan benar, ada kemungkinan pernyataan di dalam loop tidak dieksekusi.
Contoh
Dim nilai as integer
Nilai=0
While nilai <10
Listbox1.item.add nilai
Wend
Dim nilai As Integer
Dim nilai_awal As Integer
nilai_awal = 0
nilai = InputBox(“masukan nilai : “)
While nilai_awal < nilai And nilai >= 0
ListBox1.Items.Add(“nilai ke : ” & nilai)
nilai_awal = nilai_awal + 1
End While
Do-While
Dim nilai As Integer
Dim nilai_awal As Integer
nilai_awal = 0
nilai = InputBox(“masukan nilai : “)
Do
ListBox1.Items.Add(“nilai ke : ” & nilai)
nilai_awal = nilai_awal +
FOR _ NEXT
Jumlah dieksekusi berulang yang sudah pasti
Menulis pernyataan for-next adalah sebagai berikut :
FOR i=1 to 10 step m
…………..
Next
Selesaikan program dibawah ini dengan menggunakan loop
1. Tampilkan angka dari1 sampai 100
Dim i As Integer
i = 1
For i = 1 To 100
ListBox1.Items.Add(“nilai ke : ” & i)
Next
2. tampilkan angka 1 sampai 100 genap saja
Dim i As Integer
i = 1
For i = 0 To 100 Step 2
ListBox1.Items.Add(“nilai ke : ” & i)
Next
3. tampilkan angka 1 sampai 100 dengan loncat 3
Dim i As Integer
i = 1
For i = 0 To 100 Step 3
ListBox1.Items.Add(“nilai ke : ” & i)
Next
4. tampilkan angka dari 100 sampai 1 loncat 4
Dim i As Integer
i = 100
For i = 100 To 0 Step -4
ListBox1.Items.Add(“nilai ke : ” & i)
Next
For Loop
For loop memungkinkan kita untuk melaksanakan serangkaian ekspresi beberapa nomor kali. Untuk loop di VB. NET membutuhkan indeks loop yang menghitung jumlah iterasi loop sebagai loop dijalankan. Sintaks untuk loop Untuk terlihat seperti ini:
Untuk index = awal sampai akhir [Langkah langkah]
[pernyataan]
[Exit For]
[pernyataan]
Berikutnya [index]
Variabel indeks diatur untuk memulai secara otomatis bila loop dimulai. Setiap kali dalam lingkaran, indeks bertambah demi langkah dan ketika indeks sama dengan akhir, loop berakhir.
Contoh
Sub Main ()
Dim d As Integer
Untuk d = 0 To 2
System.Console.WriteLine ( “Dalam Untuk Loop”)
Berikutnya d
End Sub
DO-LOOP
The Do loop dapat digunakan untuk mengeksekusi tetap tak terbatas blok pernyataan beberapa kali. The Do loop terus mengeksekusi pernyataan-pernyataan itu sementara atau sampai kondisi benar. Dua kata kunci, sementara dan sampai dapat digunakan dengan melakukan loop. The Do loop juga mendukung pernyataan yang Keluar Apakah yang membuat loop untuk keluar setiap saat. Sintaks dari Do loop terlihat seperti ini:
Do [(while| Until) Kondisi]
[pernyataan]
[Exit Do]
[pernyataan]
Loop
Contoh di Do loop
Sub Main ()
Dim str As String
Jangan Sampai str = “Cool”
System.Console.WriteLine ( “Apa yang harus dilakukan?”)
str = System.Console.ReadLine ()
Loop
End Sub
ARRAY
Array merupakan variable berindex
Dim arrayto (5) as integer = variable yang berjumlah 5 variabel sebagai integer
Deklarasi array
DIM VAR_INDEX(n) as Tipe_data
Keperluan array untuk menyingkat dari penamaan variable.
Penulisan tidak memakai array
Dim mhs_1, mhs_2, mhs_3, as string
Pengisian datanya adalah sebagai berikut :
Mhs_1 = “Dodi”
Mhs_2 = ”Yayan”
Mhs_3 = “agus”
Memakai array
Dim nama_mhs(10) as string
Dim alamat(10) as string
Dim status (10) as string
Dim I as integer
I=1
Pengisisan datanya
Nama_Mhs (I) = “dOdi”
Alamat (I) = ”bandung”
Status (I) = “Perjaka”
I=2
Nama_Mhs (I) = “yayan”
Alamat (I) = ”Subang”
Status (I) = “Perjaka”
Latihan
Masukan beberapa record dengan menggunakan LOOP, tampilkan listbox record tersebut. Recordnya terdiri dari nama, nim, alamat.
Hasil akhir dari listbox sebagai berikut :
Yayan, D1A.09.0007, JL. Cikalapa no.3a
1. VB .Net menghadirkan dua jenis array, yang pertama array normal yang kita dapat dengan mendeklarasikan sebuah variable menggunakan tanda (), yang kedua dengan cara membuat array objek dari class Array yang dibawa oleh VB.Net. Class Array menyediakan beberapa metode spesial untuk memanipulasi array seperti reversing, sorting dan searching.
Berikut adalah cara pertama yaitu dengan mendeklarasikan variable myArray dengan menambahkan karakter () dibelakang variable.
| 01 | Private Sub firstArray() | |
| 02 | Dim myArray(10) As Integer | |
| 03 | For i As Integer = 0 To 10 | |
| 04 | myArray(i) = i * i | |
| 05 | Next | |
| 06 | ||
| 07 | Dim txt As String = “” | |
| 08 | For i As Integer = 0 To 10 | |
| 09 | txt &= myArray(i) & vbCrLf | |
| 10 | Next | |
| 11 | MsgBox(txt) | |
| 12 | End Sub | |
| 01 | Private Sub secondArray() | |
| 02 | Dim myArray As Array = Array.CreateInstance(GetType(Integer), 11)</span> | |
| 03 | ||
| 04 | <span style=”font-size: 12pt; font-family: Arial;”> For i As Integer = 0 To 10 | |
| 05 | myArray.SetValue(i * i, i) | |
| 06 | Next</span> | |
| 07 | ||
| 08 | <span style=”font-size: 12pt; font-family: Arial;”> Dim txt As String = “” | |
| 09 | For i As Integer = 0 To 10 | |
| 10 | txt &= myArray.GetValue(i).ToString & vbCrLf | |
| 11 | Next | |
| 12 | MsgBox(txt) | |
| 13 | End Sub |
Variabel Array dengan tipe data terstruktur pada VB.net
Pada kesempatan kali ini sya akan coba berbagi sedikit ilmu pengetahuan mengenai VB.net.Kita akan membahas masalah Array dengan tipe data terstruktur atau bentukan.
Berikut Pembahasanya :
Buatlah main form berikut dengan tampilan di bawah ini
Kemudian atur sorce Code berikut denagn attribut form yang kalian buat
Option Explicit On
‘ Tipe Data bentukan dan Array by NTC
Public Class Form1
‘ Tipe Dat bentukan or data terstruktur
Public Structure mahasiswa
Dim nim As String
Dim nama As String
End Structure
‘ Pendeklarasian Array dinamis dengan tipe data terstruktur
Dim mhs(100) As mahasiswa
‘Index array
Dim i As Integer
Private Sub cls() ‘ Fungsi bersih2
TextBox1.Clear()
TextBox2.Clear()
TextBox2.Focus()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
‘ inisialsai array
i = 0
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mhs(i).nama = TextBox1.Text
mhs(i).nim = TextBox2.Text
i = i + 1
cls()
Narray.Text = i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cls()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim val As Integer
val = InputBox(“Masukan Nilai Record yang mau di tampilkan”)
val = val – 1
If Not (val >= i And val <= 0) Then
TextBox4.Text = mhs(val).nama
TextBox3.Text = mhs(val).nim
End If
End Sub
End Class
PASING PARAMETer = diteruskan kedalam sebuah prosedur
Perbedaan VB.Net dengan VB tedahulu adalah bagaimana parameter di passing-kan (diteruskan ) ke fungsi.
Pada VB terdahulu defaultnya adalah passing parameter melalui referensi (ByRef). Sedangkan di VB.Net defaulnya passing parameter melalui nilai/value (ByVal) artinya semua perubahan yang dibuat kenilai parameter hanya efektif da;lam fungsi yang memanggil. nilai asli sekarang dalam fungsi yang dipanggil tidak terpengaruh. Sedangkan pada passing parameter melalui referensi, jika parameter dalam fungsi berubah, berubah juga dicerminkan keluar fungsi.
Pasing parameter ada 2 mcam yakni memakai BYVAL dengan BYRE
Public Class Form1
Inherits System.Windows.Forms.Form
Dim bil1, bil2, bil3 As Double
#Region ” Windows Form Designer generated code ”
Public Sub New()
MyBase.New()
‘This call is required by the Windows Form Designer.
InitializeComponent()
‘Add any initialization after the InitializeComponent() call
End Sub
‘Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
‘Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
‘NOTE: The following procedure is required by the Windows Form Designer
‘It can be modified using the Windows Form Designer.
‘Do not modify it using the code editor.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.RadioButton4 = New System.Windows.Forms.RadioButton
Me.RadioButton3 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.Button1 = New System.Windows.Forms.Button
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Button2 = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
‘
‘GroupBox1
‘
Me.GroupBox1.Controls.Add(Me.RadioButton4)
Me.GroupBox1.Controls.Add(Me.RadioButton3)
Me.GroupBox1.Controls.Add(Me.RadioButton2)
Me.GroupBox1.Controls.Add(Me.RadioButton1)
Me.GroupBox1.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.GroupBox1.Location = New System.Drawing.Point(32, 40)
Me.GroupBox1.Name = “GroupBox1”
Me.GroupBox1.Size = New System.Drawing.Size(256, 96)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = “GroupBox1”
‘
‘RadioButton4
‘
Me.RadioButton4.Location = New System.Drawing.Point(144, 64)
Me.RadioButton4.Name = “RadioButton4”
Me.RadioButton4.TabIndex = 7
Me.RadioButton4.Text = “RadioButton4”
‘
‘RadioButton3
‘
Me.RadioButton3.Location = New System.Drawing.Point(144, 24)
Me.RadioButton3.Name = “RadioButton3”
Me.RadioButton3.TabIndex = 6
Me.RadioButton3.Text = “RadioButton3”
‘
‘RadioButton2
‘
Me.RadioButton2.Location = New System.Drawing.Point(16, 64)
Me.RadioButton2.Name = “RadioButton2”
Me.RadioButton2.TabIndex = 5
Me.RadioButton2.Text = “RadioButton2”
‘
‘RadioButton1
‘
Me.RadioButton1.Location = New System.Drawing.Point(16, 24)
Me.RadioButton1.Name = “RadioButton1”
Me.RadioButton1.TabIndex = 4
Me.RadioButton1.Text = “RadioButton1”
‘
‘Button1
‘
Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
Me.Button1.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.Button1.Location = New System.Drawing.Point(352, 144)
Me.Button1.Name = “Button1”
Me.Button1.TabIndex = 3
Me.Button1.Text = “hasil”
‘
‘TextBox3
‘
Me.TextBox3.Location = New System.Drawing.Point(472, 144)
Me.TextBox3.Name = “TextBox3”
Me.TextBox3.TabIndex = 2
Me.TextBox3.Text = “TextBox3”
‘
‘TextBox2
‘
Me.TextBox2.Location = New System.Drawing.Point(472, 64)
Me.TextBox2.Name = “TextBox2”
Me.TextBox2.TabIndex = 1
Me.TextBox2.Text = “TextBox2”
‘
‘TextBox1
‘
Me.TextBox1.Location = New System.Drawing.Point(472, 24)
Me.TextBox1.Name = “TextBox1”
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = “TextBox1”
‘
‘Label1
‘
Me.Label1.ForeColor = System.Drawing.SystemColors.ControlLightLight
Me.Label1.Location = New System.Drawing.Point(336, 24)
Me.Label1.Name = “Label1”
Me.Label1.Size = New System.Drawing.Size(96, 24)
Me.Label1.TabIndex = 4
Me.Label1.Text = “bilangan1”
‘
‘Label2
‘
Me.Label2.ForeColor = System.Drawing.SystemColors.ControlLightLight
Me.Label2.Location = New System.Drawing.Point(336, 64)
Me.Label2.Name = “Label2”
Me.Label2.Size = New System.Drawing.Size(96, 24)
Me.Label2.TabIndex = 5
Me.Label2.Text = “bilangan2”
‘
‘Label3
‘
Me.Label3.Font = New System.Drawing.Font(“Rage Italic”, 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(16, 160)
Me.Label3.Name = “Label3”
Me.Label3.Size = New System.Drawing.Size(176, 96)
Me.Label3.TabIndex = 6
Me.Label3.Text = “cha”
‘
‘Button2
‘
Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
Me.Button2.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.Button2.Location = New System.Drawing.Point(352, 184)
Me.Button2.Name = “Button2”
Me.Button2.TabIndex = 7
Me.Button2.Text = “clear”
‘
‘Form1
‘
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.Red
Me.ClientSize = New System.Drawing.Size(600, 278)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Button1)
Me.Name = “Form1”
Me.Text = “Form1”
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
RadioButton1.Text = “Pertambahan”
RadioButton2.Text = “Pengurangan”
RadioButton3.Text = “Perkalian”
RadioButton4.Text = “Pembagian”
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bil1 = TextBox1.Text
bil2 = TextBox2.Text
Call hitung()
TextBox3.Text = bil3
End Sub
Sub hitung()
If RadioButton1.Checked = True Then
bil3 = bil1 + bil2
End If
If RadioButton2.Checked = True Then
bil3 = bil1 – bil2
End If
If RadioButton3.Checked = True Then
bil3 = bil1 * bil2
End If
If RadioButton4.Checked = True Then
bil3 = bil1 / bil2
End If
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
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 = “”
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
End Sub
End Class
Passing parameter
Public Class Form1
Inherits System.Windows.Forms.Form
#Region ” Windows Form Designer generated code ”
Public Sub New()
MyBase.New()
‘This call is required by the Windows Form Designer.
InitializeComponent()
‘Add any initialization after the InitializeComponent() call
End Sub
‘Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
‘Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
‘NOTE: The following procedure is required by the Windows Form Designer
‘It can be modified using the Windows Form Designer.
‘Do not modify it using the code editor.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
‘
‘Label1
‘
Me.Label1.Location = New System.Drawing.Point(24, 40)
Me.Label1.Name = “Label1”
Me.Label1.Size = New System.Drawing.Size(80, 24)
Me.Label1.TabIndex = 0
Me.Label1.Text = “Label1”
‘
‘Label2
‘
Me.Label2.Location = New System.Drawing.Point(24, 80)
Me.Label2.Name = “Label2”
Me.Label2.Size = New System.Drawing.Size(80, 24)
Me.Label2.TabIndex = 1
Me.Label2.Text = “Label2”
‘
‘Button1
‘
Me.Button1.Location = New System.Drawing.Point(184, 128)
Me.Button1.Name = “Button1”
Me.Button1.Size = New System.Drawing.Size(80, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = “Button1”
‘
‘TextBox1
‘
Me.TextBox1.Location = New System.Drawing.Point(152, 40)
Me.TextBox1.Name = “TextBox1”
Me.TextBox1.Size = New System.Drawing.Size(112, 20)
Me.TextBox1.TabIndex = 3
Me.TextBox1.Text = “TextBox1”
‘
‘TextBox2
‘
Me.TextBox2.Location = New System.Drawing.Point(152, 80)
Me.TextBox2.Name = “TextBox2”
Me.TextBox2.Size = New System.Drawing.Size(112, 20)
Me.TextBox2.TabIndex = 4
Me.TextBox2.Text = “TextBox2”
‘
‘Form1
‘
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = “Form1”
Me.Text = “Form1”
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call ambil_kata()
End Sub
Sub ambil_kata()
Dim a As Integer
a = 1
Call gabungkata(a)
TextBox1.Text = a
End Sub
Sub gabungkata(ByRef a)
a = a + 10
TextBox2.Text = a
End Sub
End Class
0 komentar:
Posting Komentar