---

onurbilke yazmış

Arkadaşlar PIC18F452 nin hafızasını yetiremediğim için kalın küçük harfleri tabloya ekleyemedim. Bu İşi Bizden Daha Profesyonel Yapanlar 16F877 de kullanıyolarmış onlar bu işi nasıl hallediyor anlayamadığım nokta o.

arkadaşım sana katılıyorum ama bu işi profesyoneller asm ile yazıyor yada kullandıkları programın içine asm gömüyor . birebir bursada gördüm. bizim yazdığımız programlar derlesekte baya yer tutuyo ama asm de adam balıkesirden ankaraya kadar uzun kod yazıyolar derleyince anca 5 kb yapıyo ......benim gördüğümde adam 877ye 25 farklı animasyon yaptırıyodu ..ki tüm karakterleride sığdırıyodu programa noktalama işaretleri dahil...tabi adam bu işi 1992 den beri yapıyo diyeceksinizki ozamanlar pic mi wardı yoktu ama onun yerine başka donanımlı entegreler kullanıyorlarmış zamanında..

---

---

bayhakan yazmış

arkadaşlar selamlar..daha önce mesaj atmıstım fakat gozden kacmıs olabılır..bende bu calısmaya katılmak ıstıyorum devrenın elınde pcb.lerı fazla olan arkadaştan ucretı karsılıgında almak ıstıyorum..ıyı calısmalar...

kardeş elimde fazladan bi 5 mm led için ve 74 164 ıc liboard ve ütü ile basıldı yalnız temiz dirişçilik olarak birde sürücü devre var soketlerinide takarım istersen görüşelim

---

Başa dön

---

arkadasım selamlar..bu durumda almak ıstıyorum bende calısmalara katılayım..tesekkurler mesajınızı beklıyorum..

---

Başa dön

---

onur hocam ,

karakter tablosunu bana yollayabilirmisin. sanırım kalın küçük harfleri sığdırabileceğim. derledim 32308 byte oldu. ama bu derlemeyi büyük harfi ekleyerek yaptım. boyut değişmez sığacak görünüyor. senden ricam excel ortamında varsa karakter tablosunu bana yollaman. belki elinde hazırdır bile diye düşünüyorum. zaman kazandırmış olursun.

bu tabloyu tamamlayınca caps lock yakmaya da gerek kalmayacak.

electron,

istiyorsan yinede caps lock yakma kodlarını buraya ekleyebilirm.

---

Başa dön

---

merhaba arkadaslar sonunda calistirabildim cok güuzel calisiyor nasil oldu bilmiyorum ama sanirim pbp 2.46 yi yükleyince oldu size sormak istedigim acaba bu su an yükledigim 48 sütünlük bunu nasil 32 sütüna düsürecem programin nerelerinde degisiklik yapacam birde hem pic hemde pc programindami degisiklik yapmak gerek acaba? herkze koaly gelsin iyi calismalar

---

Başa dön

---

Elektroline yazmış

onur hocam ,

karakter tablosunu bana yollayabilirmisin. sanırım kalın küçük harfleri sığdırabileceğim. derledim 32308 byte oldu. ama bu derlemeyi büyük harfi ekleyerek yaptım. boyut değişmez sığacak görünüyor. senden ricam excel ortamında varsa karakter tablosunu bana yollaman. belki elinde hazırdır bile diye düşünüyorum. zaman kazandırmış olursun.

bu tabloyu tamamlayınca caps lock yakmaya da gerek kalmayacak.

electron,

istiyorsan yinede caps lock yakma kodlarını buraya ekleyebilirm.

Bir zahmet sevinirim.Kodları nereye koyacağımıda belirtirsen iyi olur. Teşekkürler..

---

Başa dön

---

FORM 2 DE

general decleration bölümüne;

'----------------------caps lock açma-----------------------------
' declare type for apı call:
private type osversıonınfo
dwosversionınfosize as long
dwmajorversion as long
dwminorversion as long
dwbuildnumber as long
dwplatformıd as long
szcsdversion as string * 128 ' maintenance string for pss usage
end type

' apı declarations:

private declare function getversionex lib "kernel32" _
alias "getversionexa" _
(lpversionınformation as osversıonınfo) as long

private declare sub keybd_event lib "user32" _
(byval bvk as byte, _
byval bscan as byte, _
byval dwflags as long, byval dwextraınfo as long)

private declare function getkeyboardstate lib "user32" _
(pbkeystate as byte) as long

private declare function setkeyboardstate lib "user32" _
(lppbkeystate as byte) as long

' constant declarations:
const vk_numlock = &h90
const vk_scroll = &h91
const vk_capıtal = &h14
const keyeventf_extendedkey = &h1
const keyeventf_keyup = &h2
const ver_platform_wın32_nt = 2
const ver_platform_wın32_wındows = 1
'----------------------caps lock açma-----------------------------

ve


private sub option17_click() in içine de alttaki kodları ekle..



'----------------------caps lock açma-----------------------------

dim o as osversıonınfo

dim capslockstate as boolean

o.dwosversionınfosize = len(o)
getversionex o
dim keys(0 to 255) as byte
getkeyboardstate keys(0)

' capslock handling:
capslockstate = keys(vk_capıtal)
ıf capslockstate <> true then 'turn capslock on
ıf o.dwplatformıd = ver_platform_wın32_wındows then '=== win95/98
keys(vk_capıtal) = 1
setkeyboardstate keys(0)
elseıf o.dwplatformıd = ver_platform_wın32_nt then '=== winnt
'simulate key press
keybd_event vk_capıtal, &h45, keyeventf_extendedkey or 0, 0
'simulate key release
keybd_event vk_capıtal, &h45, keyeventf_extendedkey _
or keyeventf_keyup, 0
end ıf
end ıf

'-------------------------------------------------------------------------------------


selamlar......

---

Başa dön

---

onurbilke yazmış

Arkadaşlar PIC18F452 nin hafızasını yetiremediğim için kalın küçük harfleri tabloya ekleyemedim. Bu İşi Bizden Daha Profesyonel Yapanlar 16F877 de kullanıyolarmış onlar bu işi nasıl hallediyor anlayamadığım nokta o.

sevgili onurbilke programı kısaltmak ıcın karekter toblosunu lookup ile yaparsanız programınız buyuk oranda kısalır.zaten satır degerlerı 8 bıt oldugu ıcın aslında lookup2 kullanmanıza gerek yoktu.saygılar.
Tablo2:
Select case Karakter
case "A"
For T=0 to 7
lookup T,[$7C,$7E,$13,$11,$13,$7E,$7C,$00],O_Kar
Gosub Ata

---

Başa dön

---

mame,

""LOOKUP2 generates code that is about 3 times larger than LOOKUP. If the Value list is made up of only 8-bit constants and strings, use LOOKUP.""

haklısın mame, bu da bir yer kazanma seçeneği. Ben de ,case i sadece bir for next döngüsünde çalıştırdım. dolayısı ile bir çok yer kazandım. Onur hocamda karakter tablosu varsa o problemide aşmış olacağız. Aksi takdirde bir gönüllü oturup karakter tablosunu hazırlayacak ..

-- Sağ sol kaydırmaların ters çalıştığını farkettim. Bu konuda değişiklik yapan oldumu acaba.

---

Başa dön

---

Sonunda bende çalıştırdım ama onur hocanın programı ile değil kendim bi program yazdım güzel bi şekilde devre kayıyor ne yaptıysam ne ettiysem onur hocanın programını benim devrede çalıştıramadım sanırsam ya seri iletişişimi kuramadım yada eeprom bozuk bulunduğum yer itibariyle her ikisinide alamıyorum şimdilik kendi programımla devreyi geliştiriyorum saat sıcaklık ve epromuda tek tek kendim ekleyip bu işi tam anlamıyla öğrenmeyi düşünüyorum

Herkese kolay gelsin

---

Başa dön