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

[unregistered000]

ane keliling web, dapet nih script..

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...

[adoet_t]

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

[Fauzi Topan]

Download microsoft visual basic bang, buat project win form baru, masukkin kode abang itu di event form load
nanti di compile jadi .exe bang

[DC_Julianz]

Mana ini ts nya dalam 1 X 24 gak datang, tread ane close dan solved

jikalau mau dibuka bisa pm ane biar rapih Thanks