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

واضح آرشیو وب فارسی:سایت ریسک: View Full Version : يه سوال در مورد يه محاسبه رياضياتي خيلي ساده fingulii22-12-2008, 04:07 PMاقو ما يه سوال خيلي خيلي ساده داريم ميدونم از مبتدي كمتره ولي ديگه ببخشيند ميخوام كاربر توي فرم 4 تا عدد وارد كنه تو 4تا از اين tedit ها بعد با زدن رو يه دكمه يه سري محسابات انجام بده و جوابشو توي يه label بنويسه محساباتش هم اينجوريه كه فرضا Tedit1*Tedit2 Tedit3^Tedit4 sqrt(tdeit3) بعد جواب اين دو تا رو جمع كنه بنويسه تو label اي چيجوري سورسشو مينويسن؟ thezetta22-12-2008, 10:34 PMمثلا : 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 fingulii25-12-2008, 04:46 PMمثلا : 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 اين كه اعشاري نيست؟ چكار كنم اعشاري هم بگيره؟ as1385136526-12-2008, 08:51 AMخوب از تابع strtofloat استفاده کن این که مشکلی نداره ( برای برعکس هم می تونی از تابع floattostr استفاده بکنی ) شما در هر EDIT مقدار رو به صورت اعشاری می نویسید و در خط زیر از به جای تابع Inttostr از تابع strtofloat استفاده می کنید ;(a := strtoint(Edit1.text)+strtoint(Edit2.text ;(a := strtofloat(Edit1.text)+strtofloat(Edit2.text راستی شما باید متغیر A رو هم از نوع real تعریف کنید. thezetta26-12-2008, 02:41 PMدرسته . توی کد من رو هم نگاه کنید هم inttostr/strtoint استفاده شده برای اعداد صحیح و هم floattostr/strtofloat برای اعداد اعشاری fingulii30-12-2008, 06:23 PMدمتون گرم حل شد ميگم اين چطوري مثلا ميخوان اگر مثلا يه Tedit خالي موند بعد كاربر روي دكمه كليلك كرد يه پيغام بده مثلا Complete the information مرد مباح30-12-2008, 08:00 PMخيلي راحت يك چك ميكني : !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! موفق باشي. fingulii30-12-2008, 10:28 PMخيلي راحت يك چك ميكني : !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! موفق باشي. آمو شما خيلي دمتون گرمه ! چاكريم ولي يي سوال ديگه ام واسم پيش اومد من واقعا معذرت ميخوام وقتتونو ميگيرم آقا همين پروژه كامله خلاصه ميخوام اينو يه كاريش كنم كه وقتي ميبرم روي يه كامپيوتر ديگه بدون نياز به نصب دلفي اجرا بشه!!چكار كنم ؟ پيشرفته توضيح ندينا يعني exe باشه نميدونم ....يه ctrl F9 و كامپايلو از اينا هم زدم exe هم شد اما رو كامپيوتر ديگه error ميده The Application failed to initialize properly(0*0000135).click ok to terminate the app as1385136531-12-2008, 09:04 AMدوست گرامی شما اگر برنامه را در یک پوشه ذخیره کنید و بعد در دلفی فقط یک بار اجراش کنید فایل اجرایی در داخل همان پوشه ساخته می شه و از انجایی که شما در این برنامه از چیزه خاصی استفاده نکردید فقط این فایل Exe را می تونید به کامپیوتر های دیگر منتقل کنید و به راحتی اجراش کنید . fingulii01-01-2009, 03:47 PMدوست گرامی شما اگر برنامه را در یک پوشه ذخیره کنید و بعد در دلفی فقط یک بار اجراش کنید فایل اجرایی در داخل همان پوشه ساخته می شه و از انجایی که شما در این برنامه از چیزه خاصی استفاده نکردید فقط این فایل exe را می تونید به کامپیوتر های دیگر منتقل کنید و به راحتی اجراش کنید . نميشه بابا!!! چكار كنم؟ fingulii01-01-2009, 03:50 PMخيلي راحت يك چك ميكني : !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! موفق باشي. ميگم اين تو پرانتزه كه كلي دنگ و فنگ داره پرش كنم چيكارش كنم يه مثالي بوگو مرد مباح02-01-2009, 09:56 PMدوست عزيز. لطفا هميشه قبل اينكه اينجا بپرسي توي خود هلپ دلفي رو ببين چون معمولا راحت به جواب ميرسي. اسم فرمان رو كه داري بقيش برات راحت بود. ولي : !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! fingulii03-01-2009, 07:23 PMدم همگي گرم خيلي صفا ميكينم ...يه سوال ديگه نيز بپرسيم ..اگه دقت كرده باشيد وقتي يه Tedit ميذاري و كاربر عدد وارد ميكنه و اون Tedit هم براي اعداد اعشاري تعريف كرده ايم (real) از اونجايي كه رو توي دلفي اعشار رو بصروت مثلا يك و نيم رو بصورت 5/1 ميزنن 1.5 يعني بين عدد اصلي و اعشار علامت / ميذاره نه نقطه بنابراين وقتي كاربر وارد ميكنه 1.5 يه error ميده كه عدد رو درست وارد كن كلا اگه هر حرف يا عددي جز عدد اعشاري بدي يه همچين پيغامي ميده..... راه حلي هست كه اين پيغامه نياد يا قبل از اينكه بياد خودمون يه چيزي تعريف كنيم كه ديگه اون پيغام نياد مثلا به برنامه بگيم اگه tedit1 هرچيزي جز اعداد اعشاري بود اون وقت اين پيغام خاص رو بده به برنامه بگيم اگه tedit1 اعدادي مثل 1.5 بود اون وقت يه پيغام خاص رو بده مرد مباح03-01-2009, 08:50 PMدوست عزيز. از اين به بعد لطف كن و فقط يك بار سوالتو مطرح كن. نيازي نيست چند جا بنويسي. اين كارت فقط فروم رو شلوغ ميكنه. براي عذر خواهي و تشكر و ... نيز نيازي به دادن پست نيست و اگه كارت واقعا مهمه و مطلب خواسي بايد به كسي بگي، براش pm بفرست. البته اينارو براي بعدها گفتم خدمتت. خيلي ممنون. سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

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

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

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

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