So I posted this before, but got no answer. I found a way around it but now my backway is doing the same problem.
Basically, in one of my get methods: -
Property Get H() As Double
-
H = CalcH 'This was implemented as the "Back Way" and it fixed problem, before the code in CalcH was in here
-
End Property
-
-
Private Function CalcH() As Double
-
If pH <= 0# And pT > 0# And pP > 0# Then 'calculate if not set
-
pH = STMPTH(pP, pT)
-
ElseIf pH <= 0# And pT > 0# Then
-
If pType = StreamType.Water Then
-
pH = STMTQH(pT, 0#)
-
Else
-
pH = STMTQH(pT, 1#)
-
End If
-
ElseIf pH <= 0# And pP > 0# Then
-
If pType = StreamType.Water Then
-
pH = STMPQH(pP, 0#)
-
Else
-
pH = STMPQH(pP, 1#)
-
End If
-
End If
-
CalcH = pH
-
End Function
-
When I run the program, I give pH a value of 1488. But when it comes to retrieving that value the compiler goes nuts. If I run the program, I get "Error 6: Overflow". So I use the debugger, I step through the WHOLE program... and it completes its run with no issue.... so I run again... and get the error. I find out it is when I retrieve the H value. So I put a break right there. I run program to the break and then step through the retrieval and find something quite odd. When it gets to the - If pH <= 0# And pT > 0# And pP > 0# Then 'calculate if not set
it actually returns true... but pH has a value of 1488! so I do this again and mouse over the pH to see what it says and it says "pH = 0" thats odd... I hit F8 to step. then mouse over pH, still "pH = 0" I open up the locals window and locate the pH variable. it says "pH = 1488", I mouse over pH again and now it says "pH = 1488" BUT IT JUST PASSED AN IF STATEMENT SAYING IF<=0!!!! please help!
Screenshots (in order): #1 #2 #3 #4 #5 #6 #7 7 1576
So I posted this before, but got no answer. I found a way around it but now my backway is doing the same problem.
Basically, in one of my get methods: -
Property Get H() As Double
-
H = CalcH 'This was implemented as the "Back Way" and it fixed problem, before the code in CalcH was in here
-
End Property
-
-
Private Function CalcH() As Double
-
If pH <= 0# And pT > 0# And pP > 0# Then 'calculate if not set
-
pH = STMPTH(pP, pT)
-
ElseIf pH <= 0# And pT > 0# Then
-
If pType = StreamType.Water Then
-
pH = STMTQH(pT, 0#)
-
Else
-
pH = STMTQH(pT, 1#)
-
End If
-
ElseIf pH <= 0# And pP > 0# Then
-
If pType = StreamType.Water Then
-
pH = STMPQH(pP, 0#)
-
Else
-
pH = STMPQH(pP, 1#)
-
End If
-
End If
-
CalcH = pH
-
End Function
-
When I run the program, I give pH a value of 1488. But when it comes to retrieving that value the compiler goes nuts. If I run the program, I get "Error 6: Overflow". So I use the debugger, I step through the WHOLE program... and it completes its run with no issue.... so I run again... and get the error. I find out it is when I retrieve the H value. So I put a break right there. I run program to the break and then step through the retrieval and find something quite odd. When it gets to the - If pH <= 0# And pT > 0# And pP > 0# Then 'calculate if not set
it actually returns true... but pH has a value of 1488! so I do this again and mouse over the pH to see what it says and it says "pH = 0" thats odd... I hit F8 to step. then mouse over pH, still "pH = 0" I open up the locals window and locate the pH variable. it says "pH = 1488", I mouse over pH again and now it says "pH = 1488" BUT IT JUST PASSED AN IF STATEMENT SAYING IF<=0!!!! please help!
i saw that you are programing about Class. I've never seen this type of error before. But i think problem here is caused by Local Varriables and Global Varriables. Can u discribe more about ur Class. ( Member Varriables and Member Function)
I can't look at the images right now, because my work system blocks them. Will have a look in a few hours when I'm at home. In the meantime...
Are you setting it to 1488 or 1488# ? Perhaps there's an unintended conversion happening somewhere along the line, which is causing a calculation to overflow. VB, along with some other languagesw, has a nasty tendency to convert everything in a calculation to match the smallest data type used anywhere in the calculation. This can really screw you up sometimes.
Like I said, I'll have a look at this in detail in a few hours, and see whether anything comes to mind.
-
Private pP As Double 'Pressure of the stream
-
Private pT As Double 'Temperature of the stream
-
Private pH As Double 'Enthalpy of the stream
-
Private pW As Double 'Flow of the stream
-
Private pType As StreamType 'Type of stream: Steam, Water, Leak(Enum)
-
Private pName As String 'Name of the stream
-
-
Property Let P(P As Double)
-
pP = P
-
End Property
-
-
Property Let T(T As Double)
-
If pType = Steam And pP <> 0 Then
-
If (T - STMPT(pP)) < 27 Then 'Check for 27 degree superheat per PTC 6
-
pT = 0
-
Else
-
pT = T
-
End If
-
Else
-
pT = T
-
End If
-
End Property
-
-
Property Let H(H As Double)
-
pH = H
-
End Property
-
-
Property Let W(W As Double)
-
pW = W
-
End Property
-
-
Property Get P() As Double
-
P = pP
-
End Property
-
-
Property Get T() As Double
-
If pT = 0 And pH > 0 And pP > 0 Then 'calculate if temp unknown & H known
-
If Not SuperHeat Then
-
pT = STMPHT(pP, pH)
-
End If
-
End If
-
T = pT
-
End Property
-
-
Property Get H() As Double
-
H = CalcH
-
End Property
-
-
Property Get W() As Double
-
W = pW
-
End Property
-
-
Property Get SType() As StreamType
-
SType = pType
-
End Property
-
-
Property Get Name() As String
-
Name = pName
-
End Property
-
-
Property Get S() As Double 'Get Entropy
-
If pT <> 0 And pP <> 0 Then
-
S = STMPTS(pP, pT)
-
ElseIf pT = 0 And pP <> 0 Then
-
S = STMPHS(pP, H)
-
End If
-
End Property
-
-
Property Get x() As Double 'Get X
-
x = STMPHQ(pP, H)
-
End Property
-
-
Property Get Q() As Double 'Get Energy Flow Rate (H*W)
-
Q = H * pW
-
End Property
-
-
Property Get V() As Double 'Get Specific Volume
-
V = STMPTV(P, T)
-
End Property
-
-
Property Get Density() As Double 'Get Specific Density
-
If P = 0 Then
-
Density = 62.087 + 0.022519 * T - 0.00033873 * (T ^ 2) + 0.0000010579 * (T ^ 3)
-
Else
-
Density = 1 / V
-
End If
-
End Property
-
-
Property Get C() As Double 'Get Specific Heat
-
C = 1.0244 - 0.00071715 * pT + 0.0000061796 * (pT ^ 2) - 0.000000016397 * (pT ^ 3)
-
End Property
-
This problem went away. And KEEPS COMING BACK!!! I switched my computers out and it started working again. Now I have the same sort of issue and we tried it on 3 different computers here. same problem. I run the program and get overflow. but I can hold down F8 for 20 minutes and easily fly past the point at which it crashes. I am so tired of it. I want to use C# or C++ but unfortunately my company does not have licenses for it.
This problem went away. And KEEPS COMING BACK!!! I switched my computers out and it started working again. Now I have the same sort of issue and we tried it on 3 different computers here. same problem. I run the program and get overflow. but I can hold down F8 for 20 minutes and easily fly past the point at which it crashes. I am so tired of it. I want to use C# or C++ but unfortunately my company does not have licenses for it.
i tried copy ur code in to a new project and do it. No problem occured. Maybe, u have other statement that i dont know. But i have small idea. -
Property Let H(H As Double)
-
pH = H
-
End Property
-
Here, u let pH = H. H maybe a local varriable in proprerty Let. If this is, no problem occure. But if VB translate H as Property Get H() As Double that u declare. So, this is wrong. I donot ensure how VB translate this, but u shouldnt use the same name for the varriable as the Property name.
Use the same name for Property Let and Property Get only. -
Property Let H (hValue as Double)
-
pH = hValue
-
End Property
-
Property Get H () As Double
-
H = calH()
-
End Property
-
Try replacing other Varriables which name as similar as Property name and do ur project again. If it still have error, i must say sorry because i cannot help u any more.
That is some weird stuff you've got going on there.
Sorry, I completely forgot about it. I'll e-mail myself a reminder to have a look when I get home tonight.
In the meantime, one straw you could grasp in desperation is to put DefDBL A-Z at the top of the module(s), to indicate a default data type of Double for everything. Probably won't help, but hey, it probably won't hurt.
Just a note. As I think on it further, it's not really all that surprising that things can work slightly differently between compiled and interpreted code. After all, if the problem is related to temporary values generated during a calculation, there's no reason why the runtime and IDE code couldn't be using some slightly different code internally to do it.
My guess is that it will probably just end up being necessary to force something to Double format, or split up a calculation (or comparison) to gain finer control over the format conversions. However, I haven't read back through the whole of the thread yet. Will do so tonight.
In the meantime, good luck!
Well, I've had a look through the images. I'm going to admit complete bafflement. I've never really done much with classes, and I know things can get complicated due to different memory models, different types of creation/sharing/destruction of objects and so on. For all I know, there might be another instance of something which is working with the same data that you are looking at.
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: rhmd |
last post by:
Just found Python and I love it. What an elegant language!
I would like to use it for various applications, but the
mathematical calculations are way too slow (a million sines 8 seconds
in Python vs. 2 seconds in Excel VBA), so was thinking of learning
enough C++ to do the number crunching in C++ and integrating the C++
routines with Python. My question:
My question:
Which compiler works best with Python?
I use Windows XP and 98. Have...
|
by: Martin Bless |
last post by:
The good news:
Along with Python-2.4 comes really good news to Windows users. Yes,
you now CAN build extension modules yourself using the SAME C++
compiler and linker Python is built with itself. Everything you need
is available at no costs (except download hassle and installation
time). Once your system is set up properly its just a matter of
running 'python setup.py build'. No longer waiting for someone else to
build binaries and a...
|
by: Alan Lee |
last post by:
Hi i am writing a small simulation for a bunch of atoms jumping around on a
surface. I know i am a crappy programmer since i am not very familiar with
object oriented languages. I am woindering if anyone can tell me why my
forward class declarations not working.
the member function findpaths can't seem to access the class Board
when I try to pass it a board object by value.
I put the Board class latrerbut also put in a forward...
|
by: Ebay boy |
last post by:
I have recently bought a compiler and I have this sample code that
includes the following:
#include <stdlib.h>
#include <string.h>
#include <time.h>
Unfortunately, my compiler doesn't incude these. So where can I get
these files from? I'm a computer idiot so please be clear. Any help is
|
by: Knady |
last post by:
Hi,
I have the following problem, I must to do my assignment, but I really do
not know how to use the malloc.
I need create a program that will be used to do some algebrical computation
on the matrix.
How I can create dynamical the matrices with the name in order to be able to
recall them.
Thx
| |
by: Student |
last post by:
Hi All,
I have an assignment for my Programming language project to create a
compiler that takes a C++ file as input and translate it into the C
file. Here I have to take care of inheritance and operator overloading
and virtual functions. I mean it should not hamper the C++ meaning. In
frank and simple terms i need to implement a small C++ compiler in C++,
and i want the intermediate representation to be C. Please help me in
this....
|
by: Ark |
last post by:
Consider
static T foo;
..............
T get_foo(void) { return foo; }
In a multi-threaded (or -tasked) environment, I need to ensure that I
get_foo() grabs T atomically (e.g. is not preempted while accessing foo).
Are there types T for which atomic fetch /guaranteed/ portably? Does the
|
by: Anonymous |
last post by:
Came across some code summarized as follows:
char const* MyClass::errToText(int err) const
{
switch (err)
{
case 0: return "No error";
case 1: return "Not enough";
case 2: return "Too much";
default: return "Unknown error";
|
by: Rene |
last post by:
Hello to all!
For a long time I have been "fighting" a problem compiling an OpenGL
program which uses GLUT. First I have put a question in a Watcom group
(I want to use this compiler) to which I got no reply, in an OpenGL
group somebody recommended me to use Visual C++ which I did. That worked
OK but I do would like to use Watcom.
In the meantime I found solutions to several of the errors I got but one
is left which I cannot find a...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
| |
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |