Minggu, 11 September 2011
Membuat Password di QBasic
Sedikit penjelasan tentang pembuatan password di Microsoft Quick Basic, mungkin ini cuma program iseng bagi para master tapi semoga bisa bermanfaat bagi yang baru belajar Qbasic.
Tampilan jendela penulisan kode pada Qbasic seperti disamping.
Bukalah Aplikasi Qbasic dan ketikkan Code seperti dibawah ini:
rem PROGRAM PEMBUATAN PASSWORD
REM HTTP://INFOIHSAN.BLOGSPOT.COM
CLS
pass$ = "infoihsan" + CHR$(13)
kt$ = ""
posx% = 1
pilihan% = 0
batas% = 3
WHILE tekan$ <> CHR$(13) OR pilihan% <> 1
tekan$ = INKEY$
LOCATE 5, 5: PRINT "Password :"
IF tekan$ <> "" THEN
LOCATE 5, 14 + posx%: PRINT "*"
kt$ = kt$ + tekan$
posx% = posx% + 1
END IF
IF tekan$ = CHR$(13) THEN
IF batas% > 1 THEN
IF kt$ = pass$ THEN
pilihan% = 1
CLS
LOCATE 12, (80 - LEN("Tekan Enter Untuk Melanjutkan..")) / 2
INPUT "Tekan Enter Untuk Melanjutkan..", x$
LOCATE 12, 1: PRINT SPACE$(70)
t1$ = "Access Security Code is Valid"
w% = 0
FOR i = 1 TO LEN(t1$)
IF w% > 15 THEN
w% = 1
ELSE
w% = w% + 1
END IF
COLOR w%, 0
LOCATE 12, 25 + i: PRINT MID$(t1$, i, 1)
FOR tunda = 1 TO 100000
NEXT tunda
NEXT i
ELSE
kt$ = ""
batas% = batas% - 1
posx% = 1
LOCATE 5, 14 + posx%: PRINT "Kesempatan anda tinggal :"; batas%
henti$ = INPUT$(1)
LOCATE 5, 5 + posx%: PRINT SPACE$(40)
END IF
ELSE
END
END IF
END IF
WEND
Semoga bermanfaat bagi teman2 semua..
1 Response to "Membuat Password di QBasic"
MAU TANYA NIH GAN, ADA CONTOH PEMROGRAMAN QBASIC DIMANA 1 POROGRAM ITU TERDAPAT 10 APLIKASI YANG MEWAKILI SELURUH STATEMENT GAN ? BUAT REFERENSI GAN..
MOHON PENCERAHANNYA ^_^
:)) :)] ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} ~x( :-t b-( :-L x( =))
Leave A Reply