Skip to main content

AccessTr.neT


sayaç

sayaç

Çözüldü #7
Üç 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


.rar sayac_okileturc.rar (Dosya Boyutu: 93,48 KB | İndirme Sayısı: 21)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #8
Sayın okileturc, C*E*L*O*Y*C*E ve accessman paylaşım ve emekler için teşekkürler...+rep+rep+rep
Son Düzenleme: 11/11/2010, 21:44, Düzenleyen: durkheim.
Cevapla
Çözüldü #9
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
.rar sayac_okileturc.rar (Dosya Boyutu: 93,48 KB | İndirme Sayısı: 13)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #10
ç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
@benbendedeilem
Son Düzenleme: 12/11/2010, 11:30, Düzenleyen: accessman.
Cevapla
Çözüldü #11
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 ?
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #12
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
@benbendedeilem
Son Düzenleme: 12/11/2010, 11:49, Düzenleyen: accessman.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task