Function operation(X) As Integer
Dim port(6)
Dim state, state1
port(0) = &HFE 'led 1 on
port(1) = &HFD 'led 2 on
port(2) = &HFB 'led 3 on
If kk = True Then
state = &HFF
kk = False
Else
state = state1
End If
state1 = Not ((Not (state)) Or (Not (port(X))))
PPI_PA = &H300 '8255A 埠 A 的 I/O 位址
Out PPI_PA, state1 '設定 8255A 的三埠 (A,B,C) 埠為模式 0 輸出
End Function
Private Sub Form_Load()
kk = True
End Sub
各位前輩
以上的程式是使led on off 的程式
我寫了是可以使led個別亮
但是我想要計錄上一次的動作時
確不能記錄起來似乎是
state1 = Not ((Not (state)) Or (Not (port(X))))
的state無法改變