Datasheet

begin
s1 := 'mikroElektronika';
Man_Send_Init(); // Initialize transmitter
while TRUE do // Endless loop
begin
Man_Send(0x0B); // Send "start" byte
Delay_ms(100); // Wait for a while
character := s1[0]; // Take first char from string
index := 0; // Initialize index variable
while (character <> 0) do // String ends with zero
begin
Man_Send(character); // Send character
Delay_ms(90); // Wait for a while
Inc(index); // Increment index variable
character := s1[index]; // Take next char from string
end;
Man_Send(0x0E); // Send "end" byte
Delay_ms(1000);
end;
end.
Connection Example
Simple Transmitter connection
269
MIKROELEKTRONIKA - SOFTWARE AND HARDWARE SOLUTIONS FOR EMBEDDED WORLD
Libraries
mikroPASCAL PRO for AVR
CHAPTER 6