vb.net开发仪表 vbnet showdialog

wince下如何用vb.net画圆弧,需要做一个仪表盘,圆环形、分段。但WinCE中只支持画整圆,请各位帮忙,谢谢!

思路错误,应该是先制作好仪表盘图片,指针图片,使用代码来切换图片

创新互联致力于互联网品牌建设与网络营销,包括网站设计制作、做网站、SEO优化、网络推广、整站优化营销策划推广、电子商务、移动互联网营销等。创新互联为不同类型的客户提供良好的互联网应用定制及解决方案,创新互联核心团队十多年专注互联网开发,积累了丰富的网站经验,为广大企业客户提供一站式企业网站建设服务,在网站建设行业内树立了良好口碑。

谁帮我编个程序,VB的仪表测量

代码未考虑校验和:

Option Explicit

Dim strdata As String

Dim bytInput() As Byte

Dim sj(1) As Double

Dim sjData(1) As String

Dim xswz As Integer

Dim xswz1 As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub MsComm1_OnComm()

Dim intInputLen As Integer

Select Case MSComm1.CommEvent

Case comEvReceive

'接收代码

While MSComm1.InBufferCount

intInputLen = MSComm1.InBufferCount

ReDim bytInput(intInputLen)

bytInput = MSComm1.Input

jieshou

'数据处理

If Mid(strdata, 1, 2) = "AA" And Len(strdata) = 32 Then

Dim j As Integer

Dim binsj As Integer

'For j = 1 To Len(strdata) - 2 Step 2

'binsj = binsj + Val("H" Mid(strdata, j, 2))

'Next

'Print Hex(binsj Mod 256)

Text1 = strdata

xswz = Val("H" Mid(strdata, 15, 2))

xswz1 = Val("H" Mid(strdata, 29, 2))

sj(0) = Val(Mid(strdata, 5, 10)) / (10 ^ xswz)

sj(1) = Val(Mid(strdata, 19, 10)) / (10 ^ xswz1)

sjData(0) = Format(sj(0), "0.0000000")

sjData(1) = Format(sj(1), "0.0000000")

If Mid(strdata, 4, 1) = "0" Then

Text2 = sjData(0)

Else

Text2 = "-" sjData(0)

End If

If Mid(strdata, 18, 1) = "0" Then

Text3 = sjData(1)

Else

Text3 = "-" sjData(1)

End If

Timer1.Enabled = False

strdata = ""

ElseIf Mid(strdata, 1, 2) "AA" Then

strdata = ""

End If

Wend

End Select

End Sub

Public Function jieshou() '接收数据处理为16进制

Dim i As Integer

For i = 0 To UBound(bytInput)

If Len(Hex(bytInput(i))) = 1 Then

strdata = strdata "0" Hex(bytInput(i))

Else

strdata = strdata Hex(bytInput(i))

End If

Next

End Function

Private Sub Form_Load()

MSComm1.Settings = "2400,n,8,1"

MSComm1.CommPort = 1

MSComm1.InputMode = comInputModeBinary

MSComm1.RThreshold = 1

MSComm1.SThreshold = 0

MSComm1.PortOpen = True

Timer1 = 200

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim send(0) As Byte

send(0) = H55

MSComm1.Output = send

End Sub

VB.NET如何让仪表指针绕某点旋转

你把问题想简单点,直接在PANEL空间上使用GD+画指针就行了。算出两点划线还不容易么?用图片的话需要旋转,而且锯齿非常严重@!

求用VB编写一个程序来读取仪表的温度,压力和流量

如果使用串口通信,可以使用com控件,对串口进行读写操作。关键是要有和仪表通信的接口,另外还要把仪表的数字量信息读上来。可能还要进行A/D转换。


当前题目:vb.net开发仪表 vbnet showdialog
文章来源:http://ybzwz.com/article/dopgjih.html