يه سوال در مورد يه محاسبه رياضياتي خيلي ساده

[fingulii]

اقو ما يه سوال خيلي خيلي ساده داريم ميدونم از مبتدي كمتره ولي ديگه ببخشيند

ميخوام كاربر توي فرم 4 تا عدد وارد كنه تو 4تا از اين tedit ها بعد با زدن رو يه دكمه يه سري محسابات انجام بده و جوابشو توي يه label بنويسه

محساباتش هم اينجوريه كه فرضا
Tedit1*Tedit2
Tedit3^Tedit4
sqrt(tdeit3)
بعد جواب اين دو تا رو جمع كنه بنويسه تو label
اي چيجوري سورسشو مينويسن؟

[thezetta]

مثلا :


uses
;math


var
;a : integer
;b : double
begin
;(a := strtoint(Edit1.text)+strtoint(Edit2.text
;((b := power(strtofloat(Edit3.text),strtofloat(Edit4.text
;b := a + b
;(label1.caption := floattostr(b
;end

[fingulii]

مثلا :


uses
;math


var
;a : integer
;b : double
begin
;(a := strtoint(Edit1.text)+strtoint(Edit2.text
;((b := power(strtofloat(Edit3.text),strtofloat(Edit4.text
;b := a + b
;(label1.caption := floattostr(b
;end


شرمنده درسته ها ولي اين tedit ها همه اعداد اعشاري ميگرين شما نوشتي inttostr اين كه اعشاري نيست؟ چكار كنم اعشاري هم بگيره؟

[as13851365]

خوب از تابع strtofloat استفاده کن این که مشکلی نداره ( برای برعکس هم می تونی از تابع floattostr استفاده بکنی )

شما در هر EDIT مقدار رو به صورت اعشاری می نویسید و در خط زیر از به جای تابع Inttostr از تابع strtofloat استفاده می کنید
;(a := strtoint(Edit1.text)+strtoint(Edit2.text
;(a := strtofloat(Edit1.text)+strtofloat(Edit2.text

راستی شما باید متغیر A رو هم از نوع real تعریف کنید.

[thezetta]

درسته . توی کد من رو هم نگاه کنید هم inttostr/strtoint استفاده شده برای اعداد صحیح و هم floattostr/strtofloat برای اعداد اعشاری

[fingulii]

دمتون گرم حل شد ميگم اين چطوري مثلا ميخوان اگر مثلا يه Tedit خالي موند بعد كاربر روي دكمه كليلك كرد يه پيغام بده مثلا
Complete the information

[مرد مباح]

خيلي راحت يك چك ميكني :

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

موفق باشي.

[fingulii]

خيلي راحت يك چك ميكني :

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

موفق باشي.

آمو شما خيلي دمتون گرمه ! چاكريم ولي يي سوال ديگه ام واسم پيش اومد من واقعا معذرت ميخوام وقتتونو ميگيرم
آقا همين پروژه كامله خلاصه ميخوام اينو يه كاريش كنم كه وقتي ميبرم روي يه كامپيوتر ديگه بدون نياز به نصب دلفي اجرا بشه!!چكار كنم ؟ پيشرفته توضيح ندينا يعني exe باشه نميدونم ....يه ctrl F9 و كامپايلو از اينا هم زدم exe هم شد اما رو كامپيوتر ديگه error ميده
The Application failed to initialize properly(0*0000135).click ok to terminate the app

[as13851365]

دوست گرامی شما اگر برنامه را در یک پوشه ذخیره کنید و بعد در دلفی فقط یک بار اجراش کنید فایل اجرایی در داخل همان پوشه ساخته می شه و از انجایی که شما در این برنامه از چیزه خاصی استفاده نکردید فقط این فایل Exe را می تونید به کامپیوتر های دیگر منتقل کنید و به راحتی اجراش کنید .

[fingulii]

دوست گرامی شما اگر برنامه را در یک پوشه ذخیره کنید و بعد در دلفی فقط یک بار اجراش کنید فایل اجرایی در داخل همان پوشه ساخته می شه و از انجایی که شما در این برنامه از چیزه خاصی استفاده نکردید فقط این فایل exe را می تونید به کامپیوتر های دیگر منتقل کنید و به راحتی اجراش کنید .

نميشه بابا!!! چكار كنم؟

[fingulii]

خيلي راحت يك چك ميكني :

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

موفق باشي.

ميگم اين تو پرانتزه كه كلي دنگ و فنگ داره پرش كنم چيكارش كنم يه مثالي بوگو

[مرد مباح]

دوست عزيز.
لطفا هميشه قبل اينكه اينجا بپرسي توي خود هلپ دلفي رو ببين چون معمولا راحت به جواب ميرسي.
اسم فرمان رو كه داري بقيش برات راحت بود.

ولي :

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

[fingulii]

دم همگي گرم خيلي صفا ميكينم ...يه سوال ديگه نيز بپرسيم ..اگه دقت كرده باشيد وقتي يه Tedit ميذاري و كاربر عدد وارد ميكنه و اون Tedit هم براي اعداد اعشاري تعريف كرده ايم (real) از اونجايي كه رو توي دلفي اعشار رو بصروت مثلا يك و نيم رو بصورت 5/1 ميزنن 1.5 يعني بين عدد اصلي و اعشار علامت / ميذاره نه نقطه بنابراين وقتي كاربر وارد ميكنه 1.5 يه error ميده كه عدد رو درست وارد كن كلا اگه هر حرف يا عددي جز عدد اعشاري بدي يه همچين پيغامي ميده.....

راه حلي هست كه اين پيغامه نياد يا قبل از اينكه بياد خودمون يه چيزي تعريف كنيم كه ديگه اون پيغام نياد مثلا به برنامه بگيم اگه tedit1 هرچيزي جز اعداد اعشاري بود اون وقت اين پيغام خاص رو بده

به برنامه بگيم اگه tedit1 اعدادي مثل 1.5 بود اون وقت يه پيغام خاص رو بده

[مرد مباح]

دوست عزيز.
از اين به بعد لطف كن و فقط يك بار سوالتو مطرح كن.
نيازي نيست چند جا بنويسي. اين كارت فقط فروم رو شلوغ ميكنه.

براي عذر خواهي و تشكر و ... نيز نيازي به دادن پست نيست و اگه كارت واقعا مهمه و مطلب خواسي بايد به كسي بگي، براش pm بفرست.
البته اينارو براي بعدها گفتم خدمتت.
خيلي ممنون.