ariθμομηχανη visual basic 2010/2008

Γεια σας!

Σήμερα θα σας δείξω πώς μπορείτε να φτιάξετε μία αριθμομηχανή στην visual basic.

Απλα ακολουθήστε 1-1 τα βήματά μου:

1. Φτιάξτε ένα νέο project με όποιο όνομα θέλετε.


2. Βάλτε στην φόρμα σας 17 buttons και 1 textbox.


3. Ονομάστε τα κάπως έτσι:


[Πρέπει να είστε εγγεγραμμένοι και συνδεδεμένοι για να δείτε αυτή την εικόνα.]

4. Τώρα πηγαίνετε στο View --> Code και πάνω από το "Public Class Form1" γράψτε:

Κώδικας:

Option Explicit On

5. Τώρα κάτω από το "Public Class Form1" γράψτε:

Κώδικας:

Dim FirstNumber As Single
Dim SecondNumber As Single
Dim AnswerNumber As Single
Dim ArithmeticProcess As String

6. Τώρα κάντε διπλό click στο κουμπι 1 και γράψτε:

Κώδικας:

TextBox1.Text = TextBox1.Text & "1"

7. Κάντε το ίδιο πράγμα στα υπόληπα 9 κουμπιά (9 με το 0)

8. Στο κουμπι Clear γράψτε:

Κώδικας:

textbox1.text = ""

9. Τώρα κάντε διπλό click στο κουμπι "+" και γράψτε:

Κώδικας:

FirstNumber = Val(TextBox1.Text)
TextBox1.Text = ""
ArithmeticProcess = "+"

10. Στα υπολυπα 3 απλα αλλαξτε το συμβολο και για τον πολλαπλασιασμο βαλτε "Χ"

11. Το τελευταίο κουμπι που μας έμεινε είναι το "=". Κάντε διπλό click και γράψτε:

Κώδικας:

SecondNumber = Val(TextBox1.Text)
If ArithmeticProcess = "+" Then
AnswerNumber = FirstNumber + SecondNumber
End If
If ArithmeticProcess = "-" Then
AnswerNumber = FirstNumber - SecondNumber
End If
If ArithmeticProcess = "X" Then
AnswerNumber = FirstNumber * SecondNumber
End If
If ArithmeticProcess = "/" Then
AnswerNumber = FirstNumber / SecondNumber
End If
TextBox1.Text = AnswerNumber

12. Τελιωσαμε με την αριθμομηχανη. Τρέξτε την για να δειτε οτι δουλευει!

Enjoy!

Πολύ καλό tutorial
Nα υπενθυμήσω τους κανόνες

ΑΠΑΓΟΡΕΥΕΤΑΙ η αναδημοσίευση, η αναπαραγωγή, ολική, μερική ή περιληπτική, ή κατά παράφραση, ή διασκευή απόδοση του περιεχομένου και του υλικού της Ιστοσελίδας με οποιονδήποτε τρόπο, μηχανικό, ηλεκτρονικό, φωτοτυπικό, ηχογράφησης ή αλλο, χωρίς προηγούμενη γραπτή άδεια του εκδότη.