当前位置:首页 » 儿童乐园 » 可以用的儿童计算器怎么做
扩展阅读
内蒙古基础养老金多少钱 2024-11-17 22:02:24
动漫里有个宴什么的 2024-11-17 21:24:42

可以用的儿童计算器怎么做

发布时间: 2022-09-05 08:07:29

1. 如何用手指做计算器

食指掌管0.1.4.7键,中指00.2.5.8,无名指..3.6.9 ,小拇指+

2. 如何利用VB做一个简单的计算器

这是我给别人写过的简单计算器程序,送给你用吧。
后面发了两个文件的内容,你创建两个文本文件按照那两个文件命名后,并把对应代码用记事本打开粘贴到里面,最好再用vb运行project1.vbp文件编译成exe文件或直接执行都可以。

计算器真正手写代码就这么多。
Dim mem1 As Long, mem2 As Long, mem3 As Long
Dim calc As Integer
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Index
End Sub
Private Sub Command2_Click(Index As Integer)
calc = Index
mem1 = Text1.Text: Text1.Text = ""
End Sub
Private Sub Command3_Click(Index As Integer)
Select Case Index
Case 0
Text1.Text = ""
mem1 = 0: mem2 = 0: mem3 = 0
Case 1
Text1.Text = Text1.Text & "."
Case 2
mem2 = Text1.Text: Text1.Text = ""
Select Case calc
Case 0 '+
mem3 = mem1 + mem2
Case 1 '-
mem3 = mem1 - mem2
Case 2 '*
mem3 = mem1 * mem2
Case 3 '/
mem3 = mem1 / mem2
End Select
Text1.Text = mem3
End Select
End Sub

以下是计算器完整代码文件内容-----------------------------------

因为网络知道不能上传压缩,只好把工程文件的文本代码发给你了。
以下是文件Project1.vbp的内容
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation
Startup="Form1"
Command32=""
Name="Project1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="BaterStudio"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1

以下是文件Form1.frm里包括按钮信息的文件内容
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5835
ClientLeft = 60
ClientTop = 345
ClientWidth = 4380
LinkTopic = "Form1"
ScaleHeight = 5835
ScaleWidth = 4380
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command3
Caption = "="
Height = 615
Index = 2
Left = 1920
TabIndex = 17
Top = 4440
Width = 615
End
Begin VB.CommandButton Command3
Caption = "."
Height = 615
Index = 1
Left = 1200
TabIndex = 16
Top = 4440
Width = 615
End
Begin VB.CommandButton Command3
Caption = "C"
Height = 615
Index = 0
Left = 480
TabIndex = 15
Top = 4440
Width = 615
End
Begin VB.CommandButton Command2
Caption = "÷"
Height = 615
Index = 3
Left = 3360
TabIndex = 14
Top = 3120
Width = 615
End
Begin VB.CommandButton Command2
Caption = "×"
Height = 615
Index = 2
Left = 3360
TabIndex = 13
Top = 2400
Width = 615
End
Begin VB.CommandButton Command2
Caption = "-"
Height = 615
Index = 1
Left = 3360
TabIndex = 12
Top = 1680
Width = 615
End
Begin VB.CommandButton Command2
Caption = "+"
Height = 615
Index = 0
Left = 3360
TabIndex = 11
Top = 960
Width = 615
End
Begin VB.CommandButton Command1
Caption = "9"
Height = 615
Index = 9
Left = 1920
TabIndex = 10
Top = 960
Width = 615
End
Begin VB.CommandButton Command1
Caption = "8"
Height = 615
Index = 8
Left = 1200
TabIndex = 9
Top = 960
Width = 615
End
Begin VB.CommandButton Command1
Caption = "7"
Height = 615
Index = 7
Left = 480
TabIndex = 8
Top = 960
Width = 615
End
Begin VB.CommandButton Command1
Caption = "6"
Height = 615
Index = 6
Left = 1920
TabIndex = 7
Top = 1680
Width = 615
End
Begin VB.CommandButton Command1
Caption = "5"
Height = 615
Index = 5
Left = 1200
TabIndex = 6
Top = 1680
Width = 615
End
Begin VB.CommandButton Command1
Caption = "4"
Height = 615
Index = 4
Left = 480
TabIndex = 5
Top = 1680
Width = 615
End
Begin VB.CommandButton Command1
Caption = "3"
Height = 615
Index = 3
Left = 1920
TabIndex = 4
Top = 2400
Width = 615
End
Begin VB.CommandButton Command1
Caption = "2"
Height = 615
Index = 2
Left = 1200
TabIndex = 3
Top = 2400
Width = 615
End
Begin VB.CommandButton Command1
Caption = "1"
Height = 615
Index = 1
Left = 480
TabIndex = 2
Top = 2400
Width = 615
End
Begin VB.CommandButton Command1
Caption = "0"
Height = 615
Index = 0
Left = 480
TabIndex = 1
Top = 3120
Width = 615
End
Begin VB.TextBox Text1
Height = 285
Left = 480
TabIndex = 0
Top = 240
Width = 3495
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mem1 As Long, mem2 As Long, mem3 As Long

Dim calc As Integer

Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Index
End Sub

Private Sub Command2_Click(Index As Integer)
calc = Index
mem1 = Text1.Text: Text1.Text = ""
End Sub

Private Sub Command3_Click(Index As Integer)
Select Case Index
Case 0
Text1.Text = ""
mem1 = 0: mem2 = 0: mem3 = 0
Case 1
Text1.Text = Text1.Text & "."
Case 2
mem2 = Text1.Text: Text1.Text = ""
Select Case calc
Case 0 '+
mem3 = mem1 + mem2
Case 1 '-
mem3 = mem1 - mem2
Case 2 '*
mem3 = mem1 * mem2
Case 3 '/
mem3 = mem1 / mem2
End Select
Text1.Text = mem3
End Select
End Sub

3. 计算器怎么做

1、首先,新建一个文本文件,命名为“计算器.txt”,你也可以命名为其他的,但是不能没有后缀“.txt”。

2、双击打开,进入记事本,初次使用记事本,先熟悉一下界面,白色的区域是编辑区,最上方有标题,标题和编辑区中间有工具栏,这个界面的最下方是状态。

3、这一步很重要,需要输入一些代码

4、最后一步,在状态栏确定一下有没有一个区域显示ANSI,如果没有,请点击文件选项卡,在菜单中点击另存为,弹出来的对话框中文件名为“计算器.vbe”,类型为“所有文件”,编码选择ANSI;如果有ANSI,那么你先记差号,有一个对话框询问你是否保存,点击保存按钮,然后把文件重命名为“计算器.vbe”。

拓展资料:

计算器上的各个键所代表的意思如下:

1、上电、全清键(ON、AC):按下该键表示上电,或清除所有寄存器中的数值。

2、清除键(C):在数字输入期间,第一次按下此键将清除除存储器内容外的所有数值。

3、清除输入键(CE):在数字输入期间按下此键将清除输入寄存器中的值并显示"0"。

4、平方根勾:显示一个输入正数的平方根。

5、M+:把目前显示的值放在存储器中;中断数字输入。

6、M-:从存储器内容中减去当前显示值;中断数字输入。

7、MRC:第一次按下此键将调用存储器内容,第二次按下时清除存储器内容。

8、MR:调用存储器内容。

9、MC:清除存储器内容。

10、GT:按下GT键,传送GT存储寄存器内容到显示寄存器;按AC或C键消除GT显示标志。

11、MU(Mark-up and Mark-down键):按下该键完成利率和税率计算。

12、MRC:第一次按下此键将调用存储器内容,第二次按下时清除存储器内容。

4. 怎么把学生计算器改造成游戏机

环境设计专业老师周韦纬说:我们带着学生一起做乡村的改造是纯公益性的,一方面可以锻炼学生的专业能力,让学生在具体的实践中去磨炼自身的技能。一方面,我们的设计方案也确实能够得到乡村的采用,在环境改造中提升乡村居民的生活水平,为乡村的旅游也和集体经济的发展起到很好的助推作用。
此外,我们学校还专门开辟了一个公共信息平台,家长通过这个平台可随时了解子弟的情况,学生根本没有配带手机的必要。前不久,我校一位学生家长花18多元给小孩买了个游戏机,带到学校,结果不出三天就丢了。并且,学生在星期五丢了游戏机时,又不及时报告班主任和学校,直到星期一,班主任才知道学生丢了游戏机。
家长没有精力、没有能力辅导,计算器可以辅导吗?如果计算器能辅导,让学生学到计算方法,或者更根本的独立思考解决问题的方法,计算器就是老师,教育部欢迎还来不及,怎么会禁止?但是计算器显然不能。它擅长的就是替学生做,而不是教学生做。
4月,北京大学医学部、北京大学儿童青少年卫生研究所出具的权威评估报告显示:立达信健康光环境改造项目显着提升了教室的照明环境,在一定程度上可预防中小学生视力下降和降低不良视力的新发率。 五年来,对改造校与多所未改造校共计39068名学生的视力情况进行追踪。数据显示,立达信改造校学生视力不良率显着低于未改造校,且各年龄组下降5.9~33.3%不等。

5. 怎么用51单片机做简易计算器

先制作出数字显示电路,还有相应数字按键电路,需要几位数就用几个数码管,然后根据计算逻辑编写出相应C程序

6. 用Scratch做计算器程序,以支持多位数的任意四则运算(加减乘除)

将计算结果设为a
scratch的模块体有很多类,请告知具体情况。以下是几种其他语言的基本方法,复杂但简单。
python:
a = int(input())
b = int(input())
print(a+b)
C++/C:
#include <iostream>
using namespace std;
int main(){
int a,b;

cin>>a>>b;
cout>>a+b;

总之大致意思就是输入两个加数,并给他们取名(也就是变量名),再打印出变量名+变量名;当然你也可以用一种更简单的方法:直接打印两个加数的和。

7. 用VB做一个简单的计算器,该怎么做

我是抢劫的,把分给我吧
首先建立一个command1 然后剪切复制 系统提示说已经有一个COMMAND1 是否要建立控件数组?
你点击是 这样重复9次 分别把caption该成0到9 然后建立command2 方法同上,caption为 +-*/ 然后是 command3 caption是=
然后输入代码,首先在通用里生命dim shu1,shu2
dim suanfu as string
private sub command1(index)_click
text1.text=text1.text & commmand1(index).capton
end sub
command2里 输入
shu1=text1.text
suanfu=text1.text & command(index).capiton
text1.text=""
end sub
command3里输入
shu2=text1.text
selece case suanfu
case "+"
text1.text=shu1+shu2
case "-"
text1.text=shu1-shu2
case "*"
text1.text=shu*shu2
case "/"
if shu2=0 then
msgbox "分母不能为0"
else text1.text=shu1/shu2
end if
end select
end sub
这是最简单的计算器的 如果还需要什么功能 我也可以告诉你的 我学VB3个月了 略有小成 所以想来照顾新手的 我以前也是新手啊 新手见新手两眼泪旺旺 顺便把分给我吧