module1.bas

齿轮传动设计计算的开发软件

Attribute VB_Name = "Module1"
Option Explicit
Option Base 1
Public n1 As Single
Public sn2 As Single
Public si As Single
Public sis As Single
Public dlti As String
Public startcondition As String
Public ka As Single
Public Pd As Single
Public p1 As Single
Public xh1 As String
Public v1 As Single
Public xh(3) As String
Public dl(3) As String
Public dd1 As Single
Public dd2 As Single
Public Ld As Single
Public kL As Single
Public a As Single
Public amax As Single
Public amin As Single
Public x1 As Single
Public kalf As Single
Public dp1 As Single
Public q As Single
Public z As Integer
Public f0 As Single
Public fz As Single
Public g As Single
Public spower As Single
Public dailunkongjing(3) As Single
Public zhoucailiao As String
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Const INFINITE = -1&
Public Const SYNCHRONIZE = &H100000