Calculator Vb.Net 2008

Public Class Kalkulator
‘–inisialisasi untuk mendeklarasikan akcion-akcion var, dll
‘– Mohamad Shyughito Rrepardiyo Center
Private Status As Boolean
Private Var1 As Double
Private var2 As Double
Private Temp As Double
Private Memory As Double
Private period As Boolean
Private [Operator] As String

‘– untuk mengeklik angka 0
‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
If Status = False Then
If TextBox1.Text.Length > 0 Then
TextBox1.Text = TextBox1.Text + CStr(0)
Else
TextBox1.Text = 0
Status = False
End If
End If
End Sub

‘– untuk mengeklik angka 1
‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(1)
Else
TextBox1.Text = 1
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(2)
Else
TextBox1.Text = 2
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(3)
Else
TextBox1.Text = 3
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(4)
Else
TextBox1.Text = 4
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(5)
Else
TextBox1.Text = 5
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(6)
Else
TextBox1.Text = 6
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(7)
Else
TextBox1.Text = 7
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(8)
Else
TextBox1.Text = 8
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(9)
Else
TextBox1.Text = 9
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhasil.Click
If TextBox1.Text.Length <> 0 AndAlso Var1 <> 0 Then
Calculate()
[Operator] = “”
period = False
End If
End Sub

‘– Inisialisai untuk Rumus penjumlahan , pengurangan, perkalian, pembagian , akar , perpangkatan
‘– Mohamad Shyughito Rrepardiyo Center
Public Sub Calculate()
var2 = CDbl(TextBox1.Text)
If [Operator] = “Add” Then
Var1 = Var1 + var2
ElseIf [Operator] = “Sub” Then
Var1 = Var1 – var2
ElseIf [Operator] = “Mult” Then
Var1 = Var1 * var2
ElseIf [Operator] = “Div” Then
Var1 = Var1 / var2
ElseIf [Operator] = “Sqrt” Then
Exit Sub
ElseIf [Operator] = “Pow” Then
Var1 = System.Math.Pow(Var1, var2)
ElseIf [Operator] = “Inve” Then
Exit Sub
End If
TextBox1.Text = CStr(Var1)
Status = True
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnjumlah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnjumlah.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
End If
[Operator] = “Add”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnkurangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurangi.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
Else
Calculate()
End If
[Operator] = “Sub”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
Else
Calculate()
End If
[Operator] = “Mult”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
Else
Calculate()
End If
[Operator] = “Div”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnkoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkoma.Click
TextBox1.Text = TextBox1.Text & “,”
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnplusminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplusminus.Click
If Status = False Then
If TextBox1.Text.Length > 0 Then
Var1 = -1 * CDbl(TextBox1.Text)
TextBox1.Text = CStr(Var1)
End If
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnakar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnakar.Click
If TextBox1.Text.Length <> 0 Then
Temp = CDbl(TextBox1.Text)
Temp = System.Math.Sqrt(Temp)
TextBox1.Text = CStr(Temp)
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnpangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpangkat.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
Else
Calculate()
End If
[Operator] = “Pow”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click
TextBox1.Text = “”
Var1 = 0
var2 = 0
[Operator] = “”
period = False
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnCE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCE.Click
TextBox1.Text = “”
period = False
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnbackspace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbackspace.Click
Dim ch As Char
Dim i As Int16
If TextBox1.Text.Length > 0 Then
ch = TextBox1.Text.Chars(TextBox1.Text.Length – 1)
If ch = “.” Then
period = False
End If
i = TextBox1.Text.Length
TextBox1.Text = TextBox1.Text.Remove(i – 1, 1)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
Menu_Utama.Show()
End Sub

End Class

 

Hasilnya Akan Tampil Seperti Ini,,,!!

 

Glass Effect Vb.Net 2008

Imports System.Runtime.InteropServices

‘– Mohamad Shyughito rrepardiyo

Public Class Form1
<Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS
Public LeftWidth As Integer
Public RightWidth As Integer
Public TopHeight As Integer
Public Buttomheight As Integer
End Structure

<Runtime.InteropServices.DllImport(“dwmapi.dll”)> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Me.BackColor = Color.Black
Dim margins As MARGINS = New MARGINS
margins.LeftWidth = -1
margins.RightWidth = -1
margins.TopHeight = -1
margins.Buttomheight = -1
Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
Catch ex As Exception
MsgBox(“Sistemul tau de operare nu are aero style!”, vbCritical, “Fatal Error”)
Application.Exit()
End Try
End Sub
End Class

 

Hasilnya Akan Tampil Seperti Ini,, yang kotak bertuliskan Form1

Effect Glass jadi tampil tembus pandang ,,