تبدیل برنامه ها مثلا سی به بیسیک یا برعکس

[iranesabz]

با خودم گفتم یه چنین پستی برای سوالات آسون شاید بدرد بخور باشه
سلام دوستان من چند روزه دارم با تایمر کانتر ها در سی کلنججار میرم ولی هی مشکل دارم
اگر دوستان لطف کنند و برنامه زیر رو برام به سی بنویسند خیلی سپاس گذار میشم
$regfile = "m32def.dat"
$crystal = 8000000
Config porta=output
Config portb.1=output
Dim I As Byte , Saneye As Byte , p as byte , k as byte
Config Timer0 = Timer , Prescale = 256
Enable Interrupts
Enable Timer0
On Timer0 L1
Timer0 = 6
Start Timer0
Lcd Saneye
Do
D = 1
For I = 1 to 8
Porta=d*2
Waitms 30
next
Loop
End
L1:
Incr k
If k= 125 Then
Stop Timer0
k = 0
toggle portb.1
Timer0 = 6
Start Timer0
End If
Return

[iranesabz]

پاسخ : تبدیل برنامه ها مثلا سی به بیسیک یا بر&#1593

$regfile = "m32def.dat"
$crystal = 8000000
Config porta=output
Config portb.1=output
Dim I As Byte , Saneye As Byte , p as byte , k as byte
Config Timer0 = Timer , Prescale = 256
Enable Interrupts
Enable Timer0
On Timer0 L1
Timer0 = 6
Start Timer0
Lcd Saneye
Do
D = 1
For I = 1 to 8
Porta=d*2
Waitms 30
next
Loop
End
L1:
Incr k
If k= 125 Then
Stop Timer0
k = 0
toggle portb.1
Timer0 = 6
Start Timer0
End If
Return

اینم به سیش

#include <mega32.h>
#include <delay.h>
int count=0;
void main()
{
#asm("sei&quot
//SREG=SREG|0b10000000;
TCCR0=0x04;
TCNT0=0x06;
TIMSK=0x01;
DDRA=DDRA|0x01;
PORTA=PORTA&0xFE;
DDRB=DDRB|0x01;
PORTB=PORTB&0xFE;
while (1)
{
PORTA=PORTA^0x01;
delay_ms(30);
}
}
interrupt [TIM0_OVF] void timer0_ovf_isr(void)
{
count++;
if (count>125)
{
count=0x00;
PORTB=PORTB^0x01;
}
TCNT0=0x06;
}