Gerİ Sayma

[osmanfenerli1907]

MERHABA
ben commandbutton1 e tıklayınca label1 30 dan geriye doğru nasıl sayabilir?
iyi günler

 

[veyselemre]

Private Sub CommandButton1_Click()
For x = 30 To 1 Step -1
    DoEvents
    For hiz = 1 To 10000
        Label1 = x
    Next hiz
Next x
End Sub

 

[Orion1]

Merhaba.
UserForm'un General Bölümüne Aşağıdaki kodu yazın.

Public sayi As Byte

Userformun Initialize olayına aşağıdaki kodu yazın.

Private Sub UserForm_Initialize()
sayi = 1
Label1.Caption = sayi
End Sub

CommandButon1'e aşağıdaki kodu yazın.

Private Sub CommandButton1_Click()
sayi = sayi + 1
If sayi = 31 Then sayi = 1
Label1.Caption = sayi
End Sub

İşlem tamam.

 

[osmanfenerli1907]

sayın hocam ben butona tıklayınca 30 dan geriye doğru saat gibi saysın 0 da dursun

 

[osmanfenerli1907]

Sy hocam
yardımlarınızı bekliiyorum

 

[Orion1]

Merhaba.
Command Butona Her bastığınızda 30 dan 1 eksilterek label1'de gösteriyor.
30-29-28-27- ...0 gibi .

UserForm'un General Bölümüne Aşağıdaki kodu yazın.

Public sayi As Long

Userformun Initialize olayına aşağıdaki kodu yazın.

Private Sub UserForm_Initialize()
sayi = 30
Label1.Caption = sayi
End Sub

CommandButon1'e aşağıdaki kodu yazın.

Private Sub CommandButton1_Click()
sayi = sayi - 1
If sayi = -1 Then sayi = 30
Label1.Caption = sayi
End Sub

 

[osmanfenerli1907]

HOCAM BEN bir kere TIKLAYINCA
30 dan geriye doğru saysın 0 a kadar yani süre

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz.

Private Sub CommandButton1_Click()
Dim i As Long
For i = 30 To 0 Step -1
    Label1.Caption = i
    DoEvents
    Application.Wait Now + TimeValue("00:00:01")
Next
End
End Sub

 

[osmanfenerli1907]

sy hocam süre 0 A inince userform kapanıyor kapanmasa label2.visible=true olsa nasıl yaparız?

 

[Orion1]

Merhaba.
CommandButon'a aşağıdaki kodları yazınız.

Private Sub CommandButton1_Click()
Dim i As Long
For i = 30 To 0 Step -1
    Label1.Caption = i
    DoEvents
    Application.Wait Now + TimeValue("00:00:01")
Next
End Sub

Aşağıdaki koduda Userformun kod sayfasına yapıştırın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

 

[sadis]

peki sayın hocam bu kodları userformu kapatmak için nasıl kullanırız ?
(workbook kullanılabilir olucak)

 

[Orion1]

peki sayın hocam bu kodları userformu kapatmak için nasıl kullanırız ?
(workbook kullanılabilir olucak)

Userform'u kapatmak için başlıkta bulunan Sağ üst köşede) X işaretine tıklayın.