Hey ich habe mal eine frage wie kann man an besten eine speicher stand für ein Game machen
Das ist mein game code
*Topic verschoben*
Das ist mein game code
Visual Basic-Quellcode
- Public Class Form1
- Dim Geld As Decimal = 0
- Dim Cps As Decimal = 0
- Dim cmKost As Integer = 10
- Dim cmKost2 As Integer = 50
- Dim cmkost3 As Integer = 100
- Private Sub btn_klick_Click(sender As Object, e As EventArgs) Handles btn_klick.Click
- Geld = Geld + 1
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- lbl_geld.Text = "Geld: " + Geld.ToString
- lbl_cps.Text = "Geld pro Sec: " + Cps.ToString
- btn_cm.Text = "Kauf dir eine Nutte: " + cmKost.ToString
- btn_cm_2.Text = "Kauf dir eine Waffe: " + cmKost2.ToString
- btn_cm_3.Text = "Kauf dir ein Opfer: " + cmkost3.ToString
- If Geld >= cmKost2 Then
- btn_cm_2.Enabled = True
- Else
- btn_cm_2.Enabled = False
- End If
- If Geld >= cmKost Then
- btn_cm.Enabled = True
- Else
- btn_cm.Enabled = False
- End If
- If Geld >= cmkost3 Then
- btn_cm_3.Enabled = True
- Else
- btn_cm_3.Enabled = False
- End If
- End Sub
- Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
- Geld = Geld + Cps
- End Sub
- Private Sub btn_cm_Click(sender As Object, e As EventArgs) Handles btn_cm.Click
- Cps = Cps + 0.5
- Geld = Geld - cmKost
- cmKost = cmKost + cmKost
- End Sub
- Private Sub btn_cm_2_Click(sender As Object, e As EventArgs) Handles btn_cm_2.Click
- Cps = Cps + 1
- Geld = Geld - cmKost2
- cmKost2 = cmKost2 + cmKost2
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)
- CheckForUpdates()
- End Sub
- Public Sub CheckForUpdates()
- Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/s/k7pokoa4yqxpbc6/Version.txt?dl=0")
- Dim response As System.Net.HttpWebResponse = request.GetResponse()
- Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
- Dim newestversion As String = sr.ReadToEnd()
- Dim currentversion As String = Application.ProductVersion
- If newestversion.Contains(currentversion) Then
- MsgBox("Du bist auf denn Neusten Stand!")
- Else
- MsgBox("Es gebit eine neue Version bitte holle sie dir um mehr spaß zu haben.")
- WebBrowser1.Navigate("https://dl.dropbox.com/s/u1gef7psx07owng/Cookie.exe?dl=0")
- End If
- End Sub
- Private Sub btn_cm_3_Click(sender As Object, e As EventArgs) Handles btn_cm_3.Click
- Cps = Cps + 2
- Geld = Geld - cmkost3
- cmkost3 = cmkost3 + cmkost3
- End Sub
- End Class
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()