کلیه ی دانلود ها با لینک مستقیم می باشد () ویژوال بیسیک ()

دانلود کنید نظر یادتون نره

----------------------------------------------------------------

---

قسمت پنجم ساخت ماشین حساب بزرگ(ویژه)

ویژوال بیسیک را اجرا کنید standard EXE را انتخاب و ok را بزنیداز پنجره سمت چپ(پنجره ابزار) 16 عدد کنترل command button و یک کنترل textbox به فرم 1 اضافه کنید
از پنجره properties خاصیتcaption کنترل Command1 را برابر 1 بگیرید
خاصیتcaption کنترل Command1 را برابر 1 بگیرید
خاصیتcaption کنترل Command2 را برابر 2 بگیرید
خاصیتcaption کنترل Command3 را برابر 3 بگیرید
خاصیتcaption کنترل ها را به این ترتیب تا command9 ادامه دهیدcommand9 هم
حال خاصیتcaption کنترل Command10 را برابر + بگیرید
 خاصیتcaption کنترل Command10 را برابر + بگیرید
خاصیتcaption کنترل Command11 را برابر - بگیرید
 خاصیتcaption کنترل Command12 را برابر * بگیرید
 خاصیتcaption کنترل Command13 را برابر / بگیرید
 خاصیتcaption کنترل Command14 را برابر = بگیرید
خاصیتtext کنترل text1 را برابر خالی بگیرید
  خاصیتcaption کنترل Command15 را برابر صفر بگیرید
حال مانند شکل کنترل ها را مرتب کنید

حال در پنجره کد نوبسی هر کنترل بنا به زیر نوشته شود
برای command1کد Text1.Text = Text1.Text & 1
برای command2کد Text1.Text = Text1.Text & 2
برای command3کد Text1.Text = Text1.Text & 3
به همین ترتیب تا کنترل command9 عمل کنید command9 هم
برای command15کد Text1.Text = Text1.Text & 0
برای command10کد  
     "a = "j
b = Text1.Text
""=Text1.Text
برای command11کد 
 "a = "m
b = Text1.Text
""=Text1.Text
برای command12کد
"a = "z
b = Text1.Text
""=Text1.Text
برای command13کد
"a = "t
b = Text1.Text
""=Text1.Text
 
برای command14کد
 (If a = "m" Then Text1.Text = Val(b) - Val(Text1.Text
 (If a = "z" Then Text1.Text = Val(b) * Val(Text1.Text  
(If a = "t" Then Text1.Text = Val(b) / Val(Text1.Text 
(If a = "j" Then Text1.Text = Val(b) + Val(Text1.Text
 حال روی form1 کلیک راست کنید و view code را بزنید به بالای پنجره بروید
و در قسمت بالای پنجره (این بخش general نام دارد)عبارت زیر را تایپ کنید
dim a,b as String
حالا F5 را بزنید برنامه را امتحان کنید و دوباره F5 ا بزنید برنامه را در ویندوز قرار دهید

سلام امروز میخواهم اموزش ساخت Windows Media Player را بدم البته

سلام امروز میخواهم اموزش ساخت Windows Media Player را بدم البته فقط باهاش می تونید اهنگ بیارید کار دیگری نمی تونید باهاش انجام بدید !!!ویژوال بیسیک را اجرا کنید standard EXE را انتخاب و open را بزنید روی پنجره سمت چپ (پنجره ابزار)در قسمت پایین راست کلیک کنیدcomponentsرابزنیدلیستی از کنترل ها را می بینید در قسمت controls به قسمت پایین بیایید و اخرین کنترل که
Windows media player است  را انتخاب(تیک بزنید)همچنین به بالای صفحه بیاییدو کنترل microsoft Common Dialog Control 6.0را پیدا کنید و ان را هم تیک بزنید سپس  ok را بزنیدهمان طور که می بینید کنترل windows media playerو microsoft Common Dialog Control 6به پنجره سمت چپ اضافه شدندبا دوبار کلیک روی هر دو کنترل انهارا به form1 اضافه کنید توجه کنید کنترل
 common dialogدر حالت طراحی در form1 ظاهر میشود اما وقتی برنامه را اجرا کنید در form1 ظاهر نمی شود (مثل کنترلtimer) حال یک کنترل command Button به form 1ضافه کنیددر پنجره properties  مربوط به کنترلCommand Buttonخاصیت caption آن را برابر open music کنید .
در پنجره کد نویسی کنترلCommand Button فرمان زیر را وارد کنید
 CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
حال f5 را بزنید برنامه را امتحان کنید چه جوری؟ این جوری .open music را بزنید پنجره باز میشود اهنگ خودتان را انتخاب کنید و open را بزنید حالا نگاه کن
دوباره F5 را بزنید برنامه را در داخل ویندوزتون بزارید تموم شد!
......
راستی میتونید برای ماشین حساب که جلسه پیش گفتم روابط مثلثاتی قرار بدید فرمانش اینه
 (text1.text=sin(text1.text
(text1.text=cos(text1.text
(text1.text=tan(text1.text
جلسه بعد هم شاید اموزش ساخت Notepad را بگم (نسبتا کامل)
خدا نگهدارتون! نظر یادتون نره !حتما نظر بدید!