Elektrotekno.com Ana Sayfa || Pic ve diğer işlemci ve denetleyiciler ile yapılmış devreler, projeler || Kayan yazı ve matrix led devreleri (led message projects)


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

Kayıt: 12 Tem 2009
Mesajlar: 3

Offline
alput
Tarih: 19 09 2010 15:34

eln07 kardeşim devrenin çalışmaması mümkün değil 100 nf falan da çok sorun yaratmaz sen bence entegrene programın tam olarak yüklendiğinden emin ol eğer devreyi doğru kurduysan çalışmaması imkansız bir tek bazen max 232 veri aktarımında sorun oluyor onuda devreyi sen çalıştırdıkdan sonra helledersin ama ilk olarak displayını test et test için önce entegrelerini sök devreden mosfetlerin gatelerini direk 1 k direnş ile - ye bağla sonrada 74 164 lerin ab uçlarına ıslak parmakla dokun displayde hareket alırsan sorun sürücü devrende dir ve büyük olasılıkla pic programlanmamıştır yok displaylerde hareket almassan ozamanda displaylerini kontrol et vs. kendinden emin ol çünkü devre çalışıyor. extra yardım istersen tuluyster@gmail.comkolay gelsin


Reklamlar
Kayıt: 31 Ekm 2009
Mesajlar: 77
Konum: Brazil
Offline
ledmidia
Tarih: 20 09 2010 00:07

help to decrease the space between the word in visual basic6


hello
how to reduce the space between words in vb6
form 2
thanks

dim max_uzunluk as ınteger
dim hizalama as string
dim fon as string
dim a_hiz as ınteger
dim bek_sur as ınteger
dim animasyon as string
dim metin as string
dim yazi as string
dim f as ınteger
dim i as ınteger
dim hiz as ınteger

public function kontrol()
ıf len(text1.text) > max_uzunluk then
cvp = msgbox("bu animasyonu seçerseniz girdiðiniz yazýnýn " & max_uzunluk & " karakterinden sonrasý kaybolacak. devam etmek Ýstiyor musunuz?", 36, "!!dikkat!!")

ıf cvp = vbyes then
text1.text = mid(text1.text, 1, max_uzunluk)
else
option16.value = true
option1.value = true
end ıf
end ıf
end function

private sub command1_click()

on error resume next

ıf animasyon = "tarih görüntüle" then
goto dev
end ıf
ıf animasyon = "saat görüntüle" then
goto dev
end ıf

ıf animasyon = "sýcaklýk görüntüle" then
goto dev
end ıf

ıf text1.text = "" then
msgbox "lütfen metin giriþi yapýnýz", 64, "boþ metin algýlandý"
text1.setfocus
exit sub
end ıf


dev:

a_hiz = slider1.value
bek_sur = slider2.value

metin = ""

select case animasyon

case "uzun metin kaydýr"


ıf fon = "ınce" then f = 1 else f = 2
yazi = " " & text1.text & " "
metin = chr(255) & chr(1) & chr(len(text1.text) + 32) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)


case "soldan saga kay"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

ıf max_uzunluk = 16 then
yazi = " " & yazi
else
yazi = " " & yazi
end ıf

metin = chr(255) & chr(2) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)

case "sagdan sola kay"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

ıf max_uzunluk = 16 then
yazi = yazi & " "
else
yazi = yazi & " "
end ıf

metin = chr(255) & chr(3) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)

case "yukaridan asagi kay"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

metin = chr(255) & chr(4) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)


case "asagidan yukari kay"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

metin = chr(255) & chr(5) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)


case "tarih görüntüle"
ıf fon = "ınce" then f = 1 else f = 2
yazi = ""
metin = chr(255) & chr(6) & chr(a_hiz) & chr(bek_sur) & chr(255)


case "saat görüntüle"
ıf fon = "ınce" then f = 1 else f = 2
yazi = ""
metin = chr(255) & chr(7) & chr(a_hiz) & chr(bek_sur) & chr(255)


case "sýcaklýk görüntüle"
ıf fon = "ınce" then f = 1 else f = 2
yazi = ""
metin = chr(255) & chr(Cool & chr(a_hiz) & chr(bek_sur) & chr(255)


case "ıcten disa acil"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

metin = chr(255) & chr(9) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)


case "distan ıce kapan"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

metin = chr(255) & chr(10) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)


case "dur"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

metin = chr(255) & chr(11) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)


case "flash"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

metin = chr(255) & chr(12) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)

case "satýr"

ıf fon = "ınce" then f = 1 else f = 2
yazi = text1.text

ıf len(text1.text) < max_uzunluk then

select case hizalama

case "sol"

for i = 1 to max_uzunluk - len(text1.text)
yazi = yazi & " "
next

case "ortala"

for i = 1 to max_uzunluk - len(text1.text)

ıf i mod 2 = 1 then
yazi = " " & yazi
else
yazi = yazi & " "
end ıf

next

case "sag"

for i = 1 to max_uzunluk - len(text1.text)
yazi = " " & yazi
next

end select

end ıf

ıf max_uzunluk = 16 then
yazi = " " & yazi & " "
else
yazi = " " & yazi & " "
end ıf

metin = chr(255) & chr(13) & chr(max_uzunluk) & chr(f) & chr(a_hiz) & chr(bek_sur) & yazi & chr(255)


end select


form1.show
form1.text1.text = metin & hiz
unload me

end sub

private sub command2_click()
on error resume next
unload me
end sub

private sub form_activate()
on error resume next
text1.setfocus
end sub

private sub form_load()
on error resume next
animasyon = "uzun metin kaydýr"
hizalama = "ortala"
fon = "ınce"
a_hiz = 1
bek_sur = 1
max_uzunluk = 120
hiz = 2
end sub

private sub option1_click()
on error resume next
animasyon = "uzun metin kaydýr"
max_uzunluk = 120
text1.locked = false
frame2.enabled = false
frame3.enabled = true
end sub

private sub option13_click()
on error resume next
hizalama = "sol"
hiz = 1
end sub

private sub option14_click()
on error resume next
hizalama = "ortala"
hiz = 2
end sub

private sub option15_click()
on error resume next
hizalama = "sag"
hiz = 3
end sub

private sub option16_click()
on error resume next
fon = "ınce"
ıf option1.value = false then
max_uzunluk = 16
kontrol
else
max_uzunluk = 120
end ıf

end sub

private sub option17_click()
on error resume next
fon = "kalin"
ıf option1.value = false then
max_uzunluk = 12
kontrol
else
max_uzunluk = 120
end ıf
end sub

private sub option18_click()
on error resume next
animasyon = "satýr"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true
end sub

private sub option2_click()
on error resume next
animasyon = "soldan saga kay"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true

end sub

private sub option3_click()
on error resume next
animasyon = "sagdan sola kay"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true

end sub

private sub option4_click()
on error resume next
animasyon = "yukaridan asagi kay"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true

end sub

private sub option5_click()
on error resume next
animasyon = "asagidan yukari kay"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true

end sub

private sub option6_click()
on error resume next
animasyon = "tarih görüntüle"
text1.text = ""
text1.locked = true
frame2.enabled = false
frame3.enabled = false
end sub

private sub option7_click()
on error resume next
animasyon = "saat görüntüle"
text1.text = ""
text1.locked = true
frame2.enabled = false
frame3.enabled = false
end sub

private sub option8_click()
on error resume next
animasyon = "sýcaklýk görüntüle"
text1.text = ""
text1.locked = true
frame2.enabled = false
frame3.enabled = false
end sub

private sub option9_click()
on error resume next
animasyon = "ıcten disa acil"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true

end sub

private sub option10_click()
on error resume next
animasyon = "distan ıce kapan"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true

end sub

private sub option11_click()
on error resume next
animasyon = "dur"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true

end sub

private sub option12_click()
on error resume next
animasyon = "flash"

ıf fon = "kalin" then
max_uzunluk = 12
else
max_uzunluk = 16
end ıf

kontrol
text1.locked = false
frame2.enabled = true
frame3.enabled = true

end sub

private sub slider1_click()
on error resume next
a_hiz = slider1.value
end sub

private sub slider1_mousemove(button as ınteger, shift as ınteger, x as single, y as single)
on error resume next
slider1.text = 11 - slider1.value
end sub

private sub slider2_click()
on error resume next
bek_sur = slider2.value
end sub

private sub text1_keypress(keyascii as ınteger)
on error resume next
ıf keyascii = 8 then exit sub
ıf keyascii = 13 then exit sub
ıf keyascii = 27 then exit sub

ıf len(text1.text) = max_uzunluk then
keyascii = 0
msgbox "bu alana en fazla " & max_uzunluk & " harf girebilirsiniz.", 64, "maximum karakter uzunluðu geçildi."
end ıf
end sub8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic+Ares+İsis)
Başa dön
Kayıt: 19 May 2010
Mesajlar: 47

Offline
ramazan saylan
Tarih: 22 09 2010 21:05

arkadaşlar bu projeyi saat olarak kullanacağım

saati stabil çalıştırabilen oldumu

benim devre 4 saat ileri atıyor 24 ten sonra

farklı bit gönder programıyda denedim sayfa 12 deki ile ondada 24 25 diye gitti

bunun çözümünü bulan arkadaşlar varsa yardım bekliyorum
Başa dön
Kayıt: 26 May 2009
Mesajlar: 5

Offline
emirhan11
Tarih: 14 11 2010 21:29

devreyi dotmatrix ile yaptım. sorunsuz çalıştı. sürücü baskı devresini panoya sığması için biraz düzenledim. resimleri de ekledim.8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic+Ares+İsis)8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic+Ares+İsis)
Başa dön
Kayıt: 18 Mar 2007
Mesajlar: 51

Offline
tagre
Tarih: 20 12 2010 23:37

pbp dosyasında hata


merhabalar. Aranızda Pbp dosyasını derleyen var mı? ben derlemek istediğimde aşağıdaki gibi hata mesajı alıyorum. 8 Satır Sutun Sayısı Artırılabilir Kayan Yazı(VB+Pic Basic+Ares+İsis)
Başa dön
Kayıt: 29 Mar 2007
Mesajlar: 34

Offline
XooM
Tarih: 18 03 2011 20:03

arkadaşlar size bir sorum olucak.. Bu devrede bi seferde 8 tane led yaniyor ise neden IRF9530 gibi bir transistör kullanıyoruz. 250mA 'den daha fazla akım çekmezki bu :S Sizin devrelerinizde hiç ölçüm yapanınız oldumu
Başa dön
Kayıt: 19 May 2010
Mesajlar: 47

Offline
ramazan saylan
Tarih: 18 03 2011 23:22

arakadaşım sürücü illaki tek pixelde kullanılacak diye bişey yokki 4 pixel 8 pixel panolar var böle panolar için ucuz çıkışlara ne gerek var oldumu sağlam olmalı
Başa dön
Kayıt: 29 Mar 2007
Mesajlar: 34

Offline
XooM
Tarih: 19 03 2011 11:35

Amac bumu sizce ? İleriye yonelik Gelişmiş bir sürücü olsun diyemi yoksa O transistöre gerçekten 96 sutun için tek pixeldede ihtiyac varmı
Başa dön
Kayıt: 29 Mar 2007
Mesajlar: 34

Offline
XooM
Tarih: 21 03 2011 16:01

Sürücü Devrede Sıcaklık entegresi ve Saat Entegreleri olmadan baskı devreyi çizsek acaba bu şekilde çalışmada bi sorun olurmu ? Yani Pic programından nasıl bir değişiklik yapmamız gerekir.
Başa dön
Kayıt: 30 Arl 2006
Mesajlar: 116

Offline
elektronikci43
Tarih: 25 03 2011 11:39

XooM mosfetlerin kullanılmasının sebebi hızlı çalışmasıdır yoksa amper değil ( bu devre için) saat ve ısı elemanlarını çızmezsen yani kullanmazsan devrenin çalışmasında bi değişiklik olmaz saat ve derceyi göremezsin 00=00=00 çıkar
Başa dön


Sayfaya git Önceki  1, 2, 3 ... 80, 81, 82, 83, 84, 85  Sonraki

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


Benzer Konular
- PIC16F84 İle Yapılan Klavye Kontrollü Kayan Yazı Devresi + Çift Tabaka PCB Şema
- MPU6050 İvmeölçer Cayro Termotere 16F877A Proton Basic Kodu
- HMC5883L Dijital Pusula 16F877A Proton Basic Kodu

- ADXL345 akselerometre 16f877A Proton Basic Kodu

- 100mm Displayli Saat Derece 16F628+DS1302 Picbasic+Hex+Ares çizim
- PIC basic ve asm dersleri
- 500 Watt Anfi Devre (PCB ARES Dosyası Vardır)
- Bilgisayar Destekli Uygulamalar (isis & ares)
- Mikrodenetleyici Temrinleri (Pic Basic Pro)

- rgb ledlerle havaya yazı

- ledcom kayan yazı

Sitemize üyelik ve içeriğin indirilmesi tamamen ücretsizdir. Sitemizde paylaşılan tüm dokümanlar (Tezler, makaleler, ders notları, sınav soru cevaplar, projeler) paylaşımcıların bireysel çalışmaları olup telif hakları kendilerine aittir ya da açık bir şekilde kamusal alana yerleştirilmiş dokümanların birer kopyalarıdır. Kişilerin bireysel çalışmalarını sitemizde yüklemesinde, sitemizde paylaşıma teşvik eden puanlama sisteminin de etkisi büyüktür. Bunlara rağmen hala size ait olan ve burada bulunmasına izin vermediğiniz dokümanlar varsa iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.
Powered by phpBB | Translated by phpBB Turkiye | Ads by Google Adsense | Design by Crazy Bat based