Ihr seid Opfer. Klassenfeind ?! Ignoriert euch doch einfach und geht euch aus dem Weg

...zur Antwort

8Gb RAM (reicht für Server mehr) GraKa Nvidia Gtx 980 + (wichtig!!!) Prozessor intel i7 4970k (nicht so wichtig geht auh i5) Selber zusammen bauen spar Geld!!!

...zur Antwort

Oder du machst es mit einer mysql Datenbank

...zur Antwort

Nein du kannst mit MutiVerse plugin mehrere Welten auf einem Server machen und du kannst ja auch die Lobby und das Game in einer Welt machen

...zur Antwort

Du kann mit: getConfig.addDefault("path.path.path...","value"); Etwas in der Config des Plugins speichern

...zur Antwort

Hast du hinter deine RAM Zahl ein großes G geschrieben? ZB: 4G

...zur Antwort
Private Sub Button1Variablespeichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1Variablespeichern.Click
    If ComboBoxVariablen.Text = VA1 Then
        VA2 = TextBoxVariablenwert.Text
        VA1 = TextBoxVariablenname.Text
        VA3 = TextBoxVariablenbeschreibung.Text
        Variablenlöschen = ComboBoxVariablen.Text
        ComboBoxVariablen.Items.Remove(Variablenlöschen)
        ComboBoxVariablen.Items.Add(VA1)
        MsgBox("Variable: " & VA1 & " enthält jetzt den Wert: " & VA2)
    ElseIf ComboBoxVariablen.Text = VB1 Then
        VB2 = TextBoxVariablenwert.Text
        VB1 = TextBoxVariablenname.Text
        VB3 = TextBoxVariablenbeschreibung.Text
        Variablenlöschen = ComboBoxVariablen.Text
        ComboBoxVariablen.Items.Remove(Variablenlöschen)
        ComboBoxVariablen.Items.Add(VB1)
        MsgBox("Variable: " & VB1 & " enthält jetzt den Wert: " & VB2)
    ElseIf ComboBoxVariablen.Text = VC1 Then
        VC2 = TextBoxVariablenwert.Text
        VC1 = TextBoxVariablenname.Text
        VC3 = TextBoxVariablenbeschreibung.Text
        Variablenlöschen = ComboBoxVariablen.Text
        ComboBoxVariablen.Items.Remove(Variablenlöschen)
        ComboBoxVariablen.Items.Add(VC1)
        MsgBox("Variable: " & VC1 & " enthält jetzt den Wert: " & VC2)
    ElseIf ComboBoxVariablen.Text = VD1 Then
        VD2 = TextBoxVariablenwert.Text
        VD1 = TextBoxVariablenname.Text
        VD3 = TextBoxVariablenbeschreibung.Text
        Variablenlöschen = ComboBoxVariablen.Text
        ComboBoxVariablen.Items.Remove(Variablenlöschen)
        ComboBoxVariablen.Items.Add(VD1)
        MsgBox("Variable: " & VD1 & " enthält jetzt den Wert: " & VD2)
    ElseIf ComboBoxVariablen.Text = VE1 Then
        VE2 = TextBoxVariablenwert.Text
        VE1 = TextBoxVariablenname.Text
        VE3 = TextBoxVariablenbeschreibung.Text
        Variablenlöschen = ComboBoxVariablen.Text
        ComboBoxVariablen.Items.Remove(Variablenlöschen)
        ComboBoxVariablen.Items.Add(VE1)
        MsgBox("Variable: " & VE1 & " enthält jetzt den Wert: " & VE2)
    End If
End Sub

End Class

Sorry dass das in einzelnen abschnitten ist und das manches verrückt wurde ich habs nur kopiert aber ich hoffe ihr könnt mir trotzdem helfen

...zur Antwort

Private Sub ButtonGleich_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGleich.Click If My.Settings.rechenzeichen = "+" Then If (TextBoxAufgabe.Text = VA1) Or (TextBoxAufgabe.Text = VB1) Or (TextBoxAufgabe.Text = VC1) Or (TextBoxAufgabe.Text = VD1) Or (TextBoxAufgabe.Text = VE1) Then If TextBoxAufgabe.Text = VA1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + VA2 ElseIf TextBoxAufgabe.Text = VB1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(VB2) ElseIf TextBoxAufgabe.Text = VC1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(VC2) ElseIf TextBoxAufgabe.Text = VD1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(VD2) ElseIf TextBoxAufgabe.Text = VE1 Then TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(VE2) End If TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(TextBoxAufgabe.Text) Else TextBoxAufgabe.Text = Val(My.Settings.zahl) + Val(TextBoxAufgabe.Text) End If End If If My.Settings.rechenzeichen = "-" Then If TextBoxAufgabe.Text = VA1 Or VB1 Or VC1 Or VD1 Or VE1 Then

        Else
            TextBoxAufgabe.Text = Val(My.Settings.zahl) - Val(TextBoxAufgabe.Text)
        End If
    End If
    If My.Settings.rechenzeichen = "*" Then
        If TextBoxAufgabe.Text = VA1 Or VB1 Or VC1 Or VD1 Or VE1 Then

        Else
            TextBoxAufgabe.Text = Val(My.Settings.zahl) * Val(TextBoxAufgabe.Text)
        End If
    End If
    If My.Settings.rechenzeichen = "/" Then
        If TextBoxAufgabe.Text = VA1 Or VB1 Or VC1 Or VD1 Or VE1 Then

        Else
            TextBoxAufgabe.Text = Val(My.Settings.zahl) / Val(TextBoxAufgabe.Text)
        End If
    End If
End Sub

Private Sub ButtonEinsweg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEinsweg.Click
    My.Settings.zahl = ""
    My.Settings.rechenzeichen = ""
    TextBoxAufgabe.Text = ""
End Sub

Private Sub ButtonAllesweg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAllesweg.Click
    Try
        Dim i As Integer
        i = TextBoxAufgabe.Text.Length
        TextBoxAufgabe.Text = Mid(TextBoxAufgabe.Text, 1, i - 1)
    Catch ex As Exception

    End Try
End Sub

Private Sub ButtonVariablendefinieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonVariablendefinieren.Click
    If togglevariabledefinieren = 0 Then
        PanelVariablendefinieren.Visible = True
        togglevariabledefinieren = 1
    Else
        PanelVariablendefinieren.Visible = False
        togglevariabledefinieren = 0
        End If
End Sub

Private Sub ComboBoxVariablen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxVariablen.SelectedIndexChanged If ComboBoxVariablen.Text = VA1 Then TextBoxVariablenname.Text = VA1 TextBoxVariablenwert.Text = VA2 TextBoxVariablenbeschreibung.Text = VA3

    ElseIf ComboBoxVariablen.Text = VB1 Then
        TextBoxVariablenname.Text = VB1
        TextBoxVariablenwert.Text = VB2
        TextBoxVariablenbeschreibung.Text = VB3

    ElseIf ComboBoxVariablen.Text = VC1 Then
        TextBoxVariablenname.Text = VC1
        TextBoxVariablenwert.Text = VC2
        TextBoxVariablenbeschreibung.Text = VC3

    ElseIf ComboBoxVariablen.Text = VD1 Then
        TextBoxVariablenname.Text = VD1
        TextBoxVariablenwert.Text = VD2
        TextBoxVariablenbeschreibung.Text = VD3

    ElseIf ComboBoxVariablen.Text = VE1 Then
        TextBoxVariablenname.Text = VE1
        TextBoxVariablenwert.Text = VE2
        TextBoxVariablenbeschreibung.Text = VE3

    End If
End Sub
...zur Antwort

Public Class Form1 Private togglevariabledefinieren = 0 Private VA1 = "a" Private VA2 = 0 Private VA3 = "" Private VB1 = "b" Private VB2 = 0 Private VB3 = "" Private VC1 = "c" Private VC2 = 0 Private VC3 = "" Private VD1 = "d" Private VD2 = 0 Private VD3 = "" Private VE1 = "e" Private VE2 = 0 Private VE3 = "" Private Variablenlöschen

Private Sub ButtonAus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAus.Click
    PanelBildschirmschoner.Visible = True
    Me.Text = "MusicPlayChannel"
End Sub
Private Sub PanelBildschirmschoner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PanelBildschirmschoner.Click
    PanelBildschirmschoner.Visible = False
    Me.Text = "Taschenrechner"
End Sub
Private Sub LabelBildschirmschoner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelBildschirmschoner.Click
    PanelBildschirmschoner.Visible = False
    Me.Text = "Taschenrechner"
End Sub
Private Sub LabelSmiley_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelSmiley.Click
    PanelBildschirmschoner.Visible = False
    Me.Text = "Taschenrechner"
End Sub

Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button0.Click
    TextBoxAufgabe.Text += "0"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBoxAufgabe.Text += "1"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    TextBoxAufgabe.Text += "2"
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    TextBoxAufgabe.Text += "3"
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    TextBoxAufgabe.Text += "4"
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    TextBoxAufgabe.Text += "5"
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    TextBoxAufgabe.Text += "6"
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    TextBoxAufgabe.Text += "6"
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    TextBoxAufgabe.Text += "8"
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    TextBoxAufgabe.Text += "9"
End Sub

Private Sub ButtonKomma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKomma.Click
    TextBoxAufgabe.Text += "."
End Sub

Private Sub ButtonPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlus.Click
    My.Settings.zahl = TextBoxAufgabe.Text
    TextBoxAufgabe.Text = ""
    My.Settings.rechenzeichen = "+"
End Sub

Private Sub ButtonMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMinus.Click
    My.Settings.zahl = TextBoxAufgabe.Text
    TextBoxAufgabe.Text = ""
    My.Settings.rechenzeichen = "-"
End Sub

Private Sub ButtonMal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMal.Click
    My.Settings.zahl = TextBoxAufgabe.Text
    TextBoxAufgabe.Text = ""
    My.Settings.rechenzeichen = "*"
End Sub

Private Sub ButtonGeteilt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGeteilt.Click
    My.Settings.zahl = TextBoxAufgabe.Text
    TextBoxAufgabe.Text = ""
    My.Settings.rechenzeichen = "/"
End Sub

Private Sub ButtonPlusminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlusminus.Click
    TextBoxAufgabe.Text = Val(TextBoxAufgabe.Text) * (-1)
End Sub
...zur Antwort