+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: sayaç (/konu-sayac.html)
Cvp: sayaç - okileturc - 11/11/2010
Üç 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
Cvp: sayaç - durkheim - 11/11/2010
Sayın okileturc, C*E*L*O*Y*C*E ve accessman paylaşım ve emekler için teşekkürler...
Cvp: sayaç - okileturc - 11/11/2010
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
Cvp: sayaç - accessman - 12/11/2010
ç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
Cvp: sayaç - okileturc - 12/11/2010
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 ?
Cvp: sayaç - accessman - 12/11/2010
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