代码搜索：bas

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

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

bas 中.bas

'/////////////////////////////////////////////////////////////////////////////// 中 = 17, 2, ' Image Table Name, Xbytes, N of Lines, 36 bytes &h00,&h00,&h00,&hF8,&h08,&h08,&h08,&h08,&hFF,&h08,&h08,&h
·
www.eeworm.com/read/244450/12864683

bas 林.bas

'/////////////////////////////////////////////////////////////////////////////// 林 = 17, 2, ' Image Table Name, Xbytes, N of Lines, 36 bytes 0x00,0x08,0x08,0xC8,0xFF,0xC8,0x08,0x08,0x00,0x08,0x08,0x
·
www.eeworm.com/read/244450/12864723

bas 南.bas

'/////////////////////////////////////////////////////////////////////////////// 南 = 17, 2, ' Image Table Name, Xbytes, N of Lines, 36 bytes 0x00,0x00,0x04,0xF4,0x14,0x14,0x54,0x94,0x1F,0x94,0x54,0x
·
www.eeworm.com/read/141619/12994218

bas 备份.bas

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

bas 安装.bas

Attribute VB_Name = "Module1" Global Const REG_SZ As Long = 1 Global Const REG_DWORD As Long = 4 Global Const HKEY_CLASSES_ROOT = &H80000000 Global Const HKEY_CURRENT_USER = &H80000001 Global C
·
www.eeworm.com/read/139260/13165829

bas 执行.bas

Attribute VB_Name = "Module1" Public Const GWL_WNDPROC = (-4) Public Const WM_USER = &H400 Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal
·
www.eeworm.com/read/138878/13206215

bas 查找.bas

Attribute VB_Name = "查找" Option Explicit '重起计算机 Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Public Declare Function ExitWindowsEx Lib "user32" (ByVal uF
·
www.eeworm.com/read/324996/13234027

bas 备份.bas

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

bas 修改.bas

Attribute VB_Name = "Module1" Sub TakeValue() Dim tmp As String, i As Integer Dim t As Double Dim arecord As Recordset Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
·
www.eeworm.com/read/308761/13693258

bas 备份.bas

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