147.415Mhz.

Actualización 6/40/2014: Código fuente de la baliza:

/////////////////////////////////////////////////////////////////////////////////
//
//    BALIZA IDENTIFICADORA EN CODIGO MORSE LU6FPJ - LU4FHJ
//    
//    MICRO: 16F877A        ROSARIO 25/04/12
//
//    NUEVA VERSION  +  DTMF   modificado para 16F877A
//
//   
//    INCORPORADOS 2 x VOICE CHIP  APR9600
//
//                     
/////////////////////////////////////////////////////////////////////////////////

// RB 0 
// RB 1 
// RB 2
// RB 3
// RB 4
// RB 5
// RB 6
// RB 7
  
// RA 0  TX
// RA 1  TONO
// RA 2
// RA 3
// RA 4


asm{
 __FUSES _CP_OFF & _DEBUG_OFF & _WRT_ENABLE_OFF & _CPD_OFF & _LVP_OFF & _BODEN_ON & _PWRTE_ON & _WDT_ON & _HS_OSC
   }


//Timing settings

#pragma CLOCK_FREQ  20000000


//------------------------------------------------------------------------------

char PORTC@0x07;
char PORTD@0x08;
char PORTE@0x09;
char  PIR1@0x0C;
char RCSTA@0x18;
char TXREG@0x19;
char RCREG@0x1A;

char ADRESH@0x1e;
char ADCON0@0x1f;
char CCPR1L@0x15;
char CCPR2L@0x1b;

char direc@0x20;
char valor@0x21;

//------------------------------------------------------------------------------

unsigned char aux;

unsigned char aux1;

unsigned char aux2;

unsigned char cursor1;

unsigned char cursor2;

unsigned char morse;

unsigned  char frec;
unsigned  char wpm;

unsigned  int  gx;                   // variables globales multiproposito
unsigned  char gbx;
unsigned  char gbt;

unsigned  int       frecuencia=1000; // desde 400 HZ hasta 1000 HZ
unsigned const char palabrasxm=12;   // desde 4 palabras por minuto

//---------------------------TABLA MORSE----------------------------------------
//
//El primer uno a la izquierda es un marcador que no se reproduce
//
//a partir del mismo de izquierda a derecha 1=raya(DA) 0=punto  (DI)

const unsigned char Table[59]={
                                00000001b,//032    espacio  interpalabra 7 units
                                01101011b,//033  ! -ú-ú-- 
                                01010010b,//034  " ú-úú-ú
                                00111011b,//035  # --ú--    para usar la ¥
                                10001001b,//036  $ úúú-úú-
                                00000001b,//037  %                   No usado
                                00101000b,//038  & ú-úúú    Wait
                                01011110b,//039  ' ú----ú
                                00110110b,//040  ( -ú--ú
                                01101101b,//041  ) -ú--ú-
                                00000001b,//042  *                   No usado
                                00101010b,//043  + ú-ú-ú
                                01110011b,//044  , --úú--
                                01100001b,//045  - -úúúú-
                                01010101b,//046  . ú-ú-ú-
                                00110010b,//047  / -úú-ú

                                00111111b,//048  0 -----
                                00101111b,//049  1 ú----
                                00100111b,//050  2 úú---
                                00100011b,//051  3 úúú--
                                00100001b,//052  4 úúúú-
                                00100000b,//053  5 úúúúú
                                00110000b,//054  6 -úúúú
                                00111000b,//055  7 --úúú
                                00111100b,//056  8 ---úú
                                00111110b,//057  9 ----ú

                                01111000b,//058  : ---úúú
                                01101010b,//059  ; -ú-ú-ú
                                00000001b,//060  <                  No usado
                                00110001b,//061  = -úúú-
                                00000001b,//062  >                  No usado
                                01001100b,//063  ? úú--úú
                                01011010b,//064  @ ú--ú-ú

                                00000101b,//065  A ú-
                                00011000b,//066  B -úúú
                                00011010b,//067  C -ú-ú
                                00001100b,//068  D -úú
                                00000010b,//069  E ú
                                00010010b,//070  F úú-ú
                                00001110b,//071  G --ú
                                00010000b,//072  H úúúú
                                00000100b,//073  I úú
                                00010111b,//074  J ú---
                                00001101b,//075  K -ú-
                                00010100b,//076  L ú-úú
                                00000111b,//077  M --
                                00000110b,//078  N -ú
                                00001111b,//079  O ---
                                00010110b,//080  P ú--ú
                                00011101b,//081  Q --ú-
                                00001010b,//082  R ú-ú
                                00001000b,//083  S úúú
                                00000011b,//084  T -
                                00001001b,//085  U úú-
                                00010001b,//086  V úúú-
                                00001011b,//087  W ú--
                                00011001b,//088  X -úú-
                                00011011b,//089  Y -ú--
                                00011100b //090  Z --úú

                               };

//------------------------FIN TABLA MORSE---------------------------------------

const unsigned char dtmf  [16]={                         
                                'D',//
                                '1',//
                                '2',//
                                '3',//
                                '4',//
                                '5',//
                                '6',//
                                '7',//
                                '8',//
                                '9',//
                                '0',//
                                '*',//
                                '#',//
                                'A',//
                                'B',//
                                'C' //
                               };

//------------------------------------------------------------------------------
//
// FUNCIONES DE MANEJO DE DISPLAY
//
//------------------------------------------------------------------------------

void lcd_byte(char data,char control)
{char low,high;
 low=data&15;
 low=low<<4;
 high=data&240;

 if (control!=2){if(control==1){set_bit(high,2);set_bit(low,2);}
                 PORTD=high;
                 delay_ms(1);
                 set_bit(PORTD,3);
                 delay_ms(1);
                 clear_bit(PORTD,3);
                 delay_ms(1);
                 PORTD=low;
                 delay_ms(1);
                 set_bit(PORTD,3);
                 delay_ms(1);
                 clear_bit(PORTD,3);
                 delay_ms(1);
                }
 if (control==2){
                 PORTD=data;
                 delay_ms(1);
                 set_bit(PORTD,3);
                 delay_ms(1);
                 clear_bit(PORTD,3);
                 delay_ms(1);
                }
}

void lcd_reset(void)
{
 lcd_byte( 00001100b,0 );  // Display On/Off
 lcd_byte( 00011000b,0 );  // Display Shift
 lcd_byte( 00000001b,0 );  // Clear Display
 lcd_byte( 00000110b,0 );  // Entry Mode Set
 lcd_byte( 00101000b,0 );  // Funtion Set 4 bits 2 lines
 lcd_byte( 00000010b,0 );  // Return Home
 lcd_byte( 10000000b,0 );  // Set DD Ram Address
}
void lcd_init(void)
{
   delay_ms(250);
   delay_ms(250);

   lcd_byte( 00110000b,2 );
   delay_ms(5);
   lcd_byte( 00110000b,2 );
   delay_ms(1);
   lcd_byte( 00110000b,2 );
   lcd_byte( 00100000b,2 );
}

void mensaje (char mens)
{ 
   char i=0;
  
//   if(mens<20){lcd_reset();}

   if(mens<20){ lcd_byte( 00000001b,0 );  // Clear Display
              }

         //else {lcd_byte( 10101000b,0 );}

// const char *SAMPLE ="0123456789ABCDEF------------------------0123456789ABCDEF";
   const char *texto1 ="   BIENVENIDO                           inicializando...";
   const char *texto2 ="                                        RADIOBALIZA     ";
   const char *texto7 ="                                        CORTE           ";
   const char *texto8 ="                                        VOICE           ";
   const char *texto9 ="                                        PSK             ";
   const char *texto10="                                        SSTV            ";
   const char *texto11="                                        ID CW           ";

   const char *texto20="                  ~ ";


   if(mens==1 ){while(texto1 [i]!=0){lcd_byte(texto1 [i++],1);}}
   if(mens==2 ){while(texto2 [i]!=0){lcd_byte(texto2 [i++],1);}}
   if(mens==3 ){while(texto3 [i]!=0){lcd_byte(texto3 [i++],1);}}
   if(mens==4 ){while(texto4 [i]!=0){lcd_byte(texto4 [i++],1);}}
   if(mens==5 ){while(texto5 [i]!=0){lcd_byte(texto5 [i++],1);}}
   if(mens==6 ){while(texto6 [i]!=0){lcd_byte(texto6 [i++],1);}}
   if(mens==7 ){while(texto7 [i]!=0){lcd_byte(texto7 [i++],1);}}
   if(mens==8 ){while(texto8 [i]!=0){lcd_byte(texto8 [i++],1);}}
   if(mens==9 ){while(texto9 [i]!=0){lcd_byte(texto9 [i++],1);}}
   if(mens==10){while(texto10[i]!=0){lcd_byte(texto10[i++],1);}}
   if(mens==11){while(texto11[i]!=0){lcd_byte(texto11[i++],1);}}
   if(mens==20){while(texto20[i]!=0){lcd_byte(texto20[i++],1);}}
}

void numero( int num )
{

    lcd_byte( 10110100b,0 );//old value 10101101==45

//    lcd_byte( '0' + (num/1000),1);
//    lcd_byte( '0' + (num%1000)/100,1);

//    lcd_byte( ',',1);

//    lcd_byte( '0' + (num%100)/10,1);


    lcd_byte( '0' + (num/100),1);
    lcd_byte( '0' + (num%100)/10,1);
    lcd_byte( '0' + (num%10),1);


}
  

//------------------------------------------------------------------------------
//
// FUNCIONES DE TIEMPO
//
//------------------------------------------------------------------------------

unsigned char segundosDTMF(unsigned int seg)
{

 unsigned char stex1=255;
 unsigned char stex2=255;

 unsigned char dper=0;

 unsigned int sdaux;

 cursor1=0;

 lcd_byte( 00000010b,0 );  // Return Home
 mensaje(20);
 lcd_byte( 00000010b,0 );  // Return Home

 sdaux=seg+1;

 seg=seg*20;

 aux=0;
 aux1=255;
 aux2=0;

 for(gx=0;gx<seg;gx++){
                       
                       if(gx%20==0){

                                    sdaux=sdaux-1;
                                    if(dper==0){numero(sdaux);}
                                    if(dper==1){mensaje(2);}
                                    dper=dper-(dper>0);
                                   }                   

                       clear_wdt();
                       delay_ms(50);
                      
                       aux=(PORTB&10001111b);
                            
                       if(aux>127){
                                   aux1=aux&00001111b;

                                   stex1=dtmf[aux1]; 
                                  
                                   if(stex1!=stex2){
                                                    if(cursor1==16){
                                                                    cursor1=0;
                                                                    lcd_byte( 00000010b,0 );  // Return Home
                                                                    mensaje(20);
                                                                    lcd_byte( 00000010b,0 );  // Return Home
                                                                                   }
                                                    cursor2=128+cursor1;
                                                    lcd_byte(cursor2,0 );                                                               
                                                    lcd_byte(stex1,1);
                                                    cursor1++;
                                                   }
                                   stex2=stex1;
                                                             
                                  }
                       else       {
                                   stex1=255;
                                   stex2=255;
                                  }
                     

                       if((aux1>0)&&(aux1<6)){
                                              if(aux2==0){return (aux1);}
                                             }

                       if((aux1==9)&&(aux2==0))
                                  {
                                   aux2=20;
                                   aux1=255; 
                                  }
                      
                       aux2=aux2-(aux2>0);
                      
                      
                       if(aux1==5){
                                   aux1=255;
                                   if(aux2>0){mensaje(3);dper=15;}
                                   aux2=0;
                                  }

                       if(aux1==6){
                                   aux1=255;
                                   if(aux2>0){mensaje(4);dper=15;}
                                   aux2=0;
                                  }

                       if(aux1==7){
                                   aux1=255;
                                   if(aux2>0){mensaje(5);dper=15;}
                                   aux2=0;
                                  }

                       if(aux1==8){
                                   aux1=255;
                                   if(aux2>0){mensaje(6);dper=15;}
                                   aux2=0;
                                  }
                                                                    
                      }
 aux1=0;

 return 0;

}

unsigned char segundosff(unsigned int seg)
{

 unsigned char stex1=255;
 unsigned char stex2=255;

 unsigned int sfaux;

 unsigned char fper=0;

 cursor1=0;

 lcd_byte( 00000010b,0 );  // Return Home
 mensaje(20);
 lcd_byte( 00000010b,0 );  // Return Home

 sfaux=seg+1;

 seg=seg*20;

 aux=0;
 aux1=255;
 aux2=0;

 for(gx=0;gx<seg;gx++){

                       if(gx%20==0){
                                    sfaux=sfaux-1;
                                    if(fper==0){numero(sfaux);}
                                    if(fper==1){mensaje(2);}
                                    fper=fper-(fper>0);
                                   }      

                       clear_wdt();
                       delay_ms(50);
                      
                       aux=(PORTB&10001111b);
                            
                       if(aux>127){
                                   aux1=aux&00001111b;

                                   stex1=dtmf[aux1];

                                   if(stex1!=stex2){
                                                    if(cursor1==16){
                                                                    cursor1=0;
                                                                    lcd_byte( 00000010b,0 );  // Return Home
                                                                    mensaje(20);
                                                                    lcd_byte( 00000010b,0 );  // Return Home
                                                                   }
                                                    cursor2=128+cursor1;
                                                    lcd_byte(cursor2,0 );                                                                                    
                                                    lcd_byte(stex1,1);
                                                    cursor1++;
                                                   }
                                   stex2=stex1;
                                                             
                                  }
                       else       {
                                   stex1=255;
                                   stex2=255;
                                  }
                      

                       if((aux1==9)&&(aux2==0))
                                  {
                                   aux2=20;
                                   aux1=255; 
                                  }
                      
                       aux2=aux2-(aux2>0);
                      
                      
                       if(aux1==5){
                                   aux1=255;
                                   if(aux2>0){mensaje(3);fper=15;}
                                   aux2=0;
                                  }

                       if(aux1==6){
                                   aux1=255;
                                   if(aux2>0){mensaje(4);fper=15;}
                                   aux2=0;
                                  }

                       if(aux1==7){
                                   aux1=255;
                                   if(aux2>0){mensaje(5);fper=15;}
                                   aux2=0;
                                  }

                       if(aux1==8){
                                   aux1=255;
                                   if(aux2>0){mensaje(6);fper=15;}
                                   aux2=0;
                                  }
                                                                    
                      }
 aux1=0;

 return 0;

}



unsigned char segundosr(unsigned int seg)
{

 seg=seg*20;

 for(gx=0;gx<seg;gx++){
                       clear_wdt();
                       delay_ms(50);
                      
                       aux=(PORTB&10001111b);
                            
                       if(aux>127){
                                   aux=aux&00001111b;
                                   return (aux);}
                      }
 aux=0;

 return 0;
}

void segundosf(unsigned int seg)
{
 seg=seg*10;

 for(gx=0;gx<seg;gx++){
                       clear_wdt();
                       delay_ms(100);
                      }
}

void micropausa(void)
{
 delay_us(frec);
 delay_us(frec);
 delay_us(frec);
 delay_us(frec);
 delay_us(frec);
}
void pausa (unsigned char c)
{
 gbt=wpm;

 for(gbx=0;gbx<c;gbx++)
     {
      clear_wdt();

      while(gbt>0){
                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   micropausa();

                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   micropausa();

                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   micropausa();

                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   micropausa();

                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   micropausa();

                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   micropausa();

                   PORTA=1;
                   PORTA=1;
                   PORTA=1;
                   gbt--;
                   asm{nop} 
                   micropausa();

                   PORTA=1;
                   micropausa();
                  }
     }
}

void punto()
{
 gbt=wpm;

 while(gbt>0){
              PORTA=3;
              PORTA=3;
              PORTA=3;
              PORTA=3;
              micropausa();
 
              PORTA=1;
              PORTA=1;
              PORTA=1;
              PORTA=1;
              micropausa();

              PORTA=3;
              PORTA=3;
              PORTA=3;
              PORTA=3;
              micropausa();

              PORTA=1;
              PORTA=1;
              PORTA=1;
              PORTA=1;
              micropausa();

              PORTA=3;
              PORTA=3;
              PORTA=3;
              PORTA=3;
              micropausa();

              PORTA=1;
              PORTA=1;
              PORTA=1;
              PORTA=1;
              micropausa();

              PORTA=3;
              PORTA=3;
              PORTA=3;
              gbt--;
              asm{nop} 
              micropausa();

              PORTA=1;
              micropausa();
             }
 pausa(1);
}

void raya()
{
 gbt=3*wpm;

 while(gbt>0){
              PORTA=3;
              PORTA=3;
              PORTA=3;
              PORTA=3;
              micropausa();

              PORTA=1;
              PORTA=1;
              PORTA=1;
              PORTA=1;
              micropausa();

              PORTA=3;
              PORTA=3;
              PORTA=3;
              PORTA=3;
              micropausa();

              PORTA=1;
              PORTA=1;
              PORTA=1;
              PORTA=1;
              micropausa();
 
              PORTA=3;
              PORTA=3;
              PORTA=3;
              PORTA=3;
              micropausa();
 
              PORTA=1;
              PORTA=1;
              PORTA=1;
              PORTA=1;
              micropausa();

              PORTA=3;
              PORTA=3;
              PORTA=3;
              gbt--;
              asm{nop} 
              micropausa();

              PORTA=1;
              micropausa();
             }
 pausa(1);
}

void codec(unsigned char letra)
{
 unsigned char c=7,x;

 letra=letra&0x7F;
 morse=Table[letra-0x20];

 if(morse==0){morse=1;}

 while(morse<0x80){morse=morse<<1;c--;}
 morse=morse<<1;

// ú                    1 unidad   de tiempo
// -                    3 unidades de tiempo
// gap intra caracter   1 unidad   de tiempo
// gap entre caracteres 3 unidades de tiempo
// gap entre palabras   7 unidades de tiempo
//
// cada punto o raya termina con un gap de 1 para encadenarlo
// con el siguiente simbolo del caracter
// por eso agrego un gap de 2 al final para completar los 3
// luego de cada caracter
//
// de la misma manera agrego 4 para completar los 7 entre palabras
//

 if(c==0){pausa(4);}    //3 del gap de la ultima letra mas 4 = 7

 else    {
          for(x=0;x<c;x++){if(morse<0x80){punto();} else {raya();}
                           morse=morse<<1;
                          }
          pausa(2);
         }
}

void codecc(unsigned char cletra)
{

 if(cletra==0x20){
                  codec(cletra);
                  codec(cletra);
                  codec(cletra);
                  codec(cletra);
                  codec(cletra);
                 }
 else            {
                  codec(cletra);
                 }

}

void tx_morse(unsigned const char *texto)
{
 unsigned char x=0;

 cursor1=0;
 cursor2=0;

 lcd_byte( 00000010b,0 );  // Return Home
 mensaje(20);                                                       
 lcd_byte( 00000010b,0 );  // Return Home                                            

 while(texto[x]!=0){
                    codecc(texto[x]);

                    if(cursor1==16){
                                    cursor1=0;
                                    lcd_byte( 00000010b,0 );  // Return Home
                                    mensaje(20);                                                       
                                    lcd_byte( 00000010b,0 );  // Return Home                                            
                                   }
                                                              
                    lcd_byte(texto[x],1);x++;                  
                                      
                    cursor1++;
                   }

}


void inicio_var(void)
{

 frec=20000/frecuencia;
 frec=frec*5;


 gx=frec*40/1000;          //periodo del loop (T*4)      

 gx=palabrasxm*frec;

 wpm=30000/gx;

 if(wpm>85){wpm=85;}

 if(frec<100){frec=100;}

}
void power_on(void)
{
 PORTA=5;
 clear_wdt();
 delay_ms(250);
 clear_wdt();
 PORTA=1;
 delay_ms(250);
 clear_wdt();
}
void power_off(void)
{
 clear_wdt();
 delay_ms(250);
 clear_wdt();
 delay_ms(250);
 clear_wdt();
 PORTA=0;
}

//******************************************************************************
void sstv(void)
{

 mensaje(10);

 power_on();

 clear_bit(PORTB,6);

 clear_wdt();
 delay_ms(250);
 clear_wdt();
 delay_ms(250);
 clear_wdt();
 delay_ms(250);

 set_bit (PORTB,6);

 segundosf(40);

 power_off();

}
//******************************************************************************
void psk(void)
{

 mensaje(9);

 power_on();

 clear_bit(PORTB,4);

 clear_wdt();
 delay_ms(250);
 clear_wdt();
 delay_ms(250);
 clear_wdt();
 delay_ms(250);

 set_bit (PORTB,4);

 segundosf(18);

 power_off();

}
//******************************************************************************
void voice(void)
{
 mensaje(8);

 power_on();

 clear_bit(PORTB,5);

 clear_wdt();
 delay_ms(250);
 clear_wdt();
 delay_ms(250);
 clear_wdt();
 delay_ms(250);

 set_bit (PORTB,5);

 segundosf(11);

 power_off();

}
//******************************************************************************
void callsign(void)
{
  mensaje(11);         

  power_on();
           
  tx_morse("VVV LU1FBT ");
  tx_morse("LU4FHJ LU6FPJ ");
  tx_morse("FF97QB ");

  power_off();

}
//******************************************************************************
void callqap(void)
{
  mensaje(7);
         
  power_on();
  tx_morse("  QAP  ");
  power_off();

}
//******************************************************************************

void main(void)
{  
 unsigned char maux=2;

cursor1=0;

cursor2=0;

//------------------------------------------------------------------------------
//
// SETEO DE PUERTOS
//
//------------------------------------------------------------------------------


 asm
    {
     bsf STATUS,RP0
     movlw b'10000110'
     movwf ADCON1

     movlw b'00000000'
     movwf TRISD

     bcf STATUS,RP0
    }       


 set_bit( STATUS, RP0 );

 set_tris_a( 00000000b );
 set_tris_b( 10001111b );

 OPTION_REG= 11111111b;

 clear_bit( STATUS, RP0 );

 PORTA=0;
 PORTD=0;

 PORTB=01110000b;

 clear_wdt();

 inicio_var();

 lcd_init();
 
 lcd_reset();

 mensaje(1);

 segundosf(2);   

 mensaje(2);

 segundosf(2);   

 callsign();

 mensaje(2);
               

 while(1){

          if(segundosDTMF(180)!=0){maux=aux1;}

          if(maux==1){callqap();segundosff(300);maux=2;}

          if(maux==2){voice()   ;}
          if(maux==3){psk()     ;}
          if(maux==4){sstv()    ;}
          if(maux==5){callsign();}

          mensaje(2);

          maux++;if(maux>5){maux=2;}
         


         }



            
}

El 18 de abril de 2012 se celebra el Día Mundial del Radioaficionado en el 87 aniversario de la fundación de la International Amateur Radio Union, IARU.

El tema de este año para el Día Mundial del Radioaficionado es “Satélites de Radioaficionado: Celebrando 50 años en el espacio” para recordar el lanzamiento del OSCAR 1 el 12 de diciembre de 1961 y el lanzamiento del OSCAR 2 el 2 de Junio de 1962.


Por tal motivo estarán activas algunas estaciones especiales de Sociedades Miembro de IARU durante el mes de abril:

6H6IARU por la Federación Mexicana de Radioexperimentadores quien la ha encargado su operación al Grupo DXXE. Esta estación estará activa del 13 al 18 de abril en todos los modos y bandas. QSL vía LoTW y N7RO, directo y buró.  El log se subirá diariamente a ClubLog.

3G87IARU por el Radio Club de Chile que estará activa todo el mes de abril.  QSL vía CE3AA.
LZ1WARD por la Federación de Radioaficionados de Bulgaria que igualmente estará activa todo el mes de abril.  QSL vía buró.

Deseamos a las estaciones participantes muchos contactos.

http://www.iaru-r2.org/dia-mundial-del-radioaficionado-2/

"En un mundo en cambio constante, tenemos que aprovechar al máximo la capacidad de la radio para conectar gentes y sociedades, para compartir conocimientos e información y para reforzar el entendimiento"
El Día Mundial de la Radio es una oportunidad para reconocer el prodigio de la radio y aprovechar su poder en beneficio de todos", dijo la Directora General de la UNESCO, Irina Bokova, en su mensaje con motivo del primer Día Mundial de la Radio.
El 3 de noviembre de 2011, durante la 36ª Conferencia General, la UNESCO reconoció el "poder de cambio de la radio" al establecer el Día Mundial de la Radio, el 13 de febrero.
En esta fecha, en 1946, comenzaron las emisiones de la Radio de las Naciones Unidas. Inicialmente, esta idea vino de la Academia Española de la Radio y fue presentada formalmente por la Delegación Permanente de España ante la UNESCO durante la 187ª sesión del Consejo Ejecutivo de la UNESCO, en septiembre de 2011.
Desde la primera emisión, hace más de 100 años, la radio ha demostrado ser una poderosa fuente de información para movilizar cambios sociales y eje central para la vida comunitaria. Es el medio de comunicación que puede llegar a más audiencia en el mundo. En la era de las nuevas tecnologías, la radio sigue siendo la plataforma más accesible del mundo.
La tecnología de la radio, que empezó siendo "telegrafía sin cables", debe su desarrollo a dos otras invenciones: el telégrafo, precisamente, y el teléfono. Desde finales del siglo XIX, cuando se consiguió hacer las primeras retransmisiones con éxito, y hasta hoy en día, la radio sigue siendo un importante medio de comunicación. Con la llegada de las nuevas tecnologías y la convergencia de los medios, la radio está cambiando y está presente en nuevas plataformas como la banda ancha de internet, los móviles y las tabletas digitales. En la era digital la radio sigue siendo relevante ya que la gente sigue sintonizándola a través de las computadoras, los satélites y los aparatos móviles.
La radio es especialmente adecuada para llegar a comunidades remotas y marginalizadas y, al mismo tiempo, sigue siendo una excelente plataforma para compartir información y promover el debate público. La radio juega un papel importante en la comunicación en casos de emergencia y en los esfuerzos de socorro en casos de desastres. También, se trata de uno de los medios más importantes para facilitar el acceso al conocimiento, promover la libertad de expresión y fomentar el respeto mutuo y el entendimiento multicultural.
El Día de la Radio tiene por objetivo concienciar sobre la importancia de la radio y animar a los gobiernos a dar acceso a la información a través de la radio y a mejor las redes de trabajo y cooperación internacionales entre los organismos de radiodifusión.
Fuente: unesco.org


Proclamación del Día Mundial de la Radio
La Conferencia General,
Habiendo examinado el documento 36 C/63 y la Decisión 187 EX/13,
Acogiendo con satisfacción los resultados del estudio de viabilidad sobre la proclamación de un día mundial de la radio presentado por la Directora General,
Reconociendo la contribución de los destacados científicos que sentaron las bases tecnológicas de la transmisión a larga distancia de mensajes sonoros por ondas de radio,
Teniendo presente que la celebración de un día mundial de la radio promoverá una mayor toma de conciencia del público y los medios de comunicación acerca de la importancia de la radio y favorecerá la constitución de redes y la cooperación internacional entre organismos de radiodifusión
Convencida de que la celebración de este Día incitará a los responsables de la adopción de decisiones y a todos quienes trabajan en el ámbito de la radiodifusión en sus diversas formas a crear y ofrecer acceso a la información por medio de la radio, entre otras cosas mediante radios comunitarias, y a diversificar el contenido de los programas para que todos puedan beneficiarse,
1. Proclama Día Mundial de la Radio el 13 de febrero, día en que las Naciones Unidas crearon la Radio de las Naciones Unidas en 1946;
2. Exhorta a los Estados Miembros de la UNESCO a que celebren este Día organizando actividades en los planos local y nacional, con la participación de las comisiones nacionales, organizaciones no gubernamentales, el público en general y diversas instituciones (escuelas, universidades, municipios, ciudades, organismos de radiodifusión, órganos de prensa, asociaciones y sindicatos de profesionales, museos y organizaciones culturales, entre otros);
3. Invita a las organizaciones y uniones nacionales, regionales e internacionales de radiodifusión y a los medios de comunicación en general a velar por una celebración fructífera del Día Mundial de la Radio dedicándolo, según convenga, a actividades educativas, culturales o de sensibilización pública;
4. Invita a la Directora General a alentar toda iniciativa nacional, regional e internacional que se emprenda en este sentido;
5. Pide a la Directora General que señale la presente resolución a la atención del Secretario General de las Naciones Unidas para que la Asamblea General de las Naciones Unidas en su sexagésimo séptimo periodo de sesiones (septiembre de 2012) pueda hacer suyo el Día Mundial de la Radio.
36ª Conferencia General de la UNESCO
París, 25 de octubre - 10 de noviembre de 2011
Declaración ONU Sobre los Derechos de los Pueblos Indígenas
"Artículo 16
1. Los pueblos indígenas tienen derecho a establecer sus propios medios de información en sus propios idiomas y a acceder a todos los demás medios de información no indígenas sin discriminación alguna.
2. Los Estados adoptarán medidas eficaces para asegurar que los medios de información públicos reflejen debidamente la diversidad cultural indígena. Los Estados, sin perjuicio de la obligación de asegurar plenamente la libertad de expresión, deberán alentar a los medios de comunicación privados a reflejar debidamente la diversidad cultural indígena."

15 ideas para celebrar el Día Mundial de la Radio

1. Ayude a transmitir el mensaje de la Directora General de la UNESCO con motivo del Día Mundial de la Radio en todas las emisoras públicas, privadas y comunitarias.
2. Elija un tema relacionado con la radio y produzca un programa radial o un breve mensaje de servicio público para difundirlo regularmente el 13 de febrero de 2012.
3. Organice breves debates radiotelevisivos junto con los interesados (emisoras, legisladores, profesores universitarios, abogados) sobre la importancia de la radio en la vida de los ciudadanos.
4. Organice programas radiales con llamadas de los oyentes en los que la audiencia y la comunidad den su opinión sobre la importancia de la radio y cuenten cuáles son los mejores momentos radiales que recuerdan.
5. Entreviste a personalidades del mundo de la radio en su país y dé a conocer la entrevista de la UNESCO a una de ellas.
6. Difunda nuestra colección de fragmentos de entrevistas sobre momentos célebres de la UNESCO.
7. Difunda las grabaciones de la UNESCO sobre la proclamación del Día Mundial de la Radio.
8. Descargue, exhiba y distribuya la reciente publicación de la UNESCO “Prácticas idóneas en los medios de comunicación comunitarios”.
9. Exponga y distribuya Programas informáticos gratuitos para la programación y planificación radiales a través del portal de programas informáticos gratuitos de la UNESCO.
10. Exponga y distribuya programas informáticos de enseñanza radiofónica de la Plataforma de formación abierta de la UNESCO Producción de programas de radio en la Plataforma de formación abierta
11. Exponga y distribuya material gratuito de la UNESCO sobre radiodifusión - Publicaciones sobre medios de comunicación comunitarios - Cómo comenzar y continuar: Una guía para los Centros Multimedia Comunitarios - Publicaciones relacionadas con la radiodifusión - Publicaciones elaboradas o patrocinadas por el Sector de Comunicación e Información de la UNESCO 
12. Colabore con la UNESCO en el lanzamiento de su publicación “Medios de comunicación comunitarios: Manual de Buenas Prácticas”
13. Únase a la Comisión Nacional para la UNESCO de su país para participar en la celebración del Día - Sobre las Comisiones Nacionales para la UNESCO
14. Anime a todos los responsables de sitios web de diarios, radios o televisiones a que pongan un anuncio publicitario sobre el Día Mundial de la Radio el 13 de febrero.
15. Celebre este día junto con la Asociación Mundial de Radios Comunitarias (AMARC) o con asociaciones locales de radios comunitarias.

This fly around of the International Space Station (ISS) is displayed in the "Moving Beyond Earth" exhibition at the National Air and Space Museum on the National Mall in Washington, DC. Displayed as a 30ft x 18ft projection, the HD animation highlights the major components of the ISS.
Video courtesy of NASA's VR Lab.