Update data in a DataGrid

Hi all, I have a VB.Net 2005 application that I am working
on that I
could use some help with.

I have a form thats loads values from an access database and
displays
them in a DataGrid.

It loads them without any problems, however, if I want to
update any
of the values it crashes and gives me error message -
OleDbException
was Unhandled - No value Given for one or more required
parameters.

Im puzzled as the update code is actually generated by the
VB IDE
itself and not me. Nor have I modified it in any way.

I have listed the code below. Any help would be GREATLY
appreciated.


************************************************************
*******************************
Public Class Form1


    Private Sub
RoundDetailsBindingNavigatorSaveItem_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles
RoundDetailsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.RoundDetailsBindingSource.EndEdit()


Me.RoundDetailsTableAdapter.Update(Me.RoundInfoDataSet.Round
Details)
-    {Error message points to here}


    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the
'RoundInfoDataSet.RoundDetails' table. You can move, or
remove it, as
needed.


Me.RoundDetailsTableAdapter.Fill(Me.RoundInfoDataSet.RoundDe
tails)

************************************************************
*******************************************

Thanks all


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---

In answer to my own question...............

The code itself is actually perfectly correct (given that it
was
created by VB's wizards it should be).


However, somewhere along the way I had removed the Primary
Key
indicator on my MS Access Database.


So despite my NUMEROUS attempts save data it would come back
with one
form of error or another. Each and every one of them
disappeared when
I added the Primary Key.


SOOOOOOOOOO SIMPLE YET SOOOOOOOOOOO FRUSTRATING!!!!!!!!!!!




On Oct 4, 2:19 pm, Bails <andrewgbail...gmail.com> wrote:
> Hi all, I have a VB.Net 2005 application that I am
working on that I
> could use some help with.
>
> I have a form thats loads values from an access
database and displays
> them in a DataGrid.
>
> It loads them without any problems, however, if I want
to update any
> of the values it crashes and gives me error message -
OleDbException
> was Unhandled - No value Given for one or more required
parameters.
>
> Im puzzled as the update code is actually generated by
the VB IDE
> itself and not me. Nor have I modified it in any way.
>
> I have listed the code below. Any help would be GREATLY
appreciated.
>
>
************************************************************
***************­****************
> Public Class Form1
>
>     Private Sub
RoundDetailsBindingNavigatorSaveItem_Click(ByVal
> sender As System.Object, ByVal e As System.EventArgs)
Handles
> RoundDetailsBindingNavigatorSaveItem.Click
>         Me.Validate()
>         Me.RoundDetailsBindingSource.EndEdit()
>
>
Me.RoundDetailsTableAdapter.Update(Me.RoundInfoDataSet.Round
Details)
> -    {Error message points to here}
>
>     End Sub
>
>     Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As
> System.EventArgs) Handles MyBase.Load
>         'TODO: This line of code loads data into the
> 'RoundInfoDataSet.RoundDetails' table. You can move, or
remove it, as
> needed.
>
>
Me.RoundDetailsTableAdapter.Fill(Me.RoundInfoDataSet.RoundDe
tails)
>
>
************************************************************
***************­****************************
>
> Thanks all


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---

Isn't the debugger a wonderful thing?


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---

What is this debugger you speak of? I normally just post
here when I
have a bug in my code :/

On 18/10/2007, cleveridea <cleveridea.netgmail.com> wrote:
>
> Isn't the debugger a wonderful thing?
>
>
> >
>

--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---

Yup, posting here and waiting for responses is easier than
pressing
the F5 key... :P

On Oct 18, 5:52 pm, "Jamie Fraser"
<jamie.fra...gmail.com> wrote:
> What is this debugger you speak of? I normally just
post here when I
> have a bug in my code :/
>
> On 18/10/2007, cleveridea <cleveridea....gmail.com> wrote:
>
> > Isn't the debugger a wonderful thing


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---

It would be nice if the debuggar would explain things in
plain
language.

It was an absolute fluke that I found the answer to my
problem,
nothing to do with the debuggar (other than it stopped my
app EVERY
time).

On Oct 19, 10:32 am, "Andrew Badera"
<and...badera.us> wrote:
> F5? What is this F5?
>
> Personally I like to right-click my solution to build
... none of this silly
> shortcut key crap ... explicitness and transparency in
all things!
>
> On 10/18/07, Cerebrus <zorg...sify.com> wrote:
>
>
>
>
>
> > Yup, posting here and waiting for responses is
easier than pressing
> > the F5 key... :P
>
> > On Oct 18, 5:52 pm, "Jamie Fraser"
<jamie.fra...gmail.com> wrote:
> > > What is this debugger you speak of? I
normally just post here when I
> > > have a bug in my code :/
>
> > > On 18/10/2007, cleveridea
<cleveridea....gmail.com> wrote:
>
> > > > Isn't the debugger a wonderful thing-
Hide quoted text -
>
> - Show quoted text -


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---

Your probably right Andrew, though I now have another
example of the
debugger being a bugga and spitting out gobledegook.

I have listed it below.
If you can make any sense of it I'd be greatful.

All I can make out from the following error is that i dont
have
"referenced assembly installed" on my machine -
but which reference??

************************************************************
***************************
PLATFORM VERSION INFO
        Windows                         : 5.1.2600.131072
(Win32NT)
        Common Language Runtime         : 2.0.50727.1378
        System.Deployment.dll           : 2.0.50727.1378
(REDBITSB2.050727-1300)
        mscorwks.dll                    : 2.0.50727.1378
(REDBITSB2.050727-1300)
        dfdll.dll                       : 2.0.50727.1378
(REDBITSB2.050727-1300)
        dfshim.dll                      : 2.0.50727.1378
(REDBITSB2.050727-1300)


SOURCES
        Deployment url                  :
file:///C:/Documents%20and%20Settings/fabian/My%20Documents/
Visual%20Studio­%202005/Projects/Holdem%20Tournament%20Timer
/Published/Holdem%20Tournament%­20Timer.application
        Application url                 :
file:///C:/Documents%20and%20Settings/fabian/My%20Documents/
Visual%20Studio­%202005/Projects/Holdem%20Tournament%20Timer
/Published/Holdem%20Tournament%­20Timer_1_0_1_13/Holdem%20To
urnament%20Timer.exe.manifest


IDENTITIES
        Deployment Identity             : Holdem Tournament
Timer.application,
Version=1.0.1.13, Culture=en-AU,
PublicKeyToken=a675fef2688dba94,
processorArchitecture=msil
        Application Identity            : Holdem Tournament
Timer.exe,
Version=1.0.1.13, Culture=en-AU,
PublicKeyToken=a675fef2688dba94,
processorArchitecture=msil, type=win32


APPLICATION SUMMARY
        * Installable application.


ERROR SUMMARY
        Below is a summary of the errors, details of these
errors are
listed
later in the log.
        * Activation of C:Documents and SettingsfabianMy
Documents
Visual
Studio 2005ProjectsHoldem Tournament
TimerPublishedHoldem
Tournament Timer.application resulted in exception.
Following failure
messages were detected:
                + The referenced assembly is not installed
on your
system.
(Exception from HRESULT: 0x800736B3)


COMPONENT STORE TRANSACTION FAILURE SUMMARY
        No transaction error was detected.


WARNINGS
        There were no warnings during this operation.


OPERATION PROGRESS STATUS
        * [19/10/2007 10:04:09 AM] : Activation of
C:Documents and
Settings
fabianMy DocumentsVisual Studio 2005ProjectsHoldem
Tournament
TimerPublishedHoldem Tournament Timer.application has
started.
        * [19/10/2007 10:04:27 AM] : Processing of
deployment manifest
has
successfully completed.
        * [19/10/2007 10:04:27 AM] : Installation of the
application
has
started.
        * [19/10/2007 10:04:27 AM] : Processing of
application
manifest has
successfully completed.
        * [19/10/2007 10:04:49 AM] : Request of trust and
detection
of
platform is complete.
        * [19/10/2007 10:04:50 AM] : Downloading of
subscription
dependencies
is complete.
        * [19/10/2007 10:04:50 AM] : Commit of the
downloaded
application has
started.


ERROR DETAILS
        Following errors were detected during this
operation.
        * [19/10/2007 10:04:50 AM]
System.Runtime.InteropServices.COMException
                - The referenced assembly is not installed
on your
system.
(Exception from HRESULT: 0x800736B3)
                - Source: System.Deployment
                - Stack trace:
                        at
System.Deployment.Internal.Isolation.IStore.GetAssemblyInfor
mation(UInt32
Flags, IDefinitionIdentity DefinitionIdentity, Guid&
riid)
                        at
System.Deployment.Internal.Isolation.Store.GetAssemblyManife
st(UInt32
Flags, IDefinitionIdentity DefinitionIdentity)
                        at
System.Deployment.Application.ComponentStore.GetSubscription
StateInternal(D­
efinitionIdentity
subId)
                        at
System.Deployment.Application.SubscriptionStore.GetSubscript
ionStateInterna­
l(SubscriptionState
subState)
                        at
System.Deployment.Application.ComponentStore.CollectCrossGro
upApplications(­
Uri
codebaseUri, DefinitionIdentity deploymentIdentity,
Boolean&
identityGroupFound, Boolean& locationGroupFound,
String&
identityGroupProductName)
                        at
System.Deployment.Application.SubscriptionStore.CommitApplic
ation(Subscript­
ionState&
subState, CommitApplicationParams commitParams)
                        at
System.Deployment.Application.ApplicationActivator.InstallAp
plication(Subsc­
riptionState&
subState, ActivationDescription actDesc)
                        at
System.Deployment.Application.ApplicationActivator.PerformDe
ploymentActivat­
ion(Uri
activationUri, Boolean isShortcut)
                        at
System.Deployment.Application.ApplicationActivator.ActivateD
eploymentWorker­
(Object
state)


COMPONENT STORE TRANSACTION DETAILS
        No transaction information is available.




On Oct 19, 11:37 am, "Andrew Badera"
<and...badera.us> wrote:
> The debugger really does, typically, explain things as
plainly as possible.
> However, there IS a TON of context to grok before all
debugger messages make
> sense. I can attest to several gurus I've worked with
being completely
> puzzled by debugger info, sometimes for days or weeks
on end.
>
> In this case, however, I think it was just a matter, to
be honest, of you
> exploring the issue further. The message, or message of
the inner exception,
> typically gives pretty specific detail.
>
> --ab
>
> On 10/18/07, Bails <andrewgbail...gmail.com> wrote:
>
>
>
>
>
> > It would be nice if the debuggar would explain
things in plain
> > language.
>
> > It was an absolute fluke that I found the answer
to my problem,
> > nothing to do with the debuggar (other than it
stopped my app EVERY
> > time).
>
> > On Oct 19, 10:32 am, "Andrew Badera"
<and...badera.us> wrote:
> > > F5? What is this F5?
>
> > > Personally I like to right-click my solution
to build ... none of this
> > silly
> > > shortcut key crap ... explicitness and
transparency in all things!
>
> > > On 10/18/07, Cerebrus <zorg...sify.com> wrote:
>
> > > > Yup, posting here and waiting for
responses is easier than pressing
> > > > the F5 key... :P
>
> > > > On Oct 18, 5:52 pm, "Jamie
Fraser" <jamie.fra...gmail.com> wrote:
> > > > > What is this debugger you speak of?
I normally just post here when I
> > > > > have a bug in my code :/
>
> > > > > On 18/10/2007, cleveridea
<cleveridea....gmail.com> wrote:
>
> > > > > > Isn't the debugger a wonderful
thing- Hide quoted text -
>
> > > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---

Thats the browser-refresh shortcut, so once you've posted
here you can
frantically hit F5 until you get a full solution!!!!

On 19/10/2007, Andrew Badera <andrewbadera.us> wrote:
> F5? What is this F5?
>
> Personally I like to right-click my solution to build
... none of this silly
> shortcut key crap ... explicitness and transparency in
all things!
>
>
>
>
> On 10/18/07, Cerebrus <zorg007sify.com> wrote:
> >
> > Yup, posting here and waiting for responses is
easier than pressing
> > the F5 key... :P
> >
> > On Oct 18, 5:52 pm, "Jamie Fraser"
<jamie.fra...gmail.com> wrote:
> > > What is this debugger you speak of? I
normally just post here when I
> > > have a bug in my code :/
> > >
> > > On 18/10/2007, cleveridea
<cleveridea....gmail.com > wrote:
> > >
> > > > Isn't the debugger a wonderful thing
> >
> >
> > > >
> >
>

--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---

No. I have NO IDEA what  Com/interop is. I have posted my
code below
if that helps.

Its a simple timer program for Texas Holdem Poker i am
working on.


Theree are only 2 forms. The first uses a datagrid connected
to an MS
Access database back end.

The 2nd has a few labels, a timer and Menu bars on it -
nothing
special.

*****************************************************
Form1 Code
Public Class frmStructure

    Private Sub
RoundDetailsBindingNavigatorSaveItem_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles
RoundDetailsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.RoundDetailsBindingSource.EndEdit()
 
Me.RoundDetailsTableAdapter.Update(Me.RoundInfoDataSet.Round
Details)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the
'RoundInfoDataSet.RoundDetails' table. You can move, or
remove it, as
needed.
 
Me.RoundDetailsTableAdapter.Fill(Me.RoundInfoDataSet.RoundDe
tails)

    End Sub

    Private Sub BtnGoToTimer_Click(ByVal sender As
System.Object,
ByVal e As System.EventArgs) Handles BtnGoToTimer.Click
        Form2.Show()
        Me.Hide()
************************************************************
*****************************************8
Form2 Code
 Inherits System.Windows.Forms.Form
    Dim c(6, 0) As String
    Dim xx, yy As Long

    'These next few lines set up the start ofthe timer. They
take the
values from the datagrid on form1.
    'IMPORTANT: For these lines to extract the values, the
project
MUST start on Form1, then o to this form,
    'otherwise it cannot read any values.
    'The grid is filled across the rows and start at 0
(Zero).
    'The first Number represents the Row, the second
represents the
Column.
    'So to fill our data across the page for Round 1 would
like like:
    '(0,0),(1,0),(2,0),(3,0),(4,0) etc
    ' Round 2 would be (0,1),(1,1),(2,1),(3,1),(4,1)
    Dim iRoundNumber As Integer =
frmStructure.RoundDetailsDataGridView.Item(0, 0).Value   '
Set Round
Number - this is the top left cell of the datagrid (0,0)
    Dim iRoundLength As Integer =
frmStructure.RoundDetailsDataGridView.Item(1, 0).Value   '
set Round
Length - this is the top Row and 1 in - (0,1)
    Dim iSmallBlind As Integer =
frmStructure.RoundDetailsDataGridView.Item(2, 0).Value    '
set the
Small Blind amount.
    Dim iBigBlind As Integer =
frmStructure.RoundDetailsDataGridView.Item(3, 0).Value     
' Set the
Big Blind amount.
    Dim iAnte As Integer =
frmStructure.RoundDetailsDataGridView.Item(4, 0).Value      
   ' Set
the Ante Amount
    Dim RoundLength = iRoundLength * 600 ' Converts the
Round Length
into Seconds

    'These next few lines load up the 'Next Round (Round 2)
data
    Dim iNextSmall As Integer =
frmStructure.RoundDetailsDataGridView.Item(2, 1).Value     '
Set the
next Small Blind
    Dim iNextBig As Integer =
frmStructure.RoundDetailsDataGridView.Item(3, 1).Value      
' Set the
next Big Blind
    Dim iNextAnte As Integer =
frmStructure.RoundDetailsDataGridView.Item(4, 1).Value      
  ' Set
the next Ante

    Dim sTotalRows As String =
frmStructure.RoundDetailsDataGridView.RowCount.ToString '
sets the
total number of rows in the datagrid.
    Dim iTime As String '= Format(DateTime.Now, "hh:mm
tt") ' Sets
Curent Time

    Dim iPlayersRemaining As Integer
    Dim iNumberOfPlayers As Integer
    Dim iStartingStack As Integer
    Dim iAverageStack As Integer

    Private Sub Form2_Load(ByVal sender As Object, ByVal e
As
System.EventArgs) Handles Me.Load
        On Error Resume Next
        'These next few lines are to assist with resizing
the form and
controls
        xx = Me.ClientSize.Width
        yy = Me.ClientSize.Height
        taga(Me, xx, yy)

        'TODO: This line of code loads data into the
'RoundInfoDataSet.RoundDetails' table. You can move, or
remove it, as
needed.

        iTime = Format(DateTime.Now, "hh:mm tt")
'DateTime.Now


        ToolStripStatusLabel1.Text = "Round:"
& iRoundNumber
        'ToolStripStatusLabel2.Text = "Small Blind:
" & iSmallBlind
        'ToolStripStatusLabel3.Text = "Big Blind:
" & iBigBlind
        'ToolStripStatusLabel4.Text = "Ante: "
& iAnte
        'ToolStripStatusLabel6.Text = iTime

        'Once the variables for the round have been
dimenshioned and
set, we display them on the screen. Round 1 is the first
displayed.
        Label1.Text = "Round: " & iRoundNumber
'Label1 is the Round
Number
        If iRoundLength < 10 Then
            Label2.Text = "0" & iRoundLength
& ":00" ' Label2 is the
Round Length as is the large label in the middle of the
screen.
        Else
            Label2.Text = iRoundLength &
":00"
        End If
        Label3.Text = iSmallBlind       ' Label3 is thye
Small Blind
amount
        Label4.Text = iBigBlind         ' label4 is the Big
Blind
        Label5.Text = iAnte             ' Label5 is the
ante

        Label10.Text = iNextSmall       ' Label10 is the
Next Small
Blind
        Label14.Text = iNextBig         ' Label14 is the
Next Big
Blind
        Label13.Text = iNextAnte        ' Label13 is the
Next Ante
Amount

        Timer1.Enabled = False
        Button1.Text = "Start"
        Button2.Text = "Pause"
        'Button1.Image = C:Documents and
SettingsfabianApplication
DataLimeWirethemesother_themeplay_dn.gif
        Label16.Text = iTime
        CurrentTimeToolStripMenuItem.Checked = True
        AverageChipStackToolStripMenuItem.Checked = True

    End Sub
    Private CountDownStart

    Private Sub Form2_Resize(ByVal sender As Object, ByVal e
As
System.EventArgs) Handles Me.Resize
        On Error Resume Next
        Dim sX, sY As Double
        Dim j As Integer

        On Error Resume Next
        sX = Me.ClientSize.Width / xx
        sY = Me.ClientSize.Height / yy
        For j = 1 To c.GetUpperBound(1)
            mudar(Me, c(0, j), j, sX, sY)
        Next j

    End Sub

    Private Sub taga(ByVal ct As Object, ByVal w As Long,
ByVal h As
Long)
        On Error Resume Next
        Dim i, k As Integer
        Dim ctl As Control
        For Each ctl In ct.Controls
            If ctl.Name = "" Then Exit For
            k = c.GetUpperBound(1)
            ReDim Preserve c(6, k + 1)
            c(0, k + 1) = ctl.Name
            c(1, k + 1) = ctl.Left
            c(2, k + 1) = ctl.Top
            c(3, k + 1) = ctl.Width
            c(4, k + 1) = ctl.Height
            c(5, k + 1) = ctl.Font.Size
            c(6, k + 1) = ctl.Font.Style
            i = ctl.Controls.Count
            If i > 0 Then
                taga(ctl, ctl.Width, ctl.Height)
            End If
        Next ctl
    End Sub
    Private Sub mudar(ByVal cm As Object, ByVal s As String,
ByVal n
As Integer, ByVal x As Double, ByVal y As Double)
        On Error Resume Next
        'Dim i, k As Integer
        Dim ct As Control
        For Each ct In cm.controls
            If ct.Name = s Then
                ct.Left = c(1, n) * x
                ct.Top = c(2, n) * y
                ct.Width = c(3, n) * x
                ct.Height = c(4, n) * y
                If x < y Then
                    ct.Font = New
System.Drawing.Font(ct.Font.Name,
c(5, n) * x)
                Else
                    ct.Font = New
System.Drawing.Font(ct.Font.Name,
c(5, n) * y)
                End If
                ct.Font = New System.Drawing.Font(ct.Font,
c(6, n))
                Exit For
            Else
                mudar(ct, s, n, x, y)
            End If
        Next
    End Sub
    Private Sub button1_Click(ByVal sender As Object, ByVal
e As
System.EventArgs) Handles Button1.Click
        On Error Resume Next

        If Not Timer1.Enabled Then

            CountDownStart =
Microsoft.VisualBasic.DateAndTime.Timer
            Timer1.Enabled = True
            Button1.Text = "Stop"
            Button1.Image = My.Resources.stop_up ' Changes
the image
to a square Stop icon.
            Button2.Text = "Pause"
            Button2.Image = My.Resources.pause_up ' Changes
the image
to a Pause icon.

            Button2.Enabled = True

        Else
            Timer1.Enabled = False
            Label2.Text = "0" & iRoundLength
& ":00"
            'My.Computer.Audio.Play(
            Button1.Text = "Start"
            Button1.Image = My.Resources.play_dn
            Button2.Text = "-----"
            Button2.Image = Nothing
            Button2.Enabled = False

        End If

    End Sub
    Private Sub Button2_Click(ByVal sender As Object, ByVal
e As
System.EventArgs) Handles Button2.Click
        On Error Resume Next
        Static PauseInterval
        If Timer1.Enabled Then
            PauseInterval =
Microsoft.VisualBasic.DateAndTime.Timer -
CountDownStart
            Timer1.Enabled = False
            Button1.Text = "Restart"
            Button2.Text = "Resume"
            Button2.Image = My.Resources.play_dn
        Else
            CountDownStart =
Microsoft.VisualBasic.DateAndTime.Timer -
PauseInterval
            Timer1.Enabled = True
            Button1.Text = "Stop"
            Button1.Image = My.Resources.stop_up
            Button2.Text = "Pause"
            Button2.Image = My.Resources.pause_up

        End If
    End Sub
    Public Sub IncrementRoundNumber()
        On Error Resume Next


        'These 2 line make sure that the round number doesnt
go behond
the current number of rounds or less than the 1
        If iRoundNumber > sTotalRows - 1 Then
iRoundNumber =
sTotalRows - 1
        If iRoundNumber < 1 Then iRoundNumber = 1

        'These next few lines read the data from the form1
data grid
for the next round
        'by increaseing or decreaseing the Round Number
variable
(iRoundNumber) we can
        'either skip forward to the next blind or go back to
the
previous round
        'we subtract 1 from the round number as the grid
starts at 0,0
and our Round Numbers
        'start with 1.
        iRoundLength =
frmStructure.RoundDetailsDataGridView.Item(1,
iRoundNumber - 1).Value

        RoundLength = iRoundLength * 600
        iSmallBlind =
frmStructure.RoundDetailsDataGridView.Item(2,
iRoundNumber - 1).Value
        iBigBlind =
frmStructure.RoundDetailsDataGridView.Item(3,
iRoundNumber - 1).Value
        iAnte =
frmStructure.RoundDetailsDataGridView.Item(4,
iRoundNumber - 1).Value
        iNextSmall =
frmStructure.RoundDetailsDataGridView.Item(2,
iRoundNumber).Value
        iNextBig =
frmStructure.RoundDetailsDataGridView.Item(3,
iRoundNumber).Value
        iNextAnte =
frmStructure.RoundDetailsDataGridView.Item(4,
iRoundNumber).Value



        Me.Text = "Holdem Tournament Timer"
        'Button1.Text = "Start"
        'Button2.Text = "Pause"

        'Here we update the form with the new values
        Label1.Text = "Round " & iRoundNumber

        If iRoundLength < 10 Then
            Label2.Text = "0" & iRoundLength
& ":00" ' Label2 is the
Round Length as is the large label in the middle of the
screen.
        Else
            Label2.Text = iRoundLength &
":00"
        End If

        Label3.Text = iSmallBlind
        Label4.Text = iBigBlind
        Label5.Text = iAnte
        Label10.Text = iNextSmall
        Label14.Text = iNextBig
        Label13.Text = iNextAnte

        CountDownStart =
Microsoft.VisualBasic.DateAndTime.Timer

        ToolStripStatusLabel1.Text = "Round:"
& iRoundNumber



        Call Timer1_Tick(Me, Nothing) ' this takes the cycle
back to
Timer1_tick and starts
        'the countdown again with the new values.

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object,
ByVal e
As System.EventArgs) Handles Button4.Click
        iRoundNumber += 1
        IncrementRoundNumber()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object,
ByVal e
As System.EventArgs) Handles Button3.Click
        iRoundNumber -= 1
        IncrementRoundNumber()
    End Sub

    Public Sub Timer1_Tick(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles Timer1.Tick
        On Error Resume Next
        Dim MinDiff
        Dim SecDiff
        'Dim TenthDiff
        Dim TimeDiff
        'Dim RoundTime
        TimeDiff = (RoundLength) -
Int((Microsoft.VisualBasic.DateAndTime.Timer -
CountDownStart) * 10)
        If TimeDiff = 1200 Then
           
My.Computer.Audio.Play("C:NDLPokerSoundEffects
gong.wav")
        End If

        If TimeDiff >= 0 Then
            'TenthDiff = TimeDiff Mod 10
            SecDiff = Int(TimeDiff / 10) Mod 60
            MinDiff = Int(TimeDiff / 600)
            iTime = Format(DateTime.Now, "hh:mm
tt")
            If CurrentTimeToolStripMenuItem.Checked = True
Then
                Label16.Text = iTime
            End If
            Label2.Text = Format(MinDiff, "00")
& ":" &
Format(SecDiff, "00") '& "." &
Format(TenthDiff, "0")
        Else
           
My.Computer.Audio.Play("C:NDLPokerSoundEffects
boxingbellmulti.wav")

            'Label2.Text = "00:00"
            'Timer1.Enabled = False

            iRoundNumber += 1
            'Button1.Text = "Start"
            'Button2.Text = "-----"
            'Button2.Enabled = False
            IncrementRoundNumber()

        End If
        Application.DoEvents()

    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
    Private Sub
ChangeBlindStructureToolStripMenuItem_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles
ChangeBlindStructureToolStripMenuItem.Click
        frmStructure.Show()

    End Sub
    Private Sub AboutToolStripMenuItem_Click(ByVal sender
As
System.Object, ByVal e As System.EventArgs) Handles
AboutToolStripMenuItem.Click
        AboutBox1.Show()
    End Sub
    Private Sub CurrentTimeToolStripMenuItem_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles
CurrentTimeToolStripMenuItem.Click
        If CurrentTimeToolStripMenuItem.Checked = True Then
            CurrentTimeToolStripMenuItem.Checked = False
            Label16.Text = iTime
            GroupBox1.Visible = False
        ElseIf CurrentTimeToolStripMenuItem.Checked = False
Then
            CurrentTimeToolStripMenuItem.Checked = True
            GroupBox1.Visible = True
            Label16.Text = iTime
        End If
    End Sub

    Private Sub
AverageChipStackToolStripMenuItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
AverageChipStackToolStripMenuItem.Click
        If AverageChipStackToolStripMenuItem.Checked = True
Then
            AverageChipStackToolStripMenuItem.Checked =
False
            GroupBox2.Visible = False
        ElseIf AverageChipStackToolStripMenuItem.Checked =
False Then
            AverageChipStackToolStripMenuItem.Checked =
True
            GroupBox2.Visible = True
        End If
    End Sub

    Private Sub TimerDetailsToolStripMenuItem_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles
TimerDetailsToolStripMenuItem.Click

        If TimerDetailsToolStripMenuItem.Checked = True
Then
            TimerDetailsToolStripMenuItem.Checked = False
            GroupBox3.Visible = False
        ElseIf TimerDetailsToolStripMenuItem.Checked = False
Then
            TimerDetailsToolStripMenuItem.Checked = True
            GroupBox3.Visible = True
        End If

    End Sub

    Private Sub TextBox2_Leave(ByVal sender As Object, ByVal
e As
System.EventArgs) Handles TextBox2.Leave
        'iNumberOfPlayers = TextBox2.Text
        'NumericUpDown1.Value = iNumberOfPlayers
        chipstackcalcs()
    End Sub

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
NumericUpDown1.ValueChanged
        iPlayersRemaining = NumericUpDown1.Value
        If NumericUpDown1.Value > iNumberOfPlayers Then
NumericUpDown1.Value = iNumberOfPlayers
        If NumericUpDown1.Value < 1 Then
NumericUpDown1.Value = 1
        'iAverageStack = iNumberOfPlayers * iStartingStack
/
iPlayersRemaining
        'Label20.Text = iAverageStack
        chipstackcalcs()
    End Sub

    Private Sub TextBox1_Leave(ByVal sender As Object, ByVal
e As
System.EventArgs) Handles TextBox1.Leave
        iStartingStack = CDbl(TextBox1.Text)
        chipstackcalcs()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As
System.Object,
ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        'chipstackcalcs()
    End Sub
    Public Sub chipstackcalcs()
        iNumberOfPlayers = CDbl(TextBox2.Text)
        NumericUpDown1.Value = iNumberOfPlayers
        iPlayersRemaining = NumericUpDown1.Value
        iAverageStack = iNumberOfPlayers * iStartingStack /
iPlayersRemaining
        Label20.Text = iAverageStack
    End Sub




I'd be greatful for any advise or points in the right
direction.



On Oct 19, 8:24 pm, "Andrew Badera" <and...badera.us> wrote:
> Well, that's more COM/interop than it is the debugger
:P
>
> Do you know what components you're using interop to
work with? I take it
> you're working with an older component, in a .NET
environment?
>
> Are you using p/invoke anywhere? (DllImport) ...
>
> On 10/19/07, Bails <andrewgbail...gmail.com> wrote:
>
>
>
>
>
> > Your probably right Andrew, though I now have
another example of the
> > debugger being a bugga and spitting out
gobledegook.
>
> > I have listed it below.
> > If you can make any sense of it I'd be greatful.
>
> > All I can make out from the following error is
that i dont have
> > "referenced assembly installed" on my
machine - but which reference??
>
> >
************************************************************
***************­************
> > PLATFORM VERSION INFO
> >         Windows                         :
5.1.2600.131072 (Win32NT)
> >         Common Language Runtime         :
2.0.50727.1378
> >         System.Deployment.dll           :
2.0.50727.1378
> > (REDBITSB2.050727-1300)
> >         mscorwks.dll                    :
2.0.50727.1378
> > (REDBITSB2.050727-1300)
> >         dfdll.dll                       :
2.0.50727.1378
> > (REDBITSB2.050727-1300)
> >         dfshim.dll                      :
2.0.50727.1378
> > (REDBITSB2.050727-1300)
>
> > SOURCES
> >         Deployment url                  :
>
> >
file:///C:/Documents%20and%20Settings/fabian/My%20Documents/
Visual%20Studio­­%202005/Projects/Holdem%20Tournament%20Time
r/Published/Holdem%20Tournament­%­20Timer.application
> >         Application url                 :
>
> >
file:///C:/Documents%20and%20Settings/fabian/My%20Documents/
Visual%20Studio­­%202005/Projects/Holdem%20Tournament%20Time
r/Published/Holdem%20Tournament­%­20Timer_1_0_1_13/Holdem%20
Tournament%20Timer.exe.manifest
>
> > IDENTITIES
> >         Deployment Identity             : Holdem
Tournament
> > Timer.application,
> > Version=1.0.1.13, Culture=en-AU,
PublicKeyToken=a675fef2688dba94,
> > processorArchitecture=msil
> >         Application Identity            : Holdem
Tournament
> > Timer.exe,
> > Version=1.0.1.13, Culture=en-AU,
PublicKeyToken=a675fef2688dba94,
> > processorArchitecture=msil, type=win32
>
> > APPLICATION SUMMARY
> >         * Installable application.
>
> > ERROR SUMMARY
> >         Below is a summary of the errors, details
of these errors are
> > listed
> > later in the log.
> >         * Activation of C:Documents and
SettingsfabianMy Documents
> > Visual
> > Studio 2005ProjectsHoldem Tournament
TimerPublishedHoldem
> > Tournament Timer.application resulted in
exception. Following failure
> > messages were detected:
> >                 + The referenced assembly is not
installed on your
> > system.
> > (Exception from HRESULT: 0x800736B3)
>
> > COMPONENT STORE TRANSACTION FAILURE SUMMARY
> >         No transaction error was detected.
>
> > WARNINGS
> >         There were no warnings during this
operation.
>
> > OPERATION PROGRESS STATUS
> >         * [19/10/2007 10:04:09 AM] : Activation of
C:Documents and
> > Settings
> > fabianMy DocumentsVisual Studio
2005ProjectsHoldem Tournament
> > TimerPublishedHoldem Tournament
Timer.application has started.
> >         * [19/10/2007 10:04:27 AM] : Processing of
deployment manifest
> > has
> > successfully completed.
> >         * [19/10/2007 10:04:27 AM] : Installation
of the application
> > has
> > started.
> >         * [19/10/2007 10:04:27 AM] : Processing of
application
> > manifest has
> > successfully completed.
> >         * [19/10/2007 10:04:49 AM] : Request of
trust and detection
> > of
> > platform is complete.
> >         * [19/10/2007 10:04:50 AM] : Downloading
of subscription
> > dependencies
> > is complete.
> >         * [19/10/2007 10:04:50 AM] : Commit of the
downloaded
> > application has
> > started.
>
> > ERROR DETAILS
> >         Following errors were detected during this
operation.
> >         * [19/10/2007 10:04:50 AM]
> > System.Runtime.InteropServices.COMException
> >                 - The referenced assembly is not
installed on your
> > system.
> > (Exception from HRESULT: 0x800736B3)
> >                 - Source: System.Deployment
> >                 - Stack trace:
> >                         at
> >
System.Deployment.Internal.Isolation.IStore.GetAssemblyInfor
mation(UInt32
> > Flags, IDefinitionIdentity DefinitionIdentity,
Guid& riid)
> >                         at
> >
System.Deployment.Internal.Isolation.Store.GetAssemblyManife
st(UInt32
> > Flags, IDefinitionIdentity DefinitionIdentity)
> >                         at
> >
System.Deployment.Application.ComponentStore.GetSubscription
StateInternal
> > (D­
> > efinitionIdentity
> > subId)
> >                         at
>
> >
System.Deployment.Application.SubscriptionStore.GetSubscript
ionStateInterna­­
> > l(SubscriptionState
> > subState)
> >                         at
> >
System.Deployment.Application.ComponentStore.CollectCrossGro
upApplications
> > (­
> > Uri
> > codebaseUri, DefinitionIdentity
deploymentIdentity, Boolean&
> > identityGroupFound, Boolean&
locationGroupFound, String&
> > identityGroupProductName)
> >                         at
> >
System.Deployment.Application.SubscriptionStore.CommitApplic
ation
> > (Subscript­
> > ionState&
> > subState, CommitApplicationParams commitParams)
> >                         at
> >
System.Deployment.Application.ApplicationActivator.InstallAp
plication
> > (Subsc­
> > riptionState&
> > subState, ActivationDescription actDesc)
> >                         at
>
> >
System.Deployment.Application.ApplicationActivator.PerformDe
ploymentActivat­­
> > ion(Uri
> > activationUri, Boolean isShortcut)
> >                         at
>
> >
System.Deployment.Application.ApplicationActivator.ActivateD
eploymentWorker­­
> > (Object
> > state)
>
> > COMPONENT STORE TRANSACTION DETAILS
> >         No transaction information is available.
>
> > On Oct 19, 11:37 am, "Andrew Badera"
<and...badera.us> wrote:
> > > The debugger really does, typically, explain
things as plainly as
> > possible.
> > > However, there IS a TON of context to grok
before all debugger messages
> > make
> > > sense. I can attest to several gurus I've
worked with being completely
> > > puzzled by debugger info, sometimes for days
or weeks on end.
>
> > > In this case, however, I think it was just a
matter, to be honest, of
> > you
> > > exploring the issue further. The message, or
message of the inner
> > exception,
> > > typically gives pretty specific detail.
>
> > > --ab
>
> > > On 10/18/07, Bails <andrewgbail...gmail.com> wrote:
>
> > > > It would be nice if the debuggar would
explain things in plain
> > > > language.
>
> > > > It was an absolute fluke that I found
the answer to my problem,
> > > > nothing to do with the debuggar (other
than it stopped my app EVERY
> > > > time).
>
> > > > On Oct 19, 10:32 am, "Andrew
Badera" <and...badera.us> wrote:
> > > > > F5? What is this F5?
>
> > > > > Personally I like to right-click my
solution to build ... none of
> > this
> > > > silly
> > > > > shortcut key crap ... explicitness
and transparency in all things!
>
> > > > > On 10/18/07, Cerebrus
<zorg...sify.com> wrote:
>
> > > > > > Yup, posting here and waiting
for responses is easier than
> > pressing
> > > > > > the F5 key... :P
>
> > > > > > On Oct 18, 5:52 pm,
"Jamie Fraser" <jamie.fra...gmail.com> wrote:
> > > > > > > What is this debugger you
speak of? I normally just post here
> > when I
> > > > > > > have a bug in my code :/
>
> > > > > > > On 18/10/2007, cleveridea
<cleveridea....gmail.com> wrote:
>
> > > > > > > > Isn't the debugger a
wonderful thing- Hide quoted text -
>
> > > > > - Show quoted text -- Hide quoted
text -
>
> > > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the
Google Groups "DotNetDevelopment, VB.NET, C# .NET,
ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting"
group.
To post to this group, send email to DotNetDevelopmentgooglegroups.com
To unsubscribe from this group, send email to
DotNetDevelopment-unsubscribegooglegroups.com
For more options, visit this group at
http:
//cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---