那位肯费心的帮我把几条VB的代码翻译成VC的???编译通过的送100分.
dataout=dataout&format(senddata(i),"000000")
dataout=dataout&format(senddata(i),"00000.000")
dataout=dataout&format((senddata(i) Mod 2),"0")
sendbytes(17+i)=Asc(Mid$(dataout,i,1))
oddcheckbyte=oddcheckbyte Xor sendbytes(i)
datastring=datastring +Chr$(recdata(17+i*6+j)
recdata(para)=Val(Chr$(recdata(17+i*6+j))
dataviewer.txt=dataviewer.txt+format(cstr(recdata(i),"@@@@@@@@@@@"+vbCrlf
-------------------------------------------------------
其中dim idatacount2,adatacount2,cdatacount2,ldatacount2,datacount2,datalength2
as integer
dim i as integer
dim sendbytes(2000) as byte
dim dataout as string
dim oddcheckby as byte
dim senddata(300) as double
---------------------------------------
就8句!!!在线等待,求助呀~~
dataout=dataout&format(senddata(i),"00000.000")
dataout=dataout&format((senddata(i) Mod 2),"0")
sendbytes(17+i)=Asc(Mid$(dataout,i,1))
oddcheckbyte=oddcheckbyte Xor sendbytes(i)
datastring=datastring +Chr$(recdata(17+i*6+j)
recdata(para)=Val(Chr$(recdata(17+i*6+j))
dataviewer.txt=dataviewer.txt+format(cstr(recdata(i),"@@@@@@@@@@@"+vbCrlf
-------------------------------------------------------
其中dim idatacount2,adatacount2,cdatacount2,ldatacount2,datacount2,datalength2
as integer
dim i as integer
dim sendbytes(2000) as byte
dim dataout as string
dim oddcheckby as byte
dim senddata(300) as double
---------------------------------------
就8句!!!在线等待,求助呀~~
...全文
相关推荐
华视CVR100U驱动及VB\VC\Delphi\C#例子(可用)
【华视CVR100U驱动及VB\VC\Delphi\C#例子】是一个针对华视CVR100U设备的驱动程序及其配套的编程示例代码库,适用于多种编程语言,包括Visual Basic (VB)、Visual
VB调用VC生成的
例如,在VB中调用这个函数: ```vb Dim myArray(99) As Integer Call MyFunction(myArray, 100) ``` VB会自动处理数组的内存地址,使得VC
VB+VC编程各一百例子
【VB+VC编程各一百例子】是一份珍贵的编程资源,包含了VB(Visual Basic)和VC(Visual C++)的100个编程实例。
vb,vc上位机程序实例
- 错误处理:编写异常处理代码,确保在通信错误时能够恢复或给出提示。这个“vb,vc上位机程序实例”可能是包含了一系列这样的示例代码,展示了如何使用VB和VC实现串口通信功能。
CVR-100CS开发包,支持C#,C++,Delphi,java,vb,vc
【CVR-100CS开发包】是一个全面的软件开发工具包,专门设计用于集成和支持多种编程语言,包括C#、C++、Delphi、Java、VB(Visual Basic)和VC(Visual C++)。


VB基础类
