作者snowboylove (无心恋战)
看板Visual_Basic
标题[VB6 ] 按键开关
时间Mon Oct 13 20:44:50 2008
想问一下怎麽修改下面的程式
按下开关S3让LED由右向左亮
按下开关S4让LED由左向右亮
按下开关S5让LED亮一个然後全灭
按下开关S6让LED全亮全灭
以下是原本的程式
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal As Integer)
Option Explicit
Dim Value As Integer
Dim PortAddress As Integer
Dim LED_7seg As Variant
Private Sub CmdEnd_Click()
End
End Sub
Private Sub Form_Load()
LED_7seg=Array(&H3F, &H6, &H5B, &H4F, _
&H66, &H6D, &H7D, &H7, _
&H7F, &H6F, &H77, &H7C, _
&H58, &H5E, &H79, &H71)
Timer1.Enabled=False
Timer1.Interval=10
PortAddress=&H379
End Sub
Private Sub CmdRun_Click()
Timer1.Enabled=True
End Sub
Private Sub timer1_Timer()
Dim x, y As Integer
x=Inp(PortAddress+1)
y=(x\8)
Value=y Mod &H10
out PortAddress, LED_7seg(Value)
Text1.Text=Value
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.71.228.251
1F：→ MOONRAKER:喔！好好喔 自动控制用VB做 我们都要写啥ve啥log的 10/14 00:08