当前位置： 首页 > 编程日记 > 正文

电脑计算机科学型,电脑里附带的计算器有标准型和科学型二种，它 – 手机爱问...

编程日记 2025-01-17 21:50:00

6122bdf72e7482c1d51b6aa223d8cae9.png

2019-06-24

如何用delphi7 0设计标准型计算器

这是源代码：unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Buttons, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Panel1: TPanel;    Panel2: TPanel;    SpeedButton7: TSpeedButton;   ...全部

这是源代码：unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Buttons, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Panel1: TPanel;    Panel2: TPanel;    SpeedButton7: TSpeedButton;    SpeedButton8: TSpeedButton;    SpeedButton9: TSpeedButton;    SpeedButton13: TSpeedButton;    SpeedButton4: TSpeedButton;    SpeedButton5: TSpeedButton;    SpeedButton6: TSpeedButton;    SpeedButton12: TSpeedButton;    SpeedButton1: TSpeedButton;    SpeedButton2: TSpeedButton;    SpeedButton3: TSpeedButton;    SpeedButton11: TSpeedButton;    SpeedButton14: TSpeedButton;    SpeedButton15: TSpeedButton;    SpeedButton10: TSpeedButton;    StaticText1: TStaticText;    SpeedButton0: TSpeedButton;    SpeedButton16: TSpeedButton;    SpeedButton17: TSpeedButton;    GroupBox1: TGroupBox;    procedure SpeedButton1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure SpeedButton11Click(Sender: TObject);    procedure SpeedButton15Click(Sender: TObject);    procedure SpeedButton16Click(Sender: TObject);    procedure SpeedButton17Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;  restart: Boolean;  isfirst: Boolean;  fir_num,sec_num: String;  sign: integer;  result: real;  save: String;implementation{$R *。

dfm}function count(sign: integer):real;begin  case sign of    1: result:=strtofloat(fir_num)+strtofloat(sec_num);  //为加号时    2: result:=strtofloat(fir_num)-strtofloat(sec_num);  //为减号时    3: result:=strtofloat(fir_num)*strtofloat(sec_num);  //为乘号时    4: begin         try           result:=strtofloat(fir_num)/strtofloat(sec_num);  //为除号时         except           ShowMessage('错误!');           form1。

close;         end; //除数为0时,做出异常处理       end;  end;end;procedure TForm1。

SpeedButton1Click(Sender: TObject);var i: integer;begin if restart then  //如果是重新开始输入,则清除原来的操作数,并设置isfirst为True  begin   isfirst:=True;   fir_num:='';   sec_num:='';   restart:=False;  end; if isfirst then  //如果是第一个操作数  begin   if (sender as TSpeedButton)。

Caption='。' then  //如果输入的是小数点    begin     if (strlen(pChar(fir_num))<=0) then  //如果第一个操作数并未输入      fir_num:='0。

'     else      for i:= 1 to strlen(pChar(fir_num)) do       if fir_num[i]='。

' then exit;     //如果第一个中已含有小数点而又输入小数点,则退出    end;   if (strlen(pChar(fir_num))>0) and (fir_num[1]='0') then  //如果最高位为0    begin     if ((sender as TSpeedButton)。

Caption='。') then      fir_num:='0。'     else      begin       if strlen(pChar(fir_num))>1 then  //如果是小数,则继续输入        fir_num:=fir_num+(sender as TSpeedButton)。

Caption       else        fir_num:=(sender as TSpeedButton)。Caption;       //如果不是小数,则去掉最高位的0      end;    end   else    fir_num:=fir_num+(sender as TSpeedButton)。

Caption;   StaticText1。Caption:=fir_num;  end else  begin   if (sender as TSpeedButton)。

Caption='。' then  //如果第二个操作数并未输入    begin     if (strlen(pChar(sec_num))<=0) then      sec_num:='0。

'     else      for i:= 1 to strlen(pChar(sec_num)) do       if sec_num[i]='。

' then exit;       //如果第二个中已含有小数点而又输入小数点,则退出    end;   if (strlen(pChar(sec_num))>0) and (sec_num[1]='0') then  //如果最高位为0    begin     if ((sender as TSpeedButton)。

Caption='。') then      sec_num:='0。'     else      begin       if strlen(pChar(sec_num))>1 then  //如果是小数,则继续输入        sec_num:=sec_num+(sender as TSpeedButton)。

Caption       else        sec_num:=(sender as TSpeedButton)。Caption;       //如果不是小数,则去掉最高位的0      end;    end   else   sec_num:=sec_num+(sender as TSpeedButton)。

Caption;   StaticText1。Caption:=sec_num;  end;end;procedure TForm1。FormCreate(Sender: TObject);begin StaticText1。

Caption:='0。';  //设置StaticText1初始显示为0。 restart:=False; Isfirst:=True; fir_num:=''; sec_num:='';end;procedure TForm1。

SpeedButton11Click(Sender: TObject);begin if (fir_num<>'') and (sec_num<>'') then //如果两各操作数都不为空  begin   result:=count(sign);  //调用函数,返回计算结果   fir_num:=floattostr(result);   sec_num:='';   StaticText1。

Caption:=floattostr(result);  end; sign:=(sender as TSpeedButton)。Tag; isfirst:=False; restart:=False;end;procedure TForm1。

SpeedButton15Click(Sender: TObject);begin if (sec_num<>'') then //如果第二个操作数不为空则返回结果    begin      result:=count(sign);      fir_num:='';      fir_num:=fir_num+floattostr(result);      StaticText1。

Caption:=floattostr(result);      sec_num:='';    end;    restart:=true;end;procedure TForm1。

SpeedButton16Click(Sender: TObject);begin restart:=True; fir_num:=''; sec_num:=''; self。

StaticText1。Caption:='0。';end;procedure TForm1。SpeedButton17Click(Sender: TObject);begin Close;end;end。

收起


https://www.dkcj.cn/info/36739.html

相关文章：

铜缆配线架的选择

我们现在考察一下为安装选择合适的铜缆配线架所必须考虑的因素。铜缆配线架一般分为经济型、中端或高端配线架。经济型配线架经济型配线架通常在结构上脆弱&#xff0c;性能不稳定交缺少技术支持或保证。配线架端接时一般会耗费较多的安装成本&#xff0c;没有电缆管理设备支持…

编程日记2025/01/17 21:40:00

go6---slice切片

package main/* 切片Slice 其本身并不是数组&#xff0c;它指向底层的数组 作为变长数组的替代方案&#xff0c;可以关联底层数组的局部或全部 为引用类型 可以直接创建或从底层数组获取生成 使用len()获取元素个数&#xff0c;cap()获取容量 一般使用make()创建 如果多个slice…

编程日记2025/01/17 21:30:01

TensorFlow支持Unicode，中文NLP终于省心了

整理 | 非主流出品 | AI科技大本营终于&#xff0c;TensorFlow 增加了对 Unicode 的支持。什么是 Unicode&#xff1f;Unicode 是计算机科学领域里的一项业界标准&#xff0c;包括字符集、编码方案等。Unicode 是为了解决传统的字符编码方案的局限而产生的&#xff0c;它为每种…

编程日记2025/01/17 21:20:00

C#:String.Format数字格式化输出

C#:String.Format数字格式化输出 inta 12345678; //格式为sring输出//Label1.Text string.Format("asdfadsf{0}adsfasdf",a);//Label2.Text "asdfadsf"a.ToString()"adsfasdf";//Label1.Text string.Format("asdfadsf{0:C}adsfasdf&…

编程日记2025/01/17 21:10:00

OpenStack如何实现高可用集群介绍

OpenStack是目前基于开源的&#xff0c;一个非常流行的云管理平台项目。这个项目由几个主要的组件组合起来完成一些具体的工作。因此它的集群比较复杂&#xff0c;也有多种选择方式。OpenStack 作为一个类似于 Amazon EC2 和 S3 的云基础架构服务(Infrastructure as a Service,…

编程日记2025/01/17 21:00:01

accp8.0html作业,Accp8.0HTML标签

第一章1、HTML超文本标记语言2、网页3、网页头部4、网页标题5、网页主体6、DOCTYPE声明3种级别&#xff1a;(1)Strict 严格类型(2)Transitional过渡类型(3)Frameset框架类型7、网页摘要标签8、字符编码&#xff1a;gb2312简体中文ISO-885901纯英文big5繁体UTF-8国际通用编码9、…

编程日记2025/01/17 20:50:00

向iOS越狱彻底说再见！

老牌第三方软件商店 Cydia 关闭在即&#xff0c;iPhone 越狱时代又见落日归途&#xff1f;作者 | 仲培艺出品 | CSDNCydia 线上商店是针对完成越狱的 iOS 设备的一种破解软件&#xff0c;在越狱过程中被装入到系统&#xff0c;为 iOS 设备提供第三方 App 的服务平台&#xff0c…

编程日记2025/01/17 20:40:00

ArrayList的subList方法

李说&#xff1a; ArrayList的subList方法获取到的是ArrayList的一段list&#xff0c;只是其中的一段视图。所以修改subList ,ArrayList同时会修改&#xff0c;因为本来就是同一个东西。 jdk文档中是这样说的&#xff1a; List<E> subList(int fromIndex, int toIndex) …

编程日记2025/01/17 20:30:01

男孩子学计算机和学医哪个好,你认为学医好还是读211大学的电子信息好？

学医的好处。社会的地位和社会认可度较高。无可否认无论是在过去还是在将来&#xff0c;医生因为其救死扶伤的职业特点而被广泛大众所接受和认可。较高的社会地位会让你在将来的择偶、人际关系处理方面显得更有吸引力和话语权。工作稳定有保障。这点其实还是看题主的水平和实力…

编程日记2025/01/17 20:20:00

Error Creating Control when creating a custom control

如果你在创建ASP.NET的Server Control 是遇到报错&#xff1a; "Error Creating Control" when creating a custom control 原因是 ToolboxData 元数据中的控件名称和控件的类(class)名不同&#xff0c;改为相同即可解决问题。转载于:https://www.cnblogs.com/DotNet…

编程日记2025/01/17 20:10:00

精选180+Python开源项目，随你选！做项目何愁没代码

编辑 | Jane出品 | Python大本营每一位程序员&#xff0c;每天大部分时间都是在和代码打交道。但是对于广大的普通用户来说&#xff0c;最重要的不是代码&#xff0c;而是代码最终生成的应用程序。但是&#xff0c;每个项目都从头开始自己一行一行码代码&#xff0c;是非常不现…

编程日记2025/01/17 20:00:00

八年级计算机网络公开课,计算机网络公开课教案.doc

计算机网络公开课教案公开课教案科目&#xff1a;计算机网络课题: 交换机配置文件备份与恢复知识目标:1、在本次课中要向学生传授交换机上传、下载服务器的安装和配置&#xff1b;2&#xff0e;学生学习交换机上传配置命令&#xff0c;完成交换机Flash内存中保存的配置文件上传…

编程日记2025/01/17 19:50:00

Centos6.5升级系统自带gcc4.4.7到gcc4.8.0

下载 wget http://ftp.gnu.org/gnu/gcc/gcc-4.8.0/gcc-4.8.0.tar.bz2 解压 tar -xjvf gcc-4.8.0.tar.bz2 进入 cd gcc-4.8.0 下载所需软件&#xff08; ftp://gcc.gnu.org/pub/gcc/infrastructure/mpfr-2.4.2.tar.bz2 ftp://gcc.gnu.org/pub/gcc/infrastructure/gmp-4.3.2.tar.…

编程日记2025/01/17 19:40:00

photofunia

存个链接用~~~[url]http://www.photofunia.com/[/url]转载于:https://blog.51cto.com/wangyublues/120301

编程日记2025/01/17 19:30:01

学计算机应用好还是汽车维修好,大学汽车运用与维修专业怎么样_学什么_前景好吗-520吉他网...

时间&#xff1a;2019-06-23 来源&#xff1a;网络资源 汽车运用与维修专业怎么样_学什么_前景好吗2019高考填报志愿时&#xff0c;汽车运用与维修专业怎么样、学什么、前景好吗等是广大考生和家长朋友们十分关心的问题。以下是大学生必备网整理的汽车运用与维修专业介绍、…

编程日记2025/01/17 19:20:00

20T数据、百万奖金，同济和武大摘得开放数据创新应用大赛桂冠！

整理 | Jane出品 | AI科技大本营中国华录杯城市开放数据创新应用大赛&#xff0c;18 日在天津迎来了收官的决赛之战。本次大赛由中国华录集团有限公司和天津市津南区人民政府共同举办。利用天津市人民政府、企业开放的数据资源&#xff0c;吸引了众多国内高校科研团队和科技企业…

编程日记2025/01/17 19:10:00

rrdtool报错

参考文档&#xff1a; http://serverfault.com/questions/662161/rrdtool-illegal-attempt-to-updatehttps://emacstragic.net/collectd-causing-rrd-illegal-attempt-to-update-using-time-errors/https://support.nagios.com/forum/viewtopic.php?f7&t26087 报错信息&am…

编程日记2025/01/17 19:00:00

Grid R-CNN解读：商汤最新目标检测算法，定位精度超越Faster R-CNN

作者 | 周强来源 | 我爱计算机视觉Grid R-CNN是商汤科技最新发表于arXiv的一篇目标检测的论文&#xff0c;对Faster R-CNN架构的目标坐标回归部分进行了替换&#xff0c;取得了更加精确的定位精度&#xff0c;是最近非常值得一读的论文。今天就跟大家一起来细品此文妙处。一、作…

编程日记2025/01/17 18:50:00

河南信息工程学校计算机协会申请书,协会成立申请书范文15篇.docx

协会成立申请书范文15篇协会成立申请书(一)&#xff1a;　　尊敬的系团委领导&#xff1a;　　摄影作为一门艺术不仅仅能够丰富同学们的学习生活&#xff0c;同时对学院的建设也起到一个不可黙灭的作用。为了发挥自身优势&#xff0c;参加学校社团文化建设&#xff0c;培养同学…

编程日记2025/01/17 18:40:00

Luna的大学读书史(1,Intro)

Luna看了看自己的屋子&#xff0c;乱乱的一大摊&#xff0c;地上有的地方的灰都已经是厚厚的一层&#xff0c;有的角落甚至还结了蜘蛛网。床上的被子和衣服搅在一起&#xff0c;书桌上散乱的摆着几根笔和一个大号笔记本&#xff0c;草稿纸上画了若干莫名其妙的符号&#xff0c;…

编程日记2025/01/17 18:30:01

【BIEE】数据透视表格第一列添加序号

现在有这么一个需求&#xff0c;需要在数据透视图的表格前面条件一列序号&#xff0c;作为行号&#xff0c;如下图&#xff1a;那么实现这个如何实现呢&#xff1f;只需要在BIEE分析编辑界面&#xff0c;新建一列&#xff0c;然后公式定义为&#xff1a;RCOUNT(RSUM(1)) &#…

编程日记2025/01/17 18:20:00

2018最后一个月的Python热文Top10！赶紧学起来~

作者 | Mybridge译者 | linstancy整理 | Jane出品 | AI科技大本营过去一个月里&#xff0c;我们对近 1000 篇 Python 文章进行了排名&#xff0c;并挑选出热度前10的文章。这份清单的内容涵盖了包括 master python、REST APIs、twitter bot、random module、贝叶斯模型和线性回…

编程日记2025/01/17 18:10:00

一处机房建设的败笔

第二个是关于空调的。是另一个机房&#xff0c;机房大概的布局如下图。左边空地是为日后扩展所留空间。右边有一排机柜&#xff0c;箭头所指为机柜前端方向。空调是一台艾默生的精密空调&#xff0c;被安装在机房的角落处。看出来什么问题吗&#xff1f;如果是你&#xff0c;你…

编程日记2025/01/17 18:00:01

计算机组成原理实验pc,计算机组成原理实验报告5- PC实验

计算机组成原理实验报告5- PC实验2.5 PC实验姓名&#xff1a;孙坚 学号&#xff1a;134173733 班级&#xff1a;13计算机 日期&#xff1a;2015.5.15一&#xff0e;实验要求&#xff1a;利用CPTH 实验仪上的K16..K23 开关做为DBUS 的数据&#xff0c;其它开关做为控制信号&…

编程日记2025/01/17 17:50:00

Python-socket编程

一.socket编程 Socket 是网络编程的一个抽象概念。通常我们用一个 Socket 表示“打开了一个网络链接”,而打开一个 Socket 需要知道目标计算机的 IP地址和端口号,再指定协议类型即可。 二.Python的socket编程实例 1.客户端操作 import socket s socket.socket()s.bind((, ))s.…

编程日记2025/01/17 17:40:00

异步备份和还原数据库：.NET发现之旅（六）

信息系统是数据密集型的&#xff0c;数据的套帐&#xff0c;备份&#xff0c;还原是客户最希望有的功能&#xff0c;这一节课就讨论下C/S系统下数据库的异步备份和还原&#xff0c;B/S系统的数据备份和还原和这个类似。 既然是异步&#xff0c;首先会想到使用多线程技术。.NET平…

编程日记2025/01/17 17:30:01

看动画轻松理解「链表」实现「LRU缓存淘汰算法」

作者 | 程序员小吴&#xff0c;哈工大学渣&#xff0c;目前正在学算法&#xff0c;开源项目 「 LeetCodeAnimation 」5500star&#xff0c;GitHub Trending 榜连续一月第一。本文为 AI科技大本营投稿文章&#xff08;欢迎给我们投稿&#xff0c;投稿请联系微信1092722531&#…

编程日记2025/01/17 17:20:00

东北师大计算机考研报名人数,东北师范大学考研难吗？一般要什么水平才可以进入？...

问&#xff1a;从东北师范大学毕业的学生就业怎么样&#xff1f;值不值得报考&#xff1f;答&#xff1a;想要了解东北师范大学更多毕业生就业情况见>>>东北师范大学总之&#xff0c;东北师范大学就业率相对来说是比较良好的&#xff0c;如果大家对此学校感兴趣的话&a…

编程日记2025/01/17 17:10:00

2009-徘徊-开场白

徘徊 不知道该怎么走coding已经随风散去思想不复存在&#xff0c;9月应该是个很好的月份。步入一个公司&#xff0c;当时的部长很强&#xff0c;虽然是ASP招我进来5天&#xff0c;走了。进入后的第一个是做一个RPGmaker的游戏coding 没什么关系08年刚开始似乎就很少编码了窝在宿…

编程日记2025/01/17 17:00:01

未获得计算机访问权限,如何获取文件夹的访问权限

有些系统文件夹打不开&#xff0c;显示信息“拒绝你访问该文件夹”&#xff0c;有点让人摸不着头脑&#xff0c;明明我是管理员账号&#xff0c;明明整台电脑都是我的&#xff0c;你凭什么不让我访问呢&#xff0c;原来系统内是有比较复杂的权限分配的&#xff0c;我们可以稍作…

编程日记2025/01/17 16:50:00