|
I have a teacher who gave us a compiled application. He did not provide us the code. We have to generate the code in our head and write it out. It must act like his application in every possible way. I have it written out but for some reason when I type in the value of two(2) pieces the two(2) isn't calculated yet every other number I type calculates just fine. Why?
two(2) falls within range of 1-199 so its price would be calculated as rangeA * two(2) pieces = price for two, but no result is returned, my text does not display in the textbox either.
Dim priceArrayElements(20) As Decimal
Dim pieceArrayElements(20) As Integer
Dim addedPieces
Dim totalAveragePieces
Dim addedPrices As Decimal
Dim totalAveragePrices As Decimal
Dim elementCounter As Decimal
Dim rangeA As Decimal = 0.5
Dim rangeB As Decimal = 0.55
Dim rangeC As Decimal = 0.6
Dim rangeD As Decimal = 0.65
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case False
Case IsNumeric(txtPieces.Text)
MessageBox.Show("Pieces completed must be numeric.", "Data Entry Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtPieces.Text = ""
Case Not IsNumeric(txtName.Text)
MessageBox.Show("Name is required.", "Data Entry Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtName.Text = ""
Case Else
Select Case txtPieces.Text
Case 1 To 199
Try
For i As Integer = 0 To priceArrayElements.Length
priceArrayElements(i) = (Decimal.Parse(txtPieces.Text) * rangeA)
txtEarned.Text = FormatCurrency(priceArrayElements(i).ToString())
Next
Catch ex As Exception
End Try
Case 200 To 399
Try
For i As Integer = 0 To priceArrayElements.Length
priceArrayElements(i) = (Decimal.Parse(txtPieces.Text) * rangeB)
txtEarned.Text = FormatCurrency(priceArrayElements(i).ToString())
Next
Catch ex As Exception
End Try
Case 400 To 599
Try
For i As Integer = 0 To priceArrayElements.Length
priceArrayElements(i) = (Decimal.Parse(txtPieces.Text) * rangeC)
txtEarned.Text = FormatCurrency(priceArrayElements(i).ToString())
Next
Catch ex As Exception
End Try
Case Else
If Int32.Parse(txtPieces.Text) >= 600 Then
Try
For i As Integer = 0 To priceArrayElements.Length
priceArrayElements(i) = (Decimal.Parse(txtPieces.Text) * rangeD)
txtEarned.Text = FormatCurrency(priceArrayElements(i).ToString())
Next
Catch ex As Exception
End Try
End If
End Select
End Select
End Sub
End Class
|
|
|
|
|
Download ILSpy, and check out the code that your teacher wrote 
As opposed to suppressing messages, you might want to log them to a file. If the '2' goes wrong due to an exception, you'd at least get a good message telling you what went wrong. Throwing away error-information is always a bad idea.
Bastard Programmer from Hell 
if you can't read my code, try converting it here[^]
|
|
|
|
|
Quick thing I noticed:
Herboren wrote: Dim priceArrayElements(20) As Decimal
and
Herboren wrote: For i As Integer = 0 To priceArrayElements.Length
priceArrayElements(i) = (Decimal.Parse(txtPieces.Text) * rangeA)
txtEarned.Text = FormatCurrency(priceArrayElements(i).ToString())
Next
The length of priceArrayElements would be 21 (the total number of elements), however the highest index is 20. So in the for loop the last index it would try to use would be 21, however the highest index would be 20. Shouldn't the for loop be:
For i As Integer = 0 To priceArrayElements.Length - 1
Next
or
For i As Integer = 0 To priceArrayElements.GetUpperBound(0)
Next
|
|
|
|
|
Hi every one,
I have an application in VB 2008 and i have read somewhere there is a control named MDITabControl which includes en every Tab the close box.
I've been looking in the toolbox but i cannot find it, i tried to add it using the option "Choose items" but still cannot find it.
Does anyone know where can i find it and how to add it? Perhaps i need to add a reference to a library.
Anyways, any help would be aprecciated.
|
|
|
|
|
Not a native control; must be part of some third-party library. There are a few of them, with the number one Google result from CodeProject[^]. Unless you can point out where you encountered it, we can only guess which implementation you've seen.
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
I AM STARTER IN VISUAL BASIC 8
I WANT TO FIX ONE CONVERTER THAT WILL HAVE A DATAGRID
AND WILL LOAD CSV FILES
THE DATA GRID WILL HAVE 2 DIFFERENT COLUMNS THAT WILL LOAD
ABOUT 450 NUMBERS AND THEN I HAVE 10 TEXTBOXES THAT ANYNUMBER I WILL WRITE WILL THERE WILL CONVERT THE SECOND COLUMN DIGIT BY DIGIT
EXAMPLE
1234/1234
I WANT TO CONVERT THE NUMBERS OF THE SECOND COLUMN
LIKE THAT
1234/3455
I FIX THE CODE THAT WILL LOAD THE CSV FILE BUT I DONT KNOW HOW TO CONNECT THE LOADING FILE WITH THE DATAGRID
Private Sub OPENcsv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OPENcsv.Click
' Import
Dim openFileDialog As New OpenFileDialog()
'saveFileDialog.Title = "Open the input CSV file";
openFileDialog.InitialDirectory = Application.StartupPath
openFileDialog.Filter = "CSV files (*.csv)|*.csv|All files (*.*)|*.*"
openFileDialog.FilterIndex = 1
openFileDialog.RestoreDirectory = True
If openFileDialog.ShowDialog() = DialogResult.OK Then
Dim fileInput As String = openFileDialog.FileName
End If
End Sub
ANY HELP
THANK YOU
GEORGE MENIOS
|
|
|
|
|
memas63 wrote: I AM STARTER IN VISUAL BASIC 8
and apparently using the Web too. Using all capital letters is the same as walking into a room and screaming at people.
|
|
|
|
|
I am getting data from a third party soap service. Everything seems to be going fine. However, the client says not all the data that should be coming over is there. I don't have the data source to verify so I thought I'd ask:
Has anyone had a soap service return only part of the data?
The only thing I could think of is the response buffer, or recieved message size. I thought I'd get an error or nothing in either of those cases. Either way, they are set to 20000000 for both. I didn't write this code, I'm just trouble shooting it 
My initial instinct, after running the code and rechecking everything is that they have changed something else in the management of this data and it's nothing to do with my software, which just fetches it and puts it in a database. The software hasn't changed in over a year and always worked fine until recently.
If it moves, compile it
|
|
|
|
|
Throw Fiddler on the client so you see what the service is returning.
|
|
|
|
|
yeah, I have soapUI that does a pretty good job. It was a shot in the dark really. I'm getting data back, and the correct data. The client just doesn't think I'm getting everything I should.
If it moves, compile it
|
|
|
|
|
Well then, it's either a problem with the server-side code that's retrieving the data or with the clients expectations.
|
|
|
|
|
I have been searching for a way to print a datagrid and all responses refer to a datagridviewprint class. This does not seem to exist in my version of VB2005. How can I import this into my system? Appreciate some assistance
|
|
|
|
|
Did you try searching[^] for it?
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
I'm new to this, so if I've done anything wrong, please tell me
I work on a pretty large VB6 application. The distribution of it is pretty problematic. My sort of "dream" is to automate the build and packaging process with some repeatable scripts (batch-files?).
I want to ship the application with the nullsoft installer system - nsis. I got lot's of referenced libraries and components (dlls, ocx) that the package and deployment wizard of vb6 gathered for me.
The problem now is to make sure that all needed libraries are installed in the correct version.
How can I make that sure?
Should I ship the dlls/ocx as cab-files? Can nsis do a kind of conditional installation of dlls/ocxs?
Thanks!
best regards
Andreas
|
|
|
|
|
Truthfully, you should be scrapping the entire VB6 project and redoing it in .NET. VB6 has been dead for quite a number of years now and community support for it is dying rather quickly.
|
|
|
|
|
Well, thanks for that advice  . I wish I could do that for quite a long time.
We took the project from another developement company, and it's that huge that it can't be redone in .NET as fast as we would need. The former compapy worked on that application for 10 years and so it became pretty complex.
We have to live with VB6 there :/
regards
Amdreas
|
|
|
|
|
fancyRocko wrote: We have to live with VB6 there :/
No, you will be phased out, with VB6.
Huge applications aren't rewritten in a single action; you replace parts of it, bit by bit. It's either that, or become part of history.
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
Yikes! Good luck with that!
Honestly, it's been 11 years since I've touched anything VB6. I remember the Setup and Deployment wizard sucked.
As for NSIS, I really couldn't tell you what it's going to take to automate this. I think that's going to be a question for NSIS.
|
|
|
|
|
Okay. It seems that you're right. I'll try to convert the application peace by peace to .NET.
I needed your expert impact for that decision - thanks!
|
|
|
|
|
I feel for you because I used to do that work as well.
Back in the VB6 day.
We used Wise installer to create and deploy our builds, Like VB6 the version we used is no longer supported, but I still use it on my Win7 installs(for another dead language) and it has a very simple method of conditionally installing a file.
I don't use nor do I know NSIS, but it appears the equivalent functionality might be
GetFileAttributes
and/or
GetFileVersion coupled with some flow control logic.
With that in mind, Is it actually necessary to check versions of every file? Could you use a single file to be your gauge. That is, can you check the version of abc.dll or xyz.ocx and based on that version number run a completely different branch of the installer script that could update your dependencies?
One Last comment about large VB6 apps, I found that using two installs was very helpful.
The first install was a CORE installer. It installed all of the dll, ocx, exe files that were dependencies. This was a heavy(big) installer.
The second install was much lighter and it was used to install the primary components of the application. as well as update individual components from the CORE. This file was used to push out updates to the software.
Of course both files were needed for new installs.
This worked well for us because of our business model.
Last, I did have a scriptable builder for VB6, I'll dig around a bit to see if I still have it. It may be something I can share.
rum
|
|
|
|
|
Dear Friends,
i have problem by printing Datagridview content plus header and footer.
i can print exactly DataGridView , but i want to print out the content only (plain text)+ header and footer in vb.net 2010
is anybody can help me to do this !?
Your help would be greatly appreciated
Thanks in advance
|
|
|
|
|
|
Static oColumnLefts As New ArrayList
Static oColumnWidths As New ArrayList
Static oColumnTypes As New ArrayList
Static nHeight As Int16
Dim nWidth, i, nRowsPerPage As Int16
Dim nTop As Int16 = e.MarginBounds.Top
Dim nLeft As Int16 = e.MarginBounds.Left
If nPageNo = 1 Then
For Each oColumn As DataGridViewColumn In frmLedger.dgvLedger.Columns
nWidth = CType(Math.Floor(oColumn.Width / nTotalWidth * nTotalWidth * (e.MarginBounds.Width / nTotalWidth)), Int16)
nHeight = e.Graphics.MeasureString(oColumn.HeaderText, oColumn.InheritedStyle.Font, nWidth).Height + 11
oColumnLefts.Add(nLeft)
oColumnWidths.Add(nWidth)
oColumnTypes.Add(oColumn.GetType)
nLeft += nWidth
Next
End If
Do While nRowPos < frmLedger.dgvLedger.Rows.Count - 1
Dim oRow As DataGridViewRow = frmLedger.dgvLedger.Rows(nRowPos)
If nTop + nHeight >= e.MarginBounds.Height + e.MarginBounds.Top Then
DrawFooter(e, nRowsPerPage)
NewPage = True
nPageNo += 1
e.HasMorePages = True
Exit Sub
Else
If NewPage Then
' Draw Header
e.Graphics.DrawString(Header, New Font(frmLedger.dgvLedger.Font, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font(frmLedger.dgvLedger.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 13)
' Draw Columns
nTop = e.MarginBounds.Top
i = 0
For Each oColumn As DataGridViewColumn In frmLedger.dgvLedger.Columns
e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)
i += 1
Next
NewPage = False
End If
nTop += nHeight
i = 0
For Each oCell As DataGridViewCell In oRow.Cells
If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then
e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)
ElseIf oColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then
oButton.Text = oCell.Value.ToString
oButton.Size = New Size(oColumnWidths(i), nHeight)
Dim oBitmap As New Bitmap(oButton.Width, oButton.Height)
oButton.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))
ElseIf oColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then
oCheckbox.Size = New Size(14, 14)
oCheckbox.Checked = CType(oCell.Value, Boolean)
Dim oBitmap As New Bitmap(oColumnWidths(i), nHeight)
Dim oTempGraphics As Graphics = Graphics.FromImage(oBitmap)
oTempGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
oCheckbox.DrawToBitmap(oBitmap, New Rectangle(CType((oBitmap.Width - oCheckbox.Width) / 2, Int32), CType((oBitmap.Height - oCheckbox.Height) / 2, Int32), oCheckbox.Width, oCheckbox.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))
ElseIf oColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then
oComboBox.Size = New Size(oColumnWidths(i), nHeight)
Dim oBitmap As New Bitmap(oComboBox.Width, oComboBox.Height)
oComboBox.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))
e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i) + 1, nTop, oColumnWidths(i) - 16, nHeight), oStringFormatComboBox)
ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then
Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight)
Dim oImageSize As Size = CType(oCell.Value, Image).Size
e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), nTop + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))
End If
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
i += 1
Next
End If
nRowPos += 1
nRowsPerPage += 1
Loop
DrawFooter(e, nRowsPerPage)
e.HasMorePages = False
End Sub
Private Sub DrawFooter(ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal RowsPerPage As Int32)
Dim sPageNo As String = nPageNo.ToString + " of " + Math.Ceiling(frmLedger.dgvLedger.Rows.Count / RowsPerPage).ToString
' Right Align - User Name
e.Graphics.DrawString(sUserName, frmLedger.dgvLedger.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, frmLedger.dgvLedger.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 7)
' Left Align - Date/Time
e.Graphics.DrawString(Now.ToLongDateString + " " + Now.ToShortTimeString, frmLedger.dgvLedger.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 7)
' Center - Page No. Info
e.Graphics.DrawString(sPageNo, frmLedger.dgvLedger.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, frmLedger.dgvLedger.Font, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top + e.MarginBounds.Height + 31)
End Sub
|
|
|
|
|
Using VB.Net I have created a composit component that inherited a DateTimePicker and that includes a MaskedTextBox as an embedded child class that overlays the DateTimePicker text box. When the user is done editing the MaskedTextBox but has created an invalid date I want the DateTimePicker calander to drop down showing the date that seems closest to what the user entered to get their attention and a confirmation.
I am firing a Delegate method in the MaskedTextBoxes OnValidating event that drops down the calendar after the MaskedTextBox loses focus. The Delegate then selects the DateTimePicker as the active control (overriding any other control selection) and does a SendKey Down to open the calendar. This works great if the target is any control other than the DateTimePicker. But if the DateTimePicker is the target the DateTimePicker gets a double Select and Down keystroke event (one from the delegate and one from the user click) and this messes up other behaviors tied to the MaskTextBox.
I need a way to determine when to fire the Delegate (i.e., when any control other than the DateTimePicker will get focus) and when to not fire the Delegate (i.e., when the DateTimePicker dropdown button was activated by click or keyboard). Is there anyway to do this that would work inside the properties ,methods or events the component can handle? Or is this only possible to detect and manage from the form?
|
|
|
|
|
Private m_bCalAbort As Boolean = False
Private m_bInCal As Boolean = False
Protected Overrides Sub OnDropDown(ByVal eventargs As System.EventArgs)
m_bInCal = True
m_bCalAbort = False
MyBase.OnDropDown(eventargs)
End Sub
Protected Overrides Sub OnCloseUp(ByVal eventargs As System.EventArgs)
'If m_dCalDate <> MyBase.Value Then
If Not m_bCalAbort Then
'Do Stuff
End If
m_bInCal = False
MyBase.OnCloseUp(eventargs)
End Sub
Delegate Sub MyDelegate(ByVal myControl As Label, ByVal myArg2 As String)
Friend Sub DelegateMethod(ByVal myControl As Label, ByVal myCaption As String)
If Not m_DTP.m_bInCal Then
m_DTP.Select()
SendKeys.Send("%{DOWN}")
End If
End Sub 'DelegateMethod
Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)
m_LastEvent = LastEvents.Validating
If Not DateEmpty() And ue.GetDate(Text) Is Nothing Then ' check for an invalid date
Ping()
Dim myArray(1) As Object
myArray(0) = New Label()
myArray(1) = "Enter a Value"
m_DTP.BeginInvoke(New MyDelegate(AddressOf DelegateMethod), myArray)
ElseIf Not DateEmpty() And ue.GetDate(Text) IsNot Nothing Then
Dim tempdate As DateTime = ue.GetDate(Text)
If tempdate < m_DTP.MinDate Or tempdate > m_DTP.MaxDate Then
Ping()
Dim myArray(1) As Object
myArray(0) = New Label()
myArray(1) = "Enter a Value"
m_DTP.BeginInvoke(New MyDelegate(AddressOf DelegateMethod), myArray)
End If
End If
MyBase.OnValidating(e)
End Sub
modified 26-Sep-12 17:57pm.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
