Devilzc0de Forum Follow @devilzc0de
  • Home
  • Hacking
  • Networking
  • Programming
  • O.S
  • Server
  • Tweets
  • Search
  • Member List
  • Calendar
Current time: 05-24-2013, 04:58 PM Hello There, Guest! (Login — Register)
Devilzc0de Forum › Information Technology › Programming › Visual Basic v
« Previous 1 ... 3 4 5 6 7 ... 14 Next »

[Solved] ane punya script nembak cowo/cewe, tapi...

Home General Computer Multimedia Business Lounge

Thread Closed 
Tweet
Threaded Mode | Linear Mode
Solved ane punya script nembak cowo/cewe, tapi...
02-24-2012, 09:37 PM (This post was last modified: 11-18-2012 11:48 AM by DC_Julianz.)
Post: #1
unregistered000 Offline
Banned
Posts: 49
Joined: Jan 2012
ane punya script nembak cowo/cewe, tapi...
ane keliling web, dapet nih script.. bangga

Code:
Dim Jika
Jika = InputBox ("F** aku sayang bnget sama kamu, tapi kamu udah punyak T sekarang , tapi yng pasti ini aku buat cuman buat buktiin kalo aku sayang bnget sama kamu. Sekarang kamu plih si * apa si T f** ?? ketik * or T, lalu klik ok ^_^ ")
If UCase(Jika) = "*" Then
MsgBox "I Love You sayank, mmwah ~^_^~"
ElseIf UCase(Jika) = "T" Then
MsgBox "Never To Give Up ^_^"
Else
MsgBox "Pilihan hanya '*' untuk ya atau 'T' untuk tidak "
End If

minta saran aja gan biar sempurna programnya.., di script itu kan disuruh ketik 2 pilihan yaitu "*" dan "T", dan ketika kita masukkan salah satu pilihan tsb, maka program akan membawa kita ke salah satu kotak dialog sesuai dengan pilhan itu (dlm hal ini "*" dan "T"). Masalahnya ketika kita ketikkan selain dua huruf tersebut program langsung membawa ke kotak dialog lainnya dan program langsung exit.

Tanya
Quote:1. Biar lebih bagusnya bagaimana script yang membuat program balik ke pilihan dua huruf tersebut ketika si pemberi input tidak memasukkan pilihan sesuai dengan yang diminta. Jadi program "memaksa" untuk memilih "*" atau "T".
2. minta soft buat conver vbs ke exe..

maaf kalo acak acakan.. ane silent reader suhu...
Find all posts by this user
02-24-2012, 10:44 PM
Post: #2
adoet_t Offline
Devilz e-Magazine Team (DeMT)
*****
DeMT Team
Posts: 128
Joined: Jul 2010
Reputation: 22
RE: ane punya script nembak cowo/cewe, tapi...
1. Pake perulangan om,, "loop"
Code:
Option Explicit
Dim ulang
Dim ulangCount
Dim Jika

ulang = False
ulangCount = 0

Do
    ulang = False
    ulangCount = ulangCount + 1

    Jika = InputBox ("F** aku sayang bnget sama kamu, tapi kamu udah punyak T sekarang , tapi yng pasti ini aku buat cuman buat buktiin kalo aku sayang bnget sama kamu. Sekarang kamu plih si * apa si T f** ?? ketik * or T, lalu klik ok ^_^ ")
    If UCase(Trim(Jika)) = "*" Then
        MsgBox "I Love You sayank, mmwah ~^_^~"
    Else
        if UCase(Trim(Jika)) = "T" Then
        MsgBox "Never To Give Up ^_^"
    Else
        MsgBox "Pilihan hanya '*' untuk ya atau 'T' untuk tidak "
        ulang = True
    End If
End if
Loop While ulang

2. Ane gaak punya malu
Visit this user's website Find all posts by this user
02-24-2012, 11:17 PM
Post: #3
Fauzi Topan Offline
PacarNya Yuki Kato
Posts: 314
Joined: Nov 2011
Reputation: 55
RE: ane punya script nembak cowo/cewe, tapi...
Download microsoft visual basic bang, buat project win form baru, masukkin kode abang itu di event form load
nanti di compile jadi .exe bang
Visit this user's website Find all posts by this user
11-09-2012, 03:00 AM
Post: #4
DC_Julianz Online
Null
**
Moderators
Posts: 2,019
Joined: Sep 2011
Reputation: 70
RE: ane punya script nembak cowo/cewe, tapi...
Mana ini ts nya dalam 1 X 24 gak datang, tread ane close dan solved

jikalau mau dibuka bisa pm ane smoke biar rapih Thanks
Visit this user's website Find all posts by this user
« Next Oldest | Next Newest »
Thread Closed 


Topic Tools
Topic Link :
BBCode :
HTML Code :
View a Printable Version Send Thread to a Friend Subscribe to this thread
Submit Google Submit Face book Submit to Digg Submit to Reddit Submit to Furl Submit to Del.icio.us Submit to Jeqq

Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  Kumpulan komponen VB wajib punya aditirawan 13 291 03-25-2013 06:51 PM
Last Post: Mr.Robot
  [cloneng] nembak cewe with vb6 nanda 13 389 03-23-2013 11:19 AM
Last Post: lanionk
  [Tutor] 37 Kategori Source Code Dan Script Visual Basic 6 Untuk Pemula nanda 23 2,173 02-21-2013 08:35 PM
Last Post: brianfahmi
Rainbow [Ask] script aplikasi hitung denda vmwmxholic 4 1,825 11-09-2012 03:29 AM
Last Post: DC_Julianz
  [Ask] HELP YANG PUNYA PATCH MSDN VB 6 willhup 9 1,625 11-08-2012 05:36 PM
Last Post: DC_Julianz
  Ada yang punya gak dll acr120s petimati 0 1,049 12-30-2009 03:53 PM
Last Post: petimati

Users Browsing
1 Guest(s)

  • Contact Us
  • devilzc0de
  • Return to Top
  • Mobile Version
  • RSS Syndication
  • Help
Current time: 05-24-2013, 04:58 PM Powered By MyBB, © 2002-2013 MyBB Group. Theme created by Justin S. | Mixed By Chaer.Newbie | Fixed By Aditya

USING THIS SITE INDICATES THAT YOU HAVE READ AND ACCEPT OUR TERMS. IF YOU DO NOT ACCEPT THESE TERMS, YOU ARE NOT AUTHORIZED TO USE THIS SITE