dim T , K as byte    ' متغيرات

 
main:
 

ADCON1 = $07         'نتعامل مع منافذ a , e نتعامل مع
trisa  = 0           ' منفذ خرج البيانات
trise  = $ff         ' منفذ دخل العنوان
trisb = 1            ' دخل مفتاح العداد
lop1:                ' بداية البرنامج الرئيسى
if portb.0 = 1 then  ' إذا تم الضغط على المفتاح زد المتغير بمقدار 1
if K = 1 then
K = 0
T = T + 1          ' هنا يخزن عدد الضغطات
if T > 99 then
 T = 0
end if
end if
end if
if portb.0 = 0 then  'يتم إلغاء حذر المفتاح عند عدم الضغط المتواصل
K = 1
end if
if porte = 1 then    'فى حالة طلب 1 قم بإرسال 
porta = 1 + ( T div 10 ) mod 10 'خانة العشرات مضاف لها 1
else if porte = 2 then  ' فى حالة طلب 2 قم بإرسال 
 porta = 1 + T mod 10  ' خانة الأحاد مضاف لها 1
else porta = 0  ' ما عدا ذلك من الطلبات قف عن الإرسال
end if
end if
 

goto lop1

dim T , K as byte    ' متغيرات 

 
main:


ADCON1 = $07         'نتعامل مع منافذ a , e كمنافذ رقمية
trisa  = 0           ' منفذ خرج البيانات
trise  = $ff         ' منفذ دخل العنوان
trisb = 1          ' دخل مفتاح العداد
lop1:               ' بداية البرنامج الرئيسى
if portb.0 = 1 then  ' إذا تم الضغط على المفتاح زد المتغير بمقدار 1
if K = 1 then
 K = 0
T = T + 1          ' هنا يخزن عدد الضغطات
if T > 99 then
  T = 0
 end if
end if
end if
if portb.0 = 0 then  'يتم إلغاء حذر المفتاح عند عدم الضغط المتواصل
K = 1
end if
if porte = 3 then   'فى حالة طلب 3 قم بإرسال 
porta = 1 + ( T div 10 ) mod 10 'خانة العشرات مضاف لها 1
 else if porte = 4 then ' فى حالة طلب 4 قم بإرسال 
 porta = 1 + T mod 10 ' خانة الأحاد مضاف لها 1
 else porta = 0 ' ما عدا ذلك من الطلبات قف عن الإرسال
end if
end if
goto lop1