密码登陆窗口代码【原创】

[dafei0214]

今天本来想下载一个密码登陆窗口的程序，无奈没有金币，只好自己花了几个小时，编了这个简单的小程序，和大家互相交流下。。。小弟学这个才两周不到。。。
：）

使用方法：
将附件解压至英文目录下，打开matlab 7.0，输入命令GUIDE，选择a1.fig。
用户名：dafei0214
密码：87406
登陆成功后会启动系统界面。

欢迎大家多提意见。。。
QQ:335340681

[dafei0214]

这个是截图。。。

[lypleon]

为啥没人顶呢 。。

[xiezhh]

我发一个免费的，我可不是跟楼主对着干，互相交流而已。

function mima

OldHandle = findobj( 'Type', 'figure', 'Tag', 'mimadenglu' ) ;
if ishandle( OldHandle )
close( OldHandle ) ;
end
fig = figure ;
set(fig,'units','normalized','position',[0.3 0.2 0.4 0.6],...
'menubar','none','name','密码登陆窗口',...
'numbertitle','off','color',[0.925 0.914 0.847],'tag','mimadenglu');
scnsize=get(0,'screensize');
font_size1=round(20*sqrt(scnsize(3)*scnsize(4)/(1024*768)));
font_size2=round(14*sqrt(scnsize(3)*scnsize(4)/(1024*768)));
uicontrol(fig,'style','text','units','normalized','pos',[0.1 0.63 0.8 0.15],'string','欢迎使用本系统',...
'fontsize',font_size1,'fontweight','bold','fontunits','normalized','bac',[0.925 0.914 0.847])
panel1=uipanel(fig,'units','normalized','pos',[0.15 0.3 0.7 0.15],'bac',[0.925 0.914 0.847]);
uicontrol(panel1,'style','edit','units','normalized','pos',[0.2 0.2 0.6 0.6],...
'string','','tag','edit1','backgroundcolor',[1 1 1],'string','请输入密码',...
'fontsize',font_size2,'fontunits','normalized','KeyPressFcn',...
['currKey = get(gcf,''Currentkey'');',...
'currChar = get(gcf,''Currentcharacter'');',...
'switch currKey;',...
'case {''backspace'',''delete''};',...
'Char = [];',...
'set(gcbo,''String'','''');',...
'drawnow;',...
'case ''return'';',...
'passChar = get(gcbo,''UserData'');',...
'if strcmp(passChar,''654321'');',...
'msgbox(''恭喜你记住了密码！！！'');',...
'else;',...
'msgbox(''密码输入错误！！！'');',...
'end;',...
'return;',...
'otherwise;',...
'oldChar = get(gcbo,''UserData'');',...
'Char = [oldChar,currChar];',...
'set(gcbo,''string'',char(''*''*ones(1,length(Char))));',...
'end;',...
'set(gcbo,''UserData'',Char);'])

[nothingwmm]

作者: xiezhh

我发一个免费的，我可不是跟楼主对着干，互相交流而已。

function mima

OldHandle = findobj( 'Type', 'figure', 'Tag', 'mimadenglu' ) ;
if ishandle( OldHandle )
close( Ol...

免费才是硬道理呀！！！！！！！！
谢老师真好

[leap]

以上两位高手的源代码在我这运行的时候都显示的是Error: Missing variable or function.请告诉原因吧

[action]

不错。但是源程序代码还是能被别人看见。有什么办法能让源程序不公开呢？

[xsprinkle]

不做成可 执行文件，把你的源文件 打开 密码统统看到了哈哈:smile:

[remnant]

这个东西应该说基本没啥技术含量.

[guofeng0108]

好好的要个这做什么！！！！！！！！
真是的！！！！！