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 Subdaktilo efektiyle harf harf metin yazdırın
form2 de bence güzel oldu
bu ses dosyası daha kısa
timerinterval=115
ile daha güzel oluyor
