Προς το περιεχόμενο
Γιωργοσ123

Visual basic 6.0

Προτεινόμενες αναρτήσεις

Θελω να φτιαξω στην visual basic 6.0 ενα ηλεκτρολογικο κομπιουτερακι που να γραφω για παραδειγμα τα volt και να μιυ λεει τα watt και τα ampere. Συγγνωμη εαν εχω βαλει το θεμα καπου που δεν επρεπε, αν μπορει καποιος ας βοηθησει ευχαριστω

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

Απο ενα δεδομένο οπως τα βολτ δεν μπορούν να προκύψουν αμπέρ ή βαττ

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

Απο ενα δεδομένο οπως τα βολτ δεν μπορούν να προκύψουν αμπέρ ή βαττ

Μπερδευτηκα εννοω να γραφω τα βολτ και τα βατ και να μου βγαζει αμπερ

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

γιατί χρειάζεσε γλώσσα προγραματισμού για αυτό το κάνεις και στο excel.

στο ένα κελι βάζεις τα αμπέρ στο δεύτερο κελί τα βατ και στο τρίτο δίνεις τον τύπο ( νόμο του ομ αν θυμάμαι καλα ) χρησιμοποιώντας τα δεδομένα από τα δύο πρώτα κελιά.

Το ίδιο θα κάνεις και στην visual.

θα βγάζει δύο πεδία που θα συμπληρώνει ο χρήστης στο ένα τα αμπερ στο άλλο τα βατ και μετά θα του βγάζει από κάτω τα βολτ χρησιμοποιώντας τα δεδομένα αυτά.

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

Κάνε τρία text boxes (text1, text2, text3). Αν θέλεις βάλε και labels (watt, volt, amp).

Βάλε ένα button (Command1).

Αν θέλεις σβήσε το κείμενο (από το text field στα properties του κάθε text box) για να είναι άδεια

Κάνε διπλό κλικ στο button και κάνε copy-paste τα παρακάτω ανάμεσα στο Private και στο End Sub :

Dim watt as Double
Dim volt as Double
Dim amp as Double

watt = Val (Text1.Text)
volt = Val (Text2.Text)
amp = watt / volt

Text3.Text = amp

Δίνοντας νούμερα στο δύο πρώτα και πατώντας το κουμπί παίρνεις τα αμπέρ.

Αν θέλεις πρόσθεσε μετά την τελευταία γραμμή το παρακάτω για να καθαρίζει τα δύο πεδία ή βάλε ένα ακόμα κουμπί (π.χ. Clear) και με διπλό κλικ βάλε εκεί τις δύο αυτές γραμμές:

Text1.Text = ""
Text2.Text = ""

Δεν υπάρχει κανένας έλεγχος στον κώδικα για τα ορθά στοιχεία και τα δεκαδικά μπαίνουν με κόμμα (π.χ. 24,5).

 

EDIT:

Και ένα πολύ απλοϊκό σε vbscript: Άνοιξε το σημειωματάριο και αντέγραψε εκεί τον κώδικα. Πάνε Αρχείο->Αποθήκευση ως, επέλεξε που θα το σώσεις και δώσε για όνομα ampere.vbs (με την κατάληξη .vbs).

Διπλό κλικ στο αρχείο και... voila!

Option Explicit
Dim a, b, c
a=inputbox ("WATT: ", "watt")
b=inputbox ("VOLT:", "volt")
if not isnumeric (a) then
wscript.quit
end if
if not isnumeric ( then
wscript.quit
end if
c=msgbox ("AMPERE: "& a / b, vbCritical, "Answer") 

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

Παιδια ευχαριστω πολυ για την βοηθεια σας πρεπει να το κανω σε visual basic 6 γιατι εκει την θελει ο καθηγητης και θελει ενα ηλεκτρολογικο θεμα

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

Ξεκίνα λοιπόν με τον βασικό κώδικα που σου έδωσα παραπάνω και πρόσθεσε έλεγχο σφαλμάτων ώστε να μην δέχεται γράμματα παρά μόνο αριθμούς (http://msdn.microsoft.com/en-us/library/6cd3f6w1%28v=vs.90%29.aspx) και ένα όμορφο interface και είσαι έτοιμος.

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

Δημιουργήστε έναν λογαριασμό ή συνδεθείτε για να σχολιάσετε

Πρέπει να είστε μέλος για να αφήσετε σχόλιο

Δημιουργία λογαριασμού

Εγγραφείτε με νέο λογαριασμό στην κοινότητα μας. Είναι εύκολο!

Εγγραφείτε για έναν νέο λογαριασμό

Σύνδεση

Έχετε ήδη λογαριασμό; Συνδεθείτε εδώ.

Συνδεθείτε τώρα
×
×
  • Δημιουργία νέου...

Χρήσιμες πληροφορίες

Με την περιήγησή σας στο insomnia.gr, αποδέχεστε τη χρήση cookies που ενισχύουν σημαντικά την εμπειρία χρήσης.