Jump to content

runtime error 6 overflow σε vb6 [solved]


Recommended Posts

Καλησπέρα παιδιά, προσπαθώ να φτιάξω ένα πρόγραμμα σε vb6 και όταν το κάνω run μου πετάει «runtime error 6 overflow».

Η μεταβλητή μου παίρνει τιμή από μία διαίρεση και την έχω δηλώσει σαν Single. Από μια αναζήτηση που έκανα στο google κατάλαβα ότι το μέγεθος της μεταβλητής δεν επαρκή, αλλά ακόμα και όταν τη δήλωσα σαν double ή και long το σφάλμα συνεχίζεται.

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

Link to comment
Share on other sites

Καταρχήν σε ευχαριστώ για το ενδιαφέρον σου.:jump1:

Το πρόβλημα δεν είναι εκεί γιατί το μόνο που κάνει το πρόγραμμα είναι να διαβάζει νούμερα και να κάνει πράξεις, τα νούμερα που δίνω εγώ είναι τέτοια ώστε αποκλείεται να διαιρεί με το μηδέν. Το ποιο πιθανόν είναι να κολλάει γιατί η διαίρεση δίνει αποτέλεσμα με άπειρα δεκαδικά (π.χ. 10/3=3,33333333333).

Link to comment
Share on other sites

Dim v22 As Long (με τον ίδιο τρόπο δήλωσα και όλες τις άλλες μεταβλητές)

x23 = x2 + x3

x234 = x2 + x3 + x4

x2346 = x2 + x3 + x4 + x6

x23456 = x2 + x3 + x4 + x5 + x6 (διάφορο του μηδενός αν πάρει τιμή μια μεταβλητή από όλες)

xq12 = x1 + (xq2 / 2)

v22 = f2 * x2 - f1 * x1 + f3 * x22 + f4 * x234 + f5 * x23456 + q * xq12

v2 = v22 / x2346 (η μόνη διαίρεση του οραγράμματος)

v1 = f1 + f2 + f3 + f4 + f5 + (q * xq2) - v2

MsgBox ("V1 = " & v1 & " V2 = " & v2)

Link to comment
Share on other sites

Εκεί πιθανολογώ και εγώ ότι είναι το πρόβλημα, στα δεκαδικά. Μήπως ξέρεις πως μπορώ να κάνω στρογγυλοποίηση?

Υπολογισμός ροπής ( δύναμη * απόσταση )

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Create New...

Important Information

By using this site, you agree to our Terms of Use.