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