十六进制转换成十进制 怎么办 vb？
大家好，我这有一个温度接收器，他把红外线接收的数据以十六进制显示出来了，我怎么吧十六进制转换车十进制用vb 求方法 --------------------编程问答-------------------- Val("&H" & 你的数据) --------------------编程问答-------------------- dim a as integera="&H" & b 'b为16进制串。
--------------------编程问答-------------------- O了。 。。。。。。。。。。。。。。 谢谢各位 --------------------编程问答-------------------- 麻烦问一下楼主，我现在也要做十六进转换，为啥我按着楼上两位说的去做得到的结果好像不对啊
D6 AD A5 FF
3458121090303 --------------------编程问答-------------------- 我的下位机程序： --------------------编程问答--------------------
//-----------------------函数声明，变量定义------------------------
#include <reg51.h>
#include <intrins.h>
sbit SCL=P1^2; // 将p1.2口模拟时钟口
sbit SDA=P1^3; // 将p1.3口模拟数据口
sbit key=P1^4;
bit askflag;
#define uchar unsigned char
#define uint unsigned int
#define delayNOP(); {_nop_();_nop_();_nop_();_nop_();};
bit bdata SystemError; //从机错误标志位
/*********************** PCF8591专用变量定义 ***********************/
#define PCF8591_WRITE 0x90
#define PCF8591_READ 0x91
#define NUM 4 //接收和发送缓存区的深度
uchar idata receivebuf[NUM]; //数据接收缓冲区
/******************************************************************
* 串行通信波特率设置 *
* *
*******************************************************************/
cxtx_btl()
{
TMOD = 0x20; // 定时器1工作于8位自动重载模式, 用于产生波特率
TH1=TL1=0xFF; // 波特率9600
SCON = 0x50; // 设定串行口工作方式1 允许接收,相当于下面三句
//SM0=0;
//SM1=1;
//REN=1;
PCON =0x80; // 波特率不倍增
TR1 = 1;
}
/*******************************************************************
* 向串行口发送一个数据 *
* *
********************************************************************/
void send_char(unsigned char txd)
// 传送一个字符
{
SBUF = txd;
while(!TI); // 等特数据传送
TI = 0; // 清除数据传送标志
}
/*******************************************************************/
/* */
/* 延时函数 */
/* */
/*******************************************************************/
void delay(int ms)
{
while(ms--)
{
uchar i;
for(i=0;i<250;i++)
{
_nop_();
_nop_();
_nop_();
_nop_();
}
}
}
//-------------------------------------------------------------------
// 函数名称： iic_start()
// 函数功能： 启动I2C总线子程序
//-------------------------------------------------------------------
void iic_start(void)
{ //时钟保持高，数据线从高到低一次跳变，I2C通信开始
SDA = 1;
SCL = 1;
delayNOP(); // 延时5us
SDA = 0;
delayNOP();
SCL = 0;
}
//-------------------------------------------------------------------
// 函数名称： iic_stop()
// 函数功能： 停止I2C总线数据传送子程序
//-------------------------------------------------------------------
void iic_stop(void)
{
SDA = 0; //时钟保持高，数据线从低到高一次跳变，I2C通信停止
SCL = 1;
delayNOP();
SDA = 1;
delayNOP();
SCL = 0;
}
//------------------------------------------------------------------
// 函数名称： iicInit_()
// 函数功能： 初始化I2C总线子程序
//------------------------------------------------------------------
void iicInit(void)
{
SCL = 0;
iic_stop();
}
//-------------------------------------------------------------------
// 函数名称： slave_ACK
// 函数功能： 从机发送应答位子程序
//-------------------------------------------------------------------
void slave_ACK(void)
{
SDA = 0;
SCL = 1;
delayNOP();
SCL = 0;
}
//-------------------------------------------------------------------
// 函数名称： slave_NOACK
// 函数功能： 从机发送非应答位子程序，迫使数据传输过程结束
//-------------------------------------------------------------------
void slave_NOACK(void)
{
SDA = 1;
SCL = 1;
delayNOP();
SDA = 0;
SCL = 0;
}
//-------------------------------------------------------------------
// 函数名称： check_ACK
// 函数功能： 主机应答位检查子程序，迫使数据传输过程结束
//-------------------------------------------------------------------
void check_ACK(void)
{
SDA = 1; // 将p1.1设置成输入，必须先向端口写1
SCL = 1;
askflag = 0;
delayNOP();
if(SDA == 1) // 若SDA=1表明非应答，置位非应答标志askflag
askflag = 1;
SCL = 0;
}
//-------------------------------------------------------------------
// 函数名称： IICSendByte
// 入口参数： ch
// 函数功能： 发送一个字节
//-------------------------------------------------------------------
void IICSendByte(uchar ch)
{
unsigned char idata n=8; // 向SDA上发送一位数据字节，共八位
while(n--)
{
if((ch&0x80) == 0x80) // 若要发送的数据最高位为1则发送位1
{
SDA = 1; // 传送位1
SCL = 1;
delayNOP();
// SDA = 0;
SCL = 0;
}
else
{
SDA = 0; // 否则传送位0
SCL = 1;
delayNOP();
SCL = 0;
}
ch = ch<<1; // 数据左移一位
}
}
//-------------------------------------------------------------------
// 函数名称： IICreceiveByte
// 返回接收的数据
// 函数功能： 接收一字节子程序
//-------------------------------------------------------------------
uchar IICreceiveByte(void)
{
uchar idata n=8; // 从SDA线上读取一上数据字节，共八位
uchar tdata=0;
while(n--)
{
SDA = 1;
SCL = 1;
tdata =tdata<<1; //左移一位
if(SDA == 1)
tdata = tdata|0x01; // 若接收到的位为1，则数据的最后一位置1
else
tdata = tdata&0xfe; // 否则数据的最后一位置0
SCL = 0;
}
return(tdata);
}
//-------------------------------------------------------------------
// 函数名称： DAC_PCF8591
// 入口参数： slave_add从机地址,n要发送的数据个数
// 函数功能： 发送n位数据子程序
//-------------------------------------------------------------------
void DAC_PCF8591(uchar controlbyte,uchar w_data)
{
iic_start(); // 启动I2C
delayNOP();
IICSendByte(PCF8591_WRITE); // 发送地址位
check_ACK(); // 检查应答位
if(askflag == 1)
{
SystemError = 1;
return; // 若非应答，置错误标志位
}
IICSendByte(controlbyte&0x77); //Control byte
check_ACK(); //检查应答位
if(askflag == 1)
{
SystemError = 1;
return; // 若非应答，置错误标志位
}
IICSendByte(w_data); //data byte
check_ACK(); // 检查应答位
if(askflag == 1)
{
SystemError = 1;
return; // 若非应答表明器件错误或已坏，置错误标志位SystemError
}
iic_stop(); // 全部发完则停止
delayNOP();
delayNOP();
delayNOP();
delayNOP();
}
//-------------------------------------------------------------------
// 函数名称： ADC_PCF8591
// 入口参数： controlbyte控制字
// 函数功能： 连续读入4路通道的A/D转换结果到receivebuf
//-------------------------------------------------------------------
void ADC_PCF8591(uchar controlbyte)
{
uchar idata receive_da,i=0;
iic_start();
IICSendByte(PCF8591_WRITE); //控制字
check_ACK();
if(askflag == 1)
{
SystemError = 1;
return;
}
IICSendByte(controlbyte); //控制字
check_ACK();
if(askflag == 1)
{
SystemError = 1;
return;
}
iic_start(); //重新发送开始命令
IICSendByte(PCF8591_READ); //控制字
check_ACK();
if(askflag == 1)
{
SystemError = 1;
return;
}
IICreceiveByte(); //空读一次，调整读顺序
slave_ACK(); //收到一个字节后发送一个应答位
while(i<4)
{
receive_da=IICreceiveByte();
receivebuf[i++]=receive_da;
slave_ACK(); //收到一个字节后发送一个应答位
}
slave_NOACK(); //收到最后一个字节后发送一个非应答位
iic_stop();
}
//-------------------------------------------------------------------
// 函数名称： main
// 函数功能： 主程序
//-------------------------------------------------------------------
main()
{
cxtx_btl();
delay(10); //延时
while(1)
{ uchar i,sbuf;
if(RI==1)
{
RI=0;
sbuf=SBUF;
if(sbuf==0xFE)
{
iicInit(); //I2C总线初始化
ADC_PCF8591(0x04);
if(SystemError == 1) //有错误，重新来
{
iicInit(); //I2C总线初始化
ADC_PCF8591(0x04);
}
for(i=1;i<=1;i++)
{
iicInit(); //I2C总线初始化
ADC_PCF8591(0x04);
send_char(receivebuf[0]);
send_char(receivebuf[1]);
send_char(receivebuf[2]);
send_char(receivebuf[3]);
}
iicInit(); //I2C总线初始化
DAC_PCF8591(0x40,receivebuf[0]); //D/A输出
if(SystemError == 1) //有错误，重新来
{
iicInit(); //I2C总线初始化
DAC_PCF8591(0x40,receivebuf[0]); //D/A输出
}
//delay(50); //延时
}
}
}
}
--------------------编程问答-------------------- 六楼你不要乱七八糟好不好.会让初学者误会的 --------------------编程问答-------------------- Dim s As String, a() As String, r As Long
s = "D6 AD A5 FF"
a = Split(s)
r = Val("&H" & a(0)) * 256 * 256 * 256 +
Val("&H" & a(1)) * 256 * 256 +
Val("&H" & a(2)) * 256 +
Val("&H" & a(3)) --------------------编程问答--------------------
那是51单片机的通讯过程，Keil C 的东西，他想说明的是在底层串口是如何通讯的，不过还是用了串口中断，相对来说过程简单得多了。
补充：VB , 非技术类
