Jal V2 LCD'ye noktalı veri yazdırma sorunu çözüldü

[ensar]

Selamün aleyküm.


indirme sayfası : http://code.google.com/p/jallib/downloads/list

son eklenen derleme : http://code.google.com/p/jallib/downloads/detail?name=jallib-pack-bee-jalv24q1-20131229.zip&can=2&q=

son ekleneni denemedim bendeki stabil sürüm 2.4q


Daha önce bende arıyordum.Format ile oluyormuş şöyle bir uygulama yazdım ve dahasıda var:



örnek kod:

include 16f877                    -- target PICmicro
 
pragma target clock 4_000_000     -- oscillator frequency
 
pragma target OSC        hs
pragma target   LVP disabled
pragma target   WDT disabled
 
enable_digital_io()                -- make all pins digital I/O
 
include format                                      ----------------  FORMAT KÜTÜPHANESİNİ EKLİYORUZ !!!
 
const byte LCD_ROWS    =  2           -- LCD with 2 lines
const byte LCD_CHARS   =  16          -- and 16 characters per line
--
alias     lcd_en       is pin_d2      -- data trigger
alias     lcd_rs       is pin_d3      -- command/data select.
pin_d2_direction       = output
pin_d3_direction       = output
--
alias     lcd_d4       is pin_d4
alias     lcd_d5       is pin_d5
alias     lcd_d6       is pin_d6
alias     lcd_d7       is pin_d7
--
pin_d4_direction       = output
pin_d5_direction       = output
pin_d6_direction       = output
pin_d7_direction       = output
 
include lcd_hd44780_4
lcd_init()
 
 
const bit ADC_HIGH_RESOLUTION = high
const byte ADC_NCHANNEL = 1
const byte ADC_NVREF = ADC_NO_EXT_VREF
include adc
adc_init()
 
 
 
 
procedure panelvoltaji is
var float voltaj
 
var word oku
 
const byte panelvolt[] ="PanelV:"
oku = adc_read (0)
_usec_delay(100)
 
voltaj = (oku * 0.205078125)
 
lcd_cursor_position(2,0)
print_string(lcd , panelvolt)
 
lcd_cursor_position(2,7)
 
format_sdword_dec(lcd,voltaj,4,1) ---------  4 Digit veri yazdıracağımızı belirtiyoruz ve 1(geriden) karakter kaydırıp noktayı konduruyoruz :) Mutlu son:)
end procedure
 
 
forever loop
 
 
panelvoltaji
 
 
 
end loop

Son yayımlanan sürümde örnekler çok ben burayada aktarayım.Yazdığım kod çalışmaktadır.

buda 877a için hazırlanmış örnek kodu.

   CASE counter OF
 
      0 : block
         -- hex byte output
         format_byte_hex(lcd, 0xEA)
         counter = counter + 1
      end block
 
      1 : block
         -- hex word output
         format_word_hex(lcd, 0xFD22) -- VIC20 reset vector ;-)
         counter = 10
      end block
 
      10 : block
         -- desimal çıktısı  ' 1.2'
         format_byte_dec(lcd, 12, 3, 1)
         counter = counter + 1
      end block
 
      11 : block
         -- desimal çıktısı  '0.12'
         format_byte_dec(lcd, 12, 3, 2)
         counter = counter + 1
      end block
 
      12 : block
         -- desimal çıktısı  ' 12'
         format_byte_dec(lcd, 12, 3, 0)
         counter = counter + 1
      end block
 
      13 : block
         -- desimal çıktısı  '12.0'
         format_byte_dec(lcd, 120, 3, 1)
         counter = 20
      end block
 
      20 : block
         -- desimal çıktısı  '-12'
         format_sbyte_dec(lcd, -12, 3, 0)
         counter = counter + 1
      end block
 
      21 : block
         -- desimal çıktısı  '-1.2'
         format_sbyte_dec(lcd, -12, 3, 1)
         counter = counter + 1
      end block
 
      22 : block
         -- desimal çıktısı  '-12'
         format_sbyte_dec(lcd, -12, 3, 2)
         counter = 30
      end block
 
      30 : block
         -- desimal çıktısı  ' 0.012'
         format_word_dec(lcd, 12, 6, 3)
         counter = counter + 1
      end block
 
      31 : block
         -- desimal çıktısı  '   1.2'
         format_word_dec(lcd, 12, 6, 1)
         counter = counter + 1
      end block
 
      32 : block
         -- desimal çıktısı  '   12'
         format_word_dec(lcd, 12, 6, 0)
         counter = 40
      end block
 
 
      40 : block
         -- desimal çıktısı  ' -0.012'
         format_sword_dec(lcd, -12, 6, 3)
         counter = 50  -- (no more examples in this group - you should get it by now...)
      end block
 
      50 : block
         -- desimal çıktısı  '23:55'
         format_time_hm(lcd, 23, 55)  -- 5 minutes to midnight
         counter = counter + 1
      end block
 
      51 : block
         -- desimal çıktısı  '23:56'
         format_time_hm_word(lcd, 23 * 60 + 56)  -- 4 minutes to midnight
         counter = 99
      end block
 
      OTHERWISE block
         lcd = "E"    lcd = "n"    lcd = "d"
         counter = 0
      end block
 
 
   END CASE

buda uygulamanın fotosu, fotoyu çamaşır makinesi ile çektim kimse kusura bakmasın   :


kolay gele.