Private Sub Command1_Click()
Dim hamishim As Integer
hamishim = "50"
Text1.Text = Text1.Text & hamishim
End Sub
Private Sub Command2_Click()
Dim arbaim As Integer
arbaim = "40"
Text1.Text = Text1.Text & arbaim
End Sub
Private Sub Command3_Click()
Dim plus As String
plus = "+"
Text1.Text = Text1.Text & plus
End Sub

יכול להיות שסתם קישקשתי אני לא מבין בזה כל כך..
(בתוכנית כרגע יש 3 כפתורים 40,50,+)
השאלה שלי איך ב text1.text יהיה את התוצאה של כל הפעולה החשבונית שעשיתי שם?

השאלה היא מה בדיוק אתה רוצה לעשות? האם זהו רק מחשבון שיודע להוסיף 40 + 50? אני מניח שלא ושמה שאתה רוצה זה בעצם מחשבון מלא, נכון?

הרעיון בגדול הוא כזה: (כמובן שזה הכי פשוט שאפשר לא מחשבון אמיתי לגמרי אלה פשוט פעולת חשבון בסיסית בין 2 מספרים)
אתה בונה טופס עם 16 כפתורים (בוא נגיד שכרגע אנחנו מטפלים רק במספרים שלמים). 10 כפתורים לכל ספרה 0-9, 4 כפתורים לפעולות חשבון הפשוטות, כפתור אחד "שווה" וכפתור "נקה".
בנוסף לזה צריך תיבת טקסט שבה יהיה הערך שאותו מקלידים וגם לתוצאות.
בזמן שמקישים על המספרים אתה פשוט מוסיף אותם לתיבת הטקסט.
כאשר לוחצים על אחת מפעולות החשבון, צריך לזכור את מה שהיה בתיבת טקסט, לאפס אותו, לזכור איזה פעולת חשבון ביקשו ואז לתת להמשיך להקליד מספר שני. כאשר לוחצים על השווה, מבצעים את החישוב על פי 2 המספרים שיש לנו ומציגים בתיבת הטקסט.

כרגיל, אני מצרף לך דוגמה של קוד כזה של מחשבון שבניתי לך.

מקוה שזה עוזר.

א.