اللّهُمَّ کُنْ لِوَلِیِّکَ الْحُجَّةِ بْنِ الْحَسَنِ صَلَواتُکَ عَلَیْهِ وَعَلى آبائِهِ فی هذِهِ السّاعَةِ وَفی کُلِّ ساعَةٍ وَلِیّاً وَحافِظاً وَقائِدا ‏وَناصِراً وَدَلیلاً وَعَیْناً حَتّى تُسْکِنَهُ أَرْضَک َطَوْعاً وَتُمَتِّعَهُ فیها طَویلاً

کمیابترین کدهای جاوا


این وب سایت را صفحه خانگی خود کن ! این وب سایت را به لیست علاقه مندی های خود اضافه کنید ! ---------------------------------------------------------------- - بوی عطر بهار نارنج
X
تبلیغات
رایتل
چهارشنبه 23 مرداد‌ماه سال 1387 ساعت 01:47 ب.ظ

ویژوال بیسیک را اجرا کنید 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 ا بزنید برنامه را در ویندوز قرار دهید

del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo
bache tabas 's Search Engine : FunnyLogo.info : Personal Search Engine with many styles Yahoo

 

Web ImagesVideoNewsMapsBooks More»
 
 Advanced Search
 Preferences
 Language Tools


BookMark     Create your own Search Engine Now


FunnyLogo is not affiliated with Google Inc.
Trademarks remain trademarks of their respective companies.
© 2008 FunnyLogo

Sedo - Buy and Sell Domain Names and Websites project info: funnylogo.info Statistics for project funnylogo.info etracker® web controlling instead of log file analysis