'Ups image is failed to post
sory for the inconvinience'
or you can dowlnload the full apps build on VB apllication here by Ziddu
Download here
information About the interface:
1. Cb.Text
2. Pr.Text
3. Cb1.Text
4. Pr1.Text
5. Total1.Text
6. Cb2.Text
7. Pr2.Text
8. Total2.Text
9. Cb3.Text
10. Pr3Text
11. Total3.text
12. Command Tabulasi
13. Command Interaksi
14. Command ulang
15. Command keluar
16. Label _z
17. Labelx1
18. Labelx2
19. Label_s1
20. Label_s2
21. Label_s3
22. Label_nk
23. Labelz
24. z1.text
25. x1A.text
26. x2A.text
27. s1A.text
28. s2A.text
29. s3A.text
30. nk1.text
31. labelS1
32. z2.text
33. x1B.text
34. x2B.text
35. s1B.teeext
36. s2B.text
37. s3B.text
38. nk2.text
39. labelS2
40. z3.text
41. x1C.text
42. x2C.text
43. s1C.text
44. s2C.text
45. s3C.text
46. nk3.text
47. labelS3
48. z4.text
49. x1D.text
50. x2D.text
51. s1D.teeext
52. s2D.text
53. s3D.text
54. nk4.text
55. hslcb.text
56. hslpr.text
57. hasilkk.text
58. hasilpivot.text
59. text1.text
60. text2.text
61. text3.text
62. text4.text
63. text5.text
64. text6.text
65. text7.text
Here are the Coding , have try on it
Private Sub interaksi_Click()
On Error GoTo SALAH
'mencari kolom kerja'
'kk1 sampe kk4 sebagai kolom kerja'
If Int(X1A) < kk1 =" X1A"
kk2 =" X1B"
kk3 =" X1C"
kk4 =" X1D"
caption = "CB"
vganti_bp = "CB"
text = "X1"
kk1 =" X2A"
kk2 =" X2B"
kk3 =" X2C"
kk4 =" X2D"
caption = "PR"
vganti_bp = "PR"
text = "X2"
kk2 =" 0"
a =" 0"
a =" NK2"
kk3 =" 0"
b =" 0"
b =" NK3"
kk4 =" 0"
c =" 0"
c =" NK4"> c Then
'
'tak mungkin'
'mencari nilai terkecil dari perbandingan'
'nilai terkecil jadi baris pivot'
'baris pivot baru= baris pivot lama / perpotongan baris pivot dan kolom kerja'
' x=nilai terkecil dari hasil perbandingan'
'P,Q,R,S,T,U,V sebagai hasil dari perhitungan baris pivot baru'
'F sebagai variabel perpotongan baris pivot dan kolom kerja'
'nilai baru= nilai lama-(baris pivot*kolom kerja)'
If A < x =" A"
f =" KK2"
p =" Z2"
q =" X1B"
r =" X2B"
s =" S1B"
t =" S2B"
u =" S3B"
v =" NK2"
text =" P"
text =" Q"
text =" R"
text =" S"
text =" T"
text =" U"
text =" V"
text =" Z1"
text =" X1A"
text =" X2A"
text =" S1A"
text =" S2A"
text =" S3A"
text =" NK1"
text =" Z1"
text =" X1C"
text =" X2C"
text =" S1C"
text =" S2C"
text =" S3C"
text =" NK3"
text =" Z4"
text =" X1D"
text =" X2D"
text =" S1D"
text =" S2D"
text =" S3D"
text =" NK4"
caption =" VGANTI_BP"
text = "S1" a =" c"> C And A > C Then
X = C
F = KK4
'MENCARI BARIS PIVOT
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
'MENCARI NILAI BARU
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
LABELS3.Caption = VGANTI_BP
hasilpivot.Text = "S3"
ElseIf A <> C And A < x =" A"
f =" KK2"
p =" Z2"
q =" X1B"
r =" X2B"
s =" S1B"
t =" S2B"
u =" S3B"
v =" NK2"
text =" P"
text =" Q"
text =" R"
text =" S"
text =" T"
text =" U"
text =" V"
text =" Z1"
text =" X1A"
text =" X2A"
text =" S1A"
text =" S2A"
text =" S3A"
text =" NK1"
text =" Z1"
text =" X1C"
text =" X2C"
text =" S1C"
text =" S2C"
text =" S3C"
text =" NK3"
text =" Z4"
text =" X1D"
text =" X2D"
text =" S1D"
text =" S2D"
text =" S3D"
text =" NK4"
caption =" VGANTI_BP"
text = "S1"> c And a = c Then'
'tak mungkin'
'ElseIf a < b =" c"> c Then
'tak mungkin'
ElseIf A < b =" C"
x =" A"
f =" KK2"
p =" Z2"
q =" X1B"
r =" X2B"
s =" S1B"
t =" S2B"
u =" S3B"
v =" NK2"
text =" P"
text =" Q"
text =" R"
text =" S"
text =" T"
text =" U"
text =" V"
text =" Z1"
text =" X1A"
text =" X2A"
text =" S1A"
text =" S2A"
text =" S3A"
text =" NK1"
text =" Z1"
text =" X1C"
text =" X2C"
text =" S1C"
text =" S2C"
text =" S3C"
text =" NK3"
text =" Z4"
text =" X1D"
text =" X2D"
text =" S1D"
text =" S2D"
text =" S3D"
text =" NK4"
caption =" VGANTI_BP"
text = "S1"
b =" c"
a =" c"> B And B <> C Then
X = B
F = KK3
'MENCARI BARIS PIVOT
P = Z3 / F
Q = X1C / F
R = X2C / F
S = S1C / F
T = S2C / F
U = S3C / F
V = NK3 / F
Z3.Text = P
X1C.Text = Q
X2C.Text = R
S1C.Text = S
S2C.Text = T
S3C.Text = U
NK3.Text = V
'MENCARI NILAI BARU
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z4.Text = Z4 - (KK4 * P)
X1D.Text = X1D - (KK4 * Q)
X2D.Text = X2D - (KK4 * R)
S1D.Text = S1D - (KK4 * S)
S2D.Text = S2D - (KK4 * T)
S3D.Text = S3D - (KK4 * U)
NK4.Text = NK4 - (KK4 * V)
LABELS2.Caption = VGANTI_BP
hasilpivot.Text = "S2"
ElseIf A > B And B < x =" B"
f =" KK3"
p =" Z3"
q =" X1C"
r =" X2C"
s =" S1C"
t =" S2C"
u =" S3C"
v =" NK3"
text =" P"
text =" Q"
text =" R"
text =" S"
text =" T"
text =" U"
text =" V"
text =" Z1"
text =" X1A"
text =" X2A"
text =" S1A"
text =" S2A"
text =" S3A"
text =" NK1"
text =" Z2"
text =" X1B"
text =" X2B"
text =" S1B"
text =" S2B"
text =" S3B"
text =" NK2"
text =" Z4"
text =" X1D"
text =" X2D"
text =" S1D"
text =" S2D"
text =" S3D"
text =" NK4"
caption =" VGANTI_BP"
text = "S2"> B And B < a =" C"
x =" B"
f =" KK3"
p =" Z3"
q =" X1C"
r =" X2C"
s =" S1C"
t =" S2C"
u =" S3C"
v =" NK3"
text =" P"
text =" Q"
text =" R"
text =" S"
text =" T"
text =" U"
text =" V"
text =" Z1"
text =" X1A"
text =" X2A"
text =" S1A"
text =" S2A"
text =" S3A"
text =" NK1"
text =" Z2"
text =" X1B"
text =" X2B"
text =" S1B"
text =" S2B"
text =" S3B"
text =" NK2"
text =" Z4"
text =" X1D"
text =" X2D"
text =" S1D"
text =" S2D"
text =" S3D"
text =" NK4"
caption =" VGANTI_BP"
text = "S2"> B And B > C And A > C Then
X = C
F = KK4
'MENCARI BARIS PIVOT
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
'MENCARI NILAI BARU
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
LABELS3.Caption = VGANTI_BP
hasilpivot.Text = "S3"
'ElseIf a > b And b > c And a <> b And b > c And a = c Then
'tak mungkin'
'ElseIf a > b And b = c And a > c Then
'tak mungkin'
'ElseIf a > b And b = c And a <> b And b = c And a = c Then
'tak mungkin'
'ElseIf a = b And b <> c Then
'tak mungkin'
'ElseIf a = b And b < a =" b" a =" c" a =" B"> C And A > C Then
X = C
F = KK4
'MENCARI BARIS PIVOT
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
'MENCARI NILAI BARU
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NKZ2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
LABELS3.Caption = VGANTI_BP
hasilpivot.Text = "S3"
'ElseIf a = b And b > c And a < a =" b"> c And a = c Then
'tak mungkin'
'ElseIf a = b And b = c And a > c Then
'tak mungkin'
'ElseIf a = b And b = c And a < a =" b" b =" c" a =" c">
End If
End If
Text1.Text = P
Text2.Text = Q
Text3.Text = R
Text4.Text = S
Text5.Text = T
Text6.Text = U
Text7.Text = V
If Labels1.Caption = "CB" Then
HSLCB.Text = NK2
End If
If LABELS2.Caption = "CB" Then
HSLCB.Text = NK3
End If
If LABELS3.Caption = "CB" Then
HSLCB.Text = NK4
End If
If Labels1.Caption = "PR" Then
HSLPR.Text = NK2
End If
If LABELS2.Caption = "PR" Then
HSLPR.Text = NK3
End If
If LABELS3.Caption = "PR" Then
HSLPR.Text = NK4
End If
Exit Sub
SALAH:
MsgBox "KLIK TABULASI DULU", vbInformation
End Sub
Private Sub tabulasi_Click()
On Error GoTo SALAH
Z1.Text = 1
Z2.Text = 0
Z3.Text = 0
Z4.Text = 0
X1A.Text = (CB * -1)
X1B.Text = CB1
X1C.Text = CB2
X1D.Text = CB3
X2A.Text = (PR * -1)
X2B.Text = PR1
X2C.Text = PR2
X2D.Text = PR3
S1A.Text = 0
S1B.Text = 1
S1C.Text = 0
S1D.Text = 0
S2A.Text = 0
S2B.Text = 0
S2C.Text = 1
S2D.Text = 0
S3A.Text = 0
S3B.Text = 0
S3C.Text = 0
S3D.Text = 1
NK1.Text = 0
NK2.Text = TOTAL1
NK3.Text = TOTAL2
NK4.Text = TOTAL3
Exit Sub
SALAH:
MsgBox "ISI DULU YANG KOSONG", vbInformation
CB.SetFocus
End Sub
Private Sub KELUAR_Click()
Dim KELUAR As String
Dim PESAN As String
PESAN = MsgBox("APAKAH YAKIN AKAN KELUAR?", vbOKCancel + vbQuestion, "PASTIKAN")
If PESAN = vbOK Then Unload Me
If PESAN = vbCancel Then CB.SetFocus
End Sub
Private Sub ULANG_Click()
CB.Text = ""
PR.Text = ""
CB1.Text = ""
CB2.Text = ""
CB3.Text = ""
PR1.Text = ""
PR2.Text = ""
PR3.Text = ""
TOTAL1.Text = ""
TOTAL2.Text = ""
TOTAL3.Text = ""
Z1.Text = ""
Z2.Text = ""
Z3.Text = ""
Z4.Text = ""
X1A.Text = ""
X1B.Text = ""
X1C.Text = ""
X1D.Text = ""
X2A.Text = ""
X2B.Text = ""
X2C.Text = ""
X2D.Text = ""
S1A.Text = ""
S1B.Text = ""
S1C.Text = ""
S1D.Text = ""
S2A.Text = ""
S2B.Text = ""
S2C.Text = ""
S2D.Text = ""
S3A.Text = ""
S3B.Text = ""
S3C.Text = ""
S3D.Text = ""
NK1.Text = ""
NK2.Text = ""
NK3.Text = ""
NK4.Text = ""
HSLCB.Text = ""
HSLPR.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End Sub
Sabtu, 26 Juni 2010
Minggu, 16 Mei 2010
Senin, 29 Maret 2010
MEMBUAT LUAS BANGUN
Menghitung Luas Persegi panjang :
Panjang :
1.Input panjang : Textbox > Text (kosongkan isinya edit di caption) > name : txtpj
2.Input panjang : Textbox > Text (kosongkan isinya edit di caption) > name : txtpj
3.Command Button > name : cmdluas> caption Hitung Luas
4.Input luas : Textbox > Text (kosongkan isinya edit di caption) > name : txtluas
5.Double click command button :
Private Sub Command1_Click()
Text3.Text = Text2.Text * Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Tool tip text
Visual Basic
VISUAL BASIC
Memindah teks :
Textbox Text (kosongkan) name : txtnama
Command Button name : cmdpindah caption pindah
Textbox Text (kosongkan isinya) name : txtpindah
Double click tombol pindah, isikan :
Private Sub cmdpindah_Click()
txtpindah.Text = txtnama.Text
txtnama.Text = " "
End Sub
Klik Start
Tampilan :
MEMBUAT LUAS BANGUN
Menghitung Luas Persegi panjang :
Panjang :
Input panjang : Textbox > Text (kosongkan isinya edit di caption) > name : txtpj
Input panjang : Textbox > Text (kosongkan isinya edit di caption) > name : txtpj
Command Button > name : cmdluas> caption Hitung Luas
Input luas : Textbox > Text (kosongkan isinya edit di caption) > name : txtluas
Double click command button :
Private Sub Command1_Click()
Text3.Text = Text2.Text * Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Tool tip text
Text2 Text1 Command1 Command2 Command3 Text2
Program menghitung luas
Terdiri dari
variable yang berupa label antara lain
panjang sebagai keterangan text box yang berisi angka yang menunjukan panjang dari sebuah persegi panjang yang akan dihitung.
lebar sebagai keterangan sebagai keterangan text box yang berisi angka yang menunjukan lebar dari sebuah persegi panjang yang akan dihitung.
yang berupa text box. Antara lain
text1.text yang berupa kolom isian yang berisi besaran panjang persegi panjang yang akan dihitung.
text2.text yang berupa kolom isian yang berisi besaran panjang persegi panjang yang akan dihitung.
text3.text kolom isian yang berisi besaran luas persegi panjang yang akan dihitung. Dengan mengalikan antara nilai yang terdapat pada text1.txt dengan text2.txt
yang berupa command button antara lain
Tombol hasil yakni sebuah tombol yang akan memproses perhitungan yang berupa nilai yang ada pada text1.text dengan text2.txt dan hasilnya akan muncul pada text3.text
Private Sub Command1_Click()
Text3.Text = Text2.Text * Text1.Text
End Sub
Tombol ulang dengan namelabel “command 2”
jika “ulang” diklik maka nilai pada variable text1,text2 dan text3 akan kembali kosong tak bernilaidan kemudian kursor akan secara otomatis berada pada kolom text1 untuk pengisian kembali nilai baru yang akan dihitung
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Tombol exit dengan name label “command3”
jika “exit” diklik maka program akan keluar secara otomatis
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Ket. Jika text1 di enter maka kursor akan beralih ke text2
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Ket. Jika text2 di enter maka kursor akan beralih ke hasil
LUAS PERSEGI PANJANG & SEGITIGA (HASIL 1 BOX)
Panjang1.Text Lebar1.Text Alas.Text Tinggi.Text Hasil.Text
(Button, Caption : Luas Persegi Panjang , Name : HITUNG) Private Sub HITUNG_Click() On Error GoTo salah Call BALIK hasil.Text = panjang1.Text * lebar1.Text Exit Sub salah: MsgBox "PANJANG DAN LEBAR BELUM DIISI!!" End Sub Sub BALIK() panjang1.SetFocus End Sub (Button, Caption : Luas Segitiga , Name : OK) Private Sub ok_Click() On Error GoTo salah Call BALIK1 hasil.Text = alas.Text * tinggi.Text / 2 Exit Sub salah: MsgBox "ALAS DAN TINGGI BELUM DIISI!!" End Sub Sub BALIK1() alas.SetFocus End Sub (Button, Caption : Selesai , Name : SELESAI) Private Sub SELESAI_Click(Index As Integer) End End Sub
CATATAN :
Huruf bergaris miring merupakan fungsi message box.
Huruf tebal merupakan fungsi utama penghitungan.
PROGRAM MENCARI BILANGAN GENAP DAN GANJIL
Text1.Text Label1.Caption
Command1
Command2
Command3
(Button, Caption : PROSES , Name : Command1) Private Sub Command1_Click() If Val(Text1.Text) Mod 2 = 0 Then Label1.Caption = "genap" Else Label1.Caption = "ganjil" End If Command2.Enabled = True Command1.Enabled = False End Sub (Button, Caption : COBA LAGI , Name : Command2) Private Sub Command2_Click() Text1.Text = "" Label1.Caption = "" Text1.SetFocus Command1.Enabled = True Command2.Enabled = False End Sub (Button, Caption : KELUAR , Name : Command3) Private Sub Command3_Click() End End Sub
CATATAN : Huruf miring merupakan fungsi untuk mengaktifkan tombol coba lagi setelah tombol proses ditekan
Keterangan
Private Sub Command1_Click() If Val(Text1.Text) Mod 2 = 0 Then Label1.Caption = "genap" Else Label1.Caption = "ganjil" End If Command2.Enabled = True Command1.Enabled = False End Sub
Pada awal permulaan program berjalan jika command2 atau proses diklik maka program akan berjalan dengan membagi jika nilai pada text 1 dibagi dengan 2 tak ada sisa maka pada label 1 caption bernilai genap.
Jika terdapat sisa akan bernilai ganjil. Kemudian setelah hasil didapat tombol proses tak berfungsi lagi dan tombol cobalagi akan berfungsi
(Button, Caption : COBA LAGI , Name : Command2) Private Sub Command2_Click() Text1.Text = "" Label1.Caption = "" Text1.SetFocus Command1.Enabled = True Command2.Enabled = False End Sub
Jika tombol coba lagi di klik maka text1 dan label1 akan bernilai kosong dan kusrsor akan berada pada text1 dan kemudian tombol coba lagi tak berfungsi sedang tombol proses akan berfungsi kembali
Private Sub Command3_Click()
end
End Sub
Tombol exit dengan name label “command3”
jika “exit” diklik maka program akan keluar secara otomatis
PROGRAM MENCARI BILANGAN PRIMA DAN BUKAN PRIMA
Text1.Text Text2.Caption
Command1 Command2 Command3
(Button, Caption : PROSES , Name : Command1) Private Sub Command1_Click() If Val(Text1.Text) = 1 Then text2.Caption = "Bukan Prima" ElseIf Val(Text1.Text) = 2 Then text2.Caption = "Prima" Else For i = 2 To Val(Text1.Text) – 1 If Val(Text1.Text) Mod i = 0 Then text2.Caption = "Bukan Prima" Exit For Else text2.Caption = "Prima" End If Next End If Command2.Enabled = True Command1.Enabled = False End Sub (Button, Caption : ULANG , Name : Command2) Private Sub Command2_Click() Text1.Text = "" text2.Caption = "" Text1.SetFocus Command1.Enabled = True Command2.Enabled = False End Sub (Button, Caption : EXIT , Name : Command3) Private Sub Command3_Click() End End Sub
CATATAN : SetFocus untuk mengarahkan kursor ke textbox.
(Button, Caption : PROSES , Name : Command1) Private Sub Command1_Click() If Val(Text1.Text) = 1 Then text2.Caption = "Bukan Prima" ElseIf Val(Text1.Text) = 2 Then text2.Caption = "Prima" Else For i = 2 To Val(Text1.Text) – 1 If Val(Text1.Text) Mod i = 0 Then text2.Caption = "Bukan Prima" Exit For Else text2.Caption = "Prima" End If Next End If Command2.Enabled = True Command1.Enabled = False End Sub
Jika tombol proses diklik maka akan mencocokan nilai yang ada pada text.1 jika nilainya sama dengan 1 maka text2.caption akan bernilai “bukan prima” dan kemudian jika nilai yang ada pada text1 bernilai 2 maka text2.caption akan bernilai “prima”
Jika pada text1 nilainya bukan angka 1 dan angka 2 maka program akan berjalan menuju baris setelah “else”
Untuk nilai bilangan i = 2 sampai nilai text1 dikurangi 1 lakukan perintah jika nilai text1 dibagi bilangan I sisanya samadengan 0 maka text2.caption bernilai bukan prima. Kemudian perintah for nya selesai. Lalu tombol ulang berfungsi dan tombol proses tidak berfungsi.
(Button, Caption : ULANG , Name : Command2) Private Sub Command2_Click() Text1.Text = "" text2.Caption = "" Text1.SetFocus Command1.Enabled = True Command2.Enabled = False End Sub
Jika tombol tombol ulang di klik maka text1 dan text2 caption akan bernilai kosong dan kusrsor akan berada pada text1 dan kemudian tombol ulang tak berfungsi sedang tombol proses akan berfungsi kembali .
Private Sub Command3_Click()
end
End Sub
Tombol exit dengan name label “command3”
jika “exit” diklik maka program akan keluar secara otomatis
PROGRAM MENCARI BILANGAN GENAP & GANJIL (MODIFIKASI)
Bil(0).Text Bil(1).Text Bil(2).Text Bil(3).Text Bil(4).Text Txtganjil.Text Txt_genap.Text
]
(Button, Caption : ULANG , Name : Coba Lagi2) Private Sub cobalagi_Click() bil(0).Text = "" bil(0).BackColor = vbWhite bil(1).Text = "" bil(1).BackColor = vbWhite bil(2).Text = "" bil(2).BackColor = vbWhite bil(3).Text = "" bil(3).BackColor = vbWhite bil(4).Text = "" bil(4).BackColor = vbWhite txtganjil.Text = "" txt_genap.Text = "" bil(0).SetFocus End Sub (Button, Caption : GANJIL , Name : Command2) Private Sub Command2_Click() For i = 0 To 4 ganjil = bil(i) / 2 - Int(bil(i) / 2) If ganjil <> 0 Then bil(i).BackColor = vbYellow txtganjil.Text = txtganjil.Text & " " & Str(bil(i)) End If Next Command3.Enabled = True Command2.Enabled = False End Sub (Button, Caption : GENAP , Name : Command3) Private Sub Command3_Click() For i = 0 To 4 genap = bil(i) / 2 - Int(bil(i) / 2) If genap = 0 Then bil(i).BackColor = vbBlue txt_genap.Text = txt_genap.Text & " " & Str(bil(i)) End If Next Command2.Enabled = False Command3.Enabled = False End Sub (Button, Caption : KELUAR , Name : Command1) Private Sub Command1_Click() End End Sub
(Button, Caption : ULANG , Name : Coba Lagi2) Private Sub cobalagi_Click() bil(0).Text = "" bil(0).BackColor = vbWhite bil(1).Text = "" bil(1).BackColor = vbWhite bil(2).Text = "" bil(2).BackColor = vbWhite bil(3).Text = "" bil(3).BackColor = vbWhite bil(4).Text = "" bil(4).BackColor = vbWhite txtganjil.Text = "" txt_genap.Text = "" bil(0).SetFocus End Sub
Jika bil tak bernilai mulai dari bil 0 sampai dengan 4 maka warna backgroundnya akan putih dan txtganji dan txtgenap akan kosong.
(Button, Caption : GANJIL , Name : Command2) Private Sub Command2_Click() For i = 0 To 4 ganjil = bil(i) / 2 - Int(bil(i) / 2) If ganjil <> 0 Then bil(i).BackColor = vbYellow txtganjil.Text = txtganjil.Text & " " & Str(bil(i)) End If Next Command3.Enabled = True Command2.Enabled = False End Sub
Untuk i samadengan 0 sampai dengan 4.
Ganjil sama dengan bil dibagi 2 dikurangi pembulatan bilangan ke i dibagi 2 jika nilai ganjil tidak sama dengan 0 kemudian warna bil ke i sama dengan kuning
Dan txt.gantjil bernilai angka hasil perhitungan secara berulang. Kemudian ganjil tak berfungsi dan genap berfungsi.
(Button, Caption : GENAP , Name : Command3) Private Sub Command3_Click() For i = 0 To 4 genap = bil(i) / 2 - Int(bil(i) / 2) If genap = 0 Then bil(i).BackColor = vbBlue txt_genap.Text = txt_genap.Text & " " & Str(bil(i)) End If Next Command2.Enabled = False Command3.Enabled = False End Sub
genapGanjil sama dengan bil dibagi 2 dikurangi pembulatan bilangan ke i dibagi 2 jika nilai genap sama dengan 0 kemudian warna bil ke i sama dengan biru
Dan txt.genap bernilai angka hasil perhitungan secara berulang. Kemudian genap tak berfungsi dan ganjil berfungsi.
Private Sub Command3_Click()
end
End Sub
Tombol keluar dengan name label “command1”
jika “keluar” diklik maka program akan keluar secara otomatis
PROGRAM MENCARI BILANGAN FAKTORIAL
(Button, Caption : PROSES Name : cmdproses) Private Sub cmd Proses_Click() bil = 1 For i = 1 To txtangka.Text bil = bil * i Next txthasil.Text = Str(bil) Command1.Enabled = True cmdproses.Enabled = False End Sub (Button, Caption : lagi , Name : command1) Private Sub Command1_Click() txtangka.Text = "" txthasil.Text = "" txtangka.SetFocus Command1.Enabled = False cmdproses.Enabled = True End Sub Private Sub Command2_Click() End End Sub
(Button, Caption : PROSES Name : cmdproses) Private Sub cmd Proses_Click() bil = 1 For i = 1 To txtangka.Text bil = bil * i Next txthasil.Text = Str(bil) Command1.Enabled = True cmdproses.Enabled = False End Sub
Keterangan:
Jika proses diklik maka bil akan bernilai 1 , kemudian untuk i bernilai 1 sampai dengan nilai yang terdapat pada txtangka bil akan bernilai mulai dari perkalian bil dengan i dan nilai bil kemudian dikalikan dengan pertambahan nilai i sampai dengan nilai txtangka. Kemudian nilai bil akan ditampilkan pada txthasil lalu tombol proses tidak akan berfungsi dan tombol lagi akan berfungsi.
(Button, Caption : lagi , Name : command1) Private Sub Command1_Click() txtangka.Text = "" txthasil.Text = "" txtangka.SetFocus Command1.Enabled = False cmdproses.Enabled = True End Sub
Jika tombol “lagi” maka txt angka dan txt hasil akan bernilai kosongdan tuoso akan berada pada txtangka.
Private Sub Command3_Click()
end
End Sub
Tombol exit dengan name label “command2”
jika “exit” diklik maka program akan keluar secara otomatis
Langganan:
Postingan (Atom)