Hvorfor virker mit program ikke??

Det er nok svært at løse problemet uden at se koden eller i det mindste
få fejlene og relevante udsnit af kode

Hehe, det har du jo nok ret i! Men det er mere eller mindre også "hele" koden :-O Det er et forholdsvist simpelt beregningsprogram, der indtil videre kun skal tage udgangspunkt i den ovenstående formel...

Jeg har dog ikke noget imod at sende programmet til dig (eller andre), så I kunne se hvor jeg har lavet ged i den. Det er nok umiddelbart den bedste måde. Og da programmet ikke er særligt omfattende burde det ikke være et problem for Jer, men jeg har selv stirret mig blind på problemet! Ved dog ikke lige hvordan det kan foregå herinde, da jeg er ny på Eksperten. Men giv mail og det kan sendes...

Fejlen består i, at når jeg har indtaste de oplysninger, der skal til for at kunne beregne den nye rating - placeret i 4 felter (combobox og textboks) - kommer følgende fejl:

"An unhandled exception has occured in your application. If you click Continue, the application will ignore this error and attempt to continue. If you click Quit, the application will be shut down immediately.

Argument 'Expression' cannot be converted to type 'TextBox'."

Hmm... Nu jeg kigger på det én gang til, hvad betyder så den sidste linje - Argument 'Expression' cannot be converted to type 'TextBox'.?? Kunne godt være problemet, hvis man ved hvordan det skal fikses! ;-)

det lyder meget som du skal skrive:

textboxnavn.Text = noget

fremfor

textboxnavn = noget

Har jeg ikke også gjort det med:
Rating = "formel osv. etc."
lblRatingNy.Text = Rating?

Eller mener du det skulle være sådan?
Rating.Text = "formel osv. etc."
lblRatingNy.Text = Rating.Text?

I den ældre VB 6 virker det umiddelbart fint nok, men kan det havde noget at gøre med, at man på én eller anden måde skal declare sin Rating betegnelse før man kan sætte den lig en formel f.eks.? Så det f.eks. bliver Dim Rating As Integer, Rating = "formel osv. etc.", lblRatingNy.Text = Rating?? Er blot et par forslag...

Jeg tror at jeg skal se lidt mere kode

Det kan være mange ting! men dit problem er nok at holde styr på hvad der er tal / text / textbox osv. En god ide er at hente værdierne fra dine labels, comboboxe og tekstboxe ind i variable:

f.eks:
dGammelRating = System.Convert.ToDouble(txtGammel);

måske skulle du bruge System.Convert namespace som ovenfor for ikke at binde dig til de gamle VB-metoder (som Val) - du kan skrive ToDouble(txtGammel) hvis du importerer System.Convert namespacet...

når du har gjort det kan du stykke din rating formel sammen. Sørg for at alle dine værdier fra text og labels og comboboxe er læst ind som tal (brug ToDouble, ToInt32 osvosv. funktionerne)! - du vil nu sikkert få en anden fejl som er mere sigende.

Det kan f.eks være at (antaget at txtGammel er en Textbox) du skal skrive txtGammel.Text for at hente tekst værdien i din tekstbox... håber det hjælper (post gerne din nye fejl efter du har splittet din rating formel op, så kan du helt sikkert få en præcis løsning!

Dette er al den kode, der er i programmet. Ikke meget, men nok til at det skulle virke - i teorien i hvert fald! ;-) Håber I får mere ud af det...

Du har sikkert nok ret i, at jeg bruger den ældre syntaks for meget, men er ikke helt ferm på tasterne i det nye VB.NET, endnu. Håber du kan fortælle mig, hvordan du vil have jeg skal bruge System.Convert korrekt i dette tilfælde, men vil også lige selv prøve at fumle lidt med det...

Private Sub btnCalcRating_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcRating.Click
        Dim Rating As System.Single
        Try
            Rating = Val(txtGammel) + Val(cbxK) * (Val(cbxScore) - (1 / 10 ^ ((Val(txtGammel) - Val(txtModstander)) / 400) + 1))
            lblRatingNy.Text = Rating
        Catch
            MessageBox.Show("Rating kan ikke beregnes...")
        End Try
    End Sub
End Class

Jeg har prøvet at opdatere koden lidt, mht. det rettelser, der blev foreslået af sovsekoder. Det ser også umiddelbart også ud til at virke, men nu giver samtlige resultater 0 - lige meget hvilke tal jeg sætter ind i formel, giver resultater bare 0, hvilket jo ikke er helt hensigtsmæssigt! Har sikkert overset ét eller andet i det nye VB...

Private Sub btnCalcRating_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcRating.Click
        Dim Rating As System.Single
        Dim txtGammel = ToInt32(txtGammel)
        Dim txtModstander = ToInt32(txtModstander)
        Dim cbxScore = ToInt32(cbxScore)
        Dim cbxK = ToInt32(cbxK)
        Try
            Rating = txtGammel + cbxK * (cbxScore - (1 / 10 ^ ((txtGammel - txtModstander) / 400)) + 1)
            lblRatingNy.Text = Rating
        Catch
            MessageBox.Show("Rating kan ikke beregnes...")
        End Try
    End Sub
End Class

Har I virkelig godt nok ikke nogle flere råd og vejledninger, til hvad der evt. kunne være galt, nu I har fået lidt kode at kigge på?? Håber da I har, og skal nok sende programmet hvis det er, for har lidt brug for det skidt virker ;-)

<jsp:useBean id="f" scope="request" class="test.UtilBean"/>
<jsp:setProperty name="f" property="*"/>

laver en test.UtilBean med navn id og for alle felter i den henter den
form parameter med det samme navn og fylder i

Ignorer lige sidste kommentar - det skulle i en anden tråd !!!!

Jeg er ikke GUI programmør men her er et eksempel som kører.

Jeg tror dog ar formlen er forkert, men den kan du jo ændre:

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class MainForm
    Inherits System.Windows.Forms.Form
    Private txtK As System.Windows.Forms.TextBox
    Private labNy As System.Windows.Forms.Label
    Private txtModstander As System.Windows.Forms.TextBox
    Private butBeregn As System.Windows.Forms.Button
    Private labModstander As System.Windows.Forms.Label
    Private txtNy As System.Windows.Forms.TextBox
    Private labScore As System.Windows.Forms.Label
    Private labK As System.Windows.Forms.Label
    Private labGammel As System.Windows.Forms.Label
    Private txtScore As System.Windows.Forms.TextBox
    Private txtGammel As System.Windows.Forms.TextBox
   
    Public Shared Sub Main
        Dim fMainForm As New MainForm
        fMainForm.ShowDialog()
    End Sub
       
    Public Sub New()
        MyBase.New
        '
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        '
        Me.InitializeComponent
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
       
    #Region " Windows Forms Designer generated code "
    ' This method is required for Windows Forms designer support.
    ' Do not change the method contents inside the source code editor. The Forms designer might
    ' not be able to load this method if it was changed manually.
    Private Sub InitializeComponent()
            Me.txtGammel = New System.Windows.Forms.TextBox
            Me.txtScore = New System.Windows.Forms.TextBox
            Me.labGammel = New System.Windows.Forms.Label
            Me.labK = New System.Windows.Forms.Label
            Me.labScore = New System.Windows.Forms.Label
            Me.txtNy = New System.Windows.Forms.TextBox
            Me.labModstander = New System.Windows.Forms.Label
            Me.butBeregn = New System.Windows.Forms.Button
            Me.txtModstander = New System.Windows.Forms.TextBox
            Me.labNy = New System.Windows.Forms.Label
            Me.txtK = New System.Windows.Forms.TextBox
            Me.SuspendLayout
            '
            'txtGammel
            '
            Me.txtGammel.Location = New System.Drawing.Point(112, 8)
            Me.txtGammel.Name = "txtGammel"
            Me.txtGammel.TabIndex = 0
            Me.txtGammel.Text = ""
            '
            'txtScore
            '
            Me.txtScore.Location = New System.Drawing.Point(112, 72)
            Me.txtScore.Name = "txtScore"
            Me.txtScore.TabIndex = 2
            Me.txtScore.Text = ""
            '
            'labGammel
            '
            Me.labGammel.Location = New System.Drawing.Point(16, 8)
            Me.labGammel.Name = "labGammel"
            Me.labGammel.Size = New System.Drawing.Size(88, 23)
            Me.labGammel.TabIndex = 6
            Me.labGammel.Text = "Gammel"
            '
            'labK
            '
            Me.labK.Location = New System.Drawing.Point(16, 104)
            Me.labK.Name = "labK"
            Me.labK.Size = New System.Drawing.Size(88, 23)
            Me.labK.TabIndex = 9
            Me.labK.Text = "K"
            '
            'labScore
            '
            Me.labScore.Location = New System.Drawing.Point(16, 72)
            Me.labScore.Name = "labScore"
            Me.labScore.Size = New System.Drawing.Size(88, 24)
            Me.labScore.TabIndex = 8
            Me.labScore.Text = "Score"
            '
            'txtNy
            '
            Me.txtNy.Location = New System.Drawing.Point(112, 136)
            Me.txtNy.Name = "txtNy"
            Me.txtNy.TabIndex = 4
            Me.txtNy.Text = ""
            '
            'labModstander
            '
            Me.labModstander.Location = New System.Drawing.Point(16, 40)
            Me.labModstander.Name = "labModstander"
            Me.labModstander.Size = New System.Drawing.Size(88, 23)
            Me.labModstander.TabIndex = 11
            Me.labModstander.Text = "Modstander"
            '
            'butBeregn
            '
            Me.butBeregn.Location = New System.Drawing.Point(200, 216)
            Me.butBeregn.Name = "butBeregn"
            Me.butBeregn.TabIndex = 5
            Me.butBeregn.Text = "Beregn"
            AddHandler Me.butBeregn.Click, AddressOf Me.ButBeregnClick
            '
            'txtModstander
            '
            Me.txtModstander.Location = New System.Drawing.Point(112, 40)
            Me.txtModstander.Name = "txtModstander"
            Me.txtModstander.TabIndex = 1
            Me.txtModstander.Text = ""
            '
            'labNy
            '
            Me.labNy.Location = New System.Drawing.Point(16, 136)
            Me.labNy.Name = "labNy"
            Me.labNy.Size = New System.Drawing.Size(88, 23)
            Me.labNy.TabIndex = 10
            Me.labNy.Text = "Ny"
            '
            'txtK
            '
            Me.txtK.Location = New System.Drawing.Point(112, 104)
            Me.txtK.Name = "txtK"
            Me.txtK.TabIndex = 3
            Me.txtK.Text = ""
            '
            'MainForm
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(292, 266)
            Me.Controls.Add(Me.labModstander)
            Me.Controls.Add(Me.labNy)
            Me.Controls.Add(Me.labK)
            Me.Controls.Add(Me.labScore)
            Me.Controls.Add(Me.labGammel)
            Me.Controls.Add(Me.butBeregn)
            Me.Controls.Add(Me.txtNy)
            Me.Controls.Add(Me.txtK)
            Me.Controls.Add(Me.txtScore)
            Me.Controls.Add(Me.txtModstander)
            Me.Controls.Add(Me.txtGammel)
            Me.Name = "MainForm"
            Me.Text = "MainForm"
            Me.ResumeLayout(false)
        End Sub
    #End Region
       
    Private Sub ButBeregnClick(sender As System.Object, e As System.EventArgs)
        Dim gammel As Integer = Integer.Parse(txtGammel.Text)
        Dim modstander As Integer = Integer.Parse(txtModstander.Text)
        Dim score As Integer = Integer.Parse(txtScore.Text)
        Dim k As Integer = Integer.Parse(txtK.Text)
        Dim ny As Integer
        ny = gammel + k * (score - Math.Pow(0.1, (gammel - modstander) / 400) + 1)
        txtNy.Text = ny.ToString
    End Sub
       
End Class

Hej Arne

Det lyder godt det der, det er helt sikkert ;-) Jeg har dog fået hjælp af en venlig sjæl inde fra IT Svar, som kunne fikse det for mig på GUI form, men endnu engang mange, mange tak for, at du har forsøgt dig, og din hjælp har været yderværdsat, samt sovesekoder selvfølgelig, ej at glemme ;-)

Derfor skal du også have 'belønningen' i form af et accepteret svar! :-) Jeg er ny herinde, så jeg er ikke sikker på jeg har gjort det korrekt, men har trykket accepter et par gange, og håber på det virker :P Ellers må du lige skrive herinde og fortælle mig, hvad jeg helt præcist skal gøre, for at du får dine fortjente point. Igen tak...

Jeg skal først ligge et svar ...

OK ?

?! OK... Har fået et til at virke nu så det passer til de krav jeg har selv har stillet til det. Tak for hjælpen?