module1.bas

来自「自动计算矩形的相关信息」· BAS 代码 · 共 11 行

Attribute VB_Name = "Module1"
    Public Declare Function Scan_Circle Lib "SHPICauto.DLL" (ByVal nam As String) As Integer  '自动扫描所有的圆
    Public Declare Function noise Lib "SHPICauto.DLL" () As Integer  '自动量测的杂点设置
    Public Declare Function lk Lib "SHPICauto.DLL" () As Integer
    Public Declare Function BlackWhite Lib "SHPICauto.DLL" (ByVal fz As Integer) As Integer
    Public Declare Function fz_avg Lib "SHPICauto.DLL" () As Single
    
     
    Public soft() As Single, temp() As Single
    Public num As Integer