نتایح جستجو

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]سرپرست مركز حوادث و فوريت هاي پزشكي دانشگاه علوم پزشكي كرمان گفت: يكي از چهار نفر كه در كوه كوهپايه كرمان گرفتار شده بودند متاسفانه به دليل سرما جان باخت و سه نفر ديگر دچار سرمازدگي شدند...

امکان ارسال پیامک از طریق تلفن ثابت ، امکانی است که به تازگی از سوی شرکت مخابرات ارائه شده است. اگر شما نیز علاقه مند به استفاده از این سرویس هستید می توانید از نرم افزار پیاثا استفاده نمایید. این نرم افزار بدون نیاز به اتصال به اینترنت و تنها از طریق خط تلفن ثابت ، شما را قادر می سازد تا...