如何用VB编翻译程序
私人StoredValue双重
私人康斯特opNone = 0
私人康斯特opAdd = 1
私人康斯特opSubtract = 2
私人康斯特opMultiply = 3
私人康斯特opDivide = 4
私人经营者为整数
作为民营NewEntry布尔
'删除最后一个字符。
私人小组DeleteCharacter ( )
作为暗淡文本字符串
昏暗min_len为整数
文本= txtDisplay.Text
如果左$ (文本, 1 ) = “ -”然后
min_len = 2
其他的
min_len = 1
如果完
如果莱昂( txt )的“ min_len然后
左txtDisplay.Text = $ ( txt文件,长度(文本) -1 )
其他的
txtDisplay.Text = “ 0 ”
如果完
小组完
'清除当前的输入,保存价值和运营商。
私人小组cmdClear_Click ( )
cmdClearEntry_Click
StoredValue = 0
算子= opNone
小组完
'清除当前的条目。
私人小组cmdClearEntry_Click ( )
txtDisplay.Text = “ ”
小组完
'添加一个小数点的显示。
私人小组cmdDecimal_Click ( )
如果仪表( txtDisplay.Text , “ 。 ” )然后
响铃
其他的
如果NewEntry然后
txtDisplay.Text = “ 。 ”
NewEntry =假
其他的
txtDisplay.Text = txtDisplay.Text & “ 。 ”
如果完
如果完
小组完
'计算的结果,以前的运作。
私人小组cmdEquals_Click ( )
昏暗new_value双重
如果txtDisplay.Text = “ ”然后
new_value = 0
其他的
new_value = CDbl ( txtDisplay.Text )
如果完
选择经营情况
案例opNone
StoredValue = new_value
案例opAdd
StoredValue = StoredValue + new_value
案例opSubtract
StoredValue = StoredValue -n ew_value
案例opMultiply
StoredValue = StoredValue * new_value
案例opDivide
StoredValue = StoredValue / new_value
最终选择
算子= opNone
NewEntry =真
格式txtDisplay.Text = $ ( StoredValue )
小组完
'添加一个编号,以显示。
私人小组cmdNumber_Click (指数为整数)
如果NewEntry然后
格式txtDisplay.Text = $ (指数)
NewEntry =假
其他的
txtDisplay.Text = _
txtDisplay.Text与格式$ (指数)
如果完
小组完
'准备施行手术。
私人小组cmdOperator_Click (指数为整数)
'执行以前的运作。
cmdEquals_Click
请记住此操作。
算子=指数
'启动一个新的价值。
NewEntry =真
小组完
'的价值变化的迹象。
私人小组cmdPlusMinus_Click ( )
如果NewEntry然后
txtDisplay.Text = “ -”
elseif的左$ ( txtDisplay.Text , 1 ) = “ -”然后
权txtDisplay.Text = $ ( txtDisplay.Text , 2 )
其他的
txtDisplay.Text = “ -” & t xtDisplay.Text
如果完
小组完
私人小组Command1_Click ( )
小组完
私人的Sub命令 20_Click()
如果 Text49.文本 =1 然后
Text22.Text=Val(Label14. 说明)+1
结束如果
如果 Text49.文本 =2 然后
Text22.Text=Val(Label14. 说明)+3
结束如果
分类 14 。说明 = Text22.文本
使 X 暗淡, 如完整的事物 Y
X= 分类 14.说明
Y= 分类 14.说明
选择情形 X
情形是 >0
命令 11 。BackColor= vbRed
结束选择
选择情形 Y
情形是 <0
命令 11 。BackColor=&H8000000 F
结束选择
结束Sub
私人的Sub命令 35_Click()
使如完整的事物 m 暗淡
m= 命令 35.说明
如果分类 23.TabIndex=12 然后
分类 23 。说明 = 分类 23.说明 & m
结束如果
如果分类 24.TabIndex=12 然后
分类 24 。说明 = 分类 24.说明 & m
结束如果
如果分类 25.TabIndex=12 然后
分类 25 。说明 = 分类 25.说明 & m
结束如果
如果分类 26.TabIndex=12 然后
分类 26 。说明 = 分类 26.说明 & m
结束如果
如果分类 27.TabIndex=12 然后
分类 27 。说明 = 分类 27.说明 & m
结束如果
如果分类 28.TabIndex=12 然后
分类 28 。说明 = 分类 28.说明 & m
结束如果
如果分类 29.TabIndex=12 然后
分类 29 。说明 = 分类 29.说明 & m
结束如果
如果分类 30.TabIndex=12 然后
分类 30 。说明 = 分类 30.说明 & m
结束如果
如果分类 31.TabIndex=12 然后
分类 31 。说明 = 分类 31.说明 & m
结束如果
如果分类 32.TabIndex=12 然后
分类 32 。说明 = 分类 32.说明 & m
结束如果
如果分类 33.TabIndex=12 然后
分类 33 。说明 = 分类 33.说明 & m
结束如果
如果分类 34.TabIndex=12 然后
分类 34 。说明 = 分类 34.说明 & m
结束如果
如果分类 35.TabIndex=12 然后
分类 35 。说明 = 分类 35.说明 & m
结束如果
如果分类 36.TabIndex=12 然后
分类 36 。说明 = 分类 36.说明 & m
结束如果
如果分类 37.TabIndex=12 然后
分类 37 。说明 = 分类 37.说明 & m
结束如果
如果分类 38.TabIndex=12 然后
分类 38 。说明 = 分类 38.说明 & m
结束如果
如果分类 39.TabIndex=12 然后
分类 39 。说明 = 分类 39.说明 & m
结束如果
如果分类 40.TabIndex=12 然后
分类 40 。说明 = 分类 40.说明 & m
结束如果
结束Sub
私人的Sub命令 37_Click()
分类 19 。说明 =""
分类 20 。说明 =""
分类 21 。说明 =""
分类 23 。说明 =""
分类 24 。说明 =""
分类 25 。说明 =""
分类 26 。说明 =""
分类 27 。说明 =""
分类 28 。说明 =""
分类 29 。说明 =""
分类 30 。说明 =""
分类 31 。说明 =""
分类 32 。说明 =""
分类 33 。说明 =""
分类 34 。说明 =""
分类 35 。说明 =""
分类 36 。说明 =""
分类 37 。说明 =""
分类 38 。说明 =""
分类 39 。说明 =""
分类 40 。说明 =""
结束Sub
然后使用下面的代码。
Const 标题 = "代码翻译成汉字"
Dim 汉字表 As String
Private Sub Command1_Click()
Dim 代码 As Integer
'排除错误的输入
If Not IsNumeric(Text1) Then 'text内容不是数字
MsgBox "你输入的不是十进制代码!" & vbCrLf & "请重新输入。", vbCritical, 标题
Text1 = ""
Exit Sub
End If
If Len(Text1) > 4 Then '代码太长
MsgBox "你输入代码太长!" & vbCrLf & "请重新输入。", vbCritical, 标题
Text1 = ""
Exit Sub
End If
代码 = Int(Text1)
If 代码 > 9999 Or 代码 < 0 Then '超出范围
MsgBox "你输入代码没有对应的汉字!有效代码0~9999" & vbCrLf & "请重新输入。", vbCritical, 标题
Text1 = ""
Exit Sub
End If
'其他的输入错误我不知道还会有什么?你自己加在这里
Text2 = Mid(汉字表, 代码 + 1, 1) '唉,有效代码就是这一行!其他都是陪衬
End Sub
Private Sub Form_Load()
'界面安排
Command1.Caption = "翻译"
Text1 = ""
Text2 = ""
Text1.Move 300, 600, 1000, 500
Text2.Move 1500, 600, 1000, 500
Command1.Move 900, 1500, 1000, 500
Height = 3500
Width = 2900
Caption = 标题
'读入汉字表
Open App.Path & "\汉字表.txt" For Input As #1
Input #1, 汉字表
Close #1
End Sub
Private Sub Text1_Change()
Text2 = ""
End Sub
vb代码求逐句翻译,跪谢
= CInt(Math.Round(CDbl(Conversion.Int(CSng((VBMath.Rnd * 1001.0!)))‘combox文本选中 End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load VBMath.Randomize()’初始化随机数 End Sub End Class‘结束程序过程 ...
VB,代码翻译!
一、CommonDialog控件 这个控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操做的一组标准对话框。二、上面的代码:如果 对话框的文件名是空的,就退出函数(过程)。
帮忙翻译VB代码
Private Sub mnufuzhi_Click()Clipboard.Clear Clipboard.SetText Text1.SelText '设置包含当前所选择文本的字符串 End Sub Private Sub mnujianqie_Click()Clipboard.Clear '剪贴板清空 Clipboard.SetText Text1.SelText Text1.SelText = ""End Sub Private Sub mnuqianjing_Click()CommonDialog1.Show...
请VB语言高手帮我翻译下下面的东西谢谢了
\/\/要求变量声明 Option Explicit \/\/定义一个窗体级局部字符变量putword Dim putword As String \/\/窗体的单击事件 Private Sub Form_click()\/\/定义字符变量phrase和nextword,整形变量Blankposition Dim phrase As String,nextword As String,Blankposition As Integer \/\/用输入对话框输入一句英文赋值给...
电脑VB语言翻译成中文?
MsgBox"恭喜!每周之星是李明同学!", , "公布"'对话框 显示"恭喜!每周之星是李明同学!",对话框标题为 公布 Else '否则的话 MsgBox"恭喜!每周之星是叶绮同学!", , "公布"'对话框 显示"恭喜!每周之星是叶绮同学!",对话框标题为 公布 End If '判断结束 End '程序结束 End If '判断结束 ...
vb语言代码翻译
Private Sub Form_Load()'启动函数 Timer1.Interval = 1000'设置时间控件每1秒钟执行一次动作 End Sub Private Sub Timer1_Timer()'时间控件执行函数 aoyun = #8\/8\/2008#’赋值日期变量北京奥运开幕日期 a = 19 - Hour(Time)‘得到开幕时间与现在小时差 b = DateDiff("d", Now, aoyun)得到...
翻译一小段VBA程序代码(估计和VB差不多吧)
Private Sub Command43_Click()On Error GoTo Err_Command43_Click '如果出错,就跳到标签名为“Err_Command43_Click”的一行。Dim stDocName As String '定义一个字符串型变量 stDocName = ChrW(22995) & ChrW(21517) '把这个变量赋值为“姓名”DoCmd.OpenReport stDocName, acPreview '打开“...
VB代码翻译、
Dim d As Boolean '定义全局变量d,代表移动方向 Private Sub Form_Load() '程序启动时载入运行 Label1.Left = Me.Width - Label1.Width 'Label1移动到最靠窗体右边 Timer1.Interval = 100 '定时器设置为0.1秒 d = True '初始化d,方向向左 End Sub Private Sub Timer1_Timer()If...
vb语言翻译
Private Sub yssj_click() yssj 按钮事件 picture1.Cls 清除picture1内容 Open "C:\\Documents and Settings\\Administrator\\桌面\\vb\\wen.txt" For Input As #1 只读方式打开wen.txt Do While Not EOF(1) do while 循环 Line Input #1, linedata picture1.Print Tab(5); linedata ...
vb编程是什么意思,主要干嘛的?
即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧),单是它的快捷的开发速度,简单易学的语法,体贴便利的开发环境,它仍不失一款优秀的编程工具,是初学者的首选。 用VB开发应用程序,包括两部分工作:一是设计图形用户界面;二是编写程序代码。设计图形用户界面通过窗体设计器来完成;而代码编辑器的...
在春先定: 我建议使用text文件,汉字之间不用分隔符,不分行,直接按照你的顺序放进去就好了(但注意,不能乱顺序,不能少字!) 然后使用下面的代码. Const 标题 = "代码翻译成汉字" Dim 汉字表 As String Private Sub Command1_Click() Dim ...
昌乐县18276683571: 用VB编写一个能把英文单词翻译成中文单词的程序怎么编写 - ?
在春先定: 用google api
昌乐县18276683571: VB怎么做汉译英程序 - ?
在春先定: 有个看似简单的方法 把庞大的中英对照数据库,然后在VB里用调用数据库的编程语句写程序就行了.
昌乐县18276683571: vb怎么做翻译软件? - ?
在春先定: 先以空格分割单词,再将单词与实现做好的数据库中的数据对比并提取相应的翻译.记得采纳啊
昌乐县18276683571: 怎么样用VB编译一个英汉小字典,只要能够查询单词,即选中一个单词,在textbox里就能显示其意思,不慎感谢 - ?
在春先定: public type dictionary english as string chinese as string end type private dic() as dictionary'定义一个字典,然后赋值 private sub form_load redim dic(10) dic(0).english="access" dic(0).chinese="vt. 存取;接近;使用" & vbcrlf & "n. 通路;进...
昌乐县18276683571: 求用vb编写一个'文字翻译成代码'的软件 - ?
在春先定: 两个批处理 第一输入的 color d echo off echo. 两次输入内容 set /p dosname=请输入内容:echo %dosname%>>test.txt set /p dosname=请输入内容:echo %dosname%>>test.txt pause ———————————————————— 保存成批处理...
昌乐县18276683571: 用VB如何制作简单的编译器? - ?
在春先定: 首先你得 知道什么是 编译原理 如果没上过这门课的话劝你还是别研究了涉及到很多专业知识的 至少至少你得知道什么是 “自动机”、“产生式”... 此外还有各种算法 不是一句两句就能说清的当然 如果硬要做编译器你可以试着 练下你的 逻辑、思考能力课题:算术表达式求值 内容:输入任意算术表达式 由简单机械步骤 算出其结果
昌乐县18276683571: 如何用VB读取十六进制文件,并翻译为中文?
在春先定: 读取的话,你就可以逐行读出来,然后两个16进制字符做成一个字节: 比如十六进制A,B char c; c = A * 16 + B; 如果你读到的是字符'A','B' 那么就要换算一下,对应的16进制值.比如'A'对应A(10). 至于翻译成中文,这个要看你使用哪种编码了 有ANSI,Uicode等
昌乐县18276683571: VB2005怎么编译程序?
在春先定: 先新建项目,再添加源文件,最后才能编译
昌乐县18276683571: VB2010怎样编译程序? - ?
在春先定: 菜单栏上 生成 -生成解决方案(F6) 调试的时候已经生成(debug) 一般生成的文件在我的文档里面 或者直接在 解决方案资源管理器 右击项目 在windows资源管理器文件夹打开 bin 目录下