$regfile = "attiny2313.dat" $crystal = 1000000 Declare Sub W_register(byval C_bytes As Byte) 'SPI (nRF24L01) команды Const Write_reg = &H20 'Определить Команду Записи В Реестр Const Wr_tx_pload = &HA0 'Определить Tx Полезной Нагрузки Адрес Регистра Const Flush_tx = &HE1 'Определить Флеш Tx Зарегистрировать Команду 'SPI (nRF24L01) регистры (адреса) Const Config_nrf = &H00 'Config адрес регистра Const En_aa = &H01 'Включить Автоматическое Подтверждение регистрации адрес Const En_rxaddr = &H02 'Включено Rx адреса " адрес регистра" Const Rf_ch = &H05 'RF channel' адрес регистра Const Rf_setup = &H06 'РФ Setup " (Настройка) адрес регистра" Const Status = &H07 'Статус " адрес регистра" Const Rx_addr_p0 = &H0A 'rx адрес Pipe0 " зарегистрировать адрес" Const Tx_addr = &H10 'TX address (адрес) Dim D_bytes(6) As Byte , W As Byte 'Config оборудования Config Spi = Soft , Din = Portb.6 , Dout = Portb.5 , Ss = Portb.3 , Clock = Portb.7 'Программное обеспечение SPI НЕ работает с nRF24L01, используйте оборудование SPI только, но эсэсовцы pin-код должен управляться нашей функцией Config Portb.2 = Output : Ce Alias Portb.2 'CE pin is output Config Portb.3 = Output : Ss Alias Portb.3 'SS pin is output Config Pinb.1 = Input : Irq Alias Pinb.1 'IRQ pin is input 'подключение светодиодов индикации Config Portd.4 = Output : Red_led Alias Portd.4 Spiinit Do Incr W If W = 250 Then W = 0 End If Set Ce Waitms 10 Reset Ce Reset Ss Red_led = 1 D_bytes(1) = Flush_tx 'Flush the TX_fifo буфера Call W_register(1) D_bytes(1) = Write_reg + Status 'Reset IRQ бит D_bytes(2) = &B00110000 Call W_register(2) Gosub Setup_tx 'Настройка nrf240l01 для TX D_bytes(1) = Wr_tx_pload 'Положи 5 байт в TX pload буфера D_bytes(2) = &HAA 'Байт 1 D_bytes(3) = &HBB 'Байт 2 D_bytes(4) = &HCC 'Байт 3 D_bytes(5) = &H11 'Байт 4 D_bytes(6) = W 'Байт 5 будет увеличиваться каждый цикл Call W_register(6) 'Запись 6 байт для регистрации Waitms 2 Set Ce 'Set CE на короткий миг, чтобы передать буфер fifo Waitms 1 Reset Ce Red_led = 0 wait 1 Loop 'Sub подпрограмм Sub W_register(byval C_bytes As Byte) 'Пишите зарегистрировать с SPI Reset Ss 'Руководство управления СС контакт, установить СС низких до смещение, байт Spiout D_bytes(1) , C_bytes 'Shiftout байты данных SPI корыта, C_bytes это количество байт, которые будут написаны Set Ss 'Set СС высокого End Sub Setup_tx: 'Подготовка к TX D_bytes(1) = Write_reg + Tx_addr 'TX адрес D_bytes(2) = &H34 D_bytes(3) = &H43 D_bytes(4) = &H10 D_bytes(5) = &H10 D_bytes(6) = &H01 Call W_register(6) D_bytes(1) = Write_reg + Rx_addr_p0 'RX адрес для pipe0 D_bytes(2) = &H34 D_bytes(3) = &H43 D_bytes(4) = &H10 D_bytes(5) = &H10 D_bytes(6) = &H01 Call W_register(6) D_bytes(1) = Write_reg + En_aa 'Enable auto ACK на pipe0 D_bytes(2) = &H01 Call W_register(2) D_bytes(1) = Write_reg + En_rxaddr 'Включить RX адрес для pipe0 D_bytes(2) = &H01 Call W_register(2) D_bytes(1) = Write_reg + Rf_ch 'Настройка каналов D_bytes(2) = 40 'Частота 2440 MГц Call W_register(2) D_bytes(1) = Write_reg + Rf_setup 'Настройка РФ -> Выходной мощности 0 дБм, datarate 2 Мбит / с и МШУ прибыль по D_bytes(2) = &H0F Call W_register(2) D_bytes(1) = Write_reg + Config_nrf 'Настройка CONFIG -> I=0 (TX_device), PWR_UP=1, CRC 2bytes, Включить CRC D_bytes(2) = &H0E Call W_register(2) Return