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

[Paradise_human]

با سلام.
یک برنامه ی ساده مثل محاصبه ی میانگین 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

[n.s]

میانگین دو عدد :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

؟؟؟

[Paradise_human]

هیچکدوم جواب نمیدن.
تورو خدا کامل بنویسید برای امشب احتیاج دارم.
من visual بلد نیستم.
ممنون.

[n.s]

هیچکدوم جواب نمیدن.
تورو خدا کامل بنویسید برای امشب احتیاج دارم.
من visual بلد نیستم.
ممنون.

دوست عزیز این کد بالا برای میانگین دو عدد جواب می ده که ، همین الان خودم امتحانشم کردم


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Paradise_human]

دوست عزیز این کد بالا برای میانگین دو عدد جواب می ده که ، همین الان خودم امتحانشم کردم


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
دوست عزیز روی جمله ی اول نوار زرد میکشه.

[سونامی]

a=val(text1.text)
b=val(text1.text)
label1.caption=val(a)+val(b)/2

[Paradise_human]

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

[n.s]

a=val(text1.text)
b=val(text1.text)
label1.caption=val(a)+val(b)/2

اینجا دیگه لازم نیست موقع نشون دادن هم val بگیرین یه بار موقع گرفتن به عدد تبدیل شدن
ـــــــــــــــــــــــــ ــــــــــــــــــــ

ولی برا من جواب داد ...برا شما رو نمیدونم چرا جواب نمیده

[Paradise_human]

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = (a + b) / 2
End Sub
زدم وقتی run میشه form خالیه و چیزی نشون نمیده!!!!!

[سونامی]

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = (a + b) / 2

[سونامی]

خوب باید دو عددtext و یک عددlabelویک عدد commandدرست بکنی

[Paradise_human]

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = (a + b) / 2
من تو پست بالا گفتم همینو میزنم ولی form سفید میاد و کاری نمیکنه.

[Paradise_human]

خوب باید دو عددtext و یک عددlabelویک عدد commandدرست بکنی
اگه راهنماییم کنی یه دنیا ممنون میشم.
واقعا لازم دارم.

[سونامی]

دستور را کجا می نویسی؟

[Paradise_human]

دستور را کجا می نویسی؟
اولش روی form که نقطه نقطه روی اون قرار داره دابل کلیک میکنم و دستور رو اونجا وارد میکنم.

[سونامی]

اشتباه میکنی باید روی دگمه بنویسی............منکهگفتم commandُ درست کن روش ماوس نگه داری نوشته command

[n.s]

اگه راهنماییم کنی یه دنیا ممنون میشم.
واقعا لازم دارم.

شما باید رو فرم دو تا text box به نام های text1 , text2 ( که پیش فرض همینا هستن )
و یه label ( به نام label1 که پیشفرض اینم label1 هستش )داشته باشین و یه command button
و این کد ها رو باید توی command butoon بنویسین
امیدوارم بتونید بنویسید

[سونامی]

ببخشید بد نوشتم دارم با vb کار می کنم

[Paradise_human]

اشتباه میکنی باید روی دگمه بنویسی............منکهگفتم commandُ درست کن روش ماوس نگه داری نوشته command
دکمه ی commando درست کردم.
دستور رو توی اون وارد کنم حله؟؟

[Paradise_human]

وقتی روی command کلیک میکنم ارور میده و روی جمله ی اول دستور نوار زرد میکشه.

[Paradise_human]

text box ها رو هم ایجاد کردم.
وقتی روی Comand میزنم ارور 424 میزنه و روی جمله ی آخر نوار زرد میکشه.

[سونامی]

کد برنامتو بفرست زود باش دیره؟

[سونامی]

text هم درست کردی 2تاهااااااااااااااااااااا� �اااااااااااااااااااااااا� �اااااااااااااااااااااااا� �اااااااااااااااا

[سونامی]

خدا وکیلی گذاشتی سر کار مارو؟

[Paradise_human]

خدا وکیلی گذاشتی سر کار مارو؟
نه به جان مادرم.
ببخشید.
آخه مشکلم حل شد.
ممنون.

[behnam altafiani]

اگه شما چیزی بلد نیستید پس باید ایراد از طراحی فرمتون باشه ؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!


>>>>>>>>>>>>>>>>>>>> بار الهی آن ده که به آن به >>>>>>>>>>>>>>>>>

[black_storm]

فروشي دارم !