Private Sub CboDiagonal1_BeforeUpdate(Cancel As Integer)
LblDiagonal1.Caption = CboDiagonal1
End Sub
Private Sub CboDiagonal2_BeforeUpdate(Cancel As Integer)
LblDiagonal2.Caption = CboDiagonal2
End Sub
Private Sub CmdHapus_Click()
CboDiagonal1 = ""
CboDiagonal2 = ""
TxtHasil = ""
LblDiagonal1.Caption = "IsiDiagonal1"
Lbliagonal2.Caption = "IsiDiagonal2"
CboDiagonal1.SetFocus
End Sub
Private Sub CmdHitung_Click()
If CboDiagonal1 = "" Or CboDiagonal2 = "" Then
MsgBox ("Isi Nilai Diagonal1 Dan Diagonal2 ")
Else
Diagonal1 = CboDiagonal1
Diagonal2 = CboDiagonal2
Hasil = (Diagonal1 * Diagonal2) / 2
TxtHasil = Hasil
End If
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub
Private Sub Form_Load()
Dim i As Integer
CboDiagonal1 = ""
CboDiagonal2 = ""
TxtHasil = ""
For i = 1 To 20
CboDiagonal1.AddItem i
CboDiagonal2.AddItem i
Next i
End Sub
Private Sub CboDiagonal_BeforeUpdate(Cancel As Integer)
LblDiagonal.Caption = CboDiagonal
End Sub
Private Sub CboDiagonal1_BeforeUpdate(Cancel As Integer)
LblDiagonal1.Caption = CboDiagonal1
End Sub
Private Sub CmdHapus_Click()
CboDiagonal = ""
CboDiagonal1 = ""
TxtHasil = ""
LblDiagonal.Caption = "IsiDiagonal"
LblDiagonal1.Caption = "IsiDiagonal1"
CboDiagonal.SetFocus
End Sub
Private Sub CmdHitung_Click()
If CboDiagonal = "" Or CboDiagonal1 = "" Then
MsgBox ("Isi Nilai Diagonal Dan Diagonal1 ")
Else
Diagonal = CboDiagonal
Diagonal1 = CboDiagonal1
Hasil = (Diagonal * Diagonal1) / 2
TxtHasil = Hasil
End If
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub
Private Sub Form_Load()
Dim i As Integer
CboDiagonal = ""
CboDiagonal1 = ""
TxtHasil = ""
For i = 1 To 20
CboDiagonal.AddItem i
CboDiagonal1.AddItem i
Next i
End Sub
Inilah rumus Komputer untuk mencari luas Permukaan Balok
Private Sub CboDiagonal_BeforeUpdate(Cancel As Integer)
LblDiagonal.Caption = CboDiagonal
End Sub
Private Sub CboDiagonal1_BeforeUpdate(Cancel As Integer)
LblDiagonal1.Caption = CboDiagonal1
End Sub
Private Sub CmdHapus_Click()
CboDiagonal = ""
CboDiagonal1 = ""
TxtHasil = ""
LblDiagonal.Caption = "IsiDiagonal"
LblDiagonal1.Caption = "IsiDiagonal1"
CboDiagonal.SetFocus
End Sub
Private Sub CmdHitung_Click()
If CboDiagonal = "" Or CboDiagonal1 = "" Then
MsgBox ("Isi Nilai Diagonal Dan Diagonal1 ")
Else
Diagonal = CboDiagonal
Diagonal1 = CboDiagonal1
Hasil = (Diagonal * Diagonal1) / 2
TxtHasil = Hasil
End If
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub
Private Sub Form_Load()
Dim i As Integer
CboDiagonal = ""
CboDiagonal1 = ""
TxtHasil = ""
For i = 1 To 20
CboDiagonal.AddItem i
CboDiagonal1.AddItem i
Next i
End Sub
Inilah rumus Komputer untuk mencari luas Permukaan Kubus
Option Compare Database
Private Sub CboRusuk_BeforeUpdate(Cancel As Integer)
LblRusuk.Caption = CboRusuk
End Sub
Private Sub CboRusuk1_BeforeUpdate(Cancel As Integer)
LblRusuk1.Caption = CboRusuk1
End Sub
Private Sub CmdHapus_Click()
CboRusuk = ""
CboRusuk1 = ""
LblRusuk.Caption = "Isi Rusuk"
LblRusuk1.Caption = "Isi Rusuk1"
CboRusuk.SetFocus
End Sub
Private Sub CmdHitung_Click()
If CboRusuk = "" Or CboRusuk1 = "" Then
MsgBox ("Isi Nilai Rusuk Dan Rusuk1")
Else
Hasil = (Rusuk * Rusuk1) * 6
TxtHasil = Hasil
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
CboRusuk = ""
CboRusuk1 = ""
TxtHasil = ""
For i = 1 To 20
CboRusuk.AddItem i
CboRusuk1.AddItem i
Next i
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub
Inilah rumus Komputer untuk mencari luas
Option Compare Database
Private Sub CboTinggi_BeforeUpdate(Cancel As Integer)
LblTinggi.Caption = CboTinggi
End Sub
Private Sub CboSIsi1_BeforeUpdate(Cancel As Integer)
LblSisi1.Caption = CboSIsi1
End Sub
Private Sub CboSisi2_BeforeUpdate(Cancel As Integer)
LblSisi2.Caption = CboSisi2
End Sub
Private Sub CmdHapus_Click()
CboSIsi1 = ""
CboSisi2 = ""
CboTinggi = ""
TxtHasil = ""
LblSisi1.Caption = "IsiSisi1"
LblSisi2.Caption = "IsiSisi2"
LblTinggi.Caption = "IsiTInggi"
CboTinggi.SetFocus
End Sub
Private Sub CmdHitung_Click()
If CboSIsi1 = "" Or CboSisi2 = "" Then
MsgBox ("Isi Nilai Sisi1, Sisi2 Dan Sisi2 ")
Else
Sisi1 = CboSIsi1
sisi2 = CboSisi2
Tinggi = CboTinggi
Hasil = ((Sisi1 + sisi2) / 2) * Tinggi
TxtHasil = Hasil
End If
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub
Private Sub Form_Load()
Dim i As Integer
CboSIsi1 = ""
CboSisi2 = ""
CboTinggi = ""
TxtHasil = ""
For i = 1 To 20
CboSIsi1.AddItem i
CboSisi2.AddItem i
CboTinggi.AddItem i
Next i
End Sub
Inilah rumus Komputer untuk mencari Volume Balok
Option Compare Database
Private Sub CboLebar_BeforeUpdate(Cancel As Integer)
LblLebar.Caption = CboLebar
End Sub
Private Sub CboPanjang_BeforeUpdate(Cancel As Integer)
LblPanjang.Caption = CboPanjang
End Sub
Private Sub CboTinggi_BeforeUpdate(Cancel As Integer)
LblTinggi.Caption = CboTinggi
End Sub
Private Sub CmdHapus_Click()
CboTinggi = ""
CboLebar = ""
CboPanjang = ""
TxtHasil = ""
LblTinggi.Caption = "IsiTinggi"
LblLebar.Caption = "IsiLebar"
LblPanjang.Caption = "IsiPanjang"
CboTinggi.SetFocus
End Sub
Private Sub CmdHitung_Click()
If CboTinggi = "" Or CboLebar = "" Then
MsgBox ("Isi Nilai Tinggi, Lebar Dan Panjang ")
Else
Tinggi = CboTinggi
Lebar = CboLebar
Panjang = CboPanjang
Hasil = (Tinggi * Lebar * Panjang)
TxtHasil = Hasil
End If
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub
Private Sub Form_Load()
Dim i As Integer
CboTinggi = ""
CboLebar = ""
CboPanjang = ""
TxtHasil = ""
For i = 1 To 20
CboTinggi.AddItem i
CboPanjang.AddItem i
CboLebar.AddItem i
Next i
End Sub
Inilah rumus Komputer untuk mencari Volume Kubus
Option Compare Database
Private Sub CboRusuk1_BeforeUpdate(Cancel As Integer)
LblRusuk1.Caption = CboRusuk1
End Sub
Private Sub CboRusuk2_BeforeUpdate(Cancel As Integer)
LblRusuk2.Caption = CboRusuk2
End Sub
Private Sub CmdHapus_Click()
CboRusuk1 = ""
CboRusuk2 = ""
TxtHasil = ""
LblRusuk1.Caption = "IsiRusuk1"
LblRusuk2.Caption = "IsiRusuk2"
CboRusuk1.SetFocus
End Sub
Private Sub CmdHitung_Click()
If CboRusuk1 = "" Or CboRusuk2 = "" Then
MsgBox ("Isi Nilai Rusuk1 Dan Rusuk2 ")
Else
Rusuk1 = CboRusuk1
Rusuk2 = CboRusuk2
Hasil = (Rusuk1 * Rusuk2)
TxtHasil = Hasil
End If
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub
Private Sub Form_Load()
Dim i As Integer
CboRusuk1 = ""
CboRusuk2 = ""
TxtHasil = ""
For i = 1 To 20
CboRusuk1.AddItem i
CboRusuk2.AddItem i
Next i
End Sub
Inilah rumus Komputer untuk mencari Volume Limas Segu Empat
Option Compare Database
Private Sub CboLebar_BeforeUpdate(Cancel As Integer)
LblLebar.Caption = CboLebar
End Sub
Private Sub CboPanjang_BeforeUpdate(Cancel As Integer)
LblPanjang.Caption = CboPanjang
End Sub
Private Sub CboTinggi_BeforeUpdate(Cancel As Integer)
LblTinggi.Caption = CboTinggi
End Sub
Private Sub CmdHapus_Click()
CboTinggi = ""
CboLebar = ""
CboPanjang = ""
TxtHasil = ""
LblTinggi.Caption = "IsiTinggi"
LblLebar.Caption = "IsiLebar"
LblPanjang.Caption = "IsiPanjang"
CboTinggi.SetFocus
End Sub
Private Sub CmdHitung_Click()
If CboTinggi = "" Or CboLebar = "" Then
MsgBox ("Isi Nilai Tinggi, Lebar Dan Panjang ")
Else
Tinggi = CboTinggi
Lebar = CboLebar
Panjang = CboPanjang
Hasil = (Tinggi * Lebar * Panjang)
TxtHasil = Hasil
End If
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub
Private Sub Form_Load()
Dim i As Integer
CboTinggi = ""
CboLebar = ""
CboPanjang = ""
TxtHasil = ""
For i = 1 To 20
CboTinggi.AddItem i
CboPanjang.AddItem i
CboLebar.AddItem i
Next i
End Sub
Semoga kalian terbantu dengan adanya rumus-rumus ini.
By: ~ Benedictus Ivan
~ Edrick Emerson
~ Elaine Setiawan
School: Charitas Batam Second Junior High School
