13518219792
主要是对SerialPort控件的编程和数据库的读取,
创新互联2013年开创至今，先为廊坊等服务建站，廊坊等地企业，进行企业商务咨询服务。为廊坊企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
在数据库读取方面可以用 DataSet ,BindingSource , TableAdapter 等数据绑定控件,
SerialPort控件的具体读写方法建议你看MSDN,大概是:
Private Sub 关闭和启动串口()
Try
If 串口.IsOpen Then
串口.Close()
End If
串口.Open()
Catch ex As Exception
''''
End Try
End Sub
Private Sub 串口的读与写()
......
Dim 发送字节() As Byte, 返回字节 As Byte
Try
'例如要发送字节: 6D
发送字节 = BitConverter.GetBytes(CByte("H6D"))
串口.Write(发送字节, 0, 1)
......
'例如读串口返回的字节
返回字节 = 串口.ReadByte
Catch ex As Exception
''''
End Try
......
End Sub
'等等
通常待机时，操作系统会记录下所有运行程序的执行状态，存入寄存器，然后整个系统进入休息状态，等到解除锁定时读取记录恢复程序运行状态。
比如wmp播放器在播放一首歌曲，这时按下了待机键，然后屏幕锁定播放器停止播放，恢复时又自动继续播放。
待机时并非所有程序都停止，某些程序会转入后台，比如系统内部的计划任务，它并不停止，你可以测试下键入倒计时关机命令，它会持续执行。所以解决你的问题的方案是直接把定时写入系统计划任务，用你的程序写批处理并shell它，用的是at命令
思路：1.把程序加入自启动，启动就检查有无记录锁屏的文件，若没有则自己退出，若有则锁屏
2.如果需要锁屏则创建一个文件用来记录解锁次数
3.程序启动后锁屏，如果输入密码正确或者次数为10解屏，如果不正确解锁次数加1，并且继续锁屏。
我之前写了一个用U盘解锁的程序，就是这样实现的。至于锁屏无非是屏蔽快捷键和任务管理器这类的，如何实现可以自己去摸索。
说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮，一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer '定义j为整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao.Text = "+" '将”＋”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command2_Click()
txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command3_Click()
txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command4_Click()
txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中
End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给a
b = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给b
If txtfuhao.Text = "+" Then '运算过程
c = a + b '运算过程
ElseIf txtfuhao.Text = "-" Then '运算过程
c = a - b '运算过程
ElseIf txtfuhao.Text = "÷" Then '运算过程
c = a / b '运算过程
ElseIf txtfuhao.Text = "×" Then '运算过程
c = a * b '运算过程
Else
j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")
End If
txtc.Text = c '将运算结果c输出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta.Text = "" '将空字符输入到文本框内（刷新）
txtb.Text = "" '将空字符输入到文本框内（刷新）
txtc.Text = "" '将空字符输入到文本框内（刷新）
txtfuhao.Text = "" '将空字符输入到文本框内（刷新）
End SubPrivate Sub Command7_Click()
End '结束程序
End SubPrivate Sub Form_Load()End Sub
dim a,b as integer a=val(inputbox ("请输入三角形的底边长!")) b=val(inputbox ("请输入三角形的高!"))) msgbox "三角形的面积为" a*b/2
