AccessTr.neT

Üç modülle çözdüm
(iki tanesi yardımcı modül )

Function coz()

Forms!Form2!r00.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 1), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 2 Then GoTo bitir

Forms!Form2!r99.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 2), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 3 Then GoTo bitir

Forms!Form2!r88.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 3), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 4 Then GoTo bitir

Forms!Form2!r77.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 4), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 5 Then GoTo bitir

Forms!Form2!r66.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 5), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 6 Then GoTo bitir

Forms!Form2!r55.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 6), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 7 Then GoTo bitir

Forms!Form2!r44.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 7), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 8 Then GoTo bitir

Forms!Form2!r33.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 8), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 9 Then GoTo bitir

Forms!Form2!r22.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 9), 1, 1) & ".gif"

If Len(Forms!Form2!SAYI) < 10 Then GoTo bitir

Forms!Form2!r11.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 10), 1, 1) & ".gif"

bitir:

End Function





Function basadon()

Forms!Form2!r00.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r11.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r22.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r33.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r44.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r55.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r66.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r77.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r88.Picture = CurrentProject.Path & "/" & "0.gif"

Forms!Form2!r99.Picture = CurrentProject.Path & "/" & "0.gif"

End Function



Function sayisifirla()

Forms!Form2!SAYI = 0

End Function

Kolay gelsin

Uygulama ektedir

Sayın okileturc, C*E*L*O*Y*C*E ve accessman paylaşım ve emekler için teşekkürler...

Tşk Durkheim,
Bu arada eğer tüm resimleri ve dolayısı ile
kodlardaki *.gif leri *.bmp ile değiştirirseniz
resim yüklerken görülen "loading image" uyarısı
gelmeyeceğinden titreme ortadan kalkar
bmp versiyonu ektedir

çok teşekkürler sn.okileturc

sayacın bir den 10 a kadar gitmesi için aşağıdaki kodda
r00.requery
yazdım kabul etmedi

Private Sub Komut16_Click()
Dim x, y As Integer
For x = 1 To 10
For y = 1 To 1000
Next y
SAYI = x
Call basadon
Call coz

"buraya ne yazmalıyız"

Next x
End Sub

Anlayamadım özür dilerim.
"r00" ilk resim denetimi, yani requery
komutu etkisizdir.
Sanırım görsellik tamam.
Siz şimdi yukarıda sayı yazdığımız alanı
kronometreye çevirmek istiyorsunuz değil mi ?

evet
sürekli artacak sekilde

---

hız olarak en sağdaki salise hızında sağdan ikinci saniye hızında olabilir
veya buna yakın olabilir
birebir saat gibi olması şart değil
ama olsa kaymaklı ekmek kadayıfı olurdu