重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
新建一个文件,写入下面的代码:
十余年的城口网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。营销型网站的优势是能够根据用户设备显示端的尺寸不同,自动调整城口建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“城口网站设计”,“城口网站推广”以来,每个客户项目都认真落实执行。
!doctype html
html
head
meta name="viewport" content="initial-scale=1.0, user-scalable=no" /
meta http-equiv="Content-Type" content="text/html; charset=gbk" /
titleBaidu Map V1.2/title
script type="text/javascript" src=";services=true"
!-- add baidu map api --
/script
/head
body
div id="container" style="width: 600px; height: 400px;"
/div
/body
/html
script type="text/javascript"
var map = new BMap.Map("container"); // new Map
var point = new BMap.Point(116.397128, 39.916527); // Location, (经度, 纬度)
map.centerAndZoom(point, 15); // show Map
// 添加缩放功能
map.enableScrollWheelZoom();
map.enableKeyboard();
/script
保存到程序exe同一目录下,文件名:map.html
然后BUTTON点击事件:
WebBrowser1.Navigate(Application.StartupPath "\map.html")
这样就可以了
ps:经纬度可以到百度地图官网去获取
或者到: 去生成代码
书上估计是用的定时器接收,窗体上拖MSComm1,Timer1,Text1控件各一个,并在属性设置好MSComm1的波特率,串口号,起始位,停止位等信息
Dim str_dispaly As String '定义回显字符
Private Sub Form_Load()
Me.MSComm1.PortOpen = True
Me.Timer1.Interval = 100 '定时器时间间隔
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If MSComm1.InBufferCount 0 Then
str_dispaly = str_dispaly MSComm1.Input
Me.Text1.Text = str_display
End If
End Sub
控件.location=New Point(X,Y)
X,Y为整数,即控件坐标,原点在窗体左上角
先一个个的回答你的问题吧!
第一个问题:
VB.NET不是单单开发web应用程序那么简单,还可以开发windows应用程序,PDA程序,WEB服务等。VB.NET的功能很强大,FOXMAIL是用DELHPI写的,但是用VB.NET也能写。
第二个问题
这个问题和第一个问题有点重复,可以。VB已经过时了,我们没有理由不从VB上过渡到VB.NET上。
第三个问题
呵呵,又重复了。可以编译城.exe文件。.NET程序对运行环境是没有特别的要求的,只要安装了.net framework,它就能在上面运行(不管是windows系统,还是Liunx系统,甚至是PDA)。
微软的.NET和Sun公司的JAVA基本上类似,都是需要平台的,Java需要虚拟机,.NET程序需要.net framework。
支持拖拽布局。
补充点,楼主是不是初学者啊?给你介绍一本书吧,《VB.NET 2005 入门经典》。这本书很好的,建议一章一章的看,在前面的没有你没有完全理解的时候千万别去翻看后面的东西。如果你用功的话,相信不出半年你就学的差不多了!
求采纳为满意回答。
你只获取接口的每个 obj_name 和speed 值的话,你完全没必要当json来处里,你可以直接截取字符串就可以了。用substring函数
假设gps信息在字符串变量s中
Dim a() As String = s.Substring(s.IndexOf("$GPRMC")).Split(",")
MsgBox(a(1) " " a(3) " " a(5))