Pertemuan8

Form1 :

Rumus Form1 :
Public Class Form1

Private Sub BtnGanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGanti.Click
'Tombol Ganti Gambar
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg")
End Sub

Private Sub BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click
'Tombol Kembali ke Gambar Semula
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Desert.jpg")
End Sub

Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
OFDcarigambar.Title = "Silahkan Cari Gambar"
OFDcarigambar.InitialDirectory = "C:\"
OFDcarigambar.Filter = "JPEG File | *.jpg"

If OFDcarigambar.ShowDialog = Windows.Forms.DialogResult.OK Then
LblFileName.Text = OFDcarigambar.FileName
PictureBox1.Image = System.Drawing.Image.FromFile(LblFileName.Text)
Else
LblFileName.Text = Nothing
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Desert.jpg")
End If
End Sub
End Class

Form 2 :

Rumus Form2 :
Public Class Form2

Dim kendaraan As String
Dim harga As Integer
Dim total, diskon, bayar As Integer

Private Sub RBMotor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBMotor.CheckedChanged
kendaraan = "Motor"
harga = 10000000
End Sub

Private Sub RBSepeda_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBSepeda.CheckedChanged
kendaraan = "Sepeda"
harga = 2000000
End Sub

Private Sub RBBecak_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBBecak.CheckedChanged
kendaraan = "Becak"
harga = 1750000
End Sub

Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
Dim x As ListViewItem

x = LVData.Items.Add(TxtNama.Text)

'kolom 2
x.SubItems.Add(MtxtTanggal.Text)
'kolom 3
x.SubItems.Add(kendaraan)
'kolom 4
x.SubItems.Add(TxtBanyak.Text)

total = harga * Val(TxtBanyak.Text)
'kolom 5
x.SubItems.Add(total)

If total > 7000000 Then
diskon = (0.05 * total) * Val(TxtBanyak.Text)
Else
diskon = (0.02 * total) * Val(TxtBanyak.Text)
End If
'kolom 6
x.SubItems.Add(diskon)

bayar = total - diskon
'kolom 7
x.SubItems.Add(bayar)

'jumlah data
TxtData.Text = LVData.Items.Count

kosong()
End Sub

Public Sub kosong()
TxtNama.Text = ""
MtxtTanggal.Text = ""
RBBecak.Checked = False
RBMotor.Checked = False
RBSepeda.Checked = False
TxtBanyak.Text = ""
End Sub

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
'Hapus Data
'Menghapus data yang dipilih pada listview 1
LVData.FocusedItem.Remove()

'refresh jumlah data
TxtData.Text = LVData.Items.Count
End Sub

Private Sub BtnHaPusBanyak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHaPusBanyak.Click
'Hapus SEMUA
LVData.Items.Clear()
TxtData.Text = LVData.Items.Count
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
End
End Sub

Private Sub BtnIsi_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click

End Sub
End Class

Pertemuan7

Form 2

Rumus :
Public Class Form1

Dim npm, nama As String
Dim tahun, jurusan, nomor As String
Dim panjang As Integer


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMasuk.Click
npm = InputBox("Masukkan NPM Anda : ", "NPM")
nama = InputBox("Masukkan NAMA Anda : ", "NAMA")

panjang = npm.Length
If panjang = 10 Then
Form2.Lblnama.Text = nama
Form2.LblNPM.Text = npm

tahun = npm.Substring(0, 4)
jurusan = npm.Substring(4, 2)
nomor = npm.Substring(6, 4)

Form2.LblTahun.Text = tahun
Form2.LblNomor.Text = nomor

If jurusan = "25" Then
Form2.LblJurusan.Text = "Teknik Informatika"
ElseIf jurusan = "24" Then
Form2.LblJurusan.Text = "Sistem Informasi"
ElseIf jurusan = "13" Then
Form2.LblJurusan.Text = "Kompeterisasi Akuntasi"
ElseIf jurusan = "11" Then
Form2.LblJurusan.Text = "Manajemen Informatika"
ElseIf jurusan = "12" Then
Form2.LblJurusan.Text = "Teknik Informatika"
End If

Me.Hide()
Form2.Show()
Else
MsgBox("Maaf NPM Anda diluar kapasitas karakter" & Chr(13) & "Silahkan Ulangi Kembali Nanti", MsgBoxStyle.Information, "INFORMASI")
Me.Close()
End If
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
BtnExit.Show()
End Sub
End Class

Pertemuan6

Rumus :

Public Class Form1
Dim KodeBarang As String
Dim SubTotal As Integer



Private Sub BtnTransaksiBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTransaksiBaru.Click
TxtKdBarang.Text = ""
TxtNamaBarang.Text = ""
TxtHarga.Text = ""
TxtJumlah.Text = ""
TxtSubTotal.Text = ""
LBNamaBArang.Items.Clear()
LBHarga.Items.Clear()
LBJumlah.Items.Clear()
LBSubtotal.Items.Clear()
TxtTotal.Text = ""
TxtPPN.Text = ""
TxtTotalSeleruh.Text = ""
TxtBayar.Text = ""
TxtKembali.Text = ""
TxtKdBarang.Focus()
End Sub

Private Sub TxtKdBarang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtKdBarang.KeyPress
KodeBarang = TxtKdBarang.Text.ToUpper

If e.KeyChar = Chr(13) Then
End If
If KodeBarang = "KD01" Then
TxtNamaBarang.Text = "HP Optical Mouse"
TxtHarga.Text = "50000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD02" Then
TxtNamaBarang.Text = "Black Mouse Pad"
TxtHarga.Text = "15000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD03" Then
TxtNamaBarang.Text = "Keyboard Protector"
TxtHarga.Text = "10000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD04" Then
TxtNamaBarang.Text = "laptop Skin"
TxtHarga.Text = "55000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD05" Then
TxtNamaBarang.Text = "Mini Speaker"
TxtHarga.Text = "110000"
TxtJumlah.Focus()
End If
End Sub

Private Sub TxtJumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlah.KeyPress
If e.KeyChar = Chr(13) Then
TxtSubTotal.Text = Val(TxtHarga.Text) * Val(TxtJumlah.Text)

SubTotal = Val(TxtTotal.Text)

LBNamaBArang.Items.Add(TxtNamaBarang.Text)
LBHarga.Items.Add(TxtHarga.Text)
LBJumlah.Items.Add(TxtJumlah.Text)
LBSubtotal.Items.Add(TxtSubTotal.Text)

TxtTotal.Text = SubTotal + Val(TxtSubTotal.Text)
TxtPPN.Text = Val(TxtTotal.Text) * 0.1

TxtKdBarang.Text = ""
TxtNamaBarang.Text = ""
TxtHarga.Text = ""
TxtJumlah.Text = ""
TxtSubTotal.Text = ""
TxtKdBarang.Focus()
End If
End Sub


Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
If MsgBox("Apakah Anda Yakin Ingi Kular Aplikasi Ini?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub



Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
TxtTotalSeleruh.Text = Val(TxtTotal.Text) + Val(TxtPPN.Text)
TxtBayar.Focus()
End Sub

Private Sub TxtBayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtBayar.KeyPress
If e.KeyChar = Chr(13) Then
TxtKembali.Text = Val(TxtBayar.Text) - Val(TxtTotalSeleruh.Text)
BtnTransaksiBaru.Focus()
End If
End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TxtJumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumlah.TextChanged

End Sub
End Class

Pertemuan5

Rumus :

Public Class FormGajiPegawaiPabrik

Dim byAsuransi, gajiPokok, totalGaji As Integer
Dim jenisKelamin As String

Private Sub BtnIsiDataBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsiDataBaru.Click
TxtNIP.Text = ""
TxtNama.Text = ""
TxtAlamat.Text = ""
LBData.Items.Clear()
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
If MsgBox("Apakah Anda Yakin Ingi Kular Aplikasi Ini?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
LBData.Items.Add("NIP : " & TxtNIP.Text)
LBData.Items.Add("Nama : " & TxtNama.Text)
LBData.Items.Add("Alamat : " & TxtAlamat.Text)
LBData.Items.Add("Jenis Kelamin : " & jenisKelamin)
LBData.Items.Add("------------------------")
LBData.Items.Add("Biaya Asuransi : " & byAsuransi)
LBData.Items.Add("Gaji Pokok : " & gajipokok)
LBData.Items.Add("Biaya Lembur : " & Val(TxtJam.Text) * 25000)
totalgaji = gajipokok + byAsuransi
LBData.Items.Add("Total Gaji : " & totalGaji)
End Sub


Private Sub RBPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPria.CheckedChanged
byAsuransi = 300000
jenisKelamin = "Pria"
End Sub

Private Sub RBWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBWanita.CheckedChanged
byAsuransi = 325000
jenisKelamin = "Wanita"
End Sub

Private Sub RB1A_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB1A.CheckedChanged
gajiPokok = 1750000
End Sub

Private Sub RB1B_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB1B.CheckedChanged
gajiPokok = 2100000
End Sub

Private Sub RB2A_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB2A.CheckedChanged
gajiPokok = 2300000
End Sub

Private Sub RBYa_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBYa.CheckedChanged
TxtJam.Enabled = True
End Sub

Private Sub RBTidak_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTidak.CheckedChanged
TxtJam.Enabled = False
TxtJam.Text = ""
End Sub


End Class

Pertemuan 4

RUMUS :
Public Class FormComboBox

Dim bpp, sks As Integer
Dim Jurusan, kuliah As String


Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
TxtNPMMahasiswa.Text = ""
TxtNamaMahasiswa.Text = ""
TxtAlamat.Text = ""
TxtJumlahSKS.Text = ""
LblBPP.Text = ""
LblSKS.Text = ""
LblTotalBiaya.Text = ""
CmbJurusan.Text = ""
LBData.Items.Clear()
End Sub

Private Sub LBData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBData.SelectedIndexChanged

End Sub

Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

End Sub

Private Sub FormComboBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CmbJurusan.Items.Clear()
CmbJurusan.Items.Add("TI")
CmbJurusan.Items.Add("SI")
CmbJurusan.Items.Add("MI")
CmbJurusan.Items.Add("KA")
CmbJurusan.Items.Add("TK")
End Sub

Private Sub RbPagi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbPagi.CheckedChanged
kuliah = "PAGI"
bpp = 1500000
sks = 75000
End Sub

Private Sub RbSore_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbSore.CheckedChanged
kuliah = "SORE"
bpp = 1750000
sks = 100000
End Sub

Private Sub TxtJumlahSKS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlahSKS.KeyPress
If e.KeyChar = Chr(13) Then
lblBPP.Text = bpp
LblSKS.Text = Val(TxtJumlahSKS.Text) * sks
LblTotalBiaya.Text = Val(lblBPP.Text) + Val(LblSKS.Text)
End If
End Sub

Private Sub TxtJumlahSKS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumlahSKS.TextChanged

End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
If MsgBox("Apa kamu mau keluar dari sini?", MsgBoxStyle.YesNo, "EXIT") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub BtnKeluar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles BtnKeluar.KeyPress

End Sub

Private Sub CmbJurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbJurusan.SelectedIndexChanged
Select Case CmbJurusan.SelectedIndex
Case 0 : Jurusan = "Teknik Informatika (S-1)"
Case 1 : Jurusan = "Sistem Informatika (S-1)"
Case 2 : Jurusan = "Manajemen Informatika (D-3)"
Case 3 : Jurusan = "Komputerisasi akuntasi (D-3)"
Case 4 : Jurusan = "Teknik Komputer (D-3)"
End Select
End Sub

Private Sub LblBPP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblBPP.Click

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
LBData.Items.Add("DATA PEMBAYARAN")
LBData.Items.Add("")
LBData.Items.Add("NPM : " + TxtNPMMahasiswa.Text)
LBData.Items.Add("Nama : " + TxtNamaMahasiswa.Text)
LBData.Items.Add("Jurusan : " + CmbJurusan.Text)
LBData.Items.Add("Alamat : " + TxtAlamat.Text)
LBData.Items.Add("Waktu Kuliah : " + kuliah)
LBData.Items.Add("")
LBData.Items.Add("")
LBData.Items.Add("TOTAL YANG DIBAYAR : " + LblTotalBiaya.Text)


End Sub

Private Sub lblBPP_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblBPP.Click

End Sub
End Class

pertemuan2

RUMUS :
Public Class FormPropertiesoperator

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
LblKetik.Text = TxtKetik.Text
End Sub

Private Sub Btnkiri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkiri.Click
LblKetik.TextAlign = ContentAlignment.MiddleLeft
End Sub

Private Sub BtnTengah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTengah.Click
LblKetik.TextAlign = ContentAlignment.MiddleCenter
End Sub

Private Sub BtnKanan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKanan.Click
LblKetik.TextAlign = ContentAlignment.MiddleRight
End Sub

Private Sub Btnkuning_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkuning.Click
LblKetik.ForeColor = Color.Yellow
End Sub

Private Sub BtnPink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPink.Click
LblKetik.ForeColor = Color.Pink
End Sub

Private Sub BtnMerah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMerah.Click
LblKetik.ForeColor = Color.Red
End Sub

Private Sub BtnHijau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHijau.Click
LblKetik.ForeColor = Color.Green
End Sub

Private Sub BtnBiru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBiru.Click
LblKetik.ForeColor = Color.Blue
End Sub

Private Sub BtnzUngu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnzUngu.Click
LblKetik.ForeColor = Color.Purple
End Sub

Private Sub BtnAbu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAbu.Click
LblKetik.ForeColor = Color.Gray
End Sub

Private Sub BtnCokelat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCokelat.Click
LblKetik.ForeColor = Color.Brown
End Sub

Private Sub BtnHitam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitam.Click
LblKetik.ForeColor = Color.Black
End Sub

Private Sub BtnBKuning_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBKuning.Click
LblKetik.BackColor = Color.Yellow
End Sub

Private Sub BtnBPink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBPink.Click
LblKetik.BackColor = Color.Pink
End Sub

Private Sub BtnBMerah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBMerah.Click
LblKetik.BackColor = Color.Red
End Sub

Private Sub BtnBHijau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBHijau.Click
LblKetik.BackColor = Color.Green
End Sub

Private Sub BtnBBiru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBBiru.Click
LblKetik.BackColor = Color.Blue
End Sub

Private Sub BtnBUngu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBUngu.Click
LblKetik.BackColor = Color.Purple
End Sub

Private Sub BtnBAbu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBAbu.Click
LblKetik.BackColor = Color.Gray
End Sub

Private Sub BtnBCokelat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBCokelat.Click
LblKetik.BackColor = Color.Brown
End Sub

Private Sub BtnBHitam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBHitam.Click
LblKetik.BackColor = Color.Black
End Sub

Private Sub FormPropertiesoperator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub



Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub BtnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnd.Click
End
End Sub

Private Sub Btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnreset.Click
Txtsatu.Text = ""
TxtKetik.Text = ""
Txtdua.Text = ""
LblKetik.Text = ""
Txtoperasi.Text = ""
Txtdes.Text = ""
End Sub

Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
Txtoperasi.Text = Val(Txtsatu.Text) + Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " + " + Txtdua.Text + " = " + Txtoperasi.Text
End Sub

Private Sub BtnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKurang.Click
Txtoperasi.Text = Val(Txtsatu.Text) - Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " - " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub BtnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKali.Click
Txtoperasi.Text = Val(Txtsatu.Text) * Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " * " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub BtnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBagi.Click
Txtoperasi.Text = Val(Txtsatu.Text) / Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " / " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub BtnDIV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDIV.Click
Txtoperasi.Text = Val(Txtsatu.Text) \ Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " DIV " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub BtnMOD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMOD.Click
Txtoperasi.Text = Val(Txtsatu.Text) Mod Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " MOD " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub TxtKetik_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKetik.TextChanged

End Sub
End Class