发送.bas

来自「红外遥控器已被广泛使用在各种类型的家电产品上」· BAS 代码 · 共 58 行

$regfile = "m8def.dat"                                    ' 定义目标单片机是ATmega8
$crystal = 1000000

'开始前定义输入口并初始化为全0
Config Portd.0 = Input

Config Portd.1 = Input

Config Portd.2 = Input

Config Portd.3 = Input

Config Portd.4 = Input


Main:
Do
If Pind.0 = 1 Then
   Rc5send 0 , 0 , 1
   Waitms 80
   Rc5send 0 , 0 , 1
   Waitms 80
   Rc5send 0 , 0 , 1
   End If

If Pind.1 = 1 Then
   Rc5send 0 , 0 , 2
   Waitms 80
   Rc5send 0 , 0 , 2
   Waitms 80
   Rc5send 0 , 0 , 2
   End If
If Pind.2 = 1 Then
   Rc5send 0 , 0 , 3
   Waitms 80
   Rc5send 0 , 0 , 3
   Waitms 80
   Rc5send 0 , 0 , 3
   End If
If Pind.3 = 1 Then
   Rc5send 0 , 0 , 4
   Waitms 80
   Rc5send 0 , 0 , 4
   Waitms 80
   Rc5send 0 , 0 , 4
   End If
If Pind.4 = 1 Then
   Rc5send 0 , 0 , 5
   Waitms 80
   Rc5send 0 , 0 , 5
   Waitms 80
   Rc5send 0 , 0 , 5
   End If

Waitms 80
Loop

End