Device = 16F628A ; Produce code for a 16F628a device
Declare Xtal = 4 ; 4MHz oscillator
TRISB =%00000000     ; converts all Port B pins outputs
Disco:                        ; name of the subroutine
PORTB =%00000001        ; lights B.0 port, others remain off
GoSub Delay             ; Delay subroutine and go back when you say RETURN
PORTB =%00000010     ; lights B.1 port, others are off
GoSub Delay             ; go to subroutine and return time when you say RETURN
PORTB =%00000100     ; lights B.2 port, others are off
GoSub Delay             ; Delay subroutine and go back when you say RETURN
PORTB =%00001000     ; lights B.3 port, others are off
GoSub Delay             ; Delay subroutine and go back when you say RETURN
PORTB =%00010000     ; lights B.4 port, others are off
GoSub Delay         ; Delay subroutine and go back when you say RETURN
PORTB =%00100000  ; lights B.5 port, others are off
GoSub Delay         ; Delay subroutine and go back when you say RETURN
PORTB =%01000000  ; lights B.6 port, others are off
GoSub Delay         ;Delay subroutine and go back when you say RETURN
PORTB =%10000000  ; lights B.7 port, others are off
GoSub Delay         ;Delay subroutine and go back when you say RETURN
GoTo Disco           ; go to beginning of program

Delay:                    ;this is the subroutine pedro
DelayMS 1000                ; delay of 200 milliseconds, here we can change
Return; back to the GOSUB that sent
End

Dim Variable as Size

' Declare the variables all as Byte sized
Dim A, B, My_Var1, fred, cat, zz

' Declare different sized variables
Dim Var1 as Byte ' Declare an 8-bit Byte sized variable
Dim Wrd1 as Word ' Declare a 16-bit Word sized variable
Dim Dwrd1 as Dword ' Declare a signed 32-bit Dword sized variable
Dim BitVar as Bit ' Declare a 1-bit Bit sized variable
Dim Flt as Float ' Create a 32-bit floating point variable
Dim StrnG as String*20 ' Create a 20 character string variable

Dim MyVar as Byte
or
Dim MY_Var as Word
or
Dim My_Var2 as Bit

Dim Var1 as Byte ' Declare a Byte sized variable
Dim Var_Bit as Var1.1 ' Var_Bit now represents Bit-1 of Var1

For Variable = Startcount to Endcount [ Step { Stepval } ]
{code body}
Next

' Display in decimal, all the values of Wrd within an upward loop
Dim Wrd as Word
For Wrd = 0 to 2000 Step 2 ' Perform an upward loop
Print Dec Wrd ," " ' Display the value of Wrd
Next ' Close the loop

' Display in decimal, all the values of Wrd within a downward loop
Dim Wrd as Word
For Wrd = 2000 to 0 Step -2 ' Perform a downward loop
Print Dec Wrd ," " ' Display the value of Wrd
Next ' Close the loop

' Display in decimal, all the values of Dwrd within a downward loop
Dim Dwrd as Dword
For Dwrd = 200000 to 0 Step -200 ' Perform a downward loop
Print Dec Dwrd ," " ' Display the value of Dwrd
Next

' Display all of Wrd1 using a expressions as parts of the For-Next construct
Dim Wrd1 as Word
Dim Wrd2 as Word
Wrd2 = 1000
For Wrd1= Wrd2 + 10 to Wrd2 + 1000 ' Perform a loop
Print Dec Wrd1," " ' Display the value of Wrd1
Next ' Close the loop

For Var1 = 0 to 20 ' Create a loop of 21
If Var1 = 10 Then Goto BreakOut ' Break out of loop when Var1 is 10
Next ' Close the loop
BreakOut:
Stop

Dim Repeated as BYTE        ;First create variable name:" Repeated ", size:BYTE

FOR Repeated = 1 TO 5 
; Execute the following instructions 5 times to where it says NEXT
; and once completed the repetitions continues with the statement that is
; after NEXT, Repeated should be created as a variable, 
;i.e. assign a memory space.
NEXT

Dim Repeated as BIT; creates a variable and assigns a size of a bit : 0 or 1
Dim Repeated as BYTE; creates a variable and assigns a size of 8 bits i.e. 0-255
Dim Repeated as WORD; creates a variable and assigns a size of 2 bytes is 0 to 65535

Dim Repeated as BYTE; make Repeated variable and assigns a memory space of 0-255
Dim Led1 as PORTB.0         ; Led1 names assigned to pin B.0
Start:
FOR Repeated = 1 TO 5       ; for repeat 1-5 times
HIGH Led1                            ; turn on the LED
DelayMs 500                          ; wait 0.5 seconds
LOW Led1                             ; turn off the LED
DelayMs 500                          ; wait 0.5 seconds
NEXT                                     ; next iteration is repeated until = 5

 
DelayMs 2000                        ; wait 2 seconds
 
FOR Repeated = 1 TO 3       ; for repeat 1-3 times
HIGH Led1                            ; turn on the LED
DelayMs 500                          ; wait 0.5 seconds
LOW Led1                             ; turn off the LED
DelayMs 500                          ; wait 0.5 seconds
NEXT                                     ; next repetition until it is repeated = 3
 
 
DelayMs 3000                        ; wait 3 seconds
 
GOTO Start                          ; go to Start
END                                        ; end of programming

Dim Value1 as Word
Dim Loop as Byte
Value1 = %1111111111111111
For Loop = 1 to 16 ' Repeat with b0 = 1 to 16.
Print Bin Value1 << Loop ' Shift Value1 left Loop places.
Next

Dim Value1 as Word
Dim Loop as Byte
Value1 = %1111111111111111
For Loop = 1 to 16 ' Repeat with b0 = 1 to 16.
Print Bin Value1 >> Loop ' Shift Value1 right Loop places.
Next

LEDS = LEDS << 1

LEDS= LEDS << = 2 

LEDS = LEDS >> 1

Device = 16F628A ; Produce code for a 16F628a device
Declare Xtal = 4 ; 4MHz oscillator
Dim x as BYTE                      ; variable x , size 255 
Dim LEDS as PORTB           ; port B called LEDS
TRISB = 0                              ; make all port B AS outputs 
LEDS = 1                                ; Load port B with  1 (% 00000001)
Start:
FOR x = 1 TO 7                     ;  FOR …NEXT to repeat 7 times
LEDS = LEDS << 1               ; move one place the left
DelayMs 200                          ; wait 200 milliseconds
NEXT                                     ; repeat until x is = to 7
FOR x = 1 TO 7                     ; repeat 7 times
LEDS = LEDS >> 1               ; move one place to the right
DelayMs 200                          ; wait 200 milliseconds
NEXT                                     ; repeat until x is = to 7
GOTO Start                          ;go to Start
END                                        ; end of programming

الله يخليك لينا يا مشرفنا العزيز شرح ممتاااااااز
ياحبذا لو تشرح كيفية استخدام المنافذ التناظرية بالبروتون لاني حاولت استخدم
An1 و An3 معاً ولكن البروتس يقول لي انني لم استخدم المنفذ An3 كمدخل تناظري !

كل ما أحتاجه هو شرح كيفية ضبط المنافذ التناظرية كدخل " و إستخدام أكثر من مدخل
في وقت واحد "
هذا الكود يستخدم لضبط المنافذ التناظرية في Pic16f877a وبه خطأ ما لأنني لست خبير بالبرمجة الآن " فأنا إنتهيت من مرحلة الثانوية العامة في مصر وداخل على الجامعة "
يعطيك العافية
وكل عام وحضرتك بخير

ويا حبذا لو تشرح لنا كيفية ضبط إعدادات pic16f628a للعمل على المذبذب الداخلي بدلاً من الخارجي

اقتباس المشاركة الأصلية كتبت بواسطة Omar Mekkawy الله يخليك لينا يا مشرفنا العزيز شرح ممتاااااااز ياحبذا لو تشرح كيفية استخدام المنافذ التناظرية بالبروتون لاني حاولت استخدم An1 و An3 معاً ولكن البروتس يقول لي انني لم استخدم المنفذ An3 كمدخل تناظري ! كل ما أحتاجه هو شرح كيفية ضبط المنافذ التناظرية كدخل " و إستخدام أكثر من مدخل في وقت واحد " هذا الكود يستخدم لضبط المنافذ التناظرية في Pic16f877a وبه خطأ ما لأنني لست خبير بالبرمجة الآن " فأنا إنتهيت من مرحلة الثانوية العامة في مصر وداخل على الجامعة " كود: TRISA = %11011011 كود: ADCON1= %10001110 يعطيك العافية وكل عام وحضرتك بخير

أخى الكريم

شكرا جزيلا لك

وكل عام وأنت بألف خير

إن شاء الله نتناول التحويل من تناظرى لرقمى بالتفصيل

مع تمنياتى بدوام التوفيق