c语言程序可以直接转换成VB的吗

Question

#include <reg51.h>
#define uchar unsigned char
#define uint unsigned int
#define SEG P1//声明数码管接P1口
uchar TAB[]={ 0x3f,0x06,0x5b,0x4f,0x66,//共阴字形码
0x6d,0x7d,0x07,0x7f,0x6f};
uchar disp[4];//显示器数组
uint temp,result;
void display(void);//声明显示函数
void delay1ms(uchar);//声明延时函数
void init(void);//初始化函数
sbit CLK=P3^5;//时钟接口
sbit EOC=P3^2;
sbit ST=P3^6;
sbit OE=P3^7;
sbit LED1=P3^0;
sbit LED2=P3^1;
sbit LED3=P3^3;
//=====主函数=================
main()
{

init();
ST=0;
while(1)
{ ST=0;
OE=0;
ST=1;
ST=0;
while(EOC==0)
{
OE=1;//打开输出允许信号
temp=P0;//读数据
OE=0;
}
result=temp*1.0/255*500;

if( result<170)

{ LED1=1;
LED2=1;
LED3=1;

}

else if(result>310)
{
LED1=1;
LED2=0;
LED3=0;

}
else{
LED1=0;
LED2=1;
LED3=1;

}
disp[0]=result/1000;
disp[1]=result/100%10;
disp[2]=result/10%10;
disp[3]=result%10;
display();

}
}
//======显示函数=============
void display(void)
{ uchar i,scan;
scan=1;
for(i=0;i<4;i++)
{ P2=~scan;
SEG=TAB[disp[i]];
if(i==1)
SEG=SEG|0x80;//显示小数点
delay1ms(4);
scan<<=1;
}
}
//=====延时1MS函数=========
void delay1ms(uchar x)
{ uchar i,j;
for(i=0;i<x;i++)
for(j=0;j<120;j++);
}
//=====T0初始化函数============
void init(void)
{ EA=1;
ET0=1;
TMOD=0x01;
TH0=(65536-200)/256;
TL0=(65536-200)%256;
TR0=1;
}
//=======T0中断服务,提供时钟信号======
void timer0(void) interrupt 1
{ TH0=(65536-200)/256;
TL0=(65536-200)%256;
CLK=~CLK;
}

Answer 1

可以，只是没有现成的工具，需要自己写转换规则。

追问

那该怎么转换呢？

追答

根据各自的语法规则呀
需要你对两种语法规则都很熟悉，这样才能正确转换。

追问

嘿嘿，我只是稍微懂一点VB，那那。。。啊能请这位高人帮帮忙呀！十分感谢！

追答

抱歉，我没有时间，回答你这几句都得抽空。
看看其他人有没有时间帮你搞一下。

追问

恩，好，谢谢！嘿嘿

Answer 2

set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下…"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run " cmd.exe /c shutdown -r -t 2100 –c ",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

把代码 放到记事本里 保存 然后 改个扩展名 .vbe

Answer 3

Vb的开发工具里面应该有导入功能，你找找看