经过视频学习后练习写了一段程序，软件仿真时发现有两条指令不能选中（对应序号左侧不能变灰）。找不到问题原因，请指导。(如程序中的“启动总线”和“发送器件地址”相邻的两项)。
void WriteDAC(uchar DAT)
{
uchar chi;
iic_start(); //启动总线
iic_SendByte(PCF8591_WRITE); //发送器件地址
if(Read_ACK())
ACKFiag=1; //NOACK
else
ACKFiag=0; //ACK
......................
阅读全部
|
h1357951
贴于 2023年1月21日 11:39
hide
bbsi
void Widget::AnalyzeData()
{//读取数据
QByteArray recvData = myserial->readAll();//定义mytemp为串口读取的所有数据
recvData.resize(1024);
qDebug()<<"recvData:"<<recvData;
if(!recvData.isEmpty())
{//从dht22采集来的数据进行转换 由bytearray 转成int
QString StrI1=recvData.toHex().mid(8,2);
QString StrI2=recvData.toHex().mid(24,2);
......................
阅读全部
|
niefeng0429
贴于 2023年1月19日 11:18
hide
bbsi
/*------------------------------------------------
写入DA转换数值
输入参数：dat 表示需要转换的DA数值，范围是0-255
------------------------------------------------*/
void WriteDAC(uchar DAT)
{
iic_start(); //启动总线，（序号160）
iic_SendByte(PCF8591_WRITE); //发送器件地址 （序号161）
if(Read_ACK())
ACKFiag=1; //NOACK
else
......................
阅读全部
|
h1357951
贴于 2023年1月16日 17:24
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程级变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2023年1月15日 02:49
hide
bbsi
Option Explicit
Const C_WorkProgress = 4
Class UI_Class
Public Form, Tip, config, AppName, Starting, Angel
Private Menu, hMenu1(1), hMenu2(0), timing
Private Tooptip
Private DisablePowerSave
Private Sub Create()
Dim i, v, s, j, arr
Set Menu = Control.Menu()
Set Form = Api.NewForm()
Set Tooptip = Control.Tooptip()
......................
阅读全部
|
王宇577
贴于 2023年1月15日 02:42
hide
bbsi
Option Explicit
Const C_GameWith = 1024
Const C_GameHeight = 768
Const C_GameSmallWith = 320
Const C_GameSmallHeight = 240
'黑带 16 20
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
Dim i
For i = 0 To UBound(Args)
......................
阅读全部
|
王宇577
贴于 2023年1月15日 02:35
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程级变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2023年1月12日 14:42
hide
bbsi
Option Explicit
Const C_WorkProgress = 4
Class UI_Clas
Public Form, Tip, config, AppName, Starting, Angel
Private Menu, hMenu1(1), hMenu2(0), timing
Private Tooptip
Private DisablePowerSave
Private Sub Create()
Dim i, v, s, j, arr
Set Menu = Control.Menu()
Set Form = Api.NewForm()
Set Tooptip = Control.Tooptip()
......................
阅读全部
|
王宇577
贴于 2023年1月12日 14:41
hide
bbsi
Option Explicit
Const C_WorkProgress = 4
Class UI_Class
Public Form, Tip, config, AppName, Starting, Angel
Private Menu, hMenu1(1), hMenu2(0), timing
Private Tooptip
Private DisablePowerSave
Private Sub Create()
Dim i, v, s, j, arr
Set Menu = Control.Menu()
Set Form = Api.NewForm()
Set Tooptip = Control.Tooptip()
......................
阅读全部
|
王宇577
贴于 2023年1月12日 14:40
hide
bbsi
Option Explicit
Const C_GameWith = 1024
Const C_GameHeight = 768
Const C_GameSmallWith = 320
Const C_GameSmallHeight = 240
'黑带 16 20
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
Dim i
For i = 0 To UBound(Args)
......................
阅读全部
|
王宇577
贴于 2023年1月12日 14:33
hide
bbsi