درخواست حل یک مسأله برنامه نویسی (ساده!)

[mcsaturday]

سلام بر اساتید وی‌بی6
من سال دوم هنرستان رشته کامپیوتر هستم. معلمم درس "برنامه سازی 1"ـم ازم خواسته یه مسأله حل کنم که برام کمی مشکله! به همین خاطر ازتون ممنون می‌شم برام حل ـش کنید و اون رو تبدیل به کد کنید.
صورت مسأله:
برنامه‌ای بنویسید که یک عدد 2 رقمی را بخواند و مجموع ارقام را چاپ کند.
اسایتد بی‌زحمت الگوریتم رو هم بنویسن!
تشکر فراوان

 

[behnam_tr2006]

1:dیک فرم جدید اضافه کنید ،مشخصه name و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit و Run قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Run دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:


​

[LEFT]
Dim intN as integer, intM1 as integer,intM2 as integer

Dim intM3 as integer,intM as integer

Dim intS as integer

IntN=inputbox("Enter 2 Digis Number:","")

intM1=intN mod 10

intM2=intN\10

intS=intM1+intM2

print"Sum of Digits";intS
[/LEFT]

دکمه Exit را دابل کلیک کرده و کد زیر را اضافه کنید
End

 

[Amadea]

سلام.

یه ماژول واسه اکسل می خوام که عدد فارسی رو به انگلیسی تبدیل کنه. ممنون.

 

[behnam_tr2006]

سلام.

یه ماژول واسه اکسل می خوام که عدد فارسی رو به انگلیسی تبدیل کنه. ممنون.

خوب شما تو تنظیمات اکسل تنظیم کن که اعداد انگلیسی تایپ بشن ! اگه منظورتو خوب فهمیده باشم

 

[Amadea]

خوب شما تو تنظیمات اکسل تنظیم کن که اعداد انگلیسی تایپ بشن ! اگه منظورتو خوب فهمیده باشم

مسئله اینه که این اعداد از پی دی اف فایل فارسی اومدن توی اکسل. اصلا با هم جمعشون هم نمی تونه بکنه، هر چی تنظیم سل ها رو می گذارم عدد فایده نداره. گفتم اگر ماژولی باشه که کد اسکی یه رشته رو دونه دونه عوض کنه، شاید حالیش بشه این عدد هست.

 

[balabala]

سلام آمادئا عزیز. به چه صورتی میخوای یعنی یک ماکرو باشه که اجرا بکنی و سلول خاصی رو تغییر بده؟

 

[Amadea]

سلام آمادئا عزیز. به چه صورتی میخوای یعنی یک ماکرو باشه که اجرا بکنی و سلول خاصی رو تغییر بده؟

سلام بلا جان. ببخشید مزاحمت شدم. ماژول و ماکرو چه فرقی می کنه؟ آره دیگه، یه چیزی باشه من توی اکسل مثل تابع صداش کنم و بعد کپی پیستش بکنم روی کل ستون که عددهاش درست بشه. :blush:

 

[balabala]

من الان چک کردم ولی یه مشکلی هست! مشکل اینجاست که ماکرو با وبژوال بیسیک نوشته میشه، بعد این وی بی خنگ کاراکترهای یونی کد که فارسی هم شاملشون هست رو ساپورت نمیکنه! مثلا نمیشه بهش گفت 1 انگلیسی رو به کاراکتر 1 فارسی که یونی کد هست تبدیل کن (و بلعکس). حالا این فایلها چجوریه چرا جمع نمیتونه بکنه؟ یه مثال بفرست ببینم مشکلش کجاست.

 

[Amadea]

منو از صبح کچل کرده.

 

[balabala]

منو از صبح کچل کرده.

این راه حلش دستیه، باید سلولها رو انتخاب کنی بعد روی اون آیکنی که تو شکل هست کلیک کنی و convert to number رو بزنی:

 

[Amadea]

این راه حلش دستیه، باید سلولها رو انتخاب کنی بعد روی اون آیکنی که تو شکل هست کلیک کنی و convert to number رو بزنی:

مشاهده پیوست 313955

مرسی. داشتم با اکسل 97 باهاش سروکله می زدم. :blush:

 

[balabala]

بفرستش من برات تبدیل کنم xD

 

[Amadea]

بفرستش من برات تبدیل کنم xD

قزبانت، خیلیه. پرتابلشو دارم.

 

[balabala]

قزبانت، خیلیه. پرتابلشو دارم.

ییه نکته ای هم هست برای اینکه ویندوز اعداد فارسی رو بفهمه باید از کنترل پنل، قسمت region and language بری
language for non-unicode programs رو روی فارسی بگذاری اینطوری بدون تبدیل به انگلیسی هم باید اعداد رو جمع بزنه. البته چون گفتی pdf بوده و تبدیل کردی ممکنه اصلا یه کاراکترهای خارج از اعداد فارسی/عربی تبدیل کرده باشه و راه حلش همون استفاده از اکسل جدید که خودش تبدیل میکنه (برای من اکسل 2007 ئه که کار کرد)

 

[SerialDownload.IR]

سلام بر اساتید وی‌بی6
من سال دوم هنرستان رشته کامپیوتر هستم. معلمم درس "برنامه سازی 1"ـم ازم خواسته یه مسأله حل کنم که برام کمی مشکله! به همین خاطر ازتون ممنون می‌شم برام حل ـش کنید و اون رو تبدیل به کد کنید.
صورت مسأله:
برنامه‌ای بنویسید که یک عدد 2 رقمی را بخواند و مجموع ارقام را چاپ کند.
اسایتد بی‌زحمت الگوریتم رو هم بنویسن!
تشکر فراوان

Dim intA%, intB%, intC%, intD%, intF
intA = Val(Text.Text)
intB = Val(Text2.Text)
intC = Left(intA, 1)
intF = Right(intA, 1)
Text2.Text = intC + intF
End Sub

دوست من با این کد که خودم نوشتمش الان میتونی همچین کار کنید!

 

[aminbrlee]

سلام ، دوست عزیز ، برای اینکار 3 راه وجود داره !!!!

1)روش بازگشتی2)یک فرمول ریاضی3)روش حلقه های تکرار

 

[aminbrlee]

1) روش بازگشت : این روش میگه که ، تعداد ارقام هر عدد برابر است با ، تعداد ارقام خارج
قسمت تقسیم آن عدد بر 10 به علاوه یک !!
2) فرمول ریاضی : یک فرمول ریاضی برای تعداد ارقام وجود داره
3) روش تکرار حلقه که من پیشهاد میدم
یک while مینویسی و در هر حلقه اون عدد مورد نظر را بر 10 تقسیم میکنی و حاصل رو در خودش دخیره میکنی و در از بار مقدار یک رو به یک متغییر که مقدار اولیه صفر داره هم اضافه میکنی این کار را تا وقتی که جواب تقسیم 0 بشه ادامه میدی و در نهایت وقتی جواب تقسیم صفر شد از حلقه خارج مشه و مقدار اون متغیر کمکی میشه تعداد حوف شما
n در کد زیر عددی است که می خواهید ببینید چند رقم دارد و k جواب ماست

k=0
while(n<>0)
n=n/10
k=k+1

مقدار k تعداد حروف n هست