لطفا راهنمایی کنید .

سلام خدمت دوستان محترم و گرامی . من یک سوال در ساخت برنامه ( شبیه ساز چهار راه ) دارم لطفا کمک کنید :

::: سوال :::

من میخواهم توسط یک text box عددی از کاربر گرفته شود سپس این عدد شروع به کم شدن شود تا برسد به 0 .
سپس این عدد بر روی یک label نمایش داده شود .
این کار باید توسط تایمر انجام شود .
لطفا برنامه را به طور ساده توضیح دهید .


خیلی ممنون

چرا کسی من را راهنمایی نمیکند ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

سلام

خب خیلی ساده هست

کد اون Label که عدد رو کم میکنه رو که خودت نوشتی، کافیه یه TextBox بذاری و در رویداد KeyUp اون کد زیر رو بنویسی ::


[PHP]Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Label1.Caption = Text2.Text
Text2.Text = ""
End If
End Sub[/PHP]

وقتی یه عدد توی text بنویسی و Enter بزنی ، این عدد میره توی Label1 و به جای اون عدد پیش فرض ، کم میشه.




موفق باشی

خیلی ممنون که راهنمایی کردید .
یک سوال : key cod چیه ؟

خیلی ممنون میشم

دوست عزیز شما با استفاده از keycode میتوانیم کلیدی رو که رو صفحه کلید فشرده شده , کدش رو تشخیص بدی و یه چیز تو مایه های کد اسکی هست با این تفاوت که keycode همه کلیدها رو تشخیص میده ولی keyascii بعضی ها رو تشخیص نمیده.
برای مثال تو رویداد keydown یه text box این کد رو بذار:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print KeyCode
End Sub

و اینجوری میتونی با صفحه کلید ارتباط برقرار کنی.
موفق باشید.:46:

شما اگر میشود کلا کد این برنامه را به من بدید . من مشکلم این هست که چه جوری عدد داخل text رو به طور مدام کم کند

---------- Post added at 06:32 PM ---------- Previous post was at 06:30 PM ----------

کد باید اینگونه باشد اما این فقط یک بار عدد داخل text را کم میکند باید به طور مدام تا 0 انجام دهد .

با تشکر

---------- Post added at 06:32 PM ---------- Previous post was at 06:32 PM ----------

کد باید اینگونه باشد اما این فقط یک بار عدد داخل text را کم میکند باید به طور مدام تا 0 انجام دهد .

با تشکر

---------- Post added at 06:34 PM ---------- Previous post was at 06:32 PM ----------

[PHP]a = Val(Text1.Text)
Label1.Caption = a - 1[/PHP]

کد باید اینگونه باشد اما این فقط یک بار عدد داخل text را کم میکند باید به طور مدام تا 0 انجام دهد .

با تشکر

قبلا این عدد کجا کم میشد؟

توی Label نبود مگه؟
=================================

اول باید یه Label بزاری روی صفحه ( اسم این لیبل رو میزاریم Clock )

بعد باید مشخص کنی که چی توی این Clock باید نمایش داده بشه .
خب ما میخوایم که عددی رو نمایش بده و کم بشه .

در رویداد Form_Load باید چراغ های سبز و زرد و قرمز رو تعریف کنیم و بهشون یه عدد پیش فرض بدیم ، به این شکل ::

Y : چراغ زرد
g : سبز
r : قرمز



[PHP]g = 20
Y = 3
r = 20[/PHP]چراغ های سبز و قرمز از 20 شروع به کم شدن کنن و چراغ زرد از 3

بعد باید یه گزینه تعریف کنیم که چندتا چندتا کم بشه

مثلا" : TBL=1

بعد

[PHP]clock = r[/PHP]
توی رویداد KeyUp تکست مینویسیم ::

[PHP]Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
clock.Caption = Text2.Text
Text2.Text = ""
End If
End Sub

[/PHP]در مورد KeyCode هم که دوستان توضیح دادن.


حالا باید توی تایمر بنویسیم ::

[PHP]'******Cheragh Rahnamaii********'

clock.Caption = Val(clock.Caption) - 1
If Val(clock.Caption) = -1 Then
Select Case TBL
Case 1
g1.BackColor = vbBlack
y1.BackColor = vbBlack
r1.BackColor = vbRed
g2.BackColor = vbBlack
y2.BackColor = vbYellow
r2.BackColor = vbBlack
clock.Caption = Y
TBL = 2
Case 2
g1.BackColor = vbGreen
y1.BackColor = vbBlack
r1.BackColor = vbBlack
g2.BackColor = vbBlack
y2.BackColor = vbBlack
r2.BackColor = vbRed
clock.Caption = g
TBL = 3
Case 3
g1.BackColor = vbBlack
y1.BackColor = vbYellow
r1.BackColor = vbBlack
g2.BackColor = vbBlack
y2.BackColor = vbBlack
r2.BackColor = vbRed
clock.Caption = Y
TBL = 4
Case 4
g1.BackColor = vbBlack
y1.BackColor = vbBlack
r1.BackColor = vbRed
g2.BackColor = vbGreen
y2.BackColor = vbBlack
r2.BackColor = vbBlack
clock.Caption = r
TBL = 1
End Select
End If[/PHP]

فکر کنم همه چی واضح باشه ،
اگه سوالی بود بپرس



موفق باشی

خیلی خیلی ممنون