Gw masih inget dulu waktu gw sekolah SLTP sistem pembayaran uang sekolah atau SPP masih di lakukan dengan sistem catatan di buku, jadi gimana tuh kalo buku catatnya Ilang, Blon lagi Ngecek apakah siwa yang A belum bayar, dan masih banyak lagi kerumitan dalam mencari data pembayaranya. Ok kali ini gw akan Share bagaimana membuat apliaksi database pencatatan pembayaran uang sekolah dengan Visual Basic. Ya mungkin Aplikasi ini kurang sempurna karena gw dah lama bikin ni aplikasi saat pertama kali belajar ngotak atik script di Visual Basic, "Emangnya sekarang gw dah mahir pakek Vb, hehe" Ok All ni Aplikasi Mentahnya bisa kalian download di link download, ya kalo mungkin ada temen-temen yang punya niat baik untuk memperbaiki script dan menambahkan fasilitasnya ya monggo dan kepingin share di sini ya silahkan silahkan kirimkan aplikasinya kepada saya dan akan saya posting di blog ini, semoga semuanya bisa sama-sama belajar dan belajar, loh kapan kerjanya? ya sekarang!!!!!!
DOWNLOAD
Kamis, 28 Oktober 2010
Aplikasi Sulap
Pernahkah anda melihat seorang pesulap yang jogo banget dalam berhitung, atau pernahkan anda mendengar tentang bujursangkar ajaib yang apabila di hitung dari sisi manapun jumlahnya sama. Lihat Screen Shoot di bawah ini
Nah sekarang kalian ngak perlu belajar matematika sampe twenty hours / day, kalian bisa membuat diri anda terkesan genius di depan temen anda. Yang kalian butuhkan hanya clik link download aplikasi ini.
DOWNLOAD
Sabtu, 08 Mei 2010
Memahami Fungsi Operator MOD Visual Basic
Kali ini gw akan posting tutorial cara memahami operator mod pada visual basic dan juga agar semua bisa memahami fungsi mod pada visual basic maka gw akan sedikit kasih tutorial yang mudah untuk di pahami, gw akan bikin sebuah aplikasi penghitung berapa banyak jumlah lembar uang 100rb, 50rb dan seterusnya dalam jumlah uang tertentu.
Ya kira - kira aplikasi nya seperti screen shoot di atas memang aplikasi nya sederhana tapipaling ngk bisa menjelaskan fungsi operator mod di Visual Basic.
Ini adalah potongan script programnya :
ar = a \ 100000
ar1 = ar Mod 100000
ar2 = ar1 \ 50000
ar3 = ar2 Mod 50000
ar4 = ar3 \ 20000
ar5 = ar4 Mod 20000
ar6 = ar5 \ 10000
ar7 = ar6 Mod 10000
ar8 = ar7 \ 5000
ar9 = ar8 Mod 5000
ar10 = ar9 \ 1000
ara = ar10 Mod 1000
arb = ara \ 500
arc = arb Mod 500
ard = arc \ 100
are = ard Mod 100
arf = are \ 50
arg = arf Mod 50
arh = arg \ 25
ari = arh Mod 25
arj = ari \ 1
ark = arj Mod 1
Dan jika kalian ingin script dan contoh aplikasi mentanya dapat anda download di sini
Ya kira - kira aplikasi nya seperti screen shoot di atas memang aplikasi nya sederhana tapipaling ngk bisa menjelaskan fungsi operator mod di Visual Basic.
Ini adalah potongan script programnya :
ar = a \ 100000
ar1 = ar Mod 100000
ar2 = ar1 \ 50000
ar3 = ar2 Mod 50000
ar4 = ar3 \ 20000
ar5 = ar4 Mod 20000
ar6 = ar5 \ 10000
ar7 = ar6 Mod 10000
ar8 = ar7 \ 5000
ar9 = ar8 Mod 5000
ar10 = ar9 \ 1000
ara = ar10 Mod 1000
arb = ara \ 500
arc = arb Mod 500
ard = arc \ 100
are = ard Mod 100
arf = are \ 50
arg = arf Mod 50
arh = arg \ 25
ari = arh Mod 25
arj = ari \ 1
ark = arj Mod 1
Dan jika kalian ingin script dan contoh aplikasi mentanya dapat anda download di sini
Rabu, 05 Mei 2010
Aplikasi Ramalan Perjodohan Primbon Jawa
Aplikasi Ramalan Perjodohan Berdasarkan Primbon Jawa
APLIKASI DOWNLOAD
Bila kita di tanya ma seseorang saat yang paling indah dalam hidup mu, jelas 97% dari yang baca ni postingan pasti dengan semangat diplomasi menyatakan "PADA SAAT GW JATUH CINTA", Kalo gw sih ngk pada waktu gw dapet uang banyak.lol.
Pada masa dimana seseorang mulai mengenal yang namanya cinta pasti semua pikiran dan tingkah lakunya di manipulasi oleh syntax nya dan itu yang membuat semua perasaan yang di alaminya menjadi rootkit di dalam system kerja otaknya.Oleh karena itu kenapa setiap individu yang kena oleh virus ini menjadi individu yang lebih bahagia dan maaf menjadi lebih sedikit menggunakan logikanya dan lebih mendengarkan kata hatinya.
Ok now I'll share... kepada semuanya sebuah aplikasi Ramalan Perjodohan Berdasarkan Primbon Jawa warisan para leluhur kita pada masa lampau. AFAIK sistem perhitungan yang di gunakan di dalam aplikasi ini (Sama Dengan Primbon Jawa) sering di gunakan oleh para sesepuh dulu di saat anaknya akan melangsungkan pernikahan.
Tapi gw ngk pernah menjanjikan apakah aplikasi ini akan 100% sama dengan kenyataan yang ada, soalnya yang namanya ramalan hanyalah sebuah prediksi yang meghibur bukanlah sebuah alat pembaca masa depan yang begitu aja dapat di percaya. Karena gw bukan ahli primbon atau paranormal dan juga ahli dalam dunia romansa, gw cuma mau kasih cara yang lebih mudah daripada harus buka primbon.
Ntar waktu lu pakek ni aplikasi dan lu input nama lu ma pacar lu eh hasilnya ngk memuaskan ya jangan langsung keluarin talak 1 kepada pacarmu. hehe. Soale gw aja ngk percanya ma ramlan yang jelek tapi gw percanya ma ramalan yang bagus. hehe
Selasa, 27 April 2010
Membuat Apliaksi Ramalan Jodoh Dengan Visual Basic
Dalam kesempatan kali ini gw sempet kepikiran mau bikin tutorial buat bikin aplikasi ramalan zodoh berdasarkan perimbon jawa, tapi ada baikknya kita bikin dulu aplikasi ramalan zodoh berdasarkan nama ya sperti ramalan kecocokan antara anda dan pasangan anda, dari pada anda pusing mikirin apakah anda cocok apa ngk ya silahkan aja ganti scriptnya, lol.
Ini akan sedikit memahai funsi LEN, MOD, Dan Juga SELECT CASE yang ada di Visual Basic.
Ok sekarang kita mulai membuatnya
-siapkan 4 text
-siapkan 1 button
Lalu Tuliskan Script Berikut Pada Form :
Private Sub Command1_Click()
Call JILL
End Sub
Sub JILL()
Call JILL
End Sub
Sub JILL()
KAMU = Len(Text1.Text)
PASANGANMU = Len(Text2.Text)
HASILNYA = Val(KAMU) + Val(PASANGANMU) * 2
HASILNYA2 = HASILNYA Mod 9
Select Case HASILNYA2
Case "1"
N = "KAMU JODOH DAN HIDUP KALIAN AKAN BAHAGIA"
Case "2"
N = "KAMU ADALAH ORANG YANG BERUNTUNG BISA MENDAPATKANYA"
Case "3"
N = "TUHAN MENGABULKAN DOA MU DENGAN MEMBUAT DIA MENCINTAIMU"
Case "4"
N = "SEMUA YANG KAU LAKUKAN DENGANYA ADALAH SEBUAH ANUGRAH"
Case "5"
N = " SEKIRANYA ADA YANG LAIN KENAPA NGAK DI COBA DULU"
Case "6"
N = "KAMU DAN PASANGANMU ADALAH DUA KOMET BESAR YANG SALING BEROTASI MENJELAJAHI LUASNNYA GALAKSI"
Case "7"
N = "KAMU ADALAH ORANG YANG BERKUALIATAS KENAPA MESTI DENGANNYA"
Case "8"
N = "KAMU DAN DIRINYA ADALAH SEPASAH ZEBRA DI PADANG RUMPUT"
Case "0"
N = "PIKIRIN AJA NDRI DEH"
End Select
Text4.Text = N
End Sub
Jadi sedikit banyak kalaian bisa memahami fungsi oprator yang ada di visual basic Ya prinsipnya cuma menghitung panjang nama anda dan pasangan anda terus di mod 9, ya kalo misalnya lu suka ma seseorang tinggal coba aja terus rubah scriptnya, beres kan.
Sabtu, 17 April 2010
Membuat Image Viewer Dengan Visual Basic
well all dalam kesempatan kali ini gw akan sedikit bebagi tutorial visuakl basic, tentang bagaimana caranya membuat image viewer dengan visual basic.Cara nya cukup mudah oleh karena itu untuk yang sudah tau ya maklum aja, ini tutorial untuk newbie vdi visual basic. ok
Pertama siapkan 1 image, 2 command dan 2 buah text file.
tampilan formnya terserah kalian.
syntax image :
image1.Picture=LoadFile(filegambar)
contoh image1.Picture=loadfile(image2.picture), syntak seperti ini mengambil gambar yang ada di image2 ke image1.
Dalam kesempatan kali ini kita akan melihat file gambar external dengan visual basic
Pertama siapkan 1 image, 2 command dan 2 buah text file.
tampilan formnya terserah kalianlalu copy paste script berikut pada Form :
Private Sub Form_Load()
Image1.Stretch = True
TEXT1.Text = 1
End Sub
Sub JILL()
On Error GoTo LL
L = TEXT1.Text
N = "\IMAGE"
F = ".JPG"
C = N & L & F
Text2.Text = App.Path & C
Image1.Picture = LoadPicture(Text2.Text)
TEXT1.Text = L + 1
LL:
Select Case Err.Number
Case 53
TEXT1.Text = 1
End Select
End Sub
Sub JILL2()
On Error GoTo LL
L = TEXT1.Text
N = "\IMAGE"
F = ".JPG"
C = N & L & F
Text2.Text = App.Path & C
Image1.Picture = LoadPicture(Text2.Text)
TEXT1.Text = L - 1
LL:
Select Case Err.Number
Case 53
MsgBox "GAMBAR DA PALING AWAL"
End Select
End Sub
Private Sub Command1_Click()
Call JILL2
End Sub
Private Sub Command2_Click()
Call JILL
End Sub
Ok rasanya cukup mudah untuk di mengerti, semoga membantu.
Pertama siapkan 1 image, 2 command dan 2 buah text file.
tampilan formnya terserah kalian.
syntax image :
image1.Picture=LoadFile(filegambar)
contoh image1.Picture=loadfile(image2.picture), syntak seperti ini mengambil gambar yang ada di image2 ke image1.
Dalam kesempatan kali ini kita akan melihat file gambar external dengan visual basic
Pertama siapkan 1 image, 2 command dan 2 buah text file.
tampilan formnya terserah kalianlalu copy paste script berikut pada Form :
Private Sub Form_Load()
Image1.Stretch = True
TEXT1.Text = 1
End Sub
Sub JILL()
On Error GoTo LL
L = TEXT1.Text
N = "\IMAGE"
F = ".JPG"
C = N & L & F
Text2.Text = App.Path & C
Image1.Picture = LoadPicture(Text2.Text)
TEXT1.Text = L + 1
LL:
Select Case Err.Number
Case 53
TEXT1.Text = 1
End Select
End Sub
Sub JILL2()
On Error GoTo LL
L = TEXT1.Text
N = "\IMAGE"
F = ".JPG"
C = N & L & F
Text2.Text = App.Path & C
Image1.Picture = LoadPicture(Text2.Text)
TEXT1.Text = L - 1
LL:
Select Case Err.Number
Case 53
MsgBox "GAMBAR DA PALING AWAL"
End Select
End Sub
Private Sub Command1_Click()
Call JILL2
End Sub
Private Sub Command2_Click()
Call JILL
End Sub
Ok rasanya cukup mudah untuk di mengerti, semoga membantu.
Kamis, 15 April 2010
Cheat Poker
Poker Cheater
Pernahakah anda berpikir jika seadainya chips poker anda dapat seenaknya aja anda tambahkan atau anda kurangi sesuka hati anda, good point sekarang gw akan bagikan link dowanload aplikasi cheater fake yang 100% working. Gw kasih link downloadnya ntar atau silahkan post comment dan tuliskan email anda maka saya akan kirimkan link downloadnya.
Langganan:
Postingan (Atom)

