Visual basic 6.0

[Γιωργοσ123]

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

[NikosKallithea]

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

[Γιωργοσ123]

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

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

[MINDER]

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

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

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

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

[micos000]

Κάνε τρία 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") 

[Γιωργοσ123]

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

[micos000]

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