درخواست ماشین حساب ساده

[nima1221]

سلام یه پروژه ویژوال بیسیک میخواستم یه ماشین حساب ساده چهار عملگر اصلی + دگمه clear
پیشاپیش ممنون

[H.E.R.O.E.S]

سلام
منظورتون از ویژوال بیسیک
Visual basic .Net
هست یا vb6 خدا بیامرز؟

[nima1221]

سلام
منظورتون از ویژوال بیسیک
Visual basic .Net
هست یا vb6 خدا بیامرز؟

vb6 عزیز
_______________

[nima1221]

upppppppppppp

[nima1221]

upppppp
_________

[shengo_k]

سلام یه پروژه ویژوال بیسیک میخواستم یه ماشین حساب ساده چهار عملگر اصلی + دگمه clear
پیشاپیش ممنون

در Visual Studio
ابتدا باید فرم برنامه را طراحی کنید

در مرحله بعد باید کد نویسی ماشین حساب را انجام بدیم که برای اینکار باید به قسمت کد نویسی هرکدام از دکمه ها وارد شویم برای مثال وارد دکمه ای میشویم که ان را برای عمل جمع انتخاب کرده ایم برای کد نویسی عمل جمع تنها کافیه که کد زیر رو بنویسین وعلامت بین دو پرانتز نسبت به عملی که میخواین انجام بدین مثلا اگه میخواید دکمه مورد نظر عمل ضرب رو انجام بده باید از علامت * بین دو پرانتز استفاده کنید و برای تقیسیم از / و همینظور +و-



عمل جمع :

textbox3.text = val (textbox1.text) + val (textbox2.text)

عمل منها :

textbox3.text = val (textbox1.text) – val (textbox2.text)

عمل ضرب :

textbox3.text = val (textbox1.text) * val (textbox2.text)

عمل تقسیم :

textbox3.text = val (textbox1.text) / val (textbox2.text)





برای عملگر clear هم کافیه که برای دکمه ی clear محتوای textbox3.text رو مساوی خالی (" ") قرار بدید.



برای استفاده از نرم افزار خود میتوانید ان را به صورت فایل اجرایی (exe.) ان را ذخیره کنید . برای اینکار باید ابتدا پروژه خود را ذخیره کنید پس روی تب file در منوی بالایی ویژوال بیسیک کلیک کرده تا تب باز شود سپس روی گزینه save all در پنجره باز شده محل ذخیره فایل رو انتخاب کنید و ok را انتخاب کنید حال نوبت به ساخت فایل اجرایی میرسد برای اینکار دوباره در منوی بالایی ویژوال بیسیک روی تب build کلیک کرده و سپس گزینه اولی یعنی (نام پروژه) build کلیک کرده تا فایل اجرایی شما در ادرس زیر ساخته شود:

projects>yourprojectname>yourprojectname>bin>debug >yourprojectname.exe


همچینین اگر بعدا در پروژتان تغییراتی ایجاد کنید و دوباره ان را build کنید در همان ادر در پوشه ساخته خواهد شد.

...موفق باشید...

[shengo_k]

vb6 عزیز
_______________

من خودم با VB6 کار نکردم اما در یه سایتی این رو براتون پیدا کردم امیدوارم به کارتون بیاد:


آموزش:

برای تعریف متغیرها در قسمت General بروید زیرا برای تعریف یک متغیر به صورت عمومی در قسمت General تعریف می شودهنگامی که به قسمت General فرم خود رفتید سپس متغیرها را مانند زیر تعریف کنید:

Dim num1, nam2 As Currency
Dim javab As Single
Dim ama As String

پس از تعریف متغیر ها حالا نوبت ساخت دکمه های +،-،/،*،.. است که باید طبق نمونه زیر عمل کنید

دکمه جمع
Private Sub select_Click()
num1 = Val(Text1)
ama = "+"
Text1 = ""
End Sub
دکمه منها
Private Sub Command11_Click()
num1 = Val(Text1)
ama = "-"
Text1 = ""
End Sub
دکمه تقسيم
Private Sub Command12_Click()
num1 = Val(Text1)
ama = "/"
Text1 = ""
End Sub
دکمه ضرب
Private Sub Command13_Click()
num1 = Val(Text1)
ama = "*"
Text1 = ""
End Sub
دکمه جذر
Private Sub Command14_Click()
num1 = Val(Text1)
javab = Sqr(num1)
Text1 = Str(javab)
End Sub
دکمه لگاريتم
Private Sub Command15_Click()
num1 = Val(Text1)
javab = Log(num1)
Text1 = Str(javab)
End Sub
دکمه سينوس
Private Sub Command16_Click()
num1 = Val(Text1)
javab = Sin(num1)
Text1 = Str(javab)
End Sub
دکمه کسینوس
Private Sub Command17_Click()
num1 = Val(Text1)
javab = Cos(num1)
Text1 = Str(javab)
End Sub
دکمه تانژانت
Private Sub Command18_Click()
num1 = Val(Text1)
javab = Tan(num1)
Text1 = Str(javab)
End Sub

حال نوبت دکمه مساوی است که ما با استفاده از دستور Select case این دکمه را می سازیم

دکمه مساوي
Private Sub Equal_Click()
num2 = Val(Text1)
Select Case ama
Case "+"
javab = num1 + num2
Case "-"
javab = num1 - num2
Case "/"
javab = num1 / num2
Case "*"
javab = num1 * num2
End Select
Text1 = Str(javab)
ama = ""
End Sub

و در آخر این کد را در فرم لود قرار دهید:

Private Sub Form_Load()
num1 = 0
num2 = 0
ama = ""
Text1 = ""
End Sub

...موفق باشید...