cılgın tornavida
Üye
- Katılım
- 21 Ağu 2008
- Mesajlar
- 8
- Puanları
- 1
herkese merhaba projem konusunda takıldıgım nokta var elimde worl belgesi üzerinde yazılı olan jal dili ile yazılmıs kod var ve ben bunu hex yapamıyorum(bilmiyorum) hex olursa devreyi isisde deneyip aklımda soru işareti kalmadan picede atıp devreyi dökecegim.
teşekkürler
kod bu ama hexe nasıl cevirebilecegim konusunda hiçbir fikrim yok
teşekkürler
Kod:
-- ====================================
-- LCD alarmli ayarli saat uygulamasi
-- ====================================
include 16f84_4 -- 4.194304 Mhz'lik kristal kullanilacak
include jlib
include hd447804 -- LCD ekran icin kullanilacak
-- === PORTLARIN YONLENDIRILMESI ===
port_a_direction = all_input
pin_b7_direction = output
-- === DEGISKENLER ===
var byte saat = 0
var byte dakika = 0
var byte saniye = 0
var byte clock = 0
var byte alarm_saat = 0
var byte alarm_dakika = 0
-- === AYARLAMALAR ===
hd44780_clear
-- === ALT PROGRAMLAR ===
procedure saat_yazisi is
hd44780 = "S"
hd44780 = "a"
hd44780 = "a"
hd44780 = "t"
hd44780 = ":"
hd44780 = " "
end procedure
procedure alarm_yazisi is
hd44780 = "A"
hd44780 = "l"
hd44780 = "a"
hd44780 = "r"
hd44780 = "m"
hd44780 = ":"
hd44780 = " "
end procedure
procedure saat_ayarla is
if pin_a1 == high then
saat = ( saat + 1 ) % 24
saniye = 0
delay_500ms
end if
if pin_a0 == high then
dakika = ( dakika + 1 ) % 60
saniye = 0
delay_500ms
end if
end procedure
procedure alarm_ayarla is
if pin_a2 == high then
alarm_saat = ( alarm_saat + 1 ) % 24
delay_500ms
end if
if pin_a3 == high then
alarm_dakika = ( alarm_dakika + 1 ) % 60
delay_500ms
end if
end procedure
procedure saat_sayaci is
pragma interrupt
clock = ( clock + 1 ) % 32
if clock == 0 then
saniye = ( saniye + 1 ) % 60
if saniye == 0 then
dakika = dakika + 1
if dakika == 60 then
dakika = 0
saat = saat + 1
if saat == 24 then
saat = 0
end if
end if
end if
end if
if saat == alarm_saat & dakika == alarm_dakika Then
pin_b7 = high
else
pin_b7 = low
end if
intcon_t0if = low
end procedure
option = 0b10000110 -- 1/128
tmr0 = 0
intcon_t0if = low
intcon_t0ie = true
intcon_gie = true
-- === PROGRAM BASI ===
forever loop
saat_ayarla
alarm_ayarla
hd44780_line1
saat_yazisi
print_decimal_2 ( hd44780, saat, "0" )
hd44780 = ":"
print_decimal_2 ( hd44780, dakika, "0" )
hd44780 = ":"
print_decimal_2 ( hd44780, saniye, "0" )
hd44780_line2
alarm_yazisi
print_decimal_2 ( hd44780, alarm_saat, "0" )
hd44780 = ":"
print_decimal_2 ( hd44780, alarm_dakika, "0" )
end loop
-- === PROGRAM SONU ===kod bu ama hexe nasıl cevirebilecegim konusunda hiçbir fikrim yok
Moderatör tarafında düzenlendi:
