****************برنامه اورژانسی *********هر کسی می تونه زحمت این برنام رو واسه من بکشه ؟؟

برنامه یک عدد تصادفی تولید کند اگر عدد تصادفی با عدد وارد شده در text برابر باشد رنگ دو ستاره کنار هم تغییر کند(قرمز شود) واگر با یکی از اعداد وارد شده در text برابر باشد (شبیه هم باشند ) یکی از دوستاره روشن شود ..
عدد وارد شده در text باید دورقمی باشد
[IMG] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [/IMG]

مثال )
عدد 25 rand
عدد text 35
خروجی * *

عدد 20 rand
عدد text 20
خروجی * *

عدد 32 rand
عدد text 12
خروجی * *

رنگ مشکی :رنگ ثابت تغییر نکرده
رنگ قرمز رنگ تغییر کرده
امید وارم منظورمو رسونده باشم

آقا بجای اینکه بنویسم a=fix(rnd*(99-10)) l نوشتم a=fix(rnd*(99-0) l که زود درستش کردم . شرمنده دوست عزیزم.


عزیزم همینکه خواسته شمارا دیدم رفتم سراغ ویژوال و یه چیزایی نوشتم که همون کاری که میخوای را میکنه:

لوازم م ورد نیاز : 2 عدد command یکی برای اجرای برنامه و یکی برای خروج

یک عدد textbox

و دو عدد list box . سعی کن لیست باشه . با نام پیشفرض

در رویداد Text1_LostFocus این دستور را بنویس :

کد:

---

Private Sub Text1_LostFocus()
 If Val(Text1.Text) > 99 Or Val(Text1.Text) < 10 Then
    MsgBox (" adad bayad 2 raghami bashad")
    Text1.Text = ""
    Text1.SetFocus
    End If
End Sub

---

در رویداد دکمه برای اجرای برنامه این کدهارو قرار بده :

کد:

---

Private Sub Command1_Click()
    List1.Clear
    List2.Clear
    Dim a As Integer
    a = Fix(Rnd * (99 - 10))
    If a = Text1.Text Then
    List1.ForeColor = vbRed
    List2.ForeColor = vbRed
    List1.AddItem "*"
    List2.AddItem "*"
    Exit Sub
    Else
    k = Right(Text1.Text, 1)
    l = Right(a, 1)
    If k = l Then
    List1.ForeColor = vbRed
    List2.ForeColor = vbBlack
    List1.AddItem "*"
    List2.AddItem "*"
    Exit Sub
    Else
    k = Left(Text1.Text, 1)
    l = Left(a, 1)
    If k = l Then
    List1.ForeColor = vbBlack
    List2.ForeColor = vbRed
    List1.AddItem "*"
    List2.AddItem "*"
    Exit Sub
    Else
    List1.ForeColor = vbBlack
    List2.ForeColor = vbBlack
    List1.AddItem "*"
    List2.AddItem "*"
    End If
    End If
    End If
End Sub

---

و در آخر در رویداد دکمه خروج این کد را بنویس:

کد:

---

Unload Me

---

توجه : آقا بجای اینکه بنویسم a=fix(rnd*(99-10)) l نوشتم a=fix(rnd*(99-0) l که زود درستش کردم . شرمنده دوست عزیزم
نکته : اندازه دو لیست باکس را کوچک کن و اندازه قلم را 12 یا 24 و نوع قلم را BOLD کن.
توضیح برنامه :
اول از همه در رویداد lost_focus از شی text1 کدی نوشتم که اگه عدد وارد شده کمتر از 10 یا بیشتر از 99 بود اخطار بده .( عدد دو رقمی ) در رویداد lost_focus نوشتم که نگام خارج شدن از از درون text1 شرط نوشته شده را تست کنه .
یک عدد تصادفی بین 10 تا 99 ( دو رقمی) تولید میکنیم و در حافظه a قرار دادیم. با دستور if شرط گذاشتم که اگه مساوی بودن رنگ داخلی دو لیست قرمز بشه و ستاره را add کنه و تا ...
از دو دستور Right و left تست کردم اگه دو عدد مساوی نبودن حالا ببینه ایا چپ یا راست مساوی هستند یا خیر .
فاضل نصیری همیشه در خدمت شما .

قربونت مهندس دستت درد نکن

ماشاا... !