| |

Visual-Basic EinsteigerFehlermeldung Überlauf | |  | Autor: harryschaeuble | Datum: 14.03.06 09:42 |
| Hallo,
ich habe folgendes Problem:
Ich erhalte immer eine Fehlermeldung "Überlauf" wenn die Zahlen etwas größer werden. Aber ich erhalte die Fehlermeldung schon bei den Werten (im Schrittmodus nachgeschaut)
WINLA=469
LAGZ_Reihe=224
Doch 469*224 ist noch lange nicht das max. des Integer!?!? Habe natürlich auch schon alles mit long oder double probiert, half aber nichts.
Die Fehlermeldung kommt erst wenn WINLA und LAGZ_Reihe berechnet wurden und dann WINDZ_Reihe aufgerufen wird.
As Integer
Public spalte As Integer
Const pi = 3.14159265359
' ***********************
' **** Reihenwicklung****
' ***********************
' Formel für die Lagenzahl (LAGZ_Reihe)
Public Function LAGZ_Reihe(ByVal d1 As Single, ByVal d2 As Single, draht As Single, AZ As Integer, DZ As Single, DD As Single) As Integer
LAGZ_Reihe = (((d1 - d2) / 2) - AZ * DZ - DD) / draht
End Function
'Formel für Windungen/Lage
Public Function WINLA(ByVal b As Single, draht As Single) As Integer
WINLA = b / draht
End Function
'Formel für Windungszahl
Public Function WINDZ_Reihe(ByVal AEL As Single, ByVal LAD As Single, ByVal draht As Single, ByVal b As Single) As Integer
WINDZ_Reihe = WINLA(b, draht) * LAGZ_Reihe(UserForm2.TextBox5.Value, UserForm2.TextBox6.Value, draht, UserForm2.TextBox21.Value, UserForm2.TextBox22.Value, UserForm2.TextBox23.Value) - (AEL * (1.107 * LAD) ^ 2 / (draht ^ 2))
End Function
[\code] |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|