Selamlar. mcu.cz/atm adresi kapalı durumda, acaba pcm 3.146 veya daha üstü versionu+reg dosyalarını bulabileceğim bir yer varmıdır. Acil bir şekilde gerekiyor. İlgilenen olursa çok sevinirim.
Not: Elinde olan varsa email atarsa sevinirim.
Hmm. Evet buldum. Genede ilginize teşekkür ederim..
#include <16f84.H>
#use delay(clock=4000000)//Dİmmer 50Hz normal çalıstı
#fuses XT, NOWDT, NOPUT, NOPROTECT
#BYTE PORT_A=0X05
#BYTE PORT_B=0X06
#define gate_1 pin_a1 //Moc3021 to triac
#define up pin_a2
#define dwn pin_a3
/*************************entegreterbiyecisi@yahoo.com******************************/
int8 trig,stept=0,stept_data;
short stept_say=0,data_bitti;
/*************************entegreterbiyecisi@yahoo.com******************************/
#int_ext //zero cross in b0
zero_cross(){ext_int_edge( h_to_l );
set_timer0(205);
enable_interrupts(int_timer0);}
/***entegreterbiyecisi@yahoo.com***/
#int_timer0
triger(){ //10mS 1/2 cycle/100adim=10000/100=100uS
set_timer0(205);//100us*100adim=10mS max
if(trig){
trig--;
stept_say=true;}
else{disable_interrupts(int_timer0);
trig=100;}}
/*************************entegreterbiyecisi@yahoo.com******************************/
void main() {
enable_interrupts(int_ext); //b0 harici pals için veya
setup_timer_0 (RTCC_INTERNAL|RTCC_DIV_1);
disable_interrupts(int_timer0); // timer0
disable_interrupts(global);
input(pin_b0); //zero cross in 4N25
output_low(gate_1);
stept=50;
/*************************entegreterbiyecisi@yahoo.com******************************/
while(true){
ac:
trig=100;
stept_data=0;
stept_say=false;
data_bitti=false;
/***entegreterbiyecisi@yahoo.com***/
while(!data_bitti){
while(!stept_say){
enable_interrupts (global);}
if(stept_data<100){
stept_data++;
stept_say=false;
if(stept_data>stept){
output_high(gate_1);
DELAY_us (50);
output_low(gate_1);
if(!input(up)){if(stept<99){stept++;}}
if(!input(dwn)){if(stept>2) {stept--;}}
data_bitti=true;
disable_interrupts(int_timer0);
goto ac;
}}}disable_interrupts(global);}}
/*************************entegreterbiyecisi@yahoo.com******************************/