//Set variables
 char analog;       /تحديد المتغيرات

void main()
 {

  UART1_init(9600);                             // Initialize UART1 module 
نعمل انيشيال لل UART
  Delay_ms(100);
  

      UART1_Write_Text("$$$");                  // Enter command mode 
بهذا الامر"$$$"نجعل البلوتوث يدخل في وضع الكومند مود
      Delay_ms(100);

      UART1_Write_Text("SN,Bluetooth-Master");  // Name of device 
هنا نقوم بتحديد اسم جهاز البلوتوث
      
      Delay_ms(100);
هنا نقوم بتحديد المود الخاص بالبلوتوث وهو طبعاً هنا Master
      UART1_Write_Text("SM,1");                 // Set mode (0 = slave, 1 = master, 2 = trigger, 3 = auto, 4 = DTR, 5 = ANY)
      Delay_ms(100);
 الان نقوم بالغاء الاوثنتكيشن لان البلوتوث سوف يتصل بجهاز واحد لا غير
      UART1_Write_Text("SA,0");                 // Authentication (1 to enable, 0 to disable)
      Delay_ms(500);
هنا نقوم باعطاء امر الكونكشن للبلوتوث لكي يتصل بالبلوتوث الاخر ونقوم بأدخال الـMAC number الخاص بالبلوتوث الذي نريد الاتصال به في مكان الـ Xs التي كتبتها وهذا الرقم يكون عادتاً مكتوباً عليه
      UART1_Write_Text("C,xxxxxxxxxxxx");      //Connect to the remote address
      
      Delay_ms(100);
  while(1){
الان نقوم باخذ القيم من الـ ADC ثم نرسلها الى الـ UART وسوف ترسل بالبلوتوث
 analog = ADC_Read(2);    // read analog value from ADC module channel 2
 UART1_Write(analog);          // Write the value of analog input to the UART1
 Delay_ms(500);
 }}

// LCD module connections
sbit LCD_RS at RB4_bit;
sbit LCD_EN at RB5_bit;
sbit LCD_D4 at RB0_bit;
sbit LCD_D5 at RB1_bit;                                              
sbit LCD_D6 at RB2_bit;
sbit LCD_D7 at RB3_bit;

sbit LCD_RS_Direction at TRISB4_bit;
sbit LCD_EN_Direction at TRISB5_bit;
sbit LCD_D4_Direction at TRISB0_bit;
sbit LCD_D5_Direction at TRISB1_bit;
sbit LCD_D6_Direction at TRISB2_bit;
sbit LCD_D7_Direction at TRISB3_bit;                         هذه تعريفات الشاشة
// End LCD module connections

//Set variables                هنا نقوم بتحديد المتغيرات
char txt[17];
char tmp;                                   
int val;
// Uart Rx interrupt handler               هذه دالة المقاطعة للـ UART 
void interrupt(){

  if (PIR1.RCIF == 1) {                          // Do we have uart rx interrupt request?
    tmp = UART1_Read();                          // Get received byte
    }}
void main() {                                          
ANSEL  = 0;                        // Configure AN pins as digital I/O
  ANSELH = 0;
  C1ON_bit = 0;                      // Disable comparators
  C2ON_bit = 0;



// Enable uart rx interrupt                  وهنا قمنا بتفعيل المقاطعه بالنسبة للـ UART 
  PIE1.RCIE   = 1;
  INTCON.PEIE = 1;
  INTCON.GIE  = 1;

  LCD_Init();                                   // LCD Init
  LCD_Cmd(_LCD_CLEAR);
  Lcd_Cmd(_LCD_CURSOR_OFF);

  Lcd_Out(1,1,"Connecting!");
  Lcd_Out(2,1,"Please, wait...");

  UART1_init(9600);                             // Initialize UART1 module
  Delay_ms(500);
  
الان نجعل البلوتوث موجيول يدخل في وضع الكوماند
        UART1_Write_Text("$$$");                   // Enter command mode
      Delay_ms(500);
  الان نقوم بأعطاء اسم لجهاز البلوتوث وليكن اي اسم انت تحب
      UART1_Write_Text("SN,Bluetooth-Slave");   // Name of device
      Delay_ms(500);

هذا الكود يقوم بوضع الحرف M في كلمة connected فتصبح Mconnected وهذه الكلمه سوف يرجعها لنا البلوتوث عندما تتم عمليت الكونكشن
وكذلك عند فصل عملية الكونكشن سوف يعطينا هذه الكلمة Mdisconnected فانت تستطيع اضافة اي حرف او كلمة انت تريد فانا اضفت حرف M 
      UART1_Write_Text("SO,M");             // Extended status string
      Delay_ms(500);
هنا سوف نحدد وضع البلوتوث وهنا طبعاً هو slave
      UART1_Write_Text("SM,0");                 // Set mode (0 = slave, 1 = master, 2 = trigger, 3 = auto, 4 = DTR, 5 = ANY)
      Delay_ms(500);
هنا نلغي عملية الاوثنتكيشن لانن لا نحتاج اليها لانه لدينا جهازي بلوتوث فقط 
      UART1_Write_Text("SA,0");                 // Authentication (1 to enable, 0 to disable)
      Delay_ms(500);
الان نقوم بالخروج من وضع الكوماند 
     UART1_Write_Text("---");                   // End command mode
     Delay_ms(500);
     while(tmp !='M') {};                        هنا يبقى الـ PIC ينتضر من البلوتوث ليعلمه باتمام عملية الكونكشن عن طريق ارسال كلمة
                                                             Mconnect وهنا سوف نستخدم الحرف M فقط فهو كافي ولا داعي للتحقق من الكلمة بالكامل
                             //Waite to connect    
  LCD_Cmd(_LCD_CLEAR);
  Lcd_Out(1,1,"Connected!");   نظهر على الشاشة كلمة !Connected
  Delay_ms(1000);
  LCD_Cmd(_LCD_CLEAR);                          // Clear display
  Lcd_Out(1,1,"Receiving...");   نظهر على الشاشة كلمة Receiving
  Delay_ms(1000);
  while(1){
  LCD_Cmd(_LCD_CLEAR);
  Lcd_Out(1,1,"temperature=");     نظهر على الشاشة كلمة temperature
  val = tmp;           الان ناخذ القيمه المستلمة من البلوتوث ونضعا على متغير
  val=(val*5)/10;   الان نقوم بتصحيح القيمة 
  IntToStr(val,txt);   نحولها الى سترنك ليمكن عرضها على الشاشة
  Lcd_Out(2,1,txt);
  Delay_ms(1000);
  }}