نتایح جستجو

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...

Dim A(5) As Integer, j As Integer Private Sub cmd1_Click() If A(0) = Val(Text1(0)) Then Text1(0).BackColor = vbGreen If A(1) = Val(Text1(1)) Then Text1(1).BackColor = vbGreen If A(2) = Val(Text1(2)) Then Text1(2).BackColor = vbGreen If A(3) = Val(Text1(3)) Then Text1(3).BackColor = vbGreen...

Dim N As Long Dim a As Long Dim k As Long Dim m As Long Dim t As Long Dim w As Long Dim pic(1 To 3) As Picture Dim wer Private Sub Win() If Image1 = Image18 _ And Image2 = Image19 _ And Image3 = Image20 _ And Image4 = Image21 _ And Image5 = Image22 _ And Image6 = Image23 _ And...

Private Sub Command1_Click(Index As Integer) If Label1.Caption = b Then Label1.Caption = c Command1(Index).BackColor = vbRed Else Label1.Caption = b Command1(Index).BackColor = vbBlue End If For I = 0 To 63 If Command1(I).Value = True Then If Command1(Index).BackColor = vbRed Then...

Option Explicit Private Const hezar = " åÒÇÑ" Private Const melun = " ãíáíæä " Private Const melyard = " ãíáíÇÑÏ " Private Const va = "æ" '--- Farsi Number Convertor ------------------' Public Function heji_adad(ByVal adad As Double) As String Dim hooroof As String Dim SS As...

Option Explicit Private Month_Name, Spring_Fall Private Time_Difference, Time_Client Private Base_Year '--- Farsi Date Convertor --------------------' Private Sub Get_Date(ByVal Days, Sal, Mah, Rooz) Dim Years, Year_Length Do While Days >= 0 If Kabiseh(Years) Then...

برنامه اي بنويسيد كه دو عدد را گرفته حاصل چهار عمل اصلي را بر روي آنها اجام داده و نتيجه را چاپ نمايد . با تغيير هر كدام از جعبه متن ها جعبه متن نتيجه خالي شده و با كليك بر روي دكمه هاي فرمان حاصل در جعبه متن نتيجه نشان داده شود . حل : وارد محيط ويژوال بيسيك شده و پروژه جديدي را شروع كنيد...

برنامه ساده شماره 4 : برنامه اي بنويسيد كه دو عدد را گرفته و مجموع آنها را چاپ نمايد . با تغيير هر كدام از جعبه متن ها جعبه متن نتيجه خالي شده و با كليك بر روي دكمه فرمان حاصل جمع در جعبه متن نتيجه نشان داده شود . حل : وارد محيط ويژوال بيسيك شده و پروژه جديدي را شروع كنيد و سه جعبه متن و...

برنامه ساده شماره 3 : برنامه اي بنويسيد كه دو عدد را گرفته و مجموع آنها را چاپ نمايد . با تغيير هر كدام از جعبه متن ها حاصل جمع در جعبه متن نتيجه نشان داده شود . حل : وارد محيط ويژوال بيسيك شده و پروژه جديدي را شروع كنيد و سه جعبه متن و سه برچسب (Label)در روي فرم قرار دهيد. اشياي تغيير نام...

For inti=1 to 10 For intj=1 to 10 Print inti * intj; Next Print Next

Dim point1(41) As Single Private Sub Command1_Click() Dim X As Single, Y As Single, r As Single For i = 1 To 40 Step 2 X = Rnd() * 10000 point1(i) = X MsgBox (point1(i)) Y = Rnd() * 10000 point1(i + 1) = Y r = Rnd() * 5000 Circle (X, Y), r Next i MsgBox (point1(3)) End Sub Private Sub...

این برنامه عدد N را دریافت می کند و یک N ضلعی منتظم رسم کرده و دایره محاطی آنرا هم رسم می کند و همه قطرهایش را نیز رسم می کند برای یک command دستورات زیر را مرقوم فرمایید : کد: Private Sub Command1_Click() Form1.AutoRedraw = True Form1.WindowState = 2 Form1.ScaleMode = 3...

این برنامه بازی کرم متحرک را انجام می دهد - برای اجرا روی فرم خودتان 6 عدد shape قرار دهید و یک label و یک text و یک تایمر نیز اضافه نمایید حال رویدادهای زیر را برای اشیا بنویسید کد: Option Explicit Dim s As Long Dim x1 As Long, y1 As Long Dim x2 As Long, y2 As Long Dim speed As...

یک Command ایجاد کرده و کد های زیر را در آن قرار دهید Private sub command 1_click() N = val (text1.text) D = 0 P = 0 While n<>0 M = n mod 10 D= d+ m*2^p P = p +1 N = n\10 Wend Label1.caption = d End sub

با سلام خدمت همگی عزیزان اول یک Command را ایجاد کرده و بعد کد های زیر را در آن قرار میدهید: Private Sub Command1_Click() Dim pri As Boolean i = 2 While i <= 100 j = 2 pri = True While j < i And pri = True If i Mod j = 0 Then pri = False j = j + 1 Wend If...

در اینجا قصد داریم که چگونگی نصب ویژوال بیسیک بر روی ویندوز سون را آموزش بدهیم منظر پیشنهادات شما هستیم 1) ابتدا UAC رو غیر فعال کنید ( Control Panel ---> User Accounts ----> Change User Accounts Control Setting ) 2. سپس CD نصب رو وارد کنید و بعد از بالا اومدن Autorun (در صورت بالا اومدن)...

جستجو و مشاهده کلیه نقاط کره زمین با Google Earth Plus v6.0.2.2047 بالاخره پس از مدت ها انتظار نسخه ششم از نرم افزاری که می تواند هم جنبه سرگرمی داشته و هم جنبه آموزشی و مهارتی عرضه گردید. نرم افزاری کارآمد که با به روزرسانی های جدید قادر است تا آخرین تصاویر ماهواره ای از فضا و البته کره...

روايت خبرنگار اعزامي ايرنا از فاجعه هسته‌اي ژاپن؛ [FONT=Arial] وقتي خارجي‌ها به ژاپن پشت مي‌كنند [FONT=Arial] توكيو - بدنبال...

[FONT=Arial]مركز لرزه نگاري كشوري موسسه ژئوفيزيك دانشگاه تهران اعلام كرد، زلزله اي به بزرگي 3/4 ريشتر - در مقياس امواج دروني زمين - صبح جمعه حوالي قصر شيرين واقع در منطقه مرزي ايران و عراق را تكان داد...

[FONT=Arial]سرپرست مركز حوادث و فوريت هاي پزشكي دانشگاه علوم پزشكي كرمان گفت: يكي از چهار نفر كه در كوه كوهپايه كرمان گرفتار شده بودند متاسفانه به دليل سرما جان باخت و سه نفر ديگر دچار سرمازدگي شدند...