3DS Max v3.1 Win9xNT SN : 110-12345678 CD Key : S4ED6W
ACDSee 4.0 Winall.Regged : 654-237-149-322-681-441
ACDSee 4.01 : 148-817-607-012-681-441 / 711-108-595-288-491-441
ACDSee 5.0 : 581-076-451-038-881-441
ACDSee 5.0 PowerPack : 382-936-064-050-881-441
ACDSee 5.0 Standar : 664-828-790-472-030-541
ACDSee 6.0 PowerPack : 147-755-260-960-487-541
ACDSEE V.7.0.43 POWER : 4WBDGK-KVP87-F23BT8-JWRN8P8
ACDSEE 9.0 BUILD 5.5 DYWDLK-PS6C7-W39CLK-GL9TL23
Adobe Illustrator 10 : 1034-1003-4400-0000-1115-2040
Adobe Pagemaker 6.52 : 03W652R3818820-549
Autocad 2000 :Serial : 112-11111111.CD Key : 5X8NUG.
Autocad 2002 :Serial : 400-12345678. CD Key : T4ED6P.
Borland C++ Builder v.4.0 for Windows : Number : 3448. A Key : 86x8-19x0.
COREL Print House 6 = PH06WRD-0020403-WQ
COREL R.A.V.E 2 = RA02WRD- 0001311-CHE
CAKEWALK MEDIAWORK= CWMW1.00-009968
CORELDRAW 10 = D10NR-32542-53T76
CORELDRRAW 11= DR11CRD-0012082-DGW
CORELDRAW 12 = DR12WEX-1504397-KTY
CYBERLINK DVDSUITE PRO V.5 = MS595725518122J4
COREL PRINT HOUSE 6 = PH06WRD-0020403-WQF
DELPHI 5 = 111-111-1111 CODE= FEX1-91X0
DELPHI 6 = Z9J8-PUM4N-C6GZQ CDKEY= RW2-7JW
DELPHI 7 = GAKD-PD29Q9-RDF?JQ-X65Z
CD KEY = QY8.EEC
DELPHI 8 = TIDAK PAKAI
FRUITY LOOPS 4 = PC752-VNVK5-28DKNSYP9V
Flash Cam : C06-122-000
FLASH 5 = FLW500-03143-77238-80660
FLASH 6 = FLW600-11335-72240-33333
FLASH MX = FLW600-53733-75540-61552
FLASH MX 6.0 RETAIL = FLW600-56032-66640-21856
HOY QUR’AN 7,1 = N1A6-N0A9
Hollywood FX Pro : HF559-PRO-807189-75Q
Macromedia director 8.5 = WDW850-02044-87235-26420
MACROMEDIA FREAND 11 = FHW110-02426-47231-55458
MACROMEDIA FIREWORKS 4 = FWW400-02666-67248-0254
MACROMEDIA COLDFUSION MX = CPD600-08480-B7213-22568
Macromedia DreamWeaver 4 : DWW400-03771-57289-73501
MACROMEDIA DREAMWEAVER MX = DWW600-54622-26755-01760
MACROMEDIA FLASH MX = FLW600-09531-57240-83750
MDAEMON SERVER = GDPFFMF-QAWLYFJ-XQDIYAO
MS. OFFICE 97 = 4156-0212207
MS. OFFICE FRONT PAGE = WFDWY-XQXJF-RHRYG-BG7RQ-BBDHM
MS. VISIO PROF 2002 = F8BFX-2B8M6-X373J-TBQ8M-K3C76
MS. VISUAL FOX FRO 8.0 = TCJC7-H2QDH-3T7G7-R6RTM-YRK3Y
Nero Burning Rom v.5044 : 1500-0001-0053-0316-2508-6123
Nero Burning Rom v.5.5.5.1 for WinXP : 1503-0947-6845-2627-4181-1200.
NERO 6 = 1A23-0006-7130-1204-8976-4901
NERO 6.3 = 1A25-0006-7130-1352-4239-7903
NERO 6.6 = 1A25-0006-7130-1827-2429-2198
NERO 7.7.5.1 PREMIUM ED = 1C80-0014-19E5-MA2X-400C-4X27-4A50
OFFICE 2000 = GC6J3-GTQ62-FP876-94FBR-D3DX8 KEY = 1111-1111
OFFICE 2003 = GWH28-DGCMP-P6RC4-6J4MT-3HFDY
OFFICE XP FULL = FM9FY-TMF7Q-KCKCT-V9T29-TBBBG
OFFICE ENTERPRISE 2007 = KGFVY-7733B-8WCK9-KTG64-BC7D8
OMNIPAGE 15 = E709X-KD1-NHXD-QQDF-F8
ORCAD = SCO 021061
ADOBE PREMIER V.7.5 = AB1234565
PINACLE INSTAN-VIDEO ALBUM = 7777777777
PINACLE STUDIO V.8.3 = 1555856630
PHOTOSOP 6 = PWWW600R7105467-948
PHOTOSOP 7 = 1045-0203-3247-2217-3566-6177
PHOTOSOP 8/CS = ANGKA 1 SEMUA
PHOTO IMPACT 7 = 11103-07000-00001531
Power DVD 5.0 : MV588995988G2285
POWER QUEST PARTITON MAGIC V.7.O = PM700ENEU-110965
PARTITION MAGIC 8.01 = M800EN1-11111111/PM800FR1-3193805303
Swif3d 2.0 : T3DW200-65700-95005-88056
Sonic Foundry Video Capture 2.0b : 9H-RBXSQT-YE7GEX-NQW5GX
TRANSTOOL 5 = 100706-27816-08499520-03
TWEAK XP V.20 PRO = E090402963592
Teleport Pro v.1.29.1107 : 787318958
ULEAD COOL 3D STUDIO = 274A5-11085-78578888
ULEAD MEDIA STUDIO PRO 7.0 = 011A2-27042-0190DCN14
ULEAD MOVIE FACORY 2.0 = 111A2-62000-00300082
ULEAD PHOTO IMPACT XL = 111A3-08500-00002098
ULEAD VIDEO STUDIO 7 = RORA2-870RO-ROROROR1
UNIVERSAL TRANSLATOR = EWB3APACDVBGYT2ENZJX
ULEAD PHOTO IMPACT = 11103-07000-00001531S
VCD CUTER V.4.03 RETAIL= 017697-023393
VISUAL BASIC 5.0 = 425-1689004
VISUAL BASIC 6 PROF ED.= 422-1111111
VISIO 2003 = WFDWY-XQXJF-RHRYG-BG7RQ-BBHDM
VISUAL STUDIO ENTERPRISE ED = 807-1426627
VIDEO STUDIO 8 = 111A2-88000-00230680
VIDIO WAVE POWER ED = 75-0R0BN-X89HZ-21DCN
WORLD PERFECT OFFICE = WS12WCX-0203227-XWJ
WinBoost 2001 Gold Edition : 5T5K4-D483-VZ7A-AC4T.
WinBoost 2002 Gold : 5T5K4-D483-VZ7A-AC4T.
WINDOWS 95 = 15695-OEM-0001346-00885
WINDOWS 98 JAPAN = C4GVG-CHRD3-9D12C-BBXHR-3CB76
WINDOWS 98 SECOND RELOADED EDIION SP1.5 =
K4HVD-Q9TJ9-6CRX9-C9G68-RQ2D3
WINDOWS 98 & SE = HQ6K2-QPC42-3HWDM-BF4KJ-W4XWJ
WINDOWS ASIA ED = FCKGW-RHQQ2-YXRXT-8TG6W-2B7Q8
WINDOWS ME = B6BYC-6T7C3-4PXRW-2XKWB-GYV33
WINDOWS 2000 = F6PGG-4YYDJ-3FF3T-R328P-3BXTG
WINDOWS 2000 PROF = RM2333-2PRQQ-FR4RH-JP89H-46QYB
WNDOWS SERVER 2003 = JB88F-WT203-DPXTT-Y8GHG-7YYQY
WNDOWS SERVER 2003 ENT = CW32K-48T2T-3D2PJ-DXBWY-C6WRJ
WINDOWS SEVER 3 IN 1 = JB88F-WT2Q3-DPXTT-Y8GHG-7YYQY
WINDOWS LONGHORN = CKY24-Q8QRH-X3KMR-C6BCY-T847Y
WINDOWS XP HE = GYG6B-HK868-CYF3H-YHQPX-TGCW6
WINDOWS XP SP1A = XP8BF-F8HPF-PY6BX-K24PJ-TWT6M
WINDOWS XP HOME ED = FGJXW-KRTJP-DM2RH-9GQ7T-KYQG8
WINDOWS XP HOME ED OEM 2007 = JQ4T4-8VM63-6WFBK-KTT29-V8966
WINDOWS XP SP1+RUI = XP8BF-F8HPF-PY6BX-K24PJ-TWT6M
WINDOWS XP PROF SP2 = CRTGH-B68P2-XB6JC-44GCD-X9JHM
WINDOWS XP FULLRELEASE = FCKGW-RHQQ2-YXRKT-8TG6W-2B7Q8
WINDOWS XP CORPORATE PLUS = 7QVT6-T2738-WRKJB-YKRFQ-XVK98
WINDOWS XP MEDIA CENTER = XJM6Q-BQ8HW-T6DFB-Y934T-YD4YT
WINDOWS XP MEDIA CENTER 2005 SP2 = C4BH3-P4J7W-9MT6X- PGKC8-J4JTM
WINDOWS XP PRO-SP2 2004 = CRTGH-B68P2-XB6JC-44GCD-X9JHM
WINDOWS XP SP2 GOLD ED = MYHVT-WQ49M-QRPVF-V86FC-P3R8Y
WINDOWS XP PROF SP1A INDONESIA =
62KYQ-3JWQH-WDJBG-D374R-Q8FCW
XPCK2-HY3VB-74KK4-JG6V4-JMDVM
WINDOWS XP ARABIC 2004 = 3FC6J-PVRYV-38KFF-B2K46
-CDHH6
WINDOWS XPMEDIA CENTER 2005 =
KCQ9Q-FTBM4-6HTWV-M7DKM-T4BF5
WINDOWS XP HOME ED 2006 =
RH6M6-7PPK4-YR86H-YFFFX-PW8M8
WINDOWS XP PROF CORP SP2 FEB-SEP2006 =
XP8BF-F8HPF-PY6BX-K24PJ-TWT6M
Minggu, 15 Februari 2009
My Photos
ini adalah teman2 seperjuanganku yang sampai sekarang masih segaris dan selalu setia setiap saat.
Membuat Kalkulator dengan VB
Membuat kalkulator dengan kemampuan penjumlahan dan pengurangan, dapat
dilakukan dengan memanfaatkan control array pada tombol-tombol yang digunakan.
(1) Buat project baru dengan StandardEXE. Untuk form, isi porperty [Name] dengan
formLatihan64.
(2) Tambahkan komponen TextBox, atur property [Font] dengan size 18 dan bold,
atur property alignment dengan 1-Right Justify. Isi property [Text] dengan 0
(nol).
(3) Tambahkan command Button, atur property [Font] dengan size 14 dan bold.
Buatlah 14 buah command button dengan cara meng-copy dan jadikan control
array sehingga menjadi command1(0), command1(1), command1(2) sampai
dengan command1(13).
(4) Atur posisinya seperti gambar 6.4 berikut :
(5) Pada jendela code, tambahkan kode program sebagai operasi kalkulator sebagai
berikut:
% Definisi variabel global
Dim kal, operasi As String
Dim bil As Integer
Private Sub Command1_Click(Index As Integer)
% Penambahan kerakter setiap tombol angka ditekan
kal = kal + Trim(Str(Index))
Text1 = kal
End Sub
Private Sub Command2_Click()
% Membersihkan memory dan text1
Text1 = "0"
kal = ""
End Sub
Private Sub Command3_Click(Index As Integer)
Select Case Index
Case 0:
% Operasi perhitungan bila tombol = ditekan
bil2 = Val(kal)
If operasi = "+" Then bil = bil + bil2
If operasi = "-" Then bil = bil - bil2
Text1 = bil
kal = Trim(Str(bil))
Case 1:
%Penampungan variabel dan operator untuk penjumlahan
bil = Val(kal)
operasi = "+"
kal = ""
Case 2:
%Penampungan variabel dan operator untuk pengurangan
bil = Val(kal)
operasi = "-"
kal = ""
End Select
End Sub
(6) Simpan project dengan nama projectLatihan64. Cobalah lakukan proses
perhitungan seperti kalkulator biasa. Kalkulator ini memang masih sederhana,
dan bisa ditambah fasilitasnya dengan menambah command button dan setiap
eventnya.
dilakukan dengan memanfaatkan control array pada tombol-tombol yang digunakan.
(1) Buat project baru dengan StandardEXE. Untuk form, isi porperty [Name] dengan
formLatihan64.
(2) Tambahkan komponen TextBox, atur property [Font] dengan size 18 dan bold,
atur property alignment dengan 1-Right Justify. Isi property [Text] dengan 0
(nol).
(3) Tambahkan command Button, atur property [Font] dengan size 14 dan bold.
Buatlah 14 buah command button dengan cara meng-copy dan jadikan control
array sehingga menjadi command1(0), command1(1), command1(2) sampai
dengan command1(13).
(4) Atur posisinya seperti gambar 6.4 berikut :
(5) Pada jendela code, tambahkan kode program sebagai operasi kalkulator sebagai
berikut:
% Definisi variabel global
Dim kal, operasi As String
Dim bil As Integer
Private Sub Command1_Click(Index As Integer)
% Penambahan kerakter setiap tombol angka ditekan
kal = kal + Trim(Str(Index))
Text1 = kal
End Sub
Private Sub Command2_Click()
% Membersihkan memory dan text1
Text1 = "0"
kal = ""
End Sub
Private Sub Command3_Click(Index As Integer)
Select Case Index
Case 0:
% Operasi perhitungan bila tombol = ditekan
bil2 = Val(kal)
If operasi = "+" Then bil = bil + bil2
If operasi = "-" Then bil = bil - bil2
Text1 = bil
kal = Trim(Str(bil))
Case 1:
%Penampungan variabel dan operator untuk penjumlahan
bil = Val(kal)
operasi = "+"
kal = ""
Case 2:
%Penampungan variabel dan operator untuk pengurangan
bil = Val(kal)
operasi = "-"
kal = ""
End Select
End Sub
(6) Simpan project dengan nama projectLatihan64. Cobalah lakukan proses
perhitungan seperti kalkulator biasa. Kalkulator ini memang masih sederhana,
dan bisa ditambah fasilitasnya dengan menambah command button dan setiap
eventnya.
Membuat Pop Menu Pada Visual Basic
Apakah yang dimaksud dengan Pop Up menu ? Pop Up menu merupakan menu khusus yang
ditampilkan untuk mempercepat akses ke menu, biasanya Pop Up dapat tampil saat mouse melintasi
suatu obyek (event mouse over),atau saat kita mengklik kanan mouse. Tips kali ini membahas
bagaimana membuat menu yang tampil ketika mouse mendapat event klik kanan (event right click).
Langkah – langkah pembuatan Pop Up menu adalah :
Sebelumnya buka aplikasi visual basic 6.0 buat satu project dengan sebuah form standar,
Letakkan sebuah label, button dan sebuah line, atur tampilan seperti gambar berikut :
ubah properti caption label1 sesuai keinginan anda (dalam contoh diatas caption diisi dengan “Test
Fungsi Pop Up Menu”), selanjutnya buka menu editor, terdapat dua cara untuk membuka menu
editor, pertama klik menu Tools (Alt + T) pilih menu editor
cara kedua adalah klik kanan pada obyek form lalu pilih menu editor
pada menu editor buatlah struktur menu seperti berikut
Perhatikan letak menu pada menu editor,
masuk jendela kode ketikan listing program berikut :
Private Sub Command1_Click()
End ‘ mengakhiri program
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnufonts 'memanggil menu menjadi pop up menu
End If
End Sub
Private Sub mnu8_Click()
Label1.FontSize = 8 '
End Sub
Private Sub mnu18_Click()
Label1.FontSize = 18
End Sub
Private Sub mnu26_Click()
Label1.FontSize = 28
End Sub
Private Sub mnumerah_Click()
Label1.ForeColor = &HFF& ' warna merah
End Sub
Private Sub mnu14_Click()
Label1.Font = 14
End Sub
Private Sub mnuhijau_Click()
Label1.ForeColor = &H8000& ' warna hijau
End Sub
Private Sub mnubiru_Click()
Label1.ForeColor = &HFF0000 'warna biru
End Sub
Private Sub mnutahoma_Click()
Label1.FontName = "tahoma"
End Sub
Private Sub mnustop_Click()
Label1.FontName = "Stop"
End Sub
jalankan program, klik kanan pada form,Pop Up Menu anda akan tampil seperti berikut:
Warning !!
Pop Up Menu hanya muncul jika kita lakukan event klik kanan pada form, Pop Up Menu tidak akan muncul ketika kita mengklik kanan obyek lain seperti label,button dan lainya..
ditampilkan untuk mempercepat akses ke menu, biasanya Pop Up dapat tampil saat mouse melintasi
suatu obyek (event mouse over),atau saat kita mengklik kanan mouse. Tips kali ini membahas
bagaimana membuat menu yang tampil ketika mouse mendapat event klik kanan (event right click).
Langkah – langkah pembuatan Pop Up menu adalah :
Sebelumnya buka aplikasi visual basic 6.0 buat satu project dengan sebuah form standar,
Letakkan sebuah label, button dan sebuah line, atur tampilan seperti gambar berikut :
ubah properti caption label1 sesuai keinginan anda (dalam contoh diatas caption diisi dengan “Test
Fungsi Pop Up Menu”), selanjutnya buka menu editor, terdapat dua cara untuk membuka menu
editor, pertama klik menu Tools (Alt + T) pilih menu editor
cara kedua adalah klik kanan pada obyek form lalu pilih menu editor
pada menu editor buatlah struktur menu seperti berikut
Perhatikan letak menu pada menu editor,
masuk jendela kode ketikan listing program berikut :
Private Sub Command1_Click()
End ‘ mengakhiri program
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnufonts 'memanggil menu menjadi pop up menu
End If
End Sub
Private Sub mnu8_Click()
Label1.FontSize = 8 '
End Sub
Private Sub mnu18_Click()
Label1.FontSize = 18
End Sub
Private Sub mnu26_Click()
Label1.FontSize = 28
End Sub
Private Sub mnumerah_Click()
Label1.ForeColor = &HFF& ' warna merah
End Sub
Private Sub mnu14_Click()
Label1.Font = 14
End Sub
Private Sub mnuhijau_Click()
Label1.ForeColor = &H8000& ' warna hijau
End Sub
Private Sub mnubiru_Click()
Label1.ForeColor = &HFF0000 'warna biru
End Sub
Private Sub mnutahoma_Click()
Label1.FontName = "tahoma"
End Sub
Private Sub mnustop_Click()
Label1.FontName = "Stop"
End Sub
jalankan program, klik kanan pada form,Pop Up Menu anda akan tampil seperti berikut:
Warning !!
Pop Up Menu hanya muncul jika kita lakukan event klik kanan pada form, Pop Up Menu tidak akan muncul ketika kita mengklik kanan obyek lain seperti label,button dan lainya..
Langganan:
Postingan (Atom)
