Македонски форум за електроника
Дигитална електроника => Микроконтролери => Topic started by: garfild on 12.04.2013, Friday, 13:39:45
-
Здраво.
Правам протокометар со готов сензор што дава импулси на излез.
Контролата на сензорот е со PIC16F877a и со LCD екран засега. Програмата ја пишувам во Mikropascal но никако неможам да ја натерам да ги брои импулсите од сензорот исправно.
Односно да на секој импулс бројачот да се зголемува за 1, а не како сега нон стоп да брои без разлика дали има сигнал или не.
(http://i1162.photobucket.com/albums/q537/0x4E4F/flow_meter.jpg)
program Flowmeter;
// LCD module connections
var LCD_RS : sbit at RB1_bit;
var LCD_EN : sbit at RB3_bit;
var LCD_D4 : sbit at RB4_bit;
var LCD_D5 : sbit at RB5_bit;
var LCD_D6 : sbit at RB6_bit;
var LCD_D7 : sbit at RB7_bit;
var LCD_RS_Direction : sbit at TRISB1_bit;
var LCD_EN_Direction : sbit at TRISB3_bit;
var LCD_D4_Direction : sbit at TRISB4_bit;
var LCD_D5_Direction : sbit at TRISB5_bit;
var LCD_D6_Direction : sbit at TRISB6_bit;
var LCD_D7_Direction : sbit at TRISB7_bit;
// End LCD module connections
var txt1 : array[16] of char;
txt2 : array[9] of char;
// txt3 : array[8] of char;
// txt4 : array[7] of char;
// i : byte;
broj : integer;
txt,impuls : string[6];
temp1,ml : integer;
begin
PORTB := 1;
TRISB := 1;
PORTA:=0;
TRISA.0:=0;
TRISA.1:=0;
ADCON1 := 0x0F; //*Configure AN pins as digital*/
CMCON := 0x07;
Lcd_Init();
Lcd_Cmd(_LCD_CLEAR);
Lcd_Cmd(_LCD_CURSOR_OFF);
temp1:=0;
broj:=0;
ml:=0;
while TRUE do
Begin
if (PORTA.1 = 1) then
// Delay_ms(100);
txt1:='ml';
temp1:=temp1+1;
Broj:= (temp1 * 60) / 7.5;
ml:=temp1/10;
inttostr(broj,txt);
inttostr(ml,txt2);
inttostr(temp1,impuls);
// Lcd_Out(1, 1, txt1+' '+txt+' '+impuls);
Lcd_Out(1, 1, txt1+' '+impuls);
Lcd_out(2,1,'ml'+' '+txt2);
end;
end.
-
Сензорот каков излез има ? open collector, high Z, CMOS ?
-
Сензорот е со square wave NPN open collector sinking
-
направи го со интерапри, да ги брое интераптите, јас барем така би го направил
-
Сензорот е со square wave NPN open collector sinking
Pull-up отпорник имаш ?
-
...на секој импулс бројачот да се зголемува за 1, а не како сега нон стоп да брои без разлика дали има сигнал или не.
На портот PORTA.1 треба да гледаш дали има промена од единица накај нула или обратно, и само во случај на промена, да го инкрементираш бројачот. Вака како што е кодот сега, бројачот се инкрементира на секое читање на портот, односно на секое извршување на главниот loop.
-
Во симулаторот и да му ставам Pull-up отпорник не променува ништо.
А дали ќе можи да ми дадете некој пример за како да ја видам промената на состојбата на портот?
-
Да не ти е случајно проблем со скокање на сигналот? Можеби pull up/pull down отпорник да не се потребни?
-
А дали ќе можи да ми дадете некој пример за како да ја видам промената на состојбата на портот?
dim PrethodnaSostojba as boolean
dim Counter as byte
while true
if (PrethodnaSostojba = false) and (PORTA.1 = 1) then
PrethodnaSostojba = true
Counter = Counter + 1
end if
if (PrethodnaSostojba = true) and (PORTA.1 = 0) then
PrethodnaSostojba = false
end if
wend
Овој пример е напишан во mikroBasic, ама се надевам дека ќе разбереш.
Доколу излезот од сензорот е open collector, тогаш мора да има pull-up отпорник.
-
Благодарам за помошта , програмата ја префрлив во mikroBasic и работи.
-
направи го со интерапри, да ги брое интераптите, јас барем така би го направил
Програмата работи се додека имам помалку од 12 импулси во секунда а потоа почнува да заостанува од другиот бројач што е ставен во симулаторот.
Дали би можеле да ми дадете пример со интерапти да видам дали ке ги брои побрзо, односно дали ке работи на поголем број на импулси во секунда.
-
Постирај го кодот што го имаш напишано до сега и проектот од симулаторот, па ќе видиме што може да се направи.
-
Во архивата е фајлот од симулаторот и кодот од програмата.
-
Еве пробај со Interrupt
-
За жал сеуште на повеке импулси во секунда закаснува со броењето.
-
И кај мене е така првиот пат кога ќе кликнам Старт во симулаторот. Пробај 2-3 пати кликни Старт-Стоп. За да го видиш реалниот број, постепено намалувај го бројот на импулси и застани на нула, па потоа види на LCD што има.
-
И кај мене е така првиот пат кога ќе кликнам Старт во симулаторот. Пробај 2-3 пати кликни Старт-Стоп. За да го видиш реалниот број, постепено намалувај го бројот на импулси и застани на нула, па потоа види на LCD што има.
Благорадарам за помошта.
Засега работи на овој принцип но кога ке го составам како склоп ке треба да го тестирам во реална ситуација дали навистина брои исправно.
-
Секогаш треба да го тестираш софтверот во реална ситуација. Симулаторот може многу да помогне, но во никој случај не може да го замени реалниот хардвер.