Skip to main content

AccessTr.neT


metin kutusundaki harflerin timer ile tek tek yazdırılması

metin kutusundaki harflerin timer ile tek tek yazdırılması

#1
iyi günler
timer ile metin harfleri tek tek yazdırma örneği.

Kod:
Option Compare Database
Dim metin3 As String
Dim tara As Integer
Private Sub Form_Open(Cancel As Integer)
metin3 = ""
tara = 0
End Sub

Private Sub Form_Timer()
Dim metin1 As String
Dim metin2 As String

metin1 = "bugun okula geldim."
tara = tara + 1
metin2 = Mid(metin1, tara, 1)
metin3 = metin3 & metin2
son = metin3
timeinterval = 0
End Sub


daktilo efektiyle harf harf metin yazdırın
form2 de bence güzel oldu
harf_harf.rar

bu ses dosyası daha kısa
timerinterval=115
ile daha güzel oluyor
dak.rar
@benbendedeilem
Cevapla
#2
Paylaşım için teşekkürler, konu örnekler bölümüne taşınmıştır.
Cevapla
#3
Emek ve paylaşım için teşekkürler..

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#4
ellerinize sağlık..paylaştığınız için teşekkürler
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da