تگ های موضوع کد ماشین حساب در اکسس

کد ماشین حساب در اکسس

ایجاد یک ماشین حساب ساده در نرم‌افزار اکسس، می‌تواند یک پروژه جالب و آموزنده باشد. در اینجا، به تفصیل مراحل و کدهای مورد نیاز برای طراحی یک ماشین حساب می‌پردازیم.

طراحی فرم

اولین قدم، طراحی یک فرم است. برای این کار، یک فرم جدید ایجاد کنید و عناصر زیر را به آن اضافه کنید:
- TextBox برای نمایش ورودی‌ها و نتایج.
- Button برای اعداد 0 تا

1. 
   

- Button برای عملگرهای جمع، تفریق، ضرب و تقسیم.
- Button برای عملگر مساوی (=) و پاک کردن (C).

کد VBA

پس از طراحی فرم، به قسمت ویرایش کد بروید و کد زیر را وارد کنید:
```vba
Dim FirstNumber As Double
Dim SecondNumber As Double
Dim Operator As String
Private Sub btn0_Click()
txtDisplay.Value = txtDisplay.Value & "0"
End Sub
Private Sub btn1_Click()
txtDisplay.Value = txtDisplay.Value & "1"
End Sub
' ادامه برای btn2 تا btn9 ...
Private Sub btnAdd_Click()
FirstNumber = txtDisplay.Value
Operator = "+"
txtDisplay.Value = ""
End Sub
Private Sub btnSubtract_Click()
FirstNumber = txtDisplay.Value
Operator = "-"
txtDisplay.Value = ""
End Sub
Private Sub btnMultiply_Click()
FirstNumber = txtDisplay.Value
Operator = "*"
txtDisplay.Value = ""
End Sub
Private Sub btnDivide_Click()
FirstNumber = txtDisplay.Value
Operator = "/"
txtDisplay.Value = ""
End Sub
Private Sub btnEqual_Click()
SecondNumber = txtDisplay.Value
Select Case Operator
Case "+"
txtDisplay.Value = FirstNumber + SecondNumber
Case "-"
txtDisplay.Value = FirstNumber - SecondNumber
Case "*"
txtDisplay.Value = FirstNumber * SecondNumber
Case "/"
If SecondNumber <> 0 Then
txtDisplay.Value = FirstNumber / SecondNumber
Else
txtDisplay.Value = "خطا"
End If
End Select
End Sub
Private Sub btnClear_Click()
txtDisplay.Value = ""
FirstNumber = 0
SecondNumber = 0
Operator = ""
End Sub
```

توضیحات کد

در این کد، با استفاده از متغیرهای `FirstNumber` و `SecondNumber`، دو عدد ورودی را ذخیره می‌کنیم. عملگر انتخاب شده نیز در متغیر `Operator` نگهداری می‌شود. این کد به شما امکان می‌دهد که:
- اعداد را با کلیک بر روی دکمه‌ها وارد کنید.
- عملگر مورد نظر را انتخاب کنید.
- نتیجه را با کلیک بر روی دکمه مساوی بدست آورید.
- فرم را با دکمه پاک کردن، دوباره تنظیم کنید.

نتیجه‌گیری

ایجاد یک ماشین حساب با استفاده از اکسس و VBA، یک روش عالی برای یادگیری برنامه‌نویسی و کار با پایگاه‌های داده است. با کمی خلاقیت، می‌توانید امکانات بیشتری به آن اضافه کنید و تجربه کاربری بهتری ارائه دهید.