سورس تمرینات رشته ی کامپیوتر مقطع کاردانی

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

خوب به خواست خدا اولین برنامه رو برای دانلود به همراه سورس گذاشتم که بچه های کامپیوتر می تونن استفاده کنن
خوب میریم سر اصل مطلب
توضیحات:
این برنامه از زیر روال استفاده می کنه و 10 تا عدد را از ورودی دریافت و در آرایه قرار میده و مجموع اعداد رو حساب می کنه و در لیست 1 نمایش می ده و بعدش میانگین رو حساب می کنه و در لیست 2 نمایش میده
البته برنامه ها شاید آسون باشه ولی می خوایم از مقدماتی شروع کنیم تا کم کم با کمک بچه ها به سطح پیشرفته برسونیم
لینک برنامه :
[HTML]http://nooshabeh.persiangig.com/vb/vb6-1.zip[/HTML]
پسورد:
[HTML]www.phazeddl.blogfa.com[/HTML]

آقایون این تاپیک فقط برای تمرینات رشته کامپیوتره نه جای یک سری برنامه های کاربردی که در اکثر تاپیک ها وجود داره پس اینجا حتما رعایت این نکته شود

خوب برنامه ی دوم هم حاضر شد
توضیحات:
در هنگام ورود به این نرم افزار یه صفحه ی لوگین داریم و بعد از آن دو تا برنامه یکی تبدیل اعداد ده دهی یا دسیمال به دو دویی یا باینری و برنامه ی دیگر به این گونه است که 5 عدد را از ورودی گرفته و آنها را به صورت نامرتب در آرایه قرار می دهد و عددی می گیرد و به صورت نامرتب در آرایه جست و جو میکند و می گوید که این عدد در آرایه وجود دارد یا نه و اگر وجود دارد چنتا از این عدد وجود دارد.
لینک برنامه:
[HTML]http://nooshabeh.persiangig.com/vb/vb6-2.zip[/HTML]
پسورد فایل:
[HTML]www.phazeddl.blogfa.com[/HTML]

آقایون شما هم دست به کار بشید انشاالله امروز برمی گردم با دو سه تا برنامه ی دیگه

سلام باز ما اومدیم با یک برنامه ی دیگه
توضیحات :
این برنامه برای سری sin با استفاده از زیر روالها نوشته شده امید وارم به دردتون بخوره
البته یک برنامه دیگه هست برای سری sin و cos اما با استفاده از محاسبه ی رادیان
لینک دانلود:
[HTML]http://nooshabeh.persiangig.com/vb/sin.zip[/HTML]
لینک دانلود برنامه ی دوم:
[HTML]http://nooshabeh.persiangig.com/vb/SinCos.zip[/HTML]
فایل ها بدون پسورد

برنامه ای که دو عدد را از ورودی دریافت به وسیله ی دو کلید مجموع و تفریق آنها را بدست بیاورد
هدف:
(استفاده از تابع valو str)
دانلود:
[HTML]http://nooshabeh.persiangig.com/vb/vb6-3.zip[/HTML]

کد:

---

Dim fibo1 As Long

Dim araye(1000) As Double

Private Sub Command1_Click()
List1.Clear
n = Val(Text1.Text)



araye(1) = 1
araye(2) = 1
For a = 3 To n
araye(a) = araye(a - 1) + araye(a - 2)

Next a

For b = 1 To n
List1.AddItem araye(b)
Next b






End Sub

---