8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic) : Kayan Yazı Projeleri - ElektroArge Elektronik Devreler Projeler
duyuruElektroArge.com'a Hoşgeldiniz. Üye Olmak İçin Tıklayın. duyuru





houseForum ana sayfa   iletişimİletişim   bilgiSSS  
kırmızı yeşil mavi
ekleKayıt  anahtarGiriş
evForum ana sayfa goTamamlanmış Elektronik Projeleri goMicrochip PIC ile Yapılmış Projeler goKayan Yazı Projeleri
 

  • Reklam

8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic)

Kayan Yazı Projeleri Paylaşım Alanı.

8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic)

Mesajgönderen onurbilke » 26 May 2013 14:33

Arkadaşların İsteği Üzerine Daha Önceden Yapmış Olduğum 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic+Ares+İsis) Kayan Yazı Devresini Ekliyorum.

Mesaj içeriğini görmek için kayıt ve giriş gerektirir
Kullanıcı avatarı
onurbilke
Site Kurucusu
Site Kurucusu
 
Mesajlar: 76
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 15 Mar 2013 13:06
Konum: ANKARA

Reklam

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen ledmidia » 29 May 2013 15:04

hello onurbilke
on this project is to modify it to work
with 74HC595
thank you :mrgreen:
Kullanıcı avatarı
ledmidia
Çırak
Çırak
 
Mesajlar: 4
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 12 Nis 2013 13:22

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen onurbilke » 30 May 2013 14:30

ledmidia yazdı:hello onurbilke
on this project is to modify it to work
with 74HC595
thank you :mrgreen:

of course. you can change scan the led display method from source code.
Kullanıcı avatarı
onurbilke
Site Kurucusu
Site Kurucusu
 
Mesajlar: 76
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 15 Mar 2013 13:06
Konum: ANKARA

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen ledmidia » 31 May 2013 17:02

thanks for the reply.
here the code.
It does not work well

Kod: Tümünü seç
Tara:
   for l=1 to T_Hiz
   
    For i=1 to 8

        Select Case i   
   
        case 1   
                Portd=%11111111
           
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.0
               
                E_Clock=1
                E_Clock=0
           
               
            next
high strobe

low strobe

            Portd=%11111110
   
     case 2
   

             Portd=%11111111       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.1
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11111101

     
        case 3

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.2
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11111011
 

       
        case 4

             Portd=%11111111 
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.3
           
               E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11110111
 
         
        case 5

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.4
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11101111
 

   
        case 6

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.5
           
               E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11011111

   
       
        case 7

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.6
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%10111111
   

     
        case 8
   

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.7
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%01111111
 
   
        end select

        pauseus Tar_Hiz
 
    next
    'Portd=%11111111
    next
   
return
En son okanbilke tarafından 02 Haz 2013 17:01 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Sebep: Kodlar kod bloğuna eklendi
Kullanıcı avatarı
ledmidia
Çırak
Çırak
 
Mesajlar: 4
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 12 Nis 2013 13:22

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen onurbilke » 02 Haz 2013 02:38

ledmidia yazdı:thanks for the reply.
here the code.
It does not work well

Kod: Tümünü seç
Tara:
   for l=1 to T_Hiz
   
    For i=1 to 8

        Select Case i   
   
        case 1   
                Portd=%11111111
           
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.0
               
                E_Clock=1
                E_Clock=0
           
               
            next
high strobe

low strobe

            Portd=%11111110
   
     case 2
   

             Portd=%11111111       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.1
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11111101

     
        case 3

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.2
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11111011
 

       
        case 4

             Portd=%11111111 
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.3
           
               E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11110111
 
         
        case 5

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.4
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11101111
 

   
        case 6

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.5
           
               E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%11011111

   
       
        case 7

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.6
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%10111111
   

     
        case 8
   

             Portd=%11111111
       
            for j=0 to Sat_Uz-1
       
                Coluna=Dizi[j]
                E_Data=Coluna.7
           
                E_Clock=1
                E_Clock=0
             
       
            next
high strobe

low strobe

            Portd=%01111111
 
   
        end select

        pauseus Tar_Hiz
 
    next
    'Portd=%11111111
    next
   
return


you must change Sat_Uz value.
Kullanıcı avatarı
onurbilke
Site Kurucusu
Site Kurucusu
 
Mesajlar: 76
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 15 Mar 2013 13:06
Konum: ANKARA

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen songoku2424 » 29 Haz 2013 17:46

arkadaşlar acaba kayan yazı videoları nerede
Kullanıcı avatarı
songoku2424
Yeni Üye
Yeni Üye
 
Mesajlar: 1
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 29 Haz 2013 17:34

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen okanbilke » 30 Haz 2013 11:21

songoku2424 yazdı:arkadaşlar acaba kayan yazı videoları nerede


kayan-yazi-nasil-yapilir-f53/kayan-yazi-nasil-yapilir-tum-dersler-onur-bilke-t118.html
okanbilke@gmail.com
Kullanıcı avatarı
okanbilke
Site Kurucusu
Site Kurucusu
 
Mesajlar: 721
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 15 Mar 2013 13:09
Konum: Ankara

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen mert » 10 Tem 2013 22:38

onur bilke hocam devrenizle ilgili bir sorum olacak cevap verirseniz cok memnun olurum teşekkür ederim. (VB+isis+....)adlı devrenizi elektroteknoadresinden indirip iside oluşturduktan sonra gerçekte çalıştırdım(satır satır gel hariç) diğer 12 animasyonu çalıştırdım(bilgisayar ile haberleşme yapmadan). Devrenizi paylaştığınız için tüm emeklerinize teşekkür ederim.
devrenize yeni bir animasyon eklemek istiyorum fakat bu konuda yardımınıza ihtiyacım var. Yardımcı olur musunuz?Örneğin "merhaba" yazısı ekrana tek tek kayarak gelsin ve dursun. önce sadece m harfi kayarak gelsin ve dursun sonra e harfi kayarak gelsin ve dursun bunun sistematiği hakkında bilgiler verebilir misiniz?
teşekkür ederim. İyi çalışmalar...
Kullanıcı avatarı
mert
Yeni Üye
Yeni Üye
 
Mesajlar: 1
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 10 Tem 2013 21:39

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen onurbilke » 11 Tem 2013 08:04

mert yazdı:onur bilke hocam devrenizle ilgili bir sorum olacak cevap verirseniz cok memnun olurum teşekkür ederim. (VB+isis+....)adlı devrenizi elektroteknoadresinden indirip iside oluşturduktan sonra gerçekte çalıştırdım(satır satır gel hariç) diğer 12 animasyonu çalıştırdım(bilgisayar ile haberleşme yapmadan). Devrenizi paylaştığınız için tüm emeklerinize teşekkür ederim.
devrenize yeni bir animasyon eklemek istiyorum fakat bu konuda yardımınıza ihtiyacım var. Yardımcı olur musunuz?Örneğin "merhaba" yazısı ekrana tek tek kayarak gelsin ve dursun. önce sadece m harfi kayarak gelsin ve dursun sonra e harfi kayarak gelsin ve dursun bunun sistematiği hakkında bilgiler verebilir misiniz?
teşekkür ederim. İyi çalışmalar...

Kayan yazi dersleri kisminda animasyonlarin nasil olusturulacagindan detayli olarak bahsedecegim. Iyi çalismalar.
Kullanıcı avatarı
onurbilke
Site Kurucusu
Site Kurucusu
 
Mesajlar: 76
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 15 Mar 2013 13:06
Konum: ANKARA

Re: 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Bas

Mesajgönderen muratelvan » 12 Tem 2013 14:41

onur hocam

bu kayan yazıyı yaptım fakat tum ledler cansız bi sekilde yanıyor gonderilen yazı icerisinde belli ama hangi karakterlerin cıktıgı belirsiz aynı zamanda pbp dosyasını derlemek istedigimde adres var WORD hatası alıyorum.
birde pıckıt 2 programlama cihazı kullanıyorum.hex dosyasını actıgımda (warning: some configuration words not in hex file ensure default values above rightare acceptable) uyarısı alıyorum.bu problem nedendir.yardımcı olursanız sevinirim.kolay gelsin
Kullanıcı avatarı
muratelvan
Yeni Üye
Yeni Üye
 
Mesajlar: 2
Beğendiklerim: 0 mesaj
Beğenilenlerim: 0 mesaj
Kayıt: 05 May 2013 15:28

Sonraki

Dön Kayan Yazı Projeleri

Kimler çevrimiçi

Bu forumu gezen kullanıcılar: Hiç bir kayıtlı kullanıcı yok ve 1 misafir


  • Reklam
cron