Kode Program membuat password pada visual basic

private sub_command1_click()
If text1.text="123456" then
'text1.text adalah text password
unload me
form(target).show
else
text1.text=""
text1.setfocus
end if
end sub

Selamat Mencoba

PERTAMAX!
ane minta bantuannya buat yang checklist min..
ane sundul deh biar rame ni trit..

private sub_command1_click()
if check1.value=vbchecked and check2.value=vbchecked and check3.value=unvbchecked then
msgbox "anda kena cacingan"
end if
if check1.value=vbchecked and check2.value=vbchecked and check3.value=unvbchecked then
msgbox "anda kena ayan"
end if
end sub

ni salah satu contoh saja, contoh formnya kaya di modul

pa , saya sudah coba seperti itu,, hasilnya selalu tidak sesuai harapan,,, pasti ada yang ga muncul,,, kalo muncul ada yang error,,, padahal udah persis,,,

error yang mane gan?

pak kalo saya kayak gini bener nda pak?? :

uses crt;

var
x: string;
y,z: integer;

begin
clrscr;
Write('Masukan kata yang kamu mau : ');
readln(x);

for y:=length(x) to 1 do
z:= (length(x)-1+1)
write(z);

readln;
end.


pertanyaannya adalah, apakah output dari program di atas??

fadewae wrote:

pak kalo saya kayak gini bener nda pak?? :

uses crt;

var
x: string;
y,z: integer;

begin
clrscr;
Write('Masukan kata yang kamu mau : ');
readln(x);

for y:=length(x) to 1 do
z:= (length(x)-1+1)
write(z);

readln;
end.


pertanyaannya adalah, apakah output dari program di atas??

eror kurang ';' siji. nek misale digawe kaya kye:

uses crt;

var
x: string;
y,z: integer;

begin
clrscr;
Write('Masukan kata yang kamu mau : ');
readln(x);

for y:=length(x) to 1 do
z:= (length(x)-1+1);
write(z);

readln;
end.

metune ya dawane x.

virustotelest wrote:

fadewae wrote:

pak kalo saya kayak gini bener nda pak?? :

uses crt;

var
x: string;
y,z: integer;

begin
clrscr;
Write('Masukan kata yang kamu mau : ');
readln(x);

for y:=length(x) to 1 do
z:= (length(x)-1+1)
write(z);

readln;
end.


pertanyaannya adalah, apakah output dari program di atas??

eror kurang ';' siji. nek misale digawe kaya kye:

uses crt;

var
x: string;
y,z: integer;

begin
clrscr;
Write('Masukan kata yang kamu mau : ');
readln(x);

for y:=length(x) to 1 do
z:= (length(x)-1+1);
write(z);

readln;
end.

metune ya dawane x.

hohoho.... maap ya...
kurang teliti...

mase pascale pinter ment....
aku di ajari owh..

itu maah pascal...klo script saya di atas kan pake visual basic

beeeuuhhh,,, percaya wis ahli pascal,,, tapi tidak dengan vissual bsic,,, hehehe

gan kalo mau pake keterangan codenya ini bukan:
pesan=msgbox(password benar,vbaplicationmodal apa vb critical?


thx