最新发布

多效用谋略器,多效用谋略器下载免费

手机以旧换新 2022-02-17 07:00:57 841浏览 0评论

多效用加法谋略器详细先容的步伐有哪些? 详细先容的步伐有:交会定点、导线谋略、面积谋略、线路测量谋略、高程网平差谋略、工程测量空间点位谋略以及营造物变形不雅观察谋略、平整度检测谋略等 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