快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net與單片機 单片机可以用vb编写程序吗

求VB.NET通过将textboxz中的数据转化为16进制数通过串口发送到单片机的程序

Private Sub hexSend()

创新互联是一家专注于成都网站设计、成都做网站和四川服务器托管的网络公司,有着丰富的建站经验和案例。

On Error Resume Next

Dim outputLen As Integer

Dim outData As String

Dim SendArr() As Byte

Dim TemporarySave As String

Dim dataCount As Integer

Dim i As Integer

outData = UCase(Replace(txtSend.Text, Space(1), Space(0)))

outData = UCase(outData)

outputLen = Len(outData)

For i = 0 To outputLen-1

TemporarySave = Mid(outData, i + 1, 1)

If (Asc(TemporarySave) = 48 And Asc(TemporarySave) = 57) Or (Asc(TemporarySave) = 65 And Asc(TemporarySave) = 70) Then

dataCount = dataCount + 1

Else

Exit For

Exit Sub

End If

Next

If dataCount Mod 2 0 Then

dataCount = dataCount - 1

End If

outData = Microsoft.VisualBasic.Left(outData, dataCount)

ReDim SendArr(dataCount / 2 - 1)

For i = 0 To dataCount / 2 - 1

SendArr(i) = Val("h" + Mid(outData, i * 2+1, 2))

Next

SerialPort1.Write(SendArr, 0, 1)

End Sub

修改几处就好用了。

vb.net程序可以在单片机上运行吗?

绝对不行!基于x86处理器构架的程序,是不能在不是x86构架的单片机上运行的。

STC8A8K64S4A12单片机程序

这个可以有,是51的,用到STC8A8K64S4A12上应该不成问题。

#include STC89.H

unsigned char tmp;

sbit shebei1=P1^0;//定义控制设备的IO口

sbit shebei2=P1^1;

sbit shebei3=P1^2;

sbit shebei4=P1^3;

sbit shebei5=P1^4;

sbit shebei6=P1^5;

void main()

{

TMOD = 0x20; // 定时器1工作于8位自动重载模式, 用于产生波特率

TH1 = 0xFD; // 波特率9600

TL1 = 0xFD;

SCON = 0x50; // 设定串行口工作方式

PCON = 0xef; // 波特率不倍增

TR1 = 1; // 启动定时器1

IE = 0x0; // 禁止任何中断

while(1)

{

if(RI) // 是否有数据到来

{

RI = 0;// 清接收标志

tmp = SBUF; // 暂存接收到的数据

switch(tmp )

{

case 0x22:shebei1=0;break;//关设备1

case 0x33:shebei1=1;break;//开设备1

case 0x44:shebei2=0;break;

case 0x55:shebei2=1;break;

case 0x66:shebei3=0;break;

case 0x77:shebei3=1;break;

case 0x88:shebei4=0;break;

case 0x99:shebei4=1;break;

// case 0xaa:shebei5=0;break;

// case 0xbb:shebei5=1;break;

// case 0xcc:shebei6=0;break;

// case 0xdd:shebei6=1;break;

case 0x17:shebei5=0;break;

case 0x18:shebei5=1;break;

case 0x19:shebei6=0;break;

case 0x20:shebei6=1;break;

}

}

}

}

void delayms(unsigned char ms)

// 延时子程序

{

unsigned char i;

while(ms--)

{

for(i = 0; i 120; i++);

}

}

visual basic 和visual basic .NET有什么区别

一个需要.net框架,一个不需要,学单片机就不要 vb.net了,vb.net一般都用于企业级软件的开发,随着C#的普及,用 vb.net的也越来越少了。单纯用好vb脚本也很不错


分享文章:vb.net與單片機 单片机可以用vb编写程序吗
URL网址:http://6mz.cn/article/dooohsi.html

其他资讯