计算器程序~~~

candan · 发表于 2013-4-19 17:35:27

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

看完小甲鱼的delphi入门，自己编写的计算器程序。可以实现Real型的简单计算。

ps:打开的界面
--------------------------------------------------------------------------------------

ps:正常计算界面
-----------------------------------------------------------------------------------------

ps:除数为0的界面
----------------------------------------------------------------------------------------割了吧
源码：

计算机V2.zip (374.68 KB, 下载次数: 54)
-----------------------------------------------------------------------------------------
ps:遇到的问题
Edit控件右对齐，消息弹出框，Label控件透明
解决方法
在窗体的OnCreat或OnShow中加入
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.handlw.GWL_STYLE)or ES_right);

在判断除数为0后加入ShowMessage('XXOO');

Label的Transparent中设置为True

各种顶小甲鱼~~~

candan · 发表于 2013-4-19 17:36:20

邮箱617288633@qq.com

candan · 发表于 2013-4-19 17:54:55

求大神赐教，除数为零时，自动返回，让返回值为0。

candan · 发表于 2013-4-19 18:02:01

begin
Showmessage('除数为0，玩我呢~~~');
exit;
end
修正除数为零，直接产生的错误中断，加了exit；函数

wangyily · 发表于 2013-4-19 18:14:02

:D呵呵，顶下

悠悠清风 · 发表于 2013-4-19 20:50:15

强烈支持楼主ing……

candan · 发表于 2013-4-19 22:32:16

悠悠清风发表于 2013-4-19 20:50

登录/注册后可看大图

强烈支持楼主ing……

激动人心，无法言表！

cyrs · 发表于 2014-8-26 19:35:29

学习学习

yangyangcao · 发表于 2014-8-28 11:10:16

激动人心，无法言表！

superstarjlj2 · 发表于 2014-8-28 23:21:10

强烈支持楼主ing……

牡丹花下死做鬼 · 发表于 2014-8-28 23:49:56

除法演示.rar (221.75 KB, 下载次数: 3)
没看懂自己写了个除法的感觉应该可以了

maoyu · 发表于 2016-9-10 11:47:01

好厉害

账号		自动登录	找回密码
密码			立即注册

[原创] 计算器程序~~~

马上注册，结交更多好友，享用更多功能^_^