نتایح جستجو

[FONT=tahoma] ليدرهاي نفت تهران براي تشويق استيل آذين به ورزشگاه ديگر رفته بودند. [FONT=tahoma] [FONT=tahoma]نفت تهران که ميزبان مسابقه است تماشاگر کمتري نسبت به نفت آبادان دارد و ليدرهاي اين تيم...

[FONT=tahoma] پرسپوليس تمرين روز جمعه خود را پشت درهاي بسته برگزار کرد. [FONT=tahoma] [FONT=tahoma]تيم فوتبال پرسپوليس از ساعت 16:30 امروز (جمعه) در ورزشگاه درفشي‌فر و پشت درهاي بسته تمرين کرد...

[FONT=tahoma] سرمربي تيم فوتبال بارسلونا به خبرنگاران اطمينان داد که مردان کاتالان بايد تا پايان مسابقات داخلي و خارجي به برتري برسند. [FONT=tahoma] به نقل از اسپورت کاتالونيا، جوزپه گوارديولا در...

[FONT=tahoma] تمرين تيم فوتبال استقلال امروز در شرايطي برگزار شد که بازيکنان اصلي به استراحت پرداختند. [FONT=tahoma] [FONT=tahoma]تيم استقلال از ساعت 16 امروز در حالي تمريناتش را برگزار کرد که...

مديرعامل باشگاه سپاهان در نامه‌اي به مديرعامل باشگاه کاوازاکي ژاپن به عنوان يکي از باشگاه‌هاي خواهر خوانده سپاهان، از آمادگي براي برگزاري ديدارهاي خيريه و کمک به مردم زلزله ديده ژاپن خبر داد. به نقل از سايت باشگاه سپاهان، محمدرضا ساکت در نامه اي به مديرعامل باشگاه کاوازاکي ژاپن مطالب زير را...

[FONT=tahoma] بازيکن تيم فوتبال شالکه آلمان مصاحبه‌اش با برخي رسانه‌ها را تکذيب کرد. [FONT=tahoma] [FONT=tahoma]به نقل از سايت رسمي علي کريمي، بعد از بازي علي کريمي مقابل اينترميلان ايتاليا در...

[FONT=tahoma] سرمربي تيم فوتبال استقلال گفت: قصد داشتم مجتبي جباري را جريمه کنم اما اين بازيکن زنگ زد و بابت حرف‌هايش عذرخواهي کرد. [FONT=tahoma] پرويز مظلومي در خصوص آخرين وضعيت استقلال قبل از...

[FONT=tahoma] سرپرست باشگاه استقلال از پرويز مظلومي فهرست بازيکنان مورد نظر براي فصل آينده را خواستار شد. [FONT=tahoma] [FONT=tahoma]دو پيروزي پياپي استقلال مقابل پرسپوليس و نتايج آبي پوشان در ليگ...

این یه برنامه ی سادست می خوایم یه آدمک داشته باشیم که هر وقت شلیک کردیم کابوی بمیره و جاش یه قبر باشه البته این برنامه سادست شما می تونید خیلی کارا بکنید مثلا تعداد گلوله ها و محدود کنید و... خوب اول نام فرمتونو به frmmain تغییر بدید بعد یه picturebox به عنوان کابوی با نام piccowboy بذارید...

Sub Command1_click( ) Image1.Visible = False Image3.Visible = True Image2.Visible = False Image4.Visible = False Image5.Visible = False End Sub Image1.Visible = True Image3.Visible = False Image2.Visible = False Image4.Visible = False Image5.Visible = False Private Sub Command1_Click() If...

اين برنامه منچ ميتواند به صورت 2 و3 ويا 4 نفره بازي را انجام دهد.گرافيك بازي در فتوشاپ انجام گرفته و چنانچه علاقه مند باشيد گرافيك و فرمهاي آن را برايتان ارسال مي كنم .اين برنامه داراي 3 فرم مي باشد و برنامه اصلي درون frmmain قرار دارد ...

اين برنامه بازي مار و پله را انجام مي دهد . طراحي پس زمينه و قرار گرفتن مارها وپله ها در فتو شاپ انجام مي شود و روي تمامي خانه هاي بازي در وي بي كنترل image قرار داده مي شود كه بتوانند مهره را در محل مورد نظر به صورت يك تصوير بارگذاري كنند از يك جعبه متن هم براي نمايش مقدار تا س كمك گرفته...

Dim n As Single Dim X As Integer Dim t As Integer Dim e As Integer Dim Y As Integer Dim r As Integer Dim J As Long Dim q As Integer Private Sub Command1_Click() t = Val(Text1.Text) q = Val(Text2.Text) Timer1.Enabled = True Frame1.Visible = False End Sub Private Sub...

Dim TD As Integer Dim speed As Integer Private Sub Command1_Click() tmrArrow.Enabled = True End Sub Private Sub Form_Load() TD = 1 speed = 50 End Sub Private Sub Form_Resize() sibl.Left = Form1.ScaleWidth - 200 arrow.Left = 100 arrow.Top = Form1.ScaleHeight \ 2 scrSibl.Max =...

یک کنترل تایمر روی فرم قرار داده و interval آن را روی 250 تنظیم کنید سپس قطعه کد زیر را در زیر روال مخصوص تایمر وارد کنید.کد: Private Sub Timer_Timer() Dim a, b, d, c As Single Dim i Me.Cls Scale (1, -1)-(-1, 1) Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) a = Rnd For i = 1 To 10000...

برنامه ای بنویسید که بازی جدول هوش را با شرایط زیر انجام دهد . الف ) با اجرای برنامه ابتدا اعداد به طور مرتب روی دکمه ها قرار داشته باشند . ( با کد نویسی ) ب) با کلیک روی دکمه CmdPaly بازی شروع شود و در شروع بازی دکمه ها به طور تصادفی تغییر کنند مانند شکل زیر ج) بازی زمان داشته باشد...

برنامه زیر هنگام load فرم شما را به صورت متحرک وارد صفحه میکند. Option Explicit Private Const AW_HOR_HOSTIVE = &HF Private Const AW_VER_NEGATIVE = &H8 Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwtime As Long, ByVal dwflags As Long) As Boolean...

در این برنامه هم می توان رنگ زمینه را به طور تصادفی تغییر داد و هم نمایش عکسها را عوض و یا پاک کرد. ابتدا شش عکس حیوان را با نام های متمایز در نظر گرفته و یک فرم طراحی می کنیم که شامل یک image و سه command باشد و کدهای زیر را وارد می نماییم کد: Dim i As Integer Private Sub Command1_Click()...

()Private Sub Timer1_Timer Label1.Caption = Time End Sub

Dim x1, y1 As Single Dim emtiyaz As Double Dim tupNum As Byte Dim harekateOFOGHI As Integer Dim harekateAMUDI As Integer Private Sub Form_Activate() BARG.Top = Me.Height - 500 x1 = 1 y1 = 1 harekateOFOGHI = 40 harekateAMUDI = 40 tupNum = 3 lblTUP.Caption = tupNum & " tup" KADR.Width...