制作器说说
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
Edit1: TEdit;
SpeedButton17: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
Flag: Boolean = True; //。标记位
Flag1: Integer = 1; //计算方法标志位
num1, num2, result: Real;
flagresult: Boolean = False;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
str: string;
begin
str := Edit1.Text;
if (Length(str) = 1) and (str = '0') then
Edit1.Clear;
Edit1.Color := clBlue;
if ((Sender as TSpeedButton).Caption = '.') then
begin
if Flag then
begin
Edit1.Text := Edit1.Text + (sender as TSpeedButton).Caption;
Flag := False;
end
end
else
Edit1.Text := Edit1.Text + (sender as TSpeedButton).Caption;
end;
procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
Edit1.Color := clRed;
num2 := StrToFloatDef(Edit1.Text, 0.00);
case Flag1 of
1: result := num1 + num2;
2: result := num1 - num2;
3: result := num1 * num2;
4: if num2 = 0 then
begin
MessageBox(0, '除数为0', '', 0);
result := 0;
end
else
result := num1 / num2;
end;
Edit1.Text := FloatToStr(result);
end;
procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
Flag1 := (Sender as TSpeedButton).Tag;
num1 := StrToFloatDef(Edit1.Text, 0.00);
Edit1.Text := '0';
end;
procedure TForm1.SpeedButton17Click(Sender: TObject);
begin
Flag := True; //。标记位
Flag1 := 1; //计算方法标志位
num1 := 0;
num2 := 0;
result := 0;
Edit1.Text := '0';
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'1': SpeedButton1.Click;
'2': SpeedButton2.Click;
'3': SpeedButton3.Click;
'4': SpeedButton4.Click;
'5': SpeedButton5.Click;
'6': SpeedButton6.Click;
'7': SpeedButton7.Click;
'8': SpeedButton8.Click;
'9': SpeedButton9.Click;
'0': SpeedButton10.Click;
'.': SpeedButton11.Click;
'+': SpeedButton13.Click;
'-': SpeedButton14.Click;
'*': SpeedButton15.Click;
'/': SpeedButton16.Click;
end;
end;
end.
本人是个APP控，看到好玩的的玩意我就会马上下载安装，现在手机里已经有一百多个APP了
然后我整理出了10个特别有意思，对我们的生活有帮助的APP分享给大家，让大家本来就精彩的生活更加的光彩夺目，希望大家的生活总有欢乐（沙雕）相伴
一、给未来写封信每到深夜，我们总是有着稀奇古怪的想法，对未来的憧憬，对梦想的坚持，虽然心情不能持续，但我们可以把这些期许写成一封信，寄给未来的自己，多年以后，自己是否会因看到了这封信而感到眼角发酸。
虽然不能像哆啦A梦里的时光机一样穿越时空，但是我们可以保存那颗拼命跳动的心，多年以后，愿你不负所期
二、66键盘
尬聊神器！
面对土味情话不知怎么回时
遇到总是喜欢发语音的朋友时
跟喜欢的人聊天不知道扯什么话题时
打游戏遇到菜的抠脚不知道怎么怼队友时尬聊神器时
这些问题66键盘都能帮你解决！
热门情话，花式怼人，撩妹套路，话题制造者，缓解你的尬聊，释放你的双手，让我们一起做一个戏精沙雕！
66键盘就是这么6！
三、拾柒想把将生活写成书，但是没有设计基础？没关系！
不懂怎么页面排版？没关系！
这个APP简单易上手，封面，版式，书的封装材质都为你准备好了，你只需要输入你的生活
你的对象，基友，闺蜜生日时，送上一封你们共同的回忆，送上你亲自写成的书，别提有多惊喜，还能与你的好友一起完成书的内容创作。
支持第三方微信朋友圈，QQ空间说说日志等一键成书，让生活充满仪式感就是这么简单
四、Tabi Calc
没错，是一款计算器，但这又不是一款普通的计算器，它是能够计算日期的时间计算
在604800秒（7天）之前， 我们还是陌生人，而现在，我们却像是认识了31536000秒（一年）一样，无话不说，畅所欲言，相见恨晚。
因为你，让我觉得，时间不仅仅是一个概念，它还是我生活的调味剂
套路情话必备
五、Biu神器最受欢迎的装逼神器！
不会P图又想做恶搞、炫酷的图片？不会AE特效软件又想做浪漫高大上的表白视频？这个APP一键生成！
不需要多大的脑洞，只需要你的名字以及她的照片，就有无限可能
有了这个，脱单的日子还会久远么有了这个，脱单的日子还会久远么
有了这个，你也不一定能够解决你的单身问题，还需要下面的一些APP来协助你
六、GIF制作器制作GIF动画，你也可以！
拍摄一段有趣的视频，或者截取某个视频片段，导入GIF制作器里就可以随所欲为的制作GIF图片啦，小编必备！
配合上面的biu神器，就能够制作出恶搞或者炫酷的GIF图片啦
不过免费的只支持6秒的GIF制作
七、手持弹幕你是否也有过这一幕，在公交车上高铁上，遇到好看的小哥哥小姐姐，不知怎么上前搭讪，想要上去要联系方式，又怕被拒绝觉得尴尬。
这个APP或许能够帮助你！
只需要输入文字，手机屏幕就会自动滚动，也可以静止不动，让你不会再有害怕搭讪从而错过的懊悔。
也许，你和ta之间就差一句，很高心认识你
微信小程序搜索手持弹幕，也有同样的功能哟
八、段友内涵段子被封了以后，许多段友无家可归，只能混迹于别的APP内，但却没有那种畅所欲言的感觉了。
后来某一天，无意间看到了段友这个APP，马上下载，还是原来的段友，还是熟悉的味道。
才华横溢的段友层出不穷，用最犀利的话语还原最真实的生活，最真实的人心，内涵的不只是段子
天王盖地虎，这个APP该不会也会被那啥吧
九、最右今天又是沙雕的一天，哈哈哈哈哈哈哈，各种沙雕网友分享好玩的东西，强烈推荐！
知乎、抖音、快手的热门内容它都有！各种沙雕视频还有各种撩妹（汉）套路，保证让你看了还想看。
最右，专治不开心，听说最右里的小哥哥都是180，最右里的小姐姐都是萝莉音。
悄悄告诉你最右的暗号：天才在左，疯子在右
十、哔哩哔哩动画作为一个视频爱好者，B站当然必不可少的啦，里面有着各种有趣好玩的内容
百万up主倾情为我们打造出优质的视频，经常让我大喊卧槽，还有这样的沙雕
不仅有有趣的内容还有各种动漫番剧，而且还有各种有趣的视频教程，麻麻再也不用担心我滴学习啦，重点是里面有许多笑死人不偿命的鬼畜！
看着看着你就会发现，时间原来过得辣么快
大家在看的时候记得一定要打开弹幕哟，毕竟这是一个弹幕网站APP
推荐up主：
嘻咦啊看：以幽默有趣的方式为大家讲解电影，超有意思，文案写的超级棒
伊丽莎白鼠：B站鬼畜区镇站之宝，各种惊为天人的鬼畜视频，反正就是好看！
doyoudo：各种设计类的教程视频，PS、PR、AE、C4D以及HTML网页设计，甚至是乐理！！！简单易懂，小白小莫的声音敲好听，听了还想听，他们网站还有教程素材可下载
唉咻~(@^_^@)~，终于写完了，非常感谢你看完啦，希望这些APP能够让的生活变得有意思那么一丢丢，我就很开心啦
唉，今天，又是沙雕的一天呢
大家要是觉得有用，麻烦点个赞呀，谢谢大伙啦චᆽච
兄弟，你想多了，呵呵呵
★★♂KOF♀为您做答 希望对你有帮助 如果满意请选择我的答案 您的支持是我最大的动力★★免费获得黄钻：在空间设置广告，可获得影响力积分！影响力积分可换取，黄钻～Q秀～挂件～等280分就可以兑换30天黄钻会使用代码（有许多免费的代码，可以用来装扮空间，不收费！）颜色搭配（永远时尚的颜色黑白）颜色不要太亮添加大图模块位子摆放(尽量少摆，显得清爽）不要想的太饱满插入与你空间元素适合的flash动画（不要用太多的Flash，否则空间运行速度会慢下来)代码使用：（我怎么说你怎么做!）①进入自己空间②点击自定义③复制代码（复制快捷键:CTRL+C）④把原地址换成代码。⑤回车（见效果）⑥觉得不错就保存（自定义上面的保存）OK★★♂KOF♀为您做答 希望对你有帮助 如果满意请选择我的答案 您的支持是我最大的动力★★无需代码免费物（按步骤操作)：领用免费欢迎动画 进入QQ空间，点击装扮空间，在输入关键字里写"马" "幽夜幕" "分享",点搜索，第一个是免费的，单击欢迎动画的画面，然后按一下保存方案，单击返回，这样皮肤已下载到你的空间里了。 领用免费导航 进入QQ空间，点击装扮空间，在输入关键字里写"深海奥妙" "流金岁月" "摘星" ,点搜索，第一个是免费的，单击导航的画面，然后按一下保存方案，单击返回，这样皮肤已下载到你的空间里了。 领用免费皮肤 进入QQ空间，点击装扮空间，在输入关键字里写"最美的花" "夜光" "幸福的故事" "那年的歌" "如此的爱",点搜索，第一个是免费的皮肤，单击皮肤的画面，然后按一下保存方案，单击返回，这样皮肤已下载到你的空间里了。 领用免费播放器 进入QQ空间，点击装扮空间，在输入关键字里写"BLUE",点搜索，就会出现一个免费的播放器，单击播放器的画面，然后按一下保存方案，单击返回，这样播放器已下载到你的空间里了。 免费添加歌曲 首先.你打开IE.输入百度.然后在地址栏输入你要搜索歌曲的名字.点击搜索.但是一定要用wma或mp3格式的.我推荐wma.连接速度会比较快! 然后,会出现多首你要搜索的歌.点击试听.这时候会弹出个windows media player的播放器!试一下歌曲能否播放,在“歌曲出处”后面的地址上点右键，选“复制快捷方式”，把地址复制下来。（地址不能太长，否则不能播放。）最后到你的播放列表中点击添加曲目,点击添加网络音乐,再把歌曲地址输入来源(url)那里,然后自己写上歌名.歌手.星级就可以了.(我空间内的大部分歌是这样下载的.不过过一段时间,如果网址被删掉,歌曲就不能播放了,再去百度搜一个新的网址就行了。) 另外有一个办法,就是找到其他人的空间,找到喜欢的歌,点击那个转载的符号把它转载过来,如果转载的符号是没有颜色的,就不能转载,不过转载的成功率可能在80%左右,转载后要试听一下,是否能播放. 免费领养植物 进入QQ空间，点击装扮空间，点一下养植物,再点一级植物,点一下要养的植物画面,跳出来是否确定领养,单击确定, 然后按一下保存方案，单击返回，这样植物已下载到你的空间里了。 风格设置 点装自定义 风格设置，在喜欢的背景颜色的圆圈内点一下，点下面的保存，再点旁边的保存． 把Flash保存到主页 点击QQ空间的自定义，点击新建模块，在弹出的窗口中，选Flash 动画模块，把网址复制粘贴在Flash动画连接后面的框内，高和宽都不用填，然后选自动播放，模块边框选有，键入附加码，单击保存就可以了。然后用右下方的箭头把动画拉成合适的大小，在自定义的框内单击保存，单击返回，这样Flash就保存在你的空间里了，在主页的适当位置就会出现Flash动画。如果文档不能保存,请用鼠标左键按住模块上方,移动一下位置,就可以保存了. 把图片自定义后放入主页 从相册内找出一张相片,点击复制地址, 点击新建模块，在弹出的窗口中，选用图片模块。然后把网址输入链接图片的框内，打开更多设置，边框填无(根据需要,也可填有)。然后用右下方的箭头把动画拉成合适的大小，,键入附加码，单击保存就可以了。然后在自定义的框内单击保存，单击返回，这样照片就保存在你的主页上了.如果文档不能保存,请用鼠标左键按住模块上方,移动一下位置,就可以保存了. 上传照片 点创建相册,写好相册名称,再点创建,相册就创建完成了。点上传照片,再点要上传的相册,点一下浏览,在电脑里找到要上传的图片,再点一下上传就成功了.非黄钻用户每天有配额限制，当配额已满时,可以进入自己或别人的空间发表留言,在留言时点插入图片的那个图标,点从相册中选一张或上传一张新图,再点浏览,选择自己想要传的照片,然后上传,给别人留言后再进入自己的空间相册，就会发现给别人留言的照片出现在自己的相册了。 ★★♂KOF♀为您做答 希望对你有帮助 如果满意请选择我的答案 您的支持是我最大的动力★★