تایمر

[oggiii]

آقا شرمنده از این سئوال خیلی ساده ی من :لبخند::لبخند: :خجالت:
آقا این ثانیه شمار یا تایمر چطوریه کدش چیه ؟ :ناراحت:

[Computer.Programmer]

این مثال کمکت میکنه.

[oggiii]

این مثال کمکت میکنه.

عزیز تشکر از پستت اما منظور من این نبود
منظور من اینه که یه فرم دارم میخوام وقتی تایمر به 4 ثانیه رسید مخفی بشه و فرم 2 رو نمایش بده




اینو نوشتم اما اجرا نمیشه
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim i As Integer
i = 1
i = Str(i) + 1
Label1.Text = i
End Sub

[oggiii]

دادا حل شد
از شما هم تشکر فقط اگه کسی می تونه بسته شدن فرم به صورت fade رو بزاره ممنونش میشم توی سایت بود اما سر در نیاوردم اگه لطف کنید با توضیح بزارید ممنون میشم



Label1.Text = Label1.Text + (i + 1)

[Computer.Programmer]

فقط اگه کسی می تونه بسته شدن فرم به صورت fade رو بزاره ممنونش میشم توی سایت بود اما سر در نیاوردم اگه لطف کنید با توضیح بزارید ممنون میشم


دوست عزیز برات یه نمونه دیگه گذاشتم.

توضیح کد:




Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.Timer1.Enabled = True
If Not b Then
e.Cancel = True
End If
End Sub



این بخش تا زمانی که متغیر b برابر با True نشده باشد اجازه بسته شدن فرم را نمی دهد.



Dim b As Boolean = False
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity -= 0.05
If Me.Opacity = 0 Then
b = True
Me.Close()
End If
End Sub



این بخش از کد Opacity فرم رو تا زمانی کم می کنه که بیشتر از صفر باشه و زمانی که صفر شد متغیر b رو برابر با True می کنه که این متغیر به فرم اجازه بسته شدن رو میده.


موفق باشی

[oggiii]

من می خوام 20% از یه مبلغ رو کم کنم کسی می دونه چطوری باید این کارو بکنم ؟؟ مقدار کم شده رو توی یه label بنویسه ومقدار باقی مانده رو هم توی یک label


Dim a As Integer
a = TextBox3.Text
Label14.Text = (Str(a) \ (20%))

[Computer.Programmer]

من می خوام 20% از یه مبلغ رو کم کنم کسی می دونه چطوری باید این کارو بکنم ؟؟ مقدار کم شده رو توی یه label بنویسه ومقدار باقی مانده رو هم توی یک label


Dim a As Integer
a = TextBox3.Text
Label14.Text = (Str(a) \ (20%))



این کد برات محاسبه می کنه:




Dim f As Double = 800
f -= (f / 100 * 15)
MsgBox(f)

[oggiii]

این کد برات محاسبه می کنه:




Dim f As Double = 800
f -= (f / 100 * 15)
MsgBox(f)


من اینو اینجوری نوشتم اما توی لیبل همش صفر نمایش میده اشکالش چیه ؟


Private Sub TextBox3_TextChanged
f = Val(TextBox1.Text)
f -= (f / 100 * 20)
Label14.Text = f
End Sub
End Classf