LPG Digital Gösterge (2. sayfa)

 
  deger var word 
  deger1 var word 
  toplamdeger var word 
  miktar1 var word 
  miktar2 var word 
  miktar3 var word 
  depomiktari var byte 
  fiyat var word 
  toplamfiyat var word 
  i var byte 
  zaman var byte 
   
   
  Define  LCD_DREG        PORTB 
  Define  LCD_DBIT        4 
  Define  LCD_RSREG       PORTB 
  Define  LCD_RSBIT       1 
  Define  LCD_RWREG       PORTB 
  Define  LCD_RWBIT       2 
  Define  LCD_EREG        PORTB 
  Define  LCD_EBIT        3 
   
  Define	ADC_BITS	10	 
  Define	ADC_CLOCK	3	 
  Define	ADC_SAMPLEUS	50	 
   
  		 
  TRISA = %11111111	 
  ADCON1 = %10000010	 
  pause 500		 
   
  toplamdeger=0 
   
  ilk: 
    read 1,depomiktari 
    'depo miktarı 32 lt'ye göre 
    if depomiktari<30 or depomiktari > 36 then depomiktari = 32 
    read 2,fiyat.byte0 
    read 3,fiyat.byte1 
    if fiyat <1400 or fiyat>3000 then fiyat=1500 
    
  basla: 
    zaman=0 
    if portc.2=1 then  
      while portc.2=1 
        zaman=zaman+1 
        pause 50 
        if zaman>20 then goto setup 
      wend 
    endif  
    'Çıkış butonuna basıldığında fiyat olarak gösterir 
    if portd.1=1 then  
      while portd.1=1 
        toplamfiyat =  miktar1*fiyat+(miktar2*fiyat)/10  
        lcdout $fe,$c0,#toplamfiyat,"  YTL        " 
        pause 100 
      wend 
    endif  
    for i=1 to 24 
      adcin 0,deger 
      toplamdeger=toplamdeger+deger 
    next i  
    deger1=toplamdeger/12 
    toplamdeger=0 
    deger = 1023-deger1 
    if deger>=32 then  
      deger=deger-32  
     else  
      deger=0 
    endif 
    miktar3 = deger*depomiktari 
    miktar1=miktar3 / 1023 
    miktar2=miktar3-(miktar1*1023) 
    miktar2 = miktar2*10 
    miktar2 = miktar2 /1023 
    lcdout $fe,2,"Gaz Miktari     " 
    lcdout $fe,$c0,#miktar1,",",dec1 miktar2," Litre     " 
    pause 500 
  goto basla 
  setup: 
    LCDOut $fe,1,"Setup           " 
    Pause 100 
    if portc.2=1 then goto setup 
    i=1 
  setup2: 
    IF portc.3=1 Then  
      i=i+1 
      if i>2 then i=1 
      while portc.3=1 
        pause 50 
      wend 
    EndIF 
    IF portd.0 =1 Then  
      i=i-1 
      if i<1 then i=2 
      while portd.0=1 
        pause 50 
      wend 
    EndIF 
    IF portc.2=1 Then  
      while portc.2=1 
        pause 50 
      wend 
      if i=1 then goto miktar 
      if i=2 then goto gazfiyati 
    EndIF 
    if portd.1=1 then  
      while portd.1=1 
        pause 50 
      wend 
      goto ilk 
    endif 
    IF i=1 Then LCDOut $fe,$c0,"Depo Miktari    " 
    IF i=2 Then LCDOut $fe,$c0,"Fiyat           " 
    pause 100 
    GoTo setup2 
  Return 
  miktar: 
    IF portc.3=1 Then depomiktari=depomiktari+1 
    while portc.3=1  
      pause 50 
    wend 
    IF portd.0 =1 Then depomiktari=depomiktari-1 
    while portd.0=1  
      pause 50 
    wend 
    if portc.2=1 then  
      while portc.2=1 
        pause 50 
      wend 
      write 1,depomiktari 
      goto setup 
    endif 
    if portd.1=1 then  
      while portd.1=1 
        pause 50 
      wend 
      read 1,depomiktari 
      goto setup 
    endif 
    LCDOut $fe,1,"Depo Miktari     " 
    lcdout $fe,$c0,#depomiktari,"  Litre          " 
    pause 100 
  goto miktar 
  gazfiyati: 
    IF portc.3=1 Then fiyat=fiyat+10 
    while portc.3=1  
      pause 50 
    wend 
    IF portd.0 =1 Then fiyat=fiyat-10 
    while portd.0=1  
      pause 50 
    wend 
    if (portc.2=1) then 
      while portc.2=1  
        pause 50 
      wend  
      write 2,fiyat.byte0 
      write 3,fiyat.byte1 
      goto setup 
    endif  
    if portd.1=1 then  
      while portd.1=1 
        pause 50 
      wend 
      read 2,fiyat.byte0 
      read 3,fiyat.byte1 
      goto setup 
    endif 
    LCDOut $fe,1,"Fiyat :          " 
    lcdout $fe,$c0,dec4 fiyat," YTL         " 
    pause 100 
  goto gazfiyati