|
Dave Kreskowiak wrote: Goggled
That's your issue, you needed to Google it!
Keep Clam And Proofread
--
√(-1) 23 ∑ π...
And it was delicious.
|
|
|
|
|
Damn spellcheck built into IE!
|
|
|
|
|
can't you show me how to implement it to vb.net source?
|
|
|
|
|
Hi all,
I am trying to create a sales invoicing system. Everything is OK but I want to round off (+ or -) the value.
Suppose if Invoice Amount is Rupees 2500.65/-
The round off amount will be Rupees 2501.00/- (i.e. 2500.65 + 0.35)
but if the Invoice Amount is Rupees 2500.45/-
The round off amount will be Rupees 2500.00/- (i.e. 2500.45 - 0.45)
I tried the following function...
Private Function CalculateRoundOffAmount(ByVal autoCalculateRoundOff As Boolean) As Double
Dim result As Double = 0.0
result += CDbl(Me.TbRoundOff.Text)
Dim roundOff As Double = 0
Dim roundedOffTo As Double = 0
If autoCalculateRoundOff = True Then
roundOff = Math.Ceiling(result) - result
Else
roundOff = Me.TbRoundOff.Text
End If
roundedOffTo = result + roundOff
Me.TbRoundOff.Text = roundOff
Me.TbInvoiceValue.Text = roundedOffTo
Return roundedOffTo
End Function
TbRoundOff = A TextBox where the round off amount will be calculated and TbInvoiceValue.Text is the textbox where invoice value is being calculated.
and I implemented it in SaveData() method like CalculateRoundOffAmount(True) but nothing happened.
Please help...
|
|
|
|
|
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. 
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
