Script in Notepad : Nembak Cewek

Halo Sobat , Kali ini ane akan mempostingkan tentang Script Notepad Nembak Cewek. Sudah lama ya...?? gak Update menuhin Label Script Bagus Nie!!. Dalam artikel ini saya akan mempostingkan tentang pembuatan aplikasi sederhana untuk nembak cewek. hihiiii ?? Malu Ahhhh...!!. Tapi sederhana banget kok cuma ikuin Step by Step dari ane.

~ Mari Kita Buat dengan Menggunakan Notepad Windows Apa saja !! :

1. Buka Notepad.

2. Masukkan (copy) script ini ke notepad (inget, masukinnya ke notepad, jangan ke tempat lain) :

----------------------------------------------------------------------------------------------------

Dim Jika

Jika = InputBox (" Isikan kata-kata untuk nembak cewek/cowok yang Anda sukai ")

If UCase(Jika) = " isikan kata-kata yang menyatakan persetujuan, contoh : IYA(harus huruf besar)" Then

MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata persetujuan pada kotak dialog"

ElseIf UCase(Jika) = " isikan kata-kata yang menyatakan penolakan, contoh : TIDAK(harus huruf besar)" Then

MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata penolakan pada kotak dialog"

Else

MsgBox " isikan kata jika cewek salah menulis kata"

End If

~ Contoh :

Dim Jika
Jika = InputBox ("Eh,, tau nggak? Aku tu sebenernya dari dulu aku suka sama kamu. Kamu mau gak jadi pacarku? Ketik 'Y' kalo kamu mau, ato ketik 'T' kalo kamu nolak aku :( ")
If UCase(Jika) = "Y" Then
MsgBox "Aku pengen kita langgeng ~^_^~ "
ElseIf UCase(Jika) = "T" Then
MsgBox "Aku gak akan nyerah buat dapetin kamu!"
Else
MsgBox "Kamu salah tulis sayang, cuma bisa ketik Y ato T.. "
End If