$regfile = "m8def.dat" ' 定義一個配置文件名稱
$crystal = 8000000 ' 定義晶振頻率為8MHz
$BAUD = 9600 ' 定義波特率為9600
Config 1wire = Portc.5 ' 配置1-Wire通信在Portc的第5腳上
' 定義變量
Dim Row(4) As Byte ' 定義一個長度為4的字節數組，用于存儲每行的掃描碼
Dim Ar(4) As Byte ' 定義一個長度為4的字節數組，用于存儲發送給1-Wire設備的命令和數據
Dim a As Byte ' 定義一個字節變量a，用于臨時存儲數據
Dim Key As Byte ' 定義一個字節變量Key，用于存儲檢測到的按鍵值
Dim Rowlus As Byte ' 定義一個字節變量Rowlus，用于循環遍歷每一行
' 主循環，不斷讀取鍵盤按鍵
do
gosub Readkeypad ' 調用Readkeypad子程序讀取按鍵
print key ' 打印按鍵值
loop
' Readkeypad子程序：讀取鍵盤按鍵
Readkeypad:
' 初始化Row數組，每個元素都是一個二進制掩碼，用于激活對應的鍵盤行
Row(1) = &B01111111
Row(2) = &B10111111
Row(3) = &B11011111
Row(4) = &B11111110
' 遍歷每一行
For Rowlus = 1 To 4
1wreset ' 重置1-Wire總線
' 準備發送給1-Wire設備的命令和數據
Ar(1) = &HCC ' 跳過ROM命令
Ar(2) = &H5A ' 匹配ROM命令的一部分（此處用于檢測按鍵，實際可能不發送完整匹配命令）
Ar(3) = Row(Rowlus) ' 當前行的激活碼
Ar(4) = &HFF - Ar(3) ' 計算校驗碼
1wwrite Ar(1), 4 ' 向1-Wire設備寫入命令和數據
Ar(1) = 1wread(2) ' 從1-Wire設備讀取響應（通常是按鍵的標識）
A = Ar(2) And &B00011110 ' 提取響應中的按鍵標識位
' 根據響應判斷按鍵值
Select Case A
Case 30: Key = 0 ' 無按鍵按下
Case 28:
' 根據行號確定具體的按鍵值
If Rowlus = 1 Then Key = 16
If Rowlus = 2 Then Key = 9
If Rowlus = 3 Then Key = 8
If Rowlus = 4 Then Key = 7
Case 26:
If Rowlus = 1 Then Key = 15
If Rowlus = 2 Then Key = 6
If Rowlus = 3 Then Key = 5
If Rowlus = 4 Then Key = 4
Case 22:
If Rowlus = 1 Then Key = 14
If Rowlus = 2 Then Key = 3
If Rowlus = 3 Then Key = 2
If Rowlus = 4 Then Key = 1
Case 14:
If Rowlus = 1 Then Key = 13
If Rowlus = 2 Then Key = 12
If Rowlus = 3 Then Key = 11
If Rowlus = 4 Then Key = 10
Case Else: Key = 0 ' 其他情況視為無按鍵按下
End Select
' 如果檢測到按鍵，則退出循環
If Key > 0 Then Exit For
Next Rowlus
Return ' 返回主程序
|
