Try to run this full program and u will see that it has few errors.
I would be grateful if u included corrected in an answer post.
It is in VB 5.
Thanks for your attention.
Private Sub Command1_Click()
Dim x, y, z, w, v, a, b As Double
MsgBox "give a"
InputBox a
MsgBox "give b"
InputBox b
If a = 0 Or b = 0 Then
MsgBox "The solutions can not be given by that program!"
Else
MsgBox "ok please wait...."
End If
If a ^ 4 - (256 * b ^ 3) / 27 >= 0 Then
z = ((a ^ 2 + (a ^ 4 - (256 * b ^ 3) / 27) ^ 1 / 2) / 2) ^ 1 / 3 + ((a ^ 2 - (a ^ 4 - (256 * b ^ 3) / 27) ^ 1 / 2) / 2) ^ 1 / 3
Else
MsgBox "The solutions can not be given by that program!"
End If
If z >= 0 And -z - (2 * a) / z ^ 1 / 2 >= 0 Then
x = (z ^ 1 / 2 + (-z - (2 * a) / z ^ 1 / 2) ^ 1 / 2) / 2
w = (z ^ 1 / 2 - (-z - (2 * a) / z ^ 1 / 2) ^ 1 / 2) / 2
Else
If z >= 0 And -z + (2 * a) / z ^ 1 / 2 >= 0 Then
y = (z ^ 1 / 2 + (-z + (2 * a) / z ^ 1 / 2) ^ 1 / 2) / 2
v = (z ^ 1 / 2 - (-z + (2 * a) / z ^ 1 / 2) ^ 1 / 2) / 2
Else
If z < 0 Then
MsgBox "There are no other real solutions"
End If
MsgBox "The first solution is" 'x'
MsgBox "The second solution is" 'w'
MsgBox "The third solution is" 'y'
MsgBox "The fourth solution is" 'v'
MsgBox "There is no other real solution"
MsgBox "Thanks for using that program"
End
...
...
End sub
4 948
you run the program and post back here with the part that is throwing error.
you run the program and post back here with the part that is throwing error.
Don't u have a VB 5?
The problem is that there is not a specific problem!
I have corrected the program in VB6 as I don't have VB5. You can modify it for VB5.
Private Sub Command1_Click()
Dim x, y, z, w, v, a, b As Double
'MsgBox "give a"
a = InputBox("give a")
'MsgBox "give b"
b = InputBox("give b")
If a = 0 Or b = 0 Then
MsgBox "The solutions can not be given by this program!"
End
Else
MsgBox "ok please wait...."
End If
MsgBox a ^ 4 - (256 * b ^ 3) / 27
If a ^ 4 - (256 * b ^ 3) / 27 >= 0 Then
z = ((a ^ 2 + (a ^ 4 - (256 * b ^ 3) / 27) ^ 1 / 2) / 2) ^ 1 / 3 + ((a ^ 2 - (a ^ 4 - (256 * b ^ 3) / 27) ^ 1 / 2) / 2) ^ 1 / 3
Else
MsgBox "The solutions can not be given by this program!"
End
End If
If z >= 0 Then
If -z - (2 * a) / z ^ 1 / 2 >= 0 Then
x = (z ^ 1 / 2 + (-z - (2 * a) / z ^ 1 / 2) ^ 1 / 2) / 2
w = (z ^ 1 / 2 - (-z - (2 * a) / z ^ 1 / 2) ^ 1 / 2) / 2
ElseIf -z + (2 * a) / z ^ 1 / 2 >= 0 Then
y = (z ^ 1 / 2 + (-z + (2 * a) / z ^ 1 / 2) ^ 1 / 2) / 2
v = (z ^ 1 / 2 - (-z + (2 * a) / z ^ 1 / 2) ^ 1 / 2) / 2
End If
Else
MsgBox "There are no other real solutions"
End If
MsgBox "The first solution is" & x
MsgBox "The second solution is" & w
MsgBox "The third solution is" & y
MsgBox "The fourth solution is" & v
MsgBox "There is no other real solution"
MsgBox "Thanks for using the program"
End Sub
It works fine in Vb6 after corrections as above.
Don't u have a VB 5?
The problem is that there is not a specific problem!
Behave yourself. Do not expect others to write code for you. When you face problem in specific part of the code you need to mention that part only.
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: Dave |
last post by:
After following Microsofts admonition to reformat my system before doing a
final compilation of my app I got many warnings/errors upon compiling an rtf
file created in word. I used the Help Workshop program: hcw.exe that's
included with Visual Basic. This exact same file compiled perfectly with no
notes, warnings or errors prior to...
|
by: Tom |
last post by:
A question for gui application programmers. . .
I 've got some GUI programs, written in Python/wxPython, and I've got
a help button and a help menu item. Also, I've got a compiled file
made with the microsoft HTML workshop utility, lets call it
c:\path\help.chm. My question is how do you launch it from the GUI?
What logic do I put behind...
|
by: wukexin |
last post by:
Help me, good men. I find mang books that introduce bit "mang header
files",they talk too bit,in fact it is my too fool, I don't learn it, I have
do a test program, but I have no correct doing result in any way. Who can
help me, I thank you very very much.
list.cpp(main program)...
|
by: Colin J. Williams |
last post by:
Python advertises some basic service:
C:\Python24>python
Python 2.4.1 (#65, Mar 30 2005, 09:13:57) on
win32
Type "help", "copyright", "credits" or "license" for more information.
>>>
With numarray, help gives unhelpful responses:
|
by: Corepaul |
last post by:
Missing Help Files
When I enter "recordset" as the keyword and search the Visual Basic Help index,
I get many topics of interest in the resulting list. But there isn't any
information available from clicking on many of the available topics (mostly
methods but some properties are also unavailable). This same problem occurs
with many, if not...
| |
by: Steve |
last post by:
I have written a help file (chm) for a DLL and referenced it using Help.ShowHelp
My expectation is that a developer using my DLL would be able to access this help file during his development time using "F1" help within the VB IDE. Is this expectation achievable
In trying to test my help file in the IDE, I have a solution with 2 projects:...
|
by: Mark |
last post by:
I have loaded Visual Studio .net on my home computer and my laptop, but my
home computer has an abbreviated help screen not 2% of the help on my laptop.
All the settings look the same on both including search the internet for
help, but the help is worthless. Any ideas?
|
by: JonathanOrlev |
last post by:
Hello everybody,
I wrote this comment in another message of mine, but decided to post it
again as a standalone message.
I think that Microsoft's Office 2003 help system is horrible, probably
the worst I
ever seen.
I almost cannot find anything I need, including things I
|
by: trunxnirvana007 |
last post by:
'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
'UPGRADE_WARNING: Couldn't resolve default property of object Label. Click for more:...
|
by: hitencontractor |
last post by:
I am working on .NET Version 2003 making an SDI application that calls MS Excel 2003.
I added a menu item called "MyApp Help" in the end of the menu bar to show Help-> About.
The application calls MS Excel, so the scenario is that I am supposed to see the Excel Menu bar,
FILE EDIT VIEW INSERT ... HELP.
I am able to see the menu bar, but in...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language...
| |
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. ...
|
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...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes...
|
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...
|
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...
| |
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
|
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...
| |