Mencari Luas Lingkaran

Private Sub CmdHapus_Click()
CboJariJari = ""
TxtLuas = ""
LblJariJariLingkaran = "Isi Jari-Jari"
CboJariJari.SetFocus
End Sub

Private Sub CmdHitung_Click()
If CboJariJari = "" Then
MsgBox ("Isi Nilai Jari-Jari")
End If
r = CboJariJari
If r = 7 Or r = 14 Or r = 21 Or r = 28 Or r = 35 Then
p = 22 / 7
Else
If r = 1 Or r = 2 Or r = 3 Or r = 4 Or r = 5 Or r = 6 Or r = 8 Or r = 9 Or r = 10 Or r = 11 Or r = 12 Or r = 13 Or r = 15 Or r = 16 Or r = 17 Or r = 18 Or r = 19 Or r = 20 Or r = 22 Or r = 23 Or r = 24 Or r = 25 Or r = 26 Or r = 27 Or r = 29 Or r = 30 Or r = 31 Or r = 32 Or r = 33 Or r = 34 Or r = 36 Or r = 37 Or r = 38 Or r = 39 Or r = 40 Then
p = 3.14
End If
End If
Hasil = p * (r ^ 2)
TxtLuas = Hasil
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub

Private Sub Form_Load()
Dim i As Integer
CboJariJari = ""
TxtLuas = ""
For i = 1 To 40
CboJariJari.AddItem i
Next i
End Sub

Mencari Luas Segitiga

Private Sub CboAlas_Change()
LblAlas.Caption = CboAlas
End Sub

Private Sub CboTinggi_change()
LblTinggi.Caption = CboTinggi
End Sub

Private Sub CmdHapus_Click()
CboAlas = ""
CboTinggi = ""
TxtHasil = ""
LblAlas.Caption = "Isi Alas"
LblTinggi.Caption = "Isi Tinggi"
CboAlas.SetFocus
End Sub

Private Sub CmdHitung_Click()
If CboAlas = "" Or CboTinggi = "" Then
MsgBox ("Isi Nilai Alas dan Tinggi")
Else
Alas = CboAlas
Tinggi = CboTinggi
Hasil = (Alas * Tinggi) / 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
CboAlas = ""
CboTinggi = ""
TxtHasil = ""
For i = 1 To 20
CboAlas.AddItem i
CboTinggi.AddItem i
Next i
End Sub

Blajar Alpabet(?)

kita harus tulis apa? mmm....Kita harus tulis...
Oh aku tau aku tau tulis kayak conversation gitu

A: Aku
B : bilang
C :Cepat
D:datang
E:Ehehe
F:Fasti kamu telat
G:getuh
H:hhhhh
I:Ingat
J:jangan
K:Kabur
L:lari
M:mana
N:nanti
O:Ok?
P:pasti
Q:Qu
R:Robek
S:sepatu
T:tali
U: uuuuuu
V: vas
W: waaaaa
X:xassssss
Y: yeayyyyyy
Z: zzz

beginilah critanya yg mau blajar alpabet. kalo belajar pasti sesat. #canda #gausahdianggapserius #biarinaja #kalobisadishare #wkwkwkwk.

Mencari Luas Persegi Panjang

Private Sub CmdClose_Click()
DoCmd.Save
DoCmd.Close
End Sub

Private Sub CmdHapus_Click()
TxtPanjang = ""
TxtLebar = ""
TxtLuas = ""
End Sub

Private Sub CmdHitung_Click()
Dim P, L, Luas As Integer
P = TxtPanjang
L = TxtLebar
Luas = (P * L)
TxtPanjang = P
TxtLebar = L
TxtLuas = Luas
End Sub

Introducing

Bayam-Bayam Sup Bayam :

-Bayam 1 : Gabriella Melani

 Umur : doa in aja masih panjang

 Motto : Ya begitulah!!

-Bayam 2 : Jolin Ivana

 Umur : tiang

 Motto : setinggi-tingginya tupai melompat, tidak akan melewati tiang

-Bayam3 : Katherine Oktaviani

 Umur : selama otak masih berputar

 Motto : mau otak-otak yang pedas atau manis?

Motto Semangkuk Sup Bayam : Ini semangkuk sup bayam loh!!!!

 

Konversi suhu

Private Sub CmdHitung_Click()
Dim C, R, F, K As Integer
C = TxtCelcius
R = (4 / 5) * C
F = (9 / 5) * C + 32
K = (C + 273)
TxtReamur = R
TxtFahranheit = F
TxtKelvin = K
End Sub

Private Sub CmdHapus_Click()
TxtCelcius = ""
TxtReamur = ""
TxtFahranheit = ""
TxtKelvin = ""
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub