delhpi7 V3计算器求补全

MISS

做V3计算器时候不知道+  号-号和=的代码怎么写只完成了一般求大家把代码补全谢谢！

天殇

哈哈，原来你学的比我多。。。我还没到这里呢。不过以前学别的时候遇到这个情况，有这么一个笨办法，你新建一个edit控件，然后把visible设置为false。这样就可以实现了。。。

天殇

你可以把小甲鱼老师的课件下载下来研究下啊。
你是vip可以的。

MISS

天殇 发表于 2012-2-22 21:18

                               
登录/注册后可看大图

你可以把小甲鱼老师的课件下载下来研究下啊。
你是vip可以的。

没找到课件的代码在哪下载呢

MISS

天殇 发表于 2012-2-22 21:16

                               
登录/注册后可看大图

哈哈，原来你学的比我多。。。我还没到这里呢。不过以前学别的时候遇到这个情况，有这么一个笨办法，你新建 ...

......大家一起学习

MISS

找到了课件下载 谢谢大家  分数给第一贴了  3Q

天殇

MISS 发表于 2012-2-22 21:26

                               
登录/注册后可看大图

找到了课件下载 谢谢大家  分数给第一贴了  3Q

谢谢了。delphi比较有意思啊。我也是学的不亦乐乎。

MISS

天殇 发表于 2012-2-22 21:28

                               
登录/注册后可看大图

谢谢了。delphi比较有意思啊。我也是学的不亦乐乎。

大家以后一起学习有什么问题多讨论多发帖  也给后面学习的人一点资料不是

comeheres

MISS 发表于 2012-2-22 22:31

                               
登录/注册后可看大图

大家以后一起学习有什么问题多讨论多发帖  也给后面学习的人一点资料不是

嗯，大家把平时练习的作品也分享一下啊，互相学习嘛

MISS

comeheres 发表于 2012-2-22 22:47

                               
登录/注册后可看大图

嗯，大家把平时练习的作品也分享一下啊，互相学习嘛

呵呵  必须的！  我发了个新帖子  你看看能懂不！求解中呢
http://bbs.fishc.com/thread-14130-1-1.html

唯美小猪猪

http://bbs.fishc.com/thread-4630-1-2.html你要的源代码这里有下载，呵呵虽然看过源代码，不过
begin
  SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);
  Edit1.Invalidate;
end; 这一块的意思我不是很明白，有人知道不？

s0512

楼主比我快！还没学到！

梦断难寻

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   
7. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.XPMan;
   
8. 
   
9. type
   
10. TForm1 = class(TForm)
    
11. grp1: TGroupBox;
    
12. edt1: TEdit;
    
13. btn1: TButton;
    
14. btn2: TButton;
    
15. btn3: TButton;
    
16. btn4: TButton;
    
17. btn5: TButton;
    
18. btn6: TButton;
    
19. btn7: TButton;
    
20. btn8: TButton;
    
21. btn9: TButton;
    
22. btn10: TButton;
    
23. btn11: TButton;
    
24. btn12: TButton;
    
25. btn13: TButton;
    
26. btn14: TButton;
    
27. btn15: TButton;
    
28. btn16: TButton;
    
29. procedure btn16Click(Sender: TObject);
    
30. procedure btn15Click(Sender: TObject);
    
31. procedure btn14Click(Sender: TObject);
    
32. procedure btn13Click(Sender: TObject);
    
33. procedure btn12Click(Sender: TObject);
    
34. procedure btn11Click(Sender: TObject);
    
35. procedure btn10Click(Sender: TObject);
    
36. procedure btn9Click(Sender: TObject);
    
37. procedure btn8Click(Sender: TObject);
    
38. procedure btn7Click(Sender: TObject);
    
39. procedure btn1Click(Sender: TObject);
    
40. procedure btn6Click(Sender: TObject);
    
41. procedure btn5Click(Sender: TObject);
    
42. procedure btn4Click(Sender: TObject);
    
43. procedure btn3Click(Sender: TObject);
    
44. procedure btn2Click(Sender: TObject);
    
45. private
    
46. { Private declarations }
    
47. public
    
48. { Public declarations }
    
49. end;
    
50. 
    
51. var
    
52. Form1: TForm1;
    
53. value:Real;
    
54. zhen1:Byte;
    
55. implementation
    
56. 
    
57. {$R *.dfm}
    
58. function yunsuan(a,b:Real;C:integer):Real;
    
59. begin
    
60. 
    
61. case c of
    
62. 1:yunsuan:=(a+b);
    
63. 2:yunsuan:=(a-b);
    
64. 3:yunsuan:=(a*b);
    
65. 4:yunsuan:=(a/b);
    
66. 
    
67. end;
    
68. 
    
69. end;
    
70. procedure TForm1.btn10Click(Sender: TObject);
    
71. begin
    
72. edt1.Text:=edt1.Text+'7';
    
73. end;
    
74. 
    
75. procedure TForm1.btn11Click(Sender: TObject);
    
76. begin
    
77. edt1.Text:=edt1.Text+'6';
    
78. end;
    
79. 
    
80. procedure TForm1.btn12Click(Sender: TObject);
    
81. begin
    
82. edt1.Text:=edt1.Text+'5';
    
83. end;
    
84. 
    
85. procedure TForm1.btn13Click(Sender: TObject);
    
86. begin
    
87. edt1.Text:=edt1.Text+'4';
    
88. end;
    
89. 
    
90. procedure TForm1.btn14Click(Sender: TObject);
    
91. begin
    
92. edt1.Text:=edt1.Text+'3';
    
93. end;
    
94. 
    
95. procedure TForm1.btn15Click(Sender: TObject);
    
96. begin
    
97. edt1.Text:=edt1.Text+'2';
    
98. end;
    
99. 
    
100. procedure TForm1.btn16Click(Sender: TObject);
     
101. begin
     
102. edt1.Text:=edt1.Text+'1';
     
103. end;
     
104. 
     
105. procedure TForm1.btn1Click(Sender: TObject);
     
106. begin
     
107. edt1.Clear;
     
108. end;
     
109. 
     
110. procedure TForm1.btn2Click(Sender: TObject);
     
111. begin
     
112. if (edt1.Text<>'')and (zhen1=1) then
     
113. begin
     
114. edt1.Text:=FloatToStr(yunsuan(value,StrToFloat(edt1.Text),1));
     
115. Exit;
     
116. end
     
117. else if (edt1.Text<>'')and (zhen1=2) then
     
118. begin
     
119. edt1.Text:=FloatToStr(yunsuan(value,StrToFloat(edt1.Text),2))
     
120. end
     
121. else if (edt1.Text<>'')and (zhen1=3) then
     
122. begin
     
123. edt1.Text:=FloatToStr(yunsuan(value,StrToFloat(edt1.Text),3))
     
124. end
     
125. else if (edt1.Text<>'')and (zhen1=4) then
     
126. begin
     
127. edt1.Text:=FloatToStr(yunsuan(value,StrToFloat(edt1.Text),4))
     
128. end
     
129. else
     
130. Application.MessageBox('输入有误,请重试!','提示',0);
     
131. 
     
132. end;
     
133. 
     
134. 
     
135. 
     
136. procedure TForm1.btn3Click(Sender: TObject);
     
137. begin
     
138. value:=StrToFloat(edt1.Text);
     
139. edt1.Clear;
     
140. zhen1:=4;
     
141. end;
     
142. 
     
143. procedure TForm1.btn4Click(Sender: TObject);
     
144. begin
     
145. value:=StrToFloat(edt1.Text);
     
146. edt1.Clear;
     
147. zhen1:=3;
     
148. end;
     
149. 
     
150. procedure TForm1.btn5Click(Sender: TObject);
     
151. begin
     
152. value:=StrToFloat(edt1.Text);
     
153. edt1.Clear;
     
154. zhen1:=2;
     
155. end;
     
156. 
     
157. procedure TForm1.btn6Click(Sender: TObject);
     
158. begin
     
159. value:=StrToFloat(edt1.Text);
     
160. edt1.Clear;
     
161. zhen1:=1;
     
162. 
     
163. end;
     
164. 
     
165. procedure TForm1.btn7Click(Sender: TObject);
     
166. begin
     
167. edt1.Text:=edt1.Text+'0';
     
168. end;
     
169. 
     
170. procedure TForm1.btn8Click(Sender: TObject);
     
171. begin
     
172. edt1.Text:=edt1.Text+'9';
     
173. end;
     
174. 
     
175. procedure TForm1.btn9Click(Sender: TObject);
     
176. begin
     
177. edt1.Text:=edt1.Text+'8';
     
178. end;
     
179. 
     
180. end.

复制代码

ygrong_2008

我重新写了一下，功能实现了，如果需要，可以给我要

xieyang258

ygrong_2008 发表于 2014-9-6 20:36
我重新写了一下，功能实现了，如果需要，可以给我要

你好，简单计算器V3版本的（只有一个edit的）代码可以给我发一份吗？感谢！562684040@qq.com