sayaç

1 2 3 4
11/11/2010, 18:21

okileturc

Üç 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


11/11/2010, 21:20

durkheim

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

okileturc

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
12/11/2010, 11:25

accessman

ç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
12/11/2010, 11:32

okileturc

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 ?
12/11/2010, 11:44

accessman

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
1 2 3 4