ccs pic c

[wea]

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.

[wea]

Hmm. Evet buldum. Genede ilginize teşekkür ederim..

[necati]

#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******************************/