多效用加法谋略器详细先容的步伐有哪些? 详细先容的步伐有:交会定点、导线谋略、面积谋略、线路测量谋略、高程网平差谋略、工程测量空间点位谋略以及营造物变形不雅观察谋略、平整度检测谋略等 Windows7多效用谋略器是怎么样的? �0�2�0�2比方咱们每天听到1克拉、1盎司等说法,然则未必每一小我都很清楚显然这些“陌生” 的计重单位等于几何。这时辰辰咱们可以拆封计 算器,并单击“检察”菜单、“单位转 换”菜单项。然后在右侧的正视窗格里选择要转换的单位典型,比方可以选择“重量/品质”, 然后选择详细的待换算单位(比方是“克拉”),以及目标单位(比方是“克”),再指定是几何克拉,成就马上会呈现出去。 多效用门保留较器的利用举动?2ndf键以及drg键的利用? 2ndf:第二效用键,选择谋略器上面处于一样通俗按钮之上的阿谁效用。 drg:角度单位,用于旋转角度、弧度、百分度的选择。 D为角度,呈现“DEG”。 R为弧度,呈现“RAD”。 G为百分度,呈现“GRAD”。等于第二效用键 按了这个键此后 就又了其它一效用 再望望他人怎么样说的。 用VB步伐计平等个多效用谋略器 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL = 1 Dim num1 As Double Dim num2 As Double Dim tmpStr As String Dim curMark As Boolean Dim oper As String Private Sub Co妹妹and1_Click(Index As Integer) tmpStr = Val(tmpStr & Index) Text1.Text = Val(tmpStr) End Sub Private Sub Co妹妹and2_Click(Index As Integer) If curMark = False Then num1 = Val(tmpStr) curMark = True num2 = Val(tmpStr) End If tmpStr = "" Select Case Index Case 0 oper = "+" Case 1 oper = "-" Case 2 oper = "*" Case 3 oper = "/" Case 4 Text1.Text = Calcu(oper) End Select End Sub Private Sub Co妹妹and3_Click() If tmpStr "" Then tmpStr = Left(tmpStr, Len(tmpStr) - 1) Text1.Text = Val(tmpStr) End If End Sub Private Sub Co妹妹and4_Click() num1 = 0 num2 = 0 tmpStr = "0" Text1.Text = "0" curMark = False End Sub Private Sub Co妹妹and6_Click() tmpStr = -(Val(tmpStr)) Text1.Text = tmpStr End Sub Private Sub Co妹妹and7_Click() If tmpStr "" Then If InStr(1, tmpStr, ".") = 0 Then tmpStr = tmpStr & "." Text1.Text = tmpStr End If End If End Sub Private Sub Form_Load() Dim obj As Co妹妹andButton tmpStr = "0" Text1.Text = Val(tmpStr) For Each obj In Co妹妹and1 obj.Caption = obj.Index End Sub Private Function Calcu(oper As String) As Double On Error GoTo calcErr Select Case oper Case "+" Calcu = num1 + num2 Case "-" Calcu = num1 - num2 Case "*" Calcu = num1 * num2 Case "/" Calcu = num1 / num2 End Select num1 = Calcu num2 = 0 Exit Function calcErr: MsgBox "利用掉败,没法举行此谋略利用", vbOKOnly, "谋略破绽" Calcu = 0 End Function Private Sub Form_Unload(Cancel As Integer) End Sub Private Sub mAbout_Click() frmAbout.Show vbModal End Sub Private Sub mExit_Click() Unload Me End Sub Private Sub mHelpFor_Click() ShellExecute Me.hwnd, "open", App.HelpFile, "", "", SW_SHOWNORMAL End Sub Private Sub mInput_Click() Dim inCalcu As String inCalcu = InputBox("请输进运算表达式", "表达式", "1+1") Text1.Text = calc(inCalcu) num1 = Val(Text1.Text) curMark = True End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "tInput" mInput_Click Case "tAbout" mAbout_Click Case "tHelp" mHelpFor_Click Case "tExit" End Select End Sub
最新发布
- OPPO Find X手机深入评测:一百分的考卷,我要九十九 oppofindx测评如何
- 与OPPO Find X8系列同行,跨越手机影像的「舒适区」 oppo find x和小米8
- OPPO Find X7 Ultra评测:大师影像配AI大模型,“封神”旗舰名不虚传 findx3参数配置详细
- oppo手机桌面快捷方式怎么设置 oppo手机怎样设置桌面快捷键
- 192.168.1.1手机登陆页面设置【图解】 192.168.1.1手机登陆wifi设置
- 华为手机的3种虚拟按键,全部使用过,手机配置不会差 华为手机虚拟按键在哪里设置方法
- 超详细!智能手机最基础的使用教程,老年人一看就会! 智能手机使用教学视频下载
- 不只有瀑布屏和5G vivo NEX 3还把实体按键“干掉”了 vivonex3手机功能介绍视频
- 192.168.1.1手机登陆页面设置【图解】 192.168.1.1手机登陆wifi设置
- oppo手机桌面快捷方式怎么设置 oppo手机怎样设置桌面快捷键
- OPPO Find X7 Ultra评测:大师影像配AI大模型,“封神”旗舰名不虚传 findx3参数配置详细
- 与OPPO Find X8系列同行,跨越手机影像的「舒适区」 oppo find x和小米8
- OPPO Find X手机深入评测:一百分的考卷,我要九十九 oppofindx测评如何
- 华为手机的3种虚拟按键,全部使用过,手机配置不会差 华为手机虚拟按键在哪里设置方法
- 超详细!智能手机最基础的使用教程,老年人一看就会! 智能手机使用教学视频下载
- 不只有瀑布屏和5G vivo NEX 3还把实体按键“干掉”了 vivonex3手机功能介绍视频
- "你的华为手机越用越卡?一键调整这3个功能,手机能流畅到2025年" 华为手机越用越卡是什么原因
- 适老化 | 手机厂商竞逐老年手机市场,线下手机营业厅零售优势明显 老年手机店
- 掌握保定 在保定APP | 报道《保定新发地联农批发市场智慧管理提档升级》 新发地保定联农批发市场蔬菜价格
- imoo学习手机到底怎么样?看看媒体们的第一手体验-功能篇 imoo手机是什么型号
- 手机上最强大的功能,其实是你的电源键 手机中的电源键是哪一个?
- 手机市场批发价目单,手机市场渠道渠道批发 手机批发平台头像
- 免解锁刷机全教程:红米 NOTE3 全网通 开吃棉花糖 红米note3官方线刷包
- 手机导航键消失了怎么恢复?手把手教你设置方法! 手机导航键按了没反应
上市归档
- 2024年12月 (62)
- 2024年11月 (24)
- 2023年5月 (3)
- 2022年3月 (6)
- 2022年2月 (201)
- 2022年1月 (92)
- 2021年12月 (25)
- 2021年11月 (4)
- 2021年7月 (24)
- 2021年6月 (5)
- 2021年4月 (9)
- 2020年12月 (1)
- 2020年10月 (5)
- 2020年6月 (2)
- 2020年4月 (2)
- 2020年3月 (1)
- 2020年2月 (6)
- 2020年1月 (72)
- 2019年12月 (22)
- 2019年11月 (15)
- 2019年8月 (8)
- 2019年7月 (13)
- 2019年6月 (10)
- 2019年5月 (12)
- 2019年4月 (50)