این کد برای پین سی صفر نوشتم برای یه پرت رو نمیدونم جواب بده یا نه تست کنید اگه زمان روشن شدن و خاموش شدنش کم یا زیاد متغیر 100000 رو کم زیاد کنید
$regfile = "m8def.dat"
$crystal = 8000000
Config Portc.0 = Output
Dim A As Integer
For A = 0 To 100000
Do
Set Portc.0
Waitus A
Reset Portc.0
Waitus 500
Next
Loop
کد ساده اش هم اینه میتونید استفاده کنید
For A = 0 To 10000
Set Portc.1
Waitus A
Reset Porta.0
Waitus 500
next