راهنمایی

[Ali_Ham]

با سلام
در صورت امکان یک پروژه فاکس پرو به من بدهید که عدد را بگیرد و در زیر به صورت حروف انگلیسی نشان بدهد در صورت امکان با ذستور Input باشد چون هر برنامه ای را که امتحان کردم با تابع Function است که اصلا در فاکس پرو2.6 و ویژوال فاکس پرو6 با پیغام خطا مواجه شده و اجرا نمی شود

[javad_hosseiny]

اگه بحث روی تبدیل اعداد به حروف فارسی است که خوب سورس رو به شما دادم
اگر می خواهید اعداد به حروف انگلیسی مثل one, two,... اینها تبدیل بشه
خوب خیلی آسون تو سورس برنامه دست ببرید و هر کجا که اعداد را بصورت فارسی نوشته بود آن را به انگلیسی تبدیل کنید
رسم الخط استفاده از تابع:

d2c(number,'')
که Number در حقیقت همان عدد شما است
که این رسم الخط را قبل از شروع تابع باید تایپ کنید
و در کل هم استفاده از تابع تو تمامی نسخه های فاکس مشکلی نداره به احتمال زیاد در نحوه فراخوانی تابع مشکل دارید!

[Ali_Ham]

با تشکر
در مثال زیر من می خواهم سه عدد را وارد کنم که اعداد مختلف خواهد بود می خواهم توسط Do case و یا If شرطی بگذارم که اگر عدد سمت راست یک عدد از صفر تا نه باشد چه چیز چاپ کند عدد وسط یک عدد از صفر تا نه باشد چه چیز چاپ کند و همینطور عدد سمت چپ البته اعدادسمت چپ از یک تا نه
clear
set talk off
set escape off
number=space(3)
@10,12 say "Number=" get number
read
do case
case ?