Привет всем!
Подскажите, пожалуйста по RDA5807FP. Поиск вроде бы работает, но ничего не находит. Может нужна ещё какая то инициализация перед поиском.
Код программы в микропаскале:
program FM_RDA5807FP_ATMega16;
// 0010000 + 0 - çàïèñü 0010000 + 1 - ÷òåíèå
Var Register_02H,Register_02L:byte;
Register_03H,Register_03L:byte;
Register_04H,Register_04L:byte;
Register_0AH,Register_0AL:byte;
i:byte;
Procedure Search_AUTO();
Begin
Register_03H:=%00000001;
Register_03L:=%01010000;
TWI_Start();
TWI_Write(0x20); // Address RDA5807FP --- çàïèñü
TWI_Write(0x03); // Óñòàíîâêà çàïèñè/÷òåíèÿ ðåãèñòðà 03
TWI_Write(Register_03H);
TWI_Write(Register_03L);
TWI_Stop();
Delay_ms(1);
Register_02H:=%10010011;
Register_02L:=%10000001;
TWI_Start();
TWI_Write(0x20); // Address RDA5807FP --- çàïèñü
TWI_Write(0x02); // Óñòàíîâêà çàïèñè/÷òåíèÿ ðåãèñòðà 02
TWI_Write(Register_02H);
TWI_Write(Register_02L);
TWI_Stop();
Delay_ms(1);
end;
{ Main program }
begin
i:=1;
TWI_Init(100000); // initialize TWI communication
Delay_ms(1);
Search_AUTO();
while i<>0 do begin end;
end.
Подскажите, пожалуйста по RDA5807FP. Поиск вроде бы работает, но ничего не находит. Может нужна ещё какая то инициализация перед поиском.
Код программы в микропаскале:
program FM_RDA5807FP_ATMega16;
// 0010000 + 0 - çàïèñü 0010000 + 1 - ÷òåíèå
Var Register_02H,Register_02L:byte;
Register_03H,Register_03L:byte;
Register_04H,Register_04L:byte;
Register_0AH,Register_0AL:byte;
i:byte;
Procedure Search_AUTO();
Begin
Register_03H:=%00000001;
Register_03L:=%01010000;
TWI_Start();
TWI_Write(0x20); // Address RDA5807FP --- çàïèñü
TWI_Write(0x03); // Óñòàíîâêà çàïèñè/÷òåíèÿ ðåãèñòðà 03
TWI_Write(Register_03H);
TWI_Write(Register_03L);
TWI_Stop();
Delay_ms(1);
Register_02H:=%10010011;
Register_02L:=%10000001;
TWI_Start();
TWI_Write(0x20); // Address RDA5807FP --- çàïèñü
TWI_Write(0x02); // Óñòàíîâêà çàïèñè/÷òåíèÿ ðåãèñòðà 02
TWI_Write(Register_02H);
TWI_Write(Register_02L);
TWI_Stop();
Delay_ms(1);
end;
{ Main program }
begin
i:=1;
TWI_Init(100000); // initialize TWI communication
Delay_ms(1);
Search_AUTO();
while i<>0 do begin end;
end.
