Voice transmission using zigbee (w/o codec)

Code Basic4GL - [expand]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
dim
 k, i, ch,X,b0,b1,b2       as  byte
 
 ADV AS WORD
 
sub procedure Init_Main
 
    ADCON1 = ADCON1 or 0x0F                
 
    TRISA = 0xFF
    TRISB = 0
    TRISC = %10000000
    TRISD = 0
    
 
end sub
 
 
main:
  Init_Main()  
  Usart_Init(115200)
 
  Lcd_Init(PORTB)           
  Lcd_Cmd(Lcd_CURSOR_OFF)    
  Lcd_Out(1, 2, "WALKY-TALKY")
  Lcd_Out(2, 1, "ZigBee 1 2.4GHz")        
  while TRUE
     if Button(PORTC, 0, 1, 1) then
 
    if Usart_Data_Ready = 1 then
       b2 = Usart_Read
    end if
    PORTD = b2
    else
       adv = Adc_Read(1)
    x = word(adv >> 2)  
 
    Usart_Write(x)
  end if
 
 
  wend
 
end.