2x16 LCD Spectrum display

[FUNKY]

Maxim  hocam    ellerine sağlık     işte bu ..  tamam aradığım ..

sadece  spectrum yaparken  değil  bazen lcd ekranını  daha verimli kullanmak için  gerekli olabilir bir 5x8 pixel yerde pil şekli ile   batarya götergesi  çok az yer kaplar..

[Maxim]

şuna bak, biz daha kıytırık bir spectrum yapamazken herifler nelerle uğraşıyor .

[FUNKY]

görsel olarak çok güzel   ama hoca  bakımı zor akvaryum gibi  su yerine yosun tutmayan bir sıvı daha kullanışlı olurdu+ ışıklandırma.. yapım mantığı zor değil
ticari proje olarak düşünenler için bir bir fısat   ..karanlık bir  diskonun   bir duvarında içerdeki çalan müziğe göre güzel  bir  görünüm sağlar

[frederic]

Bir ara bu işi ateşle yapan üniversite öğrencileri görmüştüm tv de oda çok güzeldi .

[eseneren]

Hoca o projede su yok yada sıvı yok, alt tarafında fanlar var kontrol ıcın usttekı beyazlarda strafor köpük adı ne ise (eskıden tv alınca kutudan cıkan beyaz şeylerin) tanecıklerı.

[eseneren]

@frederic o alevle yapılanda elektronik bir proje degil fizik ile alakalı bir konu "ruben's tube" diye ararsan o konuyada ulaşabilirsin...

[FUNKY]

su  sandım  çok güzel  kandırdılar beni

[frederic]

@frederic o alevle yapılanda elektronik bir proje değil fizik ile alakalı bir konu "ruben's tube" diye ararsan o konuyada ulaşabilirsin...

Evet dediğin gibiymiş ama adını bilmiyordum ben sağolasın,yazdım youtube da epey bir şeyler çıktı izledim.

[eseneren]

su  sandım  çok güzel  kandırdılar beni

Bende yedim ilk seğrettiğim zaman kanmışdım kurcalayınca çıktı...
6 tane sanırım pc fanlarından var onları kontrol ediyorlar...

[FUNKY]

Maxim  hocam

Case 8 To 15
Print At 2,1,7         Buradaki 7  rakamı neden ve neyi ifade ediyor  adres bilgisi  sanıyorum ama ..?
Print At 1,1,TEMP

ikinci  bir lcd charecter generator  ile ürettiğimiz bir senbolun  8 satır  dizimi  olursa bunu da nasıl yazdıracağız .?

[Maxim]

ordaki 7 şunun için ,aslında geçici çözüm o
bizim adc değerimize göre şekil oluşuyor ya
1 den 16 ya kadar
1-8 alttaki segment (yani print 2,1 olan yer)
sayımız 9 olunca bir üst segmente atlıyor ya (yani print 1,1 olan yer)
işte bazen aşağıdaki segment boş kalıyor, bende öyle bir satır ekledim,
ne olursa olsun sayımız 9 ve üzerinde olursa aşağıdaki segment full dolu kalsın diye

[Acoustica]

Yazılımsal yapıyorlar Filtre işini fakat Videolar da çalan müzik ile gösterge alakasız.
Hesaplamaları güzel yapamamışlar...

Aynı şekilde aslan'a katılıyorum specturumdaki seviyeler ile muzik de çok derin senkronizasyon farkı var.
Beğenmedim :(((

[Maxim]

arkadaşlar belki videolar hakkında dedikleriniz doğruda olabilir ama

biliyorsunuz, videolar internete upload edilirken tekrar sıkıştırılıyor falan,
bu esnada video-ses senkronu kaybolabiliyor, ses datası geç geliyor olabilir

birde o videodaki görüntülerin bazıları winamp pluginleri kullanılarak pc paralel port üzerinden sürülen lcd ekranlar
bana öyle geldi

[Maxim]

bu kod daha stabil çalışıyor, tabi taslak aşamasında eksikler var
http://www.swfupload.com/view/162077.htm

Device=16F877A
Xtal = 4

Config CP_OFF, DEBUG_OFF, WRT_OFF, CPD_OFF, LVP_OFF, BODEN_ON, PWRTE_ON, WDT_OFF, XT_OSC


Declare LCD_DTPin PORTB.4
Declare LCD_ENPin PORTB.1
Declare LCD_RSPin PORTB.0

Declare Adin_Res 8
Declare Adin_Tad FRC
Declare Adin_Stime 5

Print $FE,$78,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F
Print $FE,$70,$00,$1F,$1F,$1F,$1F,$1F,$1F,$1F
Print $FE,$68,$00,$00,$1F,$1F,$1F,$1F,$1F,$1F
Print $FE,$60,$00,$00,$00,$1F,$1F,$1F,$1F,$1F
Print $FE,$58,$00,$00,$00,$00,$1F,$1F,$1F,$1F
Print $FE,$50,$00,$00,$00,$00,$00,$1F,$1F,$1F
Print $FE,$48,$00,$00,$00,$00,$00,$00,$1F,$1F
Print $FE,$40,$00,$00,$00,$00,$00,$00,$00,$1F

Dim GIRIS As Byte
Dim TEMP As Byte
Dim TEMP1 As Byte
Dim TEMP2 As Byte

Loop:
GIRIS = ADIn 0
DelayMS 1
TEMP = (GIRIS +1) / 16
TEMP1 = TEMP
If TEMP=0 Then TEMP1=1
If TEMP>7 Then TEMP2 = TEMP - 8

Select TEMP1
Case 0 To 7
Print At 2,1,TEMP1
Print At 1,1," "
EndSelect

If TEMP>7 Then
Select TEMP2
Case 0 To 8
If TEMP2=8 Then TEMP2=7
Print At 2,1,7
Print At 1,1,TEMP2
EndSelect
EndIf

Print At 1,10,"ADC:",Dec GIRIS,"  "
Print At 2,10,"SON:",Dec TEMP," "

GoTo Loop

[FUNKY]

[IMG]http://img34.imageshack.us/img34/3905/panoramabar.jpg[/img]

Uploaded with ImageShack.us



display deki sütunlardaki motifleri  değiştirmek için  karekter ram in içeriğini değiştirmek lazım ana döngü başına .

y=0
GoSub bar0       'başlangıçta bar0 motifini seç
Loop:
      If PORTB.0=0 Then   'butona basılı ise
        DelayUS 100
        Repeat
        Until PORTB.0=1   'butonu bırakana kadar bekle     
        Inc y
        If y =2 Then  y=0
        Select y
        Case 0
        GoSub bar0
        Case 1
        GoSub bar1
        EndSelect
      EndIf 
     

     GIRIS=ADIn 0
      //   /  //  /
   

yazıp  kodun altına da..

bar0:
Print $FE,$78,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F
Print $FE,$70,$00,$1F,$1F,$1F,$1F,$1F,$1F,$1F
Print $FE,$68,$00,$00,$1F,$1F,$1F,$1F,$1F,$1F
Print $FE,$60,$00,$00,$00,$1F,$1F,$1F,$1F,$1F
Print $FE,$58,$00,$00,$00,$00,$1F,$1F,$1F,$1F
Print $FE,$50,$00,$00,$00,$00,$00,$1F,$1F,$1F
Print $FE,$48,$00,$00,$00,$00,$00,$00,$1F,$1F
Print $FE,$40,$00,$00,$00,$00,$00,$00,$00,$1F
Return

bar1:

Print $FE,$40,$00,$00,$00,$00,$00,$00,$00,$1F
Print $FE,$48,$00,$00,$00,$00,$00,$00,$15,$1F
Print $FE,$50,$00,$00,$00,$00,$00,$1F,$15,$1F
Print $FE,$58,$00,$00,$00,$00,$15,$1F,$15,$1F
Print $FE,$60,$00,$00,$00,$1F,$15,$1F,$15,$1F
Print $FE,$70,$00,$1F,$15,$1F,$15,$1F,$15,$1F
Print $FE,$68,$00,$00,$15,$1F,$15,$1F,$15,$1F
Print $FE,$78,$15,$1F,$15,$1F,$15,$1F,$15,$1F
Return

gibi kendi oluşturduğumuz  motileri sıralayabiliriz ..  bu sadece bir yapılış şekli  lookup tabloları kullanılarak ta yapılabilir..