Hallo sobat, apa kabar?
Langsung saja ya, kali ini Comeon-Moveon akan membagikan sebuah tips kepada sobat semua, tips apakah itu?? Hehe.. Tipsnya agak sedikit gokiel dan seru, yaitu cara membuat pesan cinta menggunakan script dan cara membuatnya hanya dengan menggunakan aplikasi Notepad.
Nah, seperti itu demonya sobat. Cara membuatnya :
1. Buka aplikasi Notepad.
2. Kemudian masukkan script dibawah ini ke notepad yang sobat buka.
masukan kode berikut :
Dim RAif
RAif = InputBox ("Hy, maaf aku ganggu kamu dulu sebentar boleh? | Aku cuma mau nyatain kalau aku itu suka sama kamu | Jawab Y kalau kamu mau terima aku atau N kalau nolak cinta aku..")
If UCase(RAif) = "Y" Then
MsgBox "Thanks yah cantik dah mau jadi cewek aku :*"
ElseIf UCase(RAif) = "N" Then
MsgBox "Why? ....., yasudah!! | baygon mana baygon"
Else MsgBox "Kenapa ga coba bilang aja sejujurnya aja sih ? "
End If
RAif = InputBox ("Hy, maaf aku ganggu kamu dulu sebentar boleh? | Aku cuma mau nyatain kalau aku itu suka sama kamu | Jawab Y kalau kamu mau terima aku atau N kalau nolak cinta aku..")
If UCase(RAif) = "Y" Then
MsgBox "Thanks yah cantik dah mau jadi cewek aku :*"
ElseIf UCase(RAif) = "N" Then
MsgBox "Why? ....., yasudah!! | baygon mana baygon"
Else MsgBox "Kenapa ga coba bilang aja sejujurnya aja sih ? "
End If
0 komentar:
Posting Komentar