作者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