close
تبلیغات در اینترنت
ساخت یک بازی ساده در VB
loading...

ایران دانلود

lbl2.Caption = Int(Rnd() * 6) + 1 If lbl2.Caption = 6 Then Image1.Left = Image1.Left + 6 If lbl2.Caption = 5 Then Image1.Left = Image1.Left + 5 If lbl2.Caption = 4 Then Image1.Left = Image1.Left + 4 If lbl2.Caption = 3 Then Image1.Left = Image1.Left + 3 If lbl2.Caption = 2 Then Image1.Left = Image1.Left + 2 If lbl2.Caption = 1 Then Image1.Left = Image1.Left + 1 If Image1.Left >= 107 Then lbl3.Caption = "بازیکن دوم برنده" End If Command2.Enabled = True Command1.Enabled = False If lbl2.Caption…

ساخت یک بازی ساده در VB

MILADABRI بازدید : 84 یکشنبه 23 مهر 1391 نظرات ()

lbl2.Caption = Int(Rnd() * 6) + 1

If lbl2.Caption = 6 Then Image1.Left = Image1.Left + 6

If lbl2.Caption = 5 Then Image1.Left = Image1.Left + 5

If lbl2.Caption = 4 Then Image1.Left = Image1.Left + 4

If lbl2.Caption = 3 Then Image1.Left = Image1.Left + 3

If lbl2.Caption = 2 Then Image1.Left = Image1.Left + 2

If lbl2.Caption = 1 Then Image1.Left = Image1.Left + 1

If Image1.Left >= 107 Then

lbl3.Caption = "بازیکن دوم برنده"

End If

Command2.Enabled = True

Command1.Enabled = False

If lbl2.Caption = 6 Then

Command1.Enabled = True

Command2.Enabled = False

End If

End Sub

Private Sub Command2_Click()

lbl1.Caption = Int(Rnd() * 6) + 1

If lbl1.Caption = 6 Then Image2.Left = Image2.Left + 6

If lbl1.Caption = 5 Then Image2.Left = Image2.Left + 5

If lbl1.Caption = 4 Then Image2.Left = Image2.Left + 4

If lbl1.Caption = 3 Then Image2.Left = Image2.Left + 3

If lbl1.Caption = 2 Then Image2.Left = Image2.Left + 2

If lbl1.Caption = 1 Then Image2.Left = Image2.Left + 1

If Image2.Left >= 107 Then

lbl3.Caption = "بازی کن اول برنده"

End If

 

Command2.Enabled = False

Command1.Enabled = True

If lbl1.Caption = 6 Then

Command2.Enabled = True

Command1.Enabled = False

End If

End Sub

 

Private Sub Command3_Click()

Image1.Left = -1

Image2.Left = -1

End Sub

Private Sub Command4_Click()

End

End Sub

ارسال نظر برای این مطلب

نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتیرفرش کد امنیتی
تبلیغات
Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز
اطلاعات کاربری
نام کاربری :
رمز عبور :
  • فراموشی رمز عبور؟
  • آرشیو
    نظرسنجی
    سایت ایران دانلود در چه سطحیه ؟






    کاربران گرامی دوست دارید که در این وبلاگ چه مطالبی باشد؟لطفا"از طریق ایمیل نظرات خود را به ما بگوید متشکرم
    آمار سایت
  • کل مطالب : 60
  • کل نظرات : 9
  • افراد آنلاین : 1
  • تعداد اعضا : 152
  • آی پی امروز : 5
  • آی پی دیروز : 0
  • بازدید امروز : 15
  • باردید دیروز : 0
  • گوگل امروز : 0
  • گوگل دیروز : 0
  • بازدید هفته : 33
  • بازدید ماه : 59
  • بازدید سال : 735
  • بازدید کلی : 16,789
  • کدهای اختصاصی
    کسب درآمد از پاپ آپ دانلود بازی کامپیوتر PC روز بخیر شب بخیر