AccessTr.neT

Sayfalar: 1 2 3

Forumumuzda paylaşılan bütün uygulamaları kendi projelerinizde kullanabilirsiniz. Bunun için izin almanıza gerek yok.

Kodlamalarda kullanılan açıklamaları silmek ya da silmemek de tamamen sizin emeğe saygınızla alakalıdır. Örneğin kodlarda "Bu kod www.accesstr.net ailesi tarafından yazılmıştır" gibi bir ibare varsa, siz bunu isterseniz silebilirsiniz. Bu tamamen sizin emeğe saygınızla alakalı bir durum olur yani...

Kolay gelsin...

güzel yapılmış bir program ve daha başka konularda bize bilgi verirseniz sevinirim.iyi günler

bunu kendi uygulamalarımıza nasıl ekleyebiliriz lütfen yardım

Aşağıdaki kodları inceleyin ve uygulayın. Süre ölçer aralığı 0 dır. Onu da 10 yapın.

Buradaki değişken tanımları formun general decleration kısmındaki "option compare database" altına yapıştırılacak

Kod:
Dim a As String, b As String, i As Integer

Aşağıdaki kodlar da zaman dolduğunda olayına yapıştırılacak

Kod:
i = i + 1

a = "www.accesstr.net"

b = Space(100) & a

    If i <= Len(b) - Len(a) Then

        Me.Caption = Mid$(b, i, Len(b))

    ElseIf i > Len(b) - Len(a) Then

        Me.Caption = Space(1) & Me.Caption

        If Len(Me.Caption) = Len(b) Then i = 0

    End If

Bu kadar. Süre ölçer aralığı değerini de 10 yaparsanız formunuz açıldığında yukarda "www.access.tr" yazısı hareketlenecektir.

Kolay gelsin.

hocam teşekkürler

sayın hocam söyediklerinizi uyguladım ama olmadı ,
ayrıca ilginiz için teşekkür ederim

Sayfalar: 1 2 3

tdsharun

birgizlidost

aksi123

mehmetdemiral

afil

aksi123