|
You should not use floating point numbers for financial calculations, as they tend not to hold exact values. Use integer values and convert all your totals to NP. You can then do the rounding quite easily by converting to whole rupees and using the remainder to decide which way to round off.
Veni, vidi, abiit domum
|
|
|
|
|
Hi Richard,
many thanks for your quick reply. But could you please help me on coding method how would I do that ?
|
|
|
|
|
When you enter the money amounts, multiply the rupees by 100 and add the paisa, to give the total and convert to (and save as) integer type. You can then perform all currency calculations on these integer values. When you wish to print or display the values you will divide by 100 to get the round number of rupees and use the Mod operator to get the remainder (paisa). You can then print the two values to give tha absolute total, or use the paisa value to decide whether to round up or down. My knowledge of Visual Basic is not very good, so you will have to turn that into code for yourself.
Veni, vidi, abiit domum
|
|
|
|
|
Thanks Richard,
Let me try it first.
Thanks again.
|
|
|
|
|
Richard MacCutchan wrote: Use integer values and convert all your totals to NP.
Or use the built-in Decimal[^] type, which does that for you.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Thanks, I forgot about that.
Veni, vidi, abiit domum
|
|
|
|
|
Hi all,
Thank you for your ideas. I solved the problem.
Thanks again...
Regards.
|
|
|
|
|
Okay, so basically I have 3 forms..
The first form asks the user questions, the second form is a loading gif while the third form processes the information into a database. So all the processing happens in the third form while the second form shows a gif saying that the form is loading.
Now when I insert a background worker into the third form, the form freezes and the second form doesnt even show up. What am I doing wrong?
This is my code:
Form 2:
Private Sub Wait1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ProfileSetup.Show()
ProfileSetup.Visible = False
End Sub
Form3:
Private Sub ProfileSetup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False
TextBox1.ReadOnly = True
TextBox1.Enabled = False
TextBox2.ReadOnly = True
TextBox2.Enabled = False
TextBox3.ReadOnly = True
TextBox3.Enabled = False
TextBox4.ReadOnly = True
TextBox4.Enabled = False
TabControl1.Hide()
GroupBox1.Hide()
TabControl1.SendToBack()
GroupBox1.SendToBack()
CheckForIllegalCrossThreadCalls = False
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
TextBox1.Text = UsersTableAdapter1.LoggedInUser(True)
TextBox2.Text = UsersTableAdapter1.PasswordGet(TextBox1.Text)
TextBox3.Text = UsersTableAdapter1.EmailGet(TextBox1.Text)
Variables.avatar = PictureBox1.BackgroundImage
original = PictureBox1.BackgroundImage
previous = PictureBox202
PictureBox202.Hide()
TextBox4.Text = UsersTableAdapter1.RankGet(UsersTableAdapter1.LoggedInUser(True))
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Wait1.Close()
Me.Visible = True
End Sub
What I actually want the program to do is display form 2 with the gif while form 3 is getting ready, when it is ready form 3 opens in gui mode while form 2 closes.
Any help please?
|
|
|
|
|
|
Sorry, mind being a bit more clear?
|
|
|
|
|
More clearer than what? Did you follow the link I gave you and read the article?
Veni, vidi, abiit domum
|
|
|
|
|
Umm, yes? Im still new, I didnt exactly understand everything..
|
|
|
|
|
Suhayb Bashir Yousif wrote: I didnt exactly understand everything.
Then maybe you should stop using advanced features. Seriously, you need to understand events, delegates and threading, and the implications of using them before trying to create a project such as you describe. There are many articles and books that will help you. The article I pointed you to also has links to other articles that give more details on these subjects. It is most unlikely that I could give a better explanation than is provided in them.
Veni, vidi, abiit domum
|
|
|
|
|
Suhayb Bashir Yousif wrote: So all the processing happens in the third form while the second form shows a gif saying that the form is loading.
You don't need a form to do processing; put it in a separate class or module.
Suhayb Bashir Yousif wrote:
CheckForIllegalCrossThreadCalls = False
"No".
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Sounds good, I'll try it 
And whats wrong with the CheckForIllegalCrossThreadCalls? I keep getting errors if I dont do that..
|
|
|
|
|
Because touching controls from anything other than the UI thread introduces bugs into your application that are nearly impossible to reproduce, find and fix.
That property is in there to support legacy code should not be used anymore.
|
|
|
|
|
Hi,
I have a vb6 project that has to read the usb port all the time and look at the data to parse it out and put some strings in a file.
The following code will read the usb port and put the data into a circular buffer so that the top level application can read the data and then process it.
This code seems to run 21 times before it just exits.
I do not know what would cause such behavior,
Can anyone offer any suggestions?
Thanks,
Martin
Public Sub WaitForUsbRet()
Dim EventObject As Long
Dim Result As Long
Dim res2 As Integer
Dim Security As SECURITY_ATTRIBUTES
Dim RecBuffer(65) As Byte
Dim rdNum As Long
Dim i As Integer
Dim res3 As Long
res2 = 1
Security.lpSecurityDescriptor = 0
Security.bInheritHandle = CInt(True)
Security.nLength = Len(Security)
EventObject = CreateEvent(Security, CInt(True), CInt(False), "rdUsb")
HIDOverlapped.Offset = 0
HIDOverlapped.OffsetHigh = 0
HIDOverlapped.hEvent = EventObject
Do
Form1.ShpStatus.BackColor = Form1.ShpStatus.BackColor + 1
DoEvents
RecBuffer(4) = 0
RecBuffer(5) = 0
Result = ReadFile _
(HIDHandle, _
RecBuffer(0), _
CLng(Capabilities.InputReportByteLength), _
rdNum, _
HIDOverlapped)
Form1.lstBoxRec.AddItem "Res=" & Result & " rdnum=" & rdNum & " hid=" & HIDOverlapped.Internal
Result = WaitForSingleObject(EventObject, 500)
Form1.lstBoxRec.AddItem "Res2=" & Result & " err=" & GetLastError & " hid=" & HIDOverlapped.Internal
Select Case Result
Case WAIT_TIMEOUT
' Timeout error.
Form1.lstBoxRec.AddItem "Out"
CancelIo (ReadHandle)
Form1.devStatus = RET_USBDEVREVTOOLOW
DoEvents
Case WAIT_FAILED Or WAIT_ABANDONED
Form1.lstBoxRec.AddItem "FAIL"
DoEvents
Case WAIT_OBJECT_0
' ' Success
' ' Use the report data.
rdNum = (RecBuffer(4) + 5)
If rdNum > 65 Then rdNum = 65
If (rdNum > 5) Then
For i = 1 To rdNum
Form1.putInCircBuff (RecBuffer(i))
Next i
End If
Form1.lstBoxRec.ListIndex = Form1.lstBoxRec.ListCount - 1
If (rdNum > 0) Then Form1.tmrCommHndl.Enabled = True
DoEvents
Case Else
Form1.lstBoxRec.AddItem "Else"
CancelIo (ReadHandle)
Form1.devStatus = RET_USBDEVREVTOOLOW
End Select
res3 = ResetEvent(EventObject)
Loop Until res2 = 0
End Sub
|
|
|
|
|
Good morning everyone,
I have a problem with a WinForms vb.net application that i am building. If someone could help me out i would appreciate it.
I have a solution called "MySolution". It has two projects in it. One project is called "Main" and the other project is called "ProjectOne". "Main" contains one form called "frmMain". "ProjectOne" contains two forms ("frmStart" and "frmTest"). The idea is that within the startup project "Main" a user clicks a button (in "frmMain") and it will open up the "frmStart" from "ProjectOne". "frmStart" will have a picturebox in it. The user will then click a button in "frmStart" that will open "frmTest". "frmtest" will have another button that will change the colour of the picturebox in "frmStart" to something like red. My problem is that even though i have all forms opening properly and working
(i have made "ProjectOne" dependent on "Main" and have imported "ProjectOne" and called the "frmMain" as needed. The colour of the picturebox will not change. This application sounds strange because i have just broken the scenario down to a basic program like this to test it out (in reality i am changing datagridviews). If i run the "ProjectOne" on it's own without relying on "Main" to start it, the picturebox colour code will work. However it seems that when i try to combine two projects to work together, the second form that gets opened in the "ProjectOne" project will not make any changes that i need to the first form. I have run debug code on the change colour line and it passes through fine, but it seems to just ignore it completly. Am i missing something very simple here?
Please see attached code below
(Here is code for Main - frmMain)
Imports ProjectOne
Public Class frmMain
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim OpenProjectOne As New ProjectOne.frmMain
OpenProjectOne.Show()
End Sub
End Class
(Here is code for ProjectOne - frmStart)
Public Class frmStart
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
frmTest.Show()
End Sub
End Class
(Here is code for ProjectOne - frmTest)
Public Class frmTest
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim frmMainNew As New ProjectOne.frmMain
frmMain.PictureBox1.BackColor = Color.red
End Sub
End Class
modified 22-Sep-13 20:47pm.
|
|
|
|
|
Did you add a reference to the project or the resulting assembly, or did you only "import" the namespace?
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Quote: second form that gets opened in the "ProjectOne" project will not make any changes that i need to the first form.
Public Class frmTest
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim frmMainNew As New ProjectOne.frmMain
frmMain.PictureBox1.BackColor = Color.red
End Sub
This is because frmTest.Button1_Click is working with its own instance of frmMain. Pass frmTest a reference to the PictureBox like shown below. Or you could also make a Property on frmTest to set the picturebox to work with.
Public Class frmMain
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
frmTest.Show(Me.PictureBox1)
End Sub
End Class
Public Class frmTest
Private pb As PictureBox
Public Overloads Sub Show(ByVal pict As PictureBox)
Me.pb = pict
Me.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.pb.BackColor = Color.Red
End Sub
End Class
|
|
|
|
|
Thankyou TnTinMn,
Your answer put me on the right track on solving my problem.
Thanks again for your assistance. 
|
|
|
|
|
I work as a coop student and I need some serious help so I sincerely appreciate everyone's input.
Basically my manager has told me to create an application which takes text files, processes them and creates a report which the user can change tolerances on what columns or fields they want to view. For example, if 10000 files (each file represents company/client audit info) are input into the application for 1 year, the user should be able to filter and compare files from separte months based on column headings in the files such as "% population" and "field".
Background info on why this app needs to be created: 1000s of files containing client audit info is fed into our servers daily. These files contain several columns in regards to client financial info. Someone needs to go through each of these files and just check if there is any irregularities in the data. An example of the irregularities could include info in a column containing number of docs to go from 100 000 docs in 1 year to 10 docs the next.
The problem is that no one has the time to sit down and check irregularities in 1000 files. Thus, it would be great if there was an application which goes through each file, reports any irregularities AND have a good user interface where the auditor can compare stats for files based on filters such as column headings and monthly.
I'm new to database programming so I have the following questions:
1) What language should I use to make this app? We have access to XML, SQL, VB, Visual Studio
2) Any General Tips for making this app?
3) Did anyone do something similar to this before?
4) General logic behind this application?
5) Flowchart help
6) Any link to helpful resources for an app of this context
Please forgive me for asking 6 questions but I need to ask all of them. I've tried my best to be as pin point as I can. I cannot be more specific than this. Every site I go to kicks me off for asking a question which is too general. I need help with every aspect of this post, thanks a ton.
|
|
|
|
|
- VB is the only one of those which is a language, and I trust you meant VB.NET.
- If you need to ask then you are probably going to struggle with this. Sorry, but you need to have at least a general idea if you wish to do it.
- Possibly, and if they have publicised it then Google should find it for you.
- No one is going to provide that for you.
- See 4.
- Google will find you resources for all the different aspects of the application. There are also lots of articles that will help you with sample code, but you have to do the research and the work.
- When you have a specific technical question come back here and people will try to help you.
Veni, vidi, abiit domum
|
|
|
|
|
I have to wonder what your job spec is at the coop, Any manager that asks a random (junior) employee for this needs to be looked at.
The questions you are asking require much more that a forum post, basically you need to be taught to be a developer to deal with this and that is what you are asking for on a forum.
I suggest you tell the manager to hire a contractor to build this or at least get a professional to look at it.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Mycroft Holmes wrote: basically you need to be taught to be a developer to deal with this
Which is at least two years of solid programming, business analysis experience and being mentored.
I agree with the suggestion to get a professional to look at this.
“That which can be asserted without evidence, can be dismissed without evidence.”
― Christopher Hitchens
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
