Code generator werkt niet :S

[kevenvz]

Hey, ik heb een code generator gemaakt die ene code generate voor een spel.

Mijn probleem is dat de 1st generate know wel werkt. Maar de 2de niet :S

Wat is het probleem?

Code:

Public Class WaterSky
    Dim wr As String
    Dim wg As String
    Dim wb As String
    Dim wa As String

    Dim tr As String
    Dim tg As String
    Dim tb As String

    Dim br As String
    Dim bg As String
    Dim bb As String

    Private Sub btnWaterGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWaterGenerate.Click
        wr = txtWaterRed.Text
        wg = txtWaterGreen.Text
        wb = txtWaterBlue.Text
        wa = txtWaterAlpha.Text

        If IsNumeric(wr) And IsNumeric(wg) And IsNumeric(wb) And IsNumeric(wa) Then
            If wr <= 255 And wg <= 255 And wb <= 255 And wa <= 255 Then
                Me.Width = 600
                outputCode.Text = "-- Code generated by Mapping Tools" + Environment.NewLine + "function changeWater()" + Environment.NewLine +
                    "  setWaterColor(" + wr + ", " + wg + ", " + wb + ", " + wa + ")" + Environment.NewLine + "end" + Environment.NewLine +
                    "addEventHandler(""onClientResourceStart"", getResourceRootElement(getThisResource()), changeWater)"
            Else
                MsgBox("Please put everything in numbers between 0-255!", vbExclamation, "Error!")
            End If
        Else
            MsgBox("Please put everything in numbers between 0-255!", vbExclamation, "Error!")
        End If
    End Sub

    Private Sub btnSkyGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSkyGenerate.Click
        tr = txtTopRed.Text
        tg = txtTopGreen.Text
        tb = txtTopBlue.Text

        br = txtBottomRed.Text
        bg = txtBottomGreen.Text
        bb = txtBottomBlue.Text

        If IsNumeric(tr) And IsNumeric(tg) And IsNumeric(tb) And IsNumeric(br) And IsNumeric(bg) And IsNumeric(bb) Then
            If tr <= 255 And tg <= 255 And tb <= 255 And br <= 255 And bg <= 255 And bb <= 255 Then
                Me.Width = 600
                outputCode.Text = "-- Code generated by Mapping Tools" = Environment.NewLine + "function changeSky()" + Environment.NewLine +
                    "   setSkyGradient(" + tr + ", " + tg + ", " + tb + ", " + br + ", " + bg + ", " + bb + ")" + Environment.NewLine + "end" + Environment.NewLine +
                "addEventHandler(""onClientResourceStart"", getResourceRootElement(getThisResource()), changeSky)"
            Else
                MsgBox("Please put everything in numbers between 0-255!", vbExclamation, "Error!")
            End If
        Else
            MsgBox("Please put everything in numbers between 0-255!", vbExclamation, "Error!")
        End If
    End Sub
End Class

 

[JoZ1]

Wat wil je dat-ie doet en wat doet-ie verkeerd?

 

[kevenvz]

Kijk hij moet deze code aangeven(met de ingevoerde textbox value's)

-- Code generated by Mapping Tools
function changeSky()
  setSkyGradient(1, 2, 3, 4, 5, 6)
end
addEventHandler("onClientResourceStart", getResourceRootElement(getThisResource()), changeSky)

Alleen hij geef aan: "False"

 

[JoZ1]

Zet eens een breakpoint bij het 'codegenereren'.
Even kijken of hij de code überhaupt uitvoert.

 

[kevenvz]

Ik snap die breakpoints niet echt. Ik zet hem need bij de handler maar dan snap ik het niet

EDIT: Code fixed er stond een = inplaatsvan een +

Toch bedankt voor de moeite!

 

[JoZ1]

Ok