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

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

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()

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.