در خواست یک برنامه ی ساده برای ویژوال بیسیک

واضح آرشیو وب فارسی:سایت ریسک: Paradise_human11-05-2008, 07:15 PMبا سلام. یک برنامه ی ساده مثل محاصبه ی میانگین 2 عدد یا 3 عدد و از این جور چیزا یا اگر برنامه ی ساده تری هست اگر امکان داره برام بنویسید فقط فوری برای امشب احتیاج دارم. ممون. سونامی11-05-2008, 10:51 PM(a = Val(t1.Text 100 b = Val(t1.Text Mod 100 c = Val(b 10 d = Val(b Mod 10 L4.Caption = Str(d) & Str(c) & Str(a n.s11-05-2008, 11:30 PMمیانگین دو عدد : !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! ؟؟؟ Paradise_human12-05-2008, 08:48 PMهیچکدوم جواب نمیدن. تورو خدا کامل بنویسید برای امشب احتیاج دارم. من visual بلد نیستم. ممنون. n.s12-05-2008, 10:22 PMهیچکدوم جواب نمیدن. تورو خدا کامل بنویسید برای امشب احتیاج دارم. من visual بلد نیستم. ممنون. دوست عزیز این کد بالا برای میانگین دو عدد جواب می ده که ، همین الان خودم امتحانشم کردم !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! Paradise_human12-05-2008, 10:39 PMدوست عزیز این کد بالا برای میانگین دو عدد جواب می ده که ، همین الان خودم امتحانشم کردم !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! دوست عزیز روی جمله ی اول نوار زرد میکشه. سونامی12-05-2008, 11:30 PMa=val(text1.text) b=val(text1.text) label1.caption=val(a)+val(b)/2 Paradise_human12-05-2008, 11:33 PMa=val(text1.text) b=val(text1.text) label1.caption=val(a)+val(b)/2 اینم روی جمله ی اول نوار زرد میکشه. سونامی12-05-2008, 11:48 PMPrivate Sub Command 1_Click() a = Val(Text1.Text) b = Val(Text2.Text) Label1.Caption = (a + b) / 2 End Sub n.s12-05-2008, 11:52 PMa=val(text1.text) b=val(text1.text) label1.caption=val(a)+val(b)/2 اینجا دیگه لازم نیست موقع نشون دادن هم val بگیرین یه بار موقع گرفتن به عدد تبدیل شدن ـــــــــــــــــــــــــ ــــــــــــــــــــ ولی برا من جواب داد ...برا شما رو نمیدونم چرا جواب نمیده Paradise_human12-05-2008, 11:56 PMPrivate Sub Command 1_Click() a = Val(Text1.Text) b = Val(Text2.Text) Label1.Caption = (a + b) / 2 End Sub زدم وقتی run میشه form خالیه و چیزی نشون نمیده!!!!! سونامی13-05-2008, 12:01 AMPrivate Sub Command 1_Click() a = Val(Text1.Text) b = Val(Text2.Text) Label1.Caption = (a + b) / 2 سونامی13-05-2008, 12:03 AMخوب باید دو عددtext و یک عددlabelویک عدد commandدرست بکنی Paradise_human13-05-2008, 12:04 AMPrivate Sub Command 1_Click() a = Val(Text1.Text) b = Val(Text2.Text) Label1.Caption = (a + b) / 2 من تو پست بالا گفتم همینو میزنم ولی form سفید میاد و کاری نمیکنه. Paradise_human13-05-2008, 12:06 AMخوب باید دو عددtext و یک عددlabelویک عدد commandدرست بکنی اگه راهنماییم کنی یه دنیا ممنون میشم. واقعا لازم دارم. سونامی13-05-2008, 12:06 AMدستور را کجا می نویسی؟ Paradise_human13-05-2008, 12:10 AMدستور را کجا می نویسی؟ اولش روی form که نقطه نقطه روی اون قرار داره دابل کلیک میکنم و دستور رو اونجا وارد میکنم. سونامی13-05-2008, 12:12 AMاشتباه میکنی باید روی دگمه بنویسی............منکهگفتم commandُ درست کن روش ماوس نگه داری نوشته command n.s13-05-2008, 12:13 AMاگه راهنماییم کنی یه دنیا ممنون میشم. واقعا لازم دارم. شما باید رو فرم دو تا text box به نام های text1 , text2 ( که پیش فرض همینا هستن ) و یه label ( به نام label1 که پیشفرض اینم label1 هستش )داشته باشین و یه command button و این کد ها رو باید توی command butoon بنویسین امیدوارم بتونید بنویسید سونامی13-05-2008, 12:13 AMببخشید بد نوشتم دارم با vb کار می کنم Paradise_human13-05-2008, 12:14 AMاشتباه میکنی باید روی دگمه بنویسی............منکهگفتم commandُ درست کن روش ماوس نگه داری نوشته command دکمه ی commando درست کردم. دستور رو توی اون وارد کنم حله؟؟ Paradise_human13-05-2008, 12:18 AMوقتی روی command کلیک میکنم ارور میده و روی جمله ی اول دستور نوار زرد میکشه. Paradise_human13-05-2008, 12:21 AMtext box ها رو هم ایجاد کردم. وقتی روی Comand میزنم ارور 424 میزنه و روی جمله ی آخر نوار زرد میکشه. سونامی13-05-2008, 12:39 AMکد برنامتو بفرست زود باش دیره؟ سونامی13-05-2008, 12:40 AMtext هم درست کردی 2تاهااااااااااااااااااااا� �اااااااااااااااااااااااا� �اااااااااااااااااااااااا� �اااااااااااااااا سونامی13-05-2008, 12:46 AMخدا وکیلی گذاشتی سر کار مارو؟ Paradise_human13-05-2008, 01:15 AMخدا وکیلی گذاشتی سر کار مارو؟ نه به جان مادرم. ببخشید. آخه مشکلم حل شد. ممنون. behnam altafiani18-05-2008, 07:55 PMاگه شما چیزی بلد نیستید پس باید ایراد از طراحی فرمتون باشه ؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! >>>>>>>>>>>>>>>>>>>> بار الهی آن ده که به آن به >>>>>>>>>>>>>>>>> black_storm28-05-2008, 07:13 PMفروشي دارم ! سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 606]