People-Unity
Γεια σου!
Καλώς ήρθες σε μια νέα ελληνική κοινότητα,People-Unity.!
Αυτήν την στιγμή βλέπεις το forum μας σαν ένας απλός επισκέπτης. Έλα και εσύ στην παρέα μας, κάνοντας μια δωρεάν εγγραφή τώρα.
Σε περιμένουμε!!!

People-Unity

Μια νέα Ελληνική κοινότητα. Γίνε κι εσύ μέλος!
Forum version: v1.5.6

Καλώς ήρθατε στο People-Unity

Μη Συνδεδεμενος Παρακαλώ συνδεθείτε ή εγγραφείτε

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

Επισκόπηση προηγούμενης Θ.Ενότητας Επισκόπηση επόμενης Θ.Ενότητας Πήγαινε κάτω  Μήνυμα [Σελίδα 1 από 1]

1 ariθμομηχανη visual basic 2010/2008 Την / Το Πεμ Μαρ 15, 2012 7:36 am

Argyris13

avatar
Administrator
Administrator
Γεια σας!

Σήμερα θα σας δείξω πώς μπορείτε να φτιάξετε μία αριθμομηχανή στην 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!



Επισκόπηση του προφίλ των χρηστών http://people-unity.forumgreek.com

2 Απ: ariθμομηχανη visual basic 2010/2008 Την / Το Πεμ Μαρ 15, 2012 9:18 am

Cpt Death

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


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


________________




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

Επισκόπηση του προφίλ των χρηστών

Επισκόπηση προηγούμενης Θ.Ενότητας Επισκόπηση επόμενης Θ.Ενότητας Επιστροφή στην κορυφή  Μήνυμα [Σελίδα 1 από 1]

Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης