代码搜索：bas

找到约 10,000 项符合「bas」的源代码

代码结果 10,000
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/100681/15867068

vbp vchat.vbp

Type=Control Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX UserControl=cha
·
www.eeworm.com/read/428772/8842823

bas 变量.bas

Attribute VB_Name = "变量" Option Explicit '全部变量 Public PN, UN, IKW, m1, η, η1, cosΦ, cosΦ1, p, q1, Z1, Z2, Zp1, Zp2, αp, αp1, KNm, α As Double Public Kd1, Kp1, Kdp1, A1, lt, D1, Di
·
www.eeworm.com/read/383720/8923577

bas 工具.bas

Attribute VB_Name = "Module1" Public Function Jdtoxs(JD As Single) As Single Jdtoxs = Int(JD) + ((JD * 100 - Int(JD * 100)) / 60 + (JD - Int(JD) - (JD * 100 - Int(JD * 100)) / 100)) / 0.6 End
·
www.eeworm.com/read/184961/9063262

bas a.bas

CLS DIM SHARED levels$(20), parea(20), Fex(20), fcal(20), Q(20, 20), a(20, 3), B(20), c(20) OPEN "d:\data\jo\pt26.dat" FOR INPUT AS #1 OPEN "d:\data\jo\Ypt26.dat" FOR OUTPUT AS #3 '*********
·
www.eeworm.com/read/168749/9898550

bas 备份.bas

Attribute VB_Name = "备份" ' ' If getDB Then '如果 weboy 数据库存在，则... ' If getUsersTable And getConsumersTable Then '如果 users 表及 consumer 表存在，则... '
·
www.eeworm.com/read/165012/10078923

bas 函数.bas

Attribute VB_Name = "mobFunction" Option Explicit '****************************************** '打开数据库 Sub OpenDB() If Right(App.Path, 1) = "\" Then DBpath = App.Path & DBname Else DBpath =
·
www.eeworm.com/read/165012/10078925

bas 公用.bas

Attribute VB_Name = "mobPublic" Option Explicit '****************************************** '登录窗体设置(denglu.frm) Sub dengluSet(ThisForm) If GetKeyValue(HKEY_LOCAL_MACHINE, "software\Company", "Com
·
www.eeworm.com/read/165012/10078927

bas 定义.bas

Attribute VB_Name = "mobDefine" Option Explicit '****************************************** '常量定义 '****************************************** '软件试用次数限制，必须用public定义 Public Const TryoutLimit = 30
·
www.eeworm.com/read/165012/10078929

bas 注册.bas

Attribute VB_Name = "mobReg" Option Explicit '注册表 API 声明... 'RegCloseKey 用于关闭系统注册表中的一个项（或键） 'RegCreateKeyEx用于创建注册表项 'RegOpenKeyEx用于打开注册表项 'RegQueryValueEx 用于获取一个项的设置值 'RegSetValueEx 用于设置指定项的值
·
www.eeworm.com/read/162294/10317824

bas 函数.bas

Attribute VB_Name = "mobFunction" Option Explicit '****************************************** '打开数据库 Sub OpenDB() If Right(App.Path, 1) = "\" Then DBpath = App.Path & DBname Else DBpath =
·