-
دانلود جزوه ی اموزش vb (۲) ۱
شنبه 23 اردیبهشتماه سال 1391 19:52
برای دانلود به ادامه مطلب بروید http://uplod.ir/1yvxqlly5dwg/VB6_Learning.pdf.htm
-
دانلود جزوه ی اموزش vb
شنبه 23 اردیبهشتماه سال 1391 19:47
برای دانلود به ادامه ی مطلب بروید http://uploadkon.ir/uploads/d317b19e36be8d19e604e8ac46fc5abc.pdf
-
دانلود جزوه ی اموزش vb
شنبه 23 اردیبهشتماه سال 1391 19:46
برای دانلود به ادامه ی مطلب بروید http://uplod.ir/zynmd37baj3l/vb-in-n.pdf.htm
-
برنامه ای بنویسید که جمله n ام سری فیبوناچی را محاسبه نموده
شنبه 23 اردیبهشتماه سال 1391 19:36
برنامه ای بنویسید که جمله n ام سری فیبوناچی را محاسبه نموده S=1,1,2,3,5,8,…n Private Sub Command3_Click() ' s=1,1,2,3,5,8,13,...n n = Val(InputBox("")) s2 = 1 s = 1 Print s; For i = 1 To n - 1 s = s1 + s2 s1 = s2 s2 = s Print s; Next i End Sub
-
برنامه ای بنویسید که ضریب یک معادله درجه یک را از ورودی دریافت ن
شنبه 23 اردیبهشتماه سال 1391 19:34
برنامه ای بنویسید که ضریب یک معادله درجه یک را از ورودی دریافت نموده ، ریشه معادله درجه یک را محاسبه نموده ، نمایش دهد برنامه ای بنویسید که ضریب یک معادله درجه یک را از ورودی دریافت نموده ، ریشه معادله درجه یک رامحاسبه نموده ، نمایش دهد a = Val(InputBox("")) b = Val(InputBox("")) x = -b / a Print a...
-
برنامه هایی بنویسید که خروجی های زیر را تولید کند
شنبه 23 اردیبهشتماه سال 1391 19:33
برنامه هایی بنویسید که خروجی های زیر را تولید کند 10 9 8 7 6 5 4 3 2 1 k= 10 For i = 4 To 1 Step -1 For j = 1 To i Print k; k = k - 1 Next j Print
-
حل مسایل ریاضی در (۴)vb
شنبه 16 اردیبهشتماه سال 1391 00:35
برنامه ای بنویسید که اندازه سه ضلع یک مثلث را از ورودی دریافت نموده ، تشخیص دهد سهضلع دریافت شده می تواند اضلاع یک مثلث قائم الزاویه باشد یا خیر ؟ Private Sub Command1_Click() a = Val(InputBox("")) b = Val(InputBox("")) c = Val(InputBox("")) If c = (a ^ 2 + b ^ 2) ^ 0.5 Then MsgBox...
-
حل مسایل ریاضی در (۳)vb
شنبه 16 اردیبهشتماه سال 1391 00:34
برنامه ای بنویسید که ضرایب معادله درجه 2 a x2+ b x+ c =0 را از ورودی دریافت نموده ، ریشه های حقیقی آنرا در صورت وجود چاپ نماید. Private Sub Command2_Click() a = Val(InputBox("")) b = Val(InputBox("")) c = Val(InputBox("")) d = b ^ 2 - 4 * a * c If d < 0 Then MsgBox "Not root"...
-
برنامه ی حل فاکتوریل
جمعه 15 اردیبهشتماه سال 1391 00:31
برنامه ای بنویسید که عددی را از ورودی دریافت نموده ، فاکتوریل آن عدد را محاسبه نموده ، چاپ نماید نکته: هر متغیر در صورتیکه مقدار دهی اولیه نشود مقدار پیش فرض آن صفر خواهد بود نکته : فاکتور هر عدد برابر است با حاصل ضرب اعداد 1و2و...وN N!=1*2*3*4*…*N Private Sub Command1_Click() N= Val(InputBox("")) S=1 For I=...
-
حل مسایل ریاضی در (۲)vb
جمعه 15 اردیبهشتماه سال 1391 00:27
برنامه ای بنویسید که دو عدد را از ورودی دریافت نموده ، اعداد اول بین آن دو عدد را در صورت وجود نمایش دهد Private Sub Command1_Click() a = Val(InputBox("")) b = Val(InputBox("")) For i = a + 1 To b - 1 T = 0 For j = 2 To i - 1 If i Mod j = 0 Then print CStr(i) ; " Aval Nist" T = 1 Exit For...
-
حل مسایل ریاضی در (1)vb
جمعه 15 اردیبهشتماه سال 1391 00:26
برنامه ای بنویسید که مجموع مربعات بین دو عدد دریافت شده را محاسبه نموده ، چاپ نماید a = Val(InputBox("")) b = Val(InputBox("")) For I = a+1 To b-1 S= S + I^2 Next I Print "sum=";S
-
برنامه هایی بنویسید که خروجی های زیر را تولید کند
چهارشنبه 13 اردیبهشتماه سال 1391 19:11
برنامه هایی بنویسید که خروجی های زیر را تولید کند 10 9 8 7 6 5 4 3 2 1 k= 10 For i = 4 To 1 Step -1 For j = 1 To i Print k ; k = k - 1 Next j Print Next i
-
ارایه های یک بعدی در vb
چهارشنبه 13 اردیبهشتماه سال 1391 19:08
برنامه ای بنویسید که عددی را از ورودی بگیرد و اعداد فرد 1 تا آن عدد را در آرایه قرار داده نتیجه را چاپ نماید. Private Sub Command1_Click() Dim N(1 To 200) As Integer a = Val(InputBox("")) k = 0 Cls For I = 1 To a Step 2 k = k + 1 N(k) = I Next I For I = 1 To k Print N(I); Next I
-
برنامه ی شماره ی یک از حلقه های متداخل
چهارشنبه 13 اردیبهشتماه سال 1391 19:05
برنامه ای بنویسید که خروجی زیر را ایجاد نماید * * * * * * * * * for j=1 to 3 print “*” ; next j print next i
-
مثال دستور if
سهشنبه 12 اردیبهشتماه سال 1391 15:01
برنامه ای بنویسید که کلیه اعداد زوج دو رقمی را چاپ نماید. روش 1 : Private Sub Command1_Click() For i = 10 To 99 Step 2 Print i Next i End Sub روش 2 : Private Sub Command1_Click() For i = 10 To 99 If I Mod 2 =0 Then Print i Next i End Sub
-
مثال دستور if
شنبه 9 اردیبهشتماه سال 1391 20:23
دستورات شرطی بخش اول .مثال ۲ برنامه ای بنویسید که در یک حلقه 100 بار اجرا فقط اعداد 1 تا 10 نمایش داده شود Private Sub Command1_Click() For i = 1 To 100 If i > 10 Then Exit For End If Print i Next i End Sub تذکر 1: تابع Exit For جهت خروج کنترل برنامه از حلقه For
-
مثال دستور if
شنبه 9 اردیبهشتماه سال 1391 20:17
دستورات شرطی بخش اول برنامه ای بنویسید که عددی را از ورودی بگیرد و تشخیص دهد عدد دریافت شده زوج است یا فرد ؟ Private Sub Command1_Click() n = Val(InputBox("")) If n Mod 2 = 0 Then MsgBox "Zoj" Else MsgBox "Fard" End If End Sub تذکر 1 : تابع val تبدیل رشته عددی مانند "354" به 354...
-
نکته های vb قسمت اول (1)
جمعه 8 اردیبهشتماه سال 1391 01:25
نکته هایی که باید در vb به انها توجه کنیم. نکته1: زبان Vb یک زبان شی گرا می باشد . نکته 2: زبان Vb یک زبان oop ( Object Orienteb ) می باشد . نکته 3: به محیط که یک محیط توسعه یافته مجتمع می باشد Ide می گویند . نکته 4 : در Vb به Ide محیط توسعه یافته مجتمع می گویند . نکته 5: در Vb برای ظاهر نمودن پنجره Properties در کدام...
-
مثال دستور select
جمعه 8 اردیبهشتماه سال 1391 01:21
برنامه ای بنویسید که عددی را از ورودی دریافت نموده ، با استفاده از دستور Select Case در صورتیکه عدد دریافت شده 1 بود رنگ فرم به رنگ سبز و اگر عدد دریافت شده کوچکتر از صفر بود پیغام Warning و اگر عدد دریافت شده بین 10 تا 20 پیغام Ok در غیر اینصورت پیغام خطا Error نمایش دهد Private Sub Command1_Click() n =...
-
لیست 10 تابع استاندارد در ویژوال بیسیک (۱) قسمت اول.
چهارشنبه 6 اردیبهشتماه سال 1391 15:32
لیست 10 تابع استاندارد در ویژوال بیسیک (۱) قسمت اول. ۱. Abs این تابع قدر مطلق عدد را به دست می آورد. 2. Atn این تابع آرک تانژانت یک عدد را به دست می آورد. 3. UCase رشتهء تبدیل شده به حروف بزرگ را بر می گرداند. 4. Exp این تابع e به توان x را محاسبه می کند. 5. Log این تابع لگاریتم یک عدد را در مبنای e محاسبه می کند. 6....
-
مثال ۱
دوشنبه 4 اردیبهشتماه سال 1391 23:21
برنامه ای بنویسید که عددی را از ورودی بگیرد و تشخیص دهد عدد دریافت شده زوج است یا فرد ؟ Private Sub Command1_Click() n = Val(InputBox("")) If n Mod 2 = 0 Then MsgBox "Zoj" Else MsgBox "Fard" End If End Sub تذکر 1 : تابع Val تبدیل رشته عددی مانند "354" به 354 تذکر 2:عملگر Mod جهت...
-
مفاهیم مقدماتی vb
یکشنبه 3 اردیبهشتماه سال 1391 21:21
مفاهیم مقدماتی قسمت اول. درVB، شئ (Object) های بسیاری وجود دارد مانند فرمها، دکمه ها، برچسب ها، تصاویر و ... . همانطور که می دانیم هر شئ(Object) دارای یک سری مشخصات(Properties) می باشد. به عنوان مثال اگر یک اتومبیل را به عنوان یک شئ در نظر بگیریم، این اتومبیل دارای مشخصاتی چون رنگ خاص، وزن خاص، طول و عرض و ارتفاع خاص،...
-
مفاهیم مقدماتی (2) vb
شنبه 2 اردیبهشتماه سال 1391 14:05
مفاهیم مقدماتی.متغییر ها در vb. متغیرها در ویژوال بیسیک به دو دسته عددی و غیر عددی تقسیم بندی می شوند. داده های عددی نیز خود به دو گروه صحیح و اعشاری تقسیم می شوند. داده های غیر عددی شامل داده های منطقی ، رشته ای ، تاریخ و زمان و شیء می باشند ، که هر کدام را به اختصار توضیح می دهیم. الف) متغیرهای عددی : در زیر جدولی...