muhidin kaplan usta
6 dügmeyi hid controller media dügmesi olarak tanimlamasi ve cd calari acip kapamasi ve bilgisayarda standart secilmis media player i kulanmasi o arada lcd displayde görevini göstermesi saat ile tarihi göstermesi ve ayrica olursa kizilötesi iletisimli olmasi.
netde bi asm dosyasi bulduydum ama hatali
list p=18F2550
;**************************************************************
;* Pinbelegung
;* ----------------------------------
;* PORTA:
;* 0 - SW1 STOP/EJEKT
;* 1 - SW2 RÜCKWERTS SPULEN
;* 2 - SW3 RÜCKWERTS LAUF/-
;* 3 - SW4 PLAY/PAUSE
;* 4 - SW5 VORWERTS LAUF/+
;* 5 - SW6 VORWERTS SPULEN
;*
;* PORTB: veya PORTB: 4 bit li
;* 0 LCD Display D1 7 LCD Display D8
;* 1 LCD Display D2 6 LCD Display D7
;* 2 LCD Display D3 5 LCD Display D6
;* 3 LCD Display D4 4 LCd Display D5
;* 4 LCD Display D5 3 LCD Display E
;* 5 LCD Display D6 2 LCD Display R/S
;* 6 LCD Display D7 1 LCD Display RW
;* 7 LCD Display D8 0 bos
;*
;* PORTC: veya PORTC:
;* 0 bos 0 bos
;* 1 bos 1 bos
;* 2 bos 2 bos
;* 4 D- USB 4 D- USB
;* 5 D+ USB 5 D+ USB
;* 6 LCD Display E 6 TX Kizilötesi
;* 7 LCD Display R/S 7 RX Kizilötesi
;*
;**************************************************************
;
; By RiCi
;
; Tastatur mit LCD-Display Datum Uhr
;
; Prozessor 18F2550
;
; Prozessor-Takt 48 MHz
;
; Oscillator 24 MHZ
;
; Keyboard am PortA
;
; LCD am PortB
;
; Infrarot am PortC
;
;**********************************************************
; Includedatei für den 18F2550 einbinden
#include <P18F2550.INC>
ERRORLEVEL -302 ;SUPPRESS BANK SELECTION MESSAGES
; Configuration festlegen:
; Power on Timer, kein Watchdog, HS-Oscillator, kein Brown out, kein LV-programming
config PLLDIV = 5, CPUDIV = OSC1_PLL6, USBDIV = 2, FOSC = HSPLL_HS
config PWRT = ON
config BOR = OFF
config VREGEN = ON
config WDT = OFF
config MCLRE = OFF
config PBADEN = OFF
config LVP = OFF
;Start
org 0x00
;Eingänge/Ausgänge definieren
movlw B'11111111' ;PORTA auf Eingang
movwf TRISA
movlw B'00000000' ;PORTB auf Ausgang
movwf TRISB
movlw B'11000000' ;PORTC 7,6 auf Eingang übrigen auf Ausgang
movwF TRISC
clrf PORTA
clrf PORTB
clrf PORTC
bsf PORTC,7
bcf PORTC,6
; Variablen festlegen
loops equ 0x20 ; Wartezeit für WAIT in Millisekunden
loops2 equ 0x21 ; interner timer für wait
LcdStatus equ 0x22 ; Puffer für aus dem LCD ausgelesenes Statusbyte
LcdDaten equ 0x23 ; Puffer für zum LCD zu schreibendes Byte
Taste equ 0x24 ; Tastaturpuffer
; Konstanten festlegen
; das demonstriert die Nutzung des define-Kommandos im Assembler
; für LCD-Pins
#define LcdE PORTC,6 ; enable Lcd
#define LcdRs PORTC,7 ; Daten Lcd (nicht control)
#define LcdPort PORTB ; Datenbus des LCD (obere 4 Bit)
; für Tastatur-Anschluß
#define KRow1 PORTA,0 ;SW1
#define KRow2 PORTA,1 ;SW2
#define KRow3 PORTA,2 ;SW3
#define KRow4 PORTA,3 ;SW4
#define KRow5 PORTA,4 ;SW5
#define KRow6 PORTA,5 ;SW6
; Konstanten für OPTIN_REG and INTCON
; diese Werte werden im Programm wärend der Initialisierung verwendet
; sie hier abzulegen vereinfacht spätere Änderungen
Ini_con Equ B'00000000' ; Interupt disable
Ini_opt Equ B'00000010' ; pull-up
;********************************************************
; Das Programm beginnt mit der Initialisierung
Init
bsf STATUS, RC7 ; Bank 1
movlw Ini_opt ; pull-up Wiederstände ein
movlw B'00000000' ; PortB alle outputs
movwf TRISB
bcf STATUS, RC6 ; Bank 0
clrf PORTB
movlw Ini_con ; Interupt disable
movwf INTCON
;Display initialisieren
call InitLcd
mainloop
call Tastfrei ; darauf warten, das keine Taste gedrückt ist
; call WAIT ; entprellen nur bei schlechten Tasten nötig
drueck
call Taste ; wird nun eine Taste gedrückt?
btfsc STATUS, Z ; skip wenn Taste<>0
goto drueck ; Tastencode=0 d.h. keine Taste gedrückt, weiter warten
call OutLcdDaten ; Tastencode am LCD ausgeben
goto mainloop ; auf ein neues
;*****************************************************
;+++LCD-Routinen**************************************
;*****************************************************
;LCD initialisieren in 9 Schritten, Begrüßung ausgeben
InitLcd
movlw D'255' ; 250 ms Pause nach dem Einschalten
movwf loops
call WAIT
movlw B'00110000' ; 1
movwf LcdPort
bsf LcdE
nop
bcf LcdE
movlw D'50' ; 50 ms Pause
movwf loops
call WAIT
movlw B'00110000' ; 2
call Control8Bit
movlw B'00110000' ; 3
call Control8Bit
movlw B'00100000' ; 4
call Control8Bit
movlw B'00000001' ; löschen und cusor home
call OutLcdControl
movlw B'00101000' ; 5 function set, 4-bit 2-zeilig, 5x7
call OutLcdControl
movlw B'00001000' ; 6 display off
call OutLcdControl
movlw B'00000110' ; 7 entry mode, increment, disable display-shift
call OutLcdControl
movlw B'00000011' ; 8 cursor home, cursor home
call OutLcdControl
movlw B'00001111' ; 9 display on
call OutLcdControl
movlw 'B' ; 'By RiCi' ausgeben
call OutLcdDaten
movlw 'Y'
call OutLcdDaten
movlw ' '
call OutLcdDaten
movlw 'R'
call OutLcdDaten
movlw 'i'
call OutLcdDaten
movlw 'C'
call OutLcdDaten
movlw 'i'
call OutLcdDaten
return
;*****************************************************
; ein Steuerbyte aus W 8-bittig übertragen
Control8Bit
movwf LcdPort
bsf LcdE
nop
bcf LcdE
movlw D'10'
movwf loops
call WAIT
return
;*****************************************************
; darauf warten, daß das Display bereit zur Datenannahme ist
; dazu wird das busy-Bit des LCD abgefragt
LcdBusy
bsf STATUS, RC7 ; make Port B0..7 input
movlw B'11111111'
iorwf TRISB, f
bcf STATUS, RC6
BusyLoop
bcf LcdRs ; Steuerregister
bsf LcdE
nop
movf LcdPort, w ; 4 obere Bits lesen (D7..D4)
movwf LcdStatus ; und in LcdStatus speichern
bcf LcdE
nop
bsf LcdE
nop ; 4 untere Bits lesen (D3..D0) und ignorieren
bcf LcdE
btfsc LcdStatus, 7 ; teste bit 7
goto BusyLoop
bsf STATUS, RC7 ; make Port B0..7 output
movlw B'00000000'
andwf TRISB, f
bcf STATUS, RC6
return
;*****************************************************
; aus W ein Byte mit Steuerdaten zum Display übertragen
OutLcdControl
movwf LcdDaten ; Byte in LcdDaten zwischenspeichern
call LcdBusy ; warten bis Display bereit ist
movf LcdDaten, w ; Byte zurück nach W holen
andlw H'F0' ; low-Teil löschen
movwf LcdPort ; Hi-teil Daten schreiben
bsf LcdE
nop
bcf LcdE ; Disable LcdBus
swapf LcdDaten, w ; Byte verdreht nach W holen
andlw H'F0' ; High Teil löschen
movwf LcdPort ; Low-teil Daten schreiben
bsf LcdE
nop
bcf LcdE ; Disable LcdBus
return
;*****************************************************
; aus W ein Datenbyte (zum Anzeigen) an's Display übertragen
OutLcdDaten
movwf LcdDaten ; Byte in LcdDaten zwischenspeichern
call LcdBusy ; warten bis Display bereit ist
movf LcdDaten, w ; Byte zurück nach W holen
andlw H'F0' ; low-Teil löschen
movwf LcdPort ; Hi-teil Daten schreiben
bsf LcdRs ; Daten
bsf LcdE ; Enable LcdBus
nop
bcf LcdE ; Disable LcdBus
swapf LcdDaten, w ; Byte verdreht nach W holen
andlw H'F0' ; High Teil löschen
movwf LcdPort ; Low-teil Daten schreiben
bsf LcdRs ; Daten
bsf LcdE
nop
bcf LcdE ; Disable LcdBus
bcf LcdRs ;
return
;*****************************************************
;+++Tastatur-Routinen*********************************
;*****************************************************
; warten darauf, daß keine Taste mehr gedrückt ist
Tastfrei ; Warten auf freie Tastatur
call Tastatur ; Tastencode nach Taste & W
btfss STATUS, Z ; wenn Z=1 dann skip
goto Tastfrei ; weiter warten
return ; Tastatur ist frei
;*****************************************************
; ist eine Taste gedrückt? und welche?
; der Tastencode wird in W und Taste gespeichert (ASCII)
; wenn keine Taste gedrückt wurde, wird 0 zurückgegeben
;
; zur Erinnerung liste ich noch mal die weiter oben aufgeführten
; Definitionen auf
; mit denen ist festgelegt, an welche Pins des PortB die einzelnen
; Spalten und Zeilen der Tastatur abgeschlossen sind
;#define KRow1 PORTA,0 ;SW1 Stop Ejekt
;#define KRow2 PORTA,1 ;SW2 FFR
;#define KRow3 PORTA,2 ;SW3 FR -
;#define KRow4 PORTA,3 ;SW4 Play Pause
;#define KRow5 PORTA,4 ;SW5 FW +
;#define KRow6 PORTA,5 ;SW6 FFW
;#define KLine1 PORTA,0 ;SW1 Stop Ejekt
;#define KLine2 PORTA,1 ;SW2 FFR
;#define KLine3 PORTA,2 ;SW3 FR -
;#define KLine4 PORTA,3 ;SW4 Play Pause
;#define KLine5 PORTA,4 ;SW5 FW +
;#define KLine6 PORTA,5 ;SW6 FFW
Tastatur
; zuerst müssen die Tastaturzeilen-Pins auf Eingang gestellt werden
bsf STATUS, RC7 ; Bank 1
movlw Ini_opt ; pull-up Widerstände ein
movwf OPTION_REG
movlw A'00011111' ; RA0 .. RA5 input
movwf TRISA
bcf STATUS, RC6 ; Bank 0
; das Enable-Pin des Displays muß auf Low stehen, damit das Display
; abgeschaltet ist solange wir die Tastatur abfragen
clrf PORTC ; Display inaktiv am Bus
; w wird auf 0 gesetzt, dieser Wert wird durch ein ASSCI-Zeichen
; überschrieben, falls eine Taste gedrückt ist
; falls keine Taste gedrückt ist, bleibt 0 erhalten
movlw 0 ; W=0
bcf KRow1 ; 1. spalte aktivieren
bsf KRow6
bsf KRow5
bsf KRow4
bsf KRow3
bsf KRow2
call SW1 ; 1. Spalte abfragen
bcf KRow2 ; 2.Spalte aktivieren
bsf KRow1 ; 1.Spalte ausschalten
call SW2 ; 2. Spalte
bcf KRow3 ; 3. Spalte aktivieren
bsf KRow2 ; 2. spalte ausschalten
call SW3 ; 3. Spalte abfragen
bcf KRow4 ; 4.Spalte aktivieren
bsf KRow3 ; 3.Spalte ausschalten
call SW4 ; 4. Spalte
bcf KRow5 ; 5. Spalte aktivieren
bsf KRow4 ; 4. spalte ausschalten
call SW5 ; 5. Spalte abfragen
bcf KRow6 ; 6.Spalte aktivieren
bsf KRow5 ; 5.Spalte ausschalten
call SW6 ; 6. Spalte
bsf KRow6 ; 6. Spalte ausschalten
movwf Taste
; PortB wieder komplett zu Output machen
bsf STATUS, RC7 ; Bank 1
movlw B'00000000' ; RB1 .. RB7 output
movwf TRISB
bcf STATUS, RC6 ; Bank 0
return
SW1
btfss KLine1
retlw 'Stop'
btfss KLine2
retlw 'Ejekt'
return
SW2
btfss KLine1
retlw 'FFR'
return
SW3
btfss KLine1
retlw 'FR'
btfss KLine2
retlw '-'
return
SW4
btfss KLine1
retlw 'Play'
btfss KLine2
retlw 'Pause'
return
SW5
btfss KLine1
retlw 'FW'
btfss KLine2
retlw '+'
return
SW6
btfss KLine1
retlw 'FFW'
return
;*****************************************************************
;Zeitverzögerung um loops * 1 ms *********************************
;*****************************************************************
; universelle Warteschleife, sowas braucht man öfter
; z.B. für die LCD-Initialisierung
; in loops wird die Wartezeit in Millisekunden übergeben
;
; 48 MHz externer Takt bedeutet 5 MHz interner Takt
; also dauert 1 ms genau 5000 Befehle
; 5000 Schleifen a 10 Befehle sind 50000 Befehle = 1 ms
WAIT
top movlw .250 ; timing adjustment variable (1ms)
movwf loops2
top2 nop ; warten und nichts tun
nop
nop
nop
nop
nop
nop
decfsz loops2, F ; innere Schleife fertig?
goto top2 ; nein, noch mal rum
;
decfsz loops, F ; äußere Schleife fertig?
goto top ; nein, noch mal rum
retlw 0 ; FERTIG und return
end
zor bir iş değil ama benim bu iş için pek vaktim yok. yanlış bilmiyorsam default olarak seçilmiş media playerin kısa yol tuşlarını kontrol edebilmek zor değildir. bunun için kullanacağınız oem ürünler bile bulabilirsiniz.
ayrıca asm ile bu iş zor olur, ben olsam swordfish ile yazardım.
hocam naçizane bunun için yapılmış oem ürünler var 10-20usd ye.
http://www.dealextreme.com/details.dx/sku.27596 gibi ürünler ile sanırım işiniz hallolur
Fiyakalı bişey olsun diyorsan home media için özel tasarlanmış bilgisayar anakartları var Asus P5W DH Deluxe diye arattır bulursun kumandası mevcut. hatta asus marka kasa tercih edeceksen dijital ekran kontrollü 500 watlık kasalarda mevcut. anakart ve kasa ikisi bir uyum içinde ahenkle danseder :)
Açıkcası, ben 100Usd ye o cihazı yapmaya başlamazdım. Çünki Yaptıktan sonra 1 de 100 de aynı zaman. usb iletişimi bir dert, ayrıca işin içerisinde ırda vs de var. yani profesyonel bir cihaz 100 usd civarlarında yaptırmannız zor.
siz ilk etapta usb iletişimi ile o 6 tuşu göndereceksiniz. Bunn için USB keyboard codu arayacaksınız (ki Türkiyede Seri İletişimden hala vazgeçilmedi) sonra bu usb klavyeye IRDA yapıp o tuşlara bu ırdadan basılmasını sağlayacaksınız.
muhiddin_kaplan usta peki IRDA dan vaz gezip lcd de saat tarih ve dügmelerin kulanimli hale gelmesi ve USB HID Conroller de mi zor bi is yoksa biraz kolaylastirirmi isi usta bana bari en azindan saat tarih ve 6 dügmeyi kulanimli hale gelmesi icin ASM yazilimi yapabilirmisin Oscillator 24 Mhz veya bi yazilim bulabilirmiyiz ben onu genislete bilirim zamanla vaktim oldukca.
cihazda 6 düğme olacak, ve bu cihazın üzerindeki LCD de tarih saat yazacak.
Usb Keyboard araştırın. ASM ile zor olur.
Ama Swordfish Sample ii Aşağıda
http://www.sfcompiler.co.uk/wiki/pmwiki.php?n=SwordfishUser.HIDKeyboard
evet muhidin_kaplan usta en azindan diyorum 6 dügmesi kulanimli halle gelsin ve saat ile tarihide lcd display de göstersin lcd dislap 1x16 veya 2x16 icin olabilir
Hocam un var şeker var yağ var, neden yapmıyorsunuz? Kendiniz yaparsanız bu işin maliyeti sadece vakit ve 5-10 dolar bilemedin 50$ malzeme parasıdır.
Vaktiniz yoksa fakat çok gerekli bir cihaz ise kesenin ağzını açmak gerek. Benim fiyat iyiydi alsında ama size yüksek geldi. Yapan kişinin de bu işle uğraşması için sebep olması gerekmez mi?
"tam istediğiniz gibi" yazılım gerçekten yoktur. bunun size özel yapılması gerek. hatta 5-10 sefer deneyip sorunları bildireceksiniz. şurayı düzeltelim, burayı parlatalım diyeceksiniz. özel yazılım özel proje böyle olur.
t2 usta dogru unu var sekeri var suyu var ama malesef ustasi yok benim emege daima saygim vardir ve daima karsiligida oldugunu bilirim ben o kadar kolay bir is olmadigini bildigimden ustasini ariyorum yapabilen ustasini derken öyle 3000 lira yok 1500 lira verecek düsüncede degilim dedigim gibi zamaninda rst-lighting firmasinda bi usta 40 euroya yazilmis pic16c745 i veriyordu ama artik haber gelmiyor kapandimi bilmiyorum o yüzden ararken bu siteye sor dediler belkim yapabilen bir usta cikar diye 100-200 euro arasi yazilimina göre paypal üzeri veya direk banka hesabina hakkini ödeyecegim belli bir seydir ben kimsenin hakki ille hesap verme gibi bi cabam yokdur usta emege de daima saygim vardir ...
belli olmaz t2 usta eger ben 1000 tl ye yaparim demek istiyorsaniz tesekür ederim teklifiniz icin demekle yitinirim anca
t2 ustam ben hic kolay hemen yapilabilecek bisey demedim kolay hic görmüyorum cünki kolay bisey olsaydi kendim de cözerdim ama sizin istediginiz fiyat benim bir ayligim ben ac kalacagima projem bitmemis olsun ben dahada memnun olurum anca bi almanin chipi beraberinde vermesi ille 40 euro ya yapmis olmasi ve sizin 3000 lira ille arasinda daglar kadar fark var
ben ille olsun veya olacak diye pesinde hic degilim olursa anca görünümü güzel olur memnun olurdum ondan illeri degil
yok be ustam ne imalati aynen evime bi tane kendim htpc media center pc si hazirladim onun icin sadece benim ne bi fabrikam var nede üretecek bi isyerim benim hobbim elektronik ondan bu heves ustam
Dealextreme den 10$lık ürünü alırsın, paralel porttan da http://donanim.thgtr.com/nasil-yapilir/pcmize-lcd-panel-yapiyoruz/pcmize-lcd-panel-yapiyoruz bunu yaparsın ballı kaymak işte :D
arkadaslar ben anlatamiyorum galiba cözümü cok lpt veya com portdan da lcd yazilimi ve 6 key kulanim haline geliyor onlari biliyorum veya yedekden bitmis ucuz parca lar oldugunu da biliyorum ama benim amacim orijinal da kalmasi
40 euroya ise alman firmasi yazilmis pic veriyordu ben ise pic bille bende mevcut diyorum sadece yazilimi gerek hemi o yazilim icin 40 euro veririm de demedim hic .
eger düsündügüm gibi yazilim olursa 100-200 euro arasi fazla verebilecegimi düsünmüyorum herkezin emegine saygim vardir ille olsun yapsin da demiyorum
benim sizlere sundugum bi isyeri tasarimi bir proje degil kendime ait hobim geregi bi ugrasdir
ve ayriyetden mevcut olan la yetinmeliyiz
Xricix Hocam MEsleginiz nedir bilmiyorum fakat her mesajınızda bu 40 euroyu vurgulamanızı anlamış değilim. Almanayda 40 euro diyerek burda da tasarlayacak arkadaşların 100 euroya yapmalarını sağlayamazsınız. Ne demişler Halep ordaysa arşın burda..
Burda bütün arkadaşlar iyi niyet çercevesinde sizin hobinizi tamamlayabilmek için çeşitli öneriler sunuyorlar. Siz hem "kek bütün kalsın hemde karnım doysun" istiyorsunuz.
Eğer birisi böyle projeyi daha önce kendisi için yaptıysa , yada elinde buna benzer proje varsa 1 2 saatlik bir çalışma ile sizin istediğiniz hale getirebielcek düzeyde ise 100 150 euroya yapabilir. aksi taktirde sizin bu aradığınız özellikleri karşılayan projeyi bu fiyatlara kimse yapmaz.Bunu anlatmaya çalışıyoruz.
Elimde 18f2550 pic var demişsiniz. Bu pic piyasada 10 lira. yani çok muhim bişey değil. Sizin elinizde şu an bir nal var, geriye kaldı 3 nallı bir at...
Umarım anlatabilmişimdir..
Saygılarımla
umberto usta iste tam o kismi bende anliyamiyorum 40 euro ya pic le bir verir iken zaman asamasina mi ugrayipda burda taa 3000 tl ye kadar biciliyor ?
hani eskiden izine gitigimizde carsida satici konusmamizdan anlardi yabanci oldugumuzu kafasina göre de bicerdi fiyati ....
... burasida mi almanci gördüde kafasina göre biciyor ?
Hok Hocam ondan değil yanlız 100avro ya yapan bulamazsınız. sıfırdan bir proje zor o fiyata. herşeyden önemlisi zaman.
benim onu yapmaya yeteneğim ve kod bilgim altyapım var ama elimdeki işe ara verip bunun için çalışmalıyım.
düşünürseniz dışarda herhangi bir iş için "tek bir fiyat" 1000 tl derken 1000 adetine 1500 diyor. sebep kalıp vs. arge yani.
Her projenin bir bedeli vardır. Bu bedel her daim müşteri tarafından karşılanmaz, bazen ticaret yapmak isteyen kişi der ki" Ben böyle bir ürün yapsam ve buna da 5000€ deger biçsem ve bu üründen tanesi 10€ dan 1000 tane satsam yeter".
Sizin Alman bu mantığı kullanmış. Siz 1000 müşterinin yerine geçmek istiyorsunuz, bu durumda 1000 değilse bile belirli bir sayıda müşterinin bedelini ödemeniz gerekir.
usta tamam bosverin ben 1 tanenin pesindeyim fazlasinin degil ama haklisiniz dedigim gibi is yeri üretim ci felan degilim