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.

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.

Cheat Poker

Poker Cheater

              

File Video

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.