با سلام.
یک برنامه ی ساده مثل محاصبه ی میانگین 2 عدد یا 3 عدد و از این جور چیزا یا اگر برنامه ی ساده تری هست اگر امکان داره برام بنویسید
فقط فوری برای امشب احتیاج دارم.
ممون.
Printable View
با سلام.
یک برنامه ی ساده مثل محاصبه ی میانگین 2 عدد یا 3 عدد و از این جور چیزا یا اگر برنامه ی ساده تری هست اگر امکان داره برام بنویسید
فقط فوری برای امشب احتیاج دارم.
ممون.
(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
میانگین دو عدد :
؟؟؟کد:
a=val(text1.text)
b=val(text2.text)
result.caption=((a+b)/2)
هیچکدوم جواب نمیدن.
تورو خدا کامل بنویسید برای امشب احتیاج دارم.
من visual بلد نیستم.
ممنون.
دوست عزیز این کد بالا برای میانگین دو عدد جواب می ده که ، همین الان خودم امتحانشم کردمنقل قول:
کد:
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = ((a + b) / 2)
دوست عزیز روی جمله ی اول نوار زرد میکشه.نقل قول:
a=val(text1.text)
b=val(text1.text)
label1.caption=val(a)+val(b)/2
اینم روی جمله ی اول نوار زرد میکشه.نقل قول:
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = (a + b) / 2
End Sub
اینجا دیگه لازم نیست موقع نشون دادن هم val بگیرین یه بار موقع گرفتن به عدد تبدیل شدننقل قول:
ـــــــــــــــــــــــــ ــــــــــــــــــــ
ولی برا من جواب داد ...برا شما رو نمیدونم چرا جواب نمیده
زدم وقتی run میشه form خالیه و چیزی نشون نمیده!!!!!نقل قول:
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = (a + b) / 2
خوب باید دو عددtext و یک عددlabelویک عدد commandدرست بکنی
من تو پست بالا گفتم همینو میزنم ولی form سفید میاد و کاری نمیکنه.نقل قول:
اگه راهنماییم کنی یه دنیا ممنون میشم.نقل قول:
واقعا لازم دارم.
دستور را کجا می نویسی؟
اولش روی form که نقطه نقطه روی اون قرار داره دابل کلیک میکنم و دستور رو اونجا وارد میکنم.نقل قول:
اشتباه میکنی باید روی دگمه بنویسی............منکهگفتم commandُ درست کن روش ماوس نگه داری نوشته command
شما باید رو فرم دو تا text box به نام های text1 , text2 ( که پیش فرض همینا هستن )نقل قول:
و یه label ( به نام label1 که پیشفرض اینم label1 هستش )داشته باشین و یه command button
و این کد ها رو باید توی command butoon بنویسین
امیدوارم بتونید بنویسید
ببخشید بد نوشتم دارم با vb کار می کنم
دکمه ی commando درست کردم.نقل قول:
دستور رو توی اون وارد کنم حله؟؟
وقتی روی command کلیک میکنم ارور میده و روی جمله ی اول دستور نوار زرد میکشه.
text box ها رو هم ایجاد کردم.
وقتی روی Comand میزنم ارور 424 میزنه و روی جمله ی آخر نوار زرد میکشه.
کد برنامتو بفرست زود باش دیره؟
text هم درست کردی 2تاهااااااااااااااااااااا اااااااااااااااااااااااا اااااااااااااااااااااااا اااااااااااااااا
خدا وکیلی گذاشتی سر کار مارو؟
نه به جان مادرم.نقل قول:
ببخشید.
آخه مشکلم حل شد.
ممنون.
اگه شما چیزی بلد نیستید پس باید ایراد از طراحی فرمتون باشه ؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!
>>>>>>>>>>>>>>>>>>>> بار الهی آن ده که به آن به >>>>>>>>>>>>>>>>>
فروشي دارم !