Hallo,
Ich hab seit einpaar Tage angefangen ein 2D Game zu proggen.
Screenshot:
Quellcode
Ich weiß aber nicht genau wie ich das schießen mit Laser programmieren kann
Hat jemand von euch vielleicht eine Idee dazu
Danke im voraus.
Mfg, user82821.
Ich hab seit einpaar Tage angefangen ein 2D Game zu proggen.
Screenshot:
Quellcode
VB.NET-Quellcode
- Option Explicit On
- Public Class Form1
- Dim energy As Double
- Dim km As Double
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- energy = 100
- Timer1.Start()
- End Sub
- Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
- KeyPreview = True
- Select Case e.KeyChar
- Case "w"c
- Panel1.Location = New Point(
- Panel1.Location.X,
- Panel1.Location.Y - 10)
- Panel1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\z\Desktop\oben.jpg")
- energy -= 0.01
- km += 100
- Case "a"c
- Panel1.Location = New Point(
- Panel1.Location.X - 10,
- Panel1.Location.Y)
- Panel1.BackgroundImage =
- System.Drawing.Image.FromFile("C:\Users\z\Desktop\links.jpg")
- energy -= 0.01
- km += 100
- Case "s"c
- Panel1.Location = New Point(
- Panel1.Location.X,
- Panel1.Location.Y + 10)
- Panel1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\z\Desktop\unten.jpg")
- energy -= 0.01
- km += 100
- Case "d"c
- Panel1.Location = New Point(
- Panel1.Location.X + 10,
- Panel1.Location.Y)
- Panel1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\z\Desktop\rechts.jpg")
- energy -= 0.01
- km += 100
- For Each pbox As Control In Me.Controls
- If pbox.Tag = "wall" Then
- Dim rect3 As New Rectangle
- rect3.Location = pbox.Location
- rect3.Size = pbox.Size
- Dim rect1 As New Rectangle
- rect1.Location = Panel1.Location
- rect1.Size = Panel1.Size
- If rect1.IntersectsWith(rect3) Then
- Panel1.Location = New Point(
- Panel1.Location.X - 30,
- Panel1.Location.Y)
- MsgBox("Zugang nur für Schiffe der Vengeance-Goliath Reihe")
- End If
- End If
- Next
- End Select
- End Sub
- Private Sub Form2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
- Select e.KeyChar
- Case "q"c
- Panel1.Size = New Size(
- Panel1.Width - 10,
- Panel1.Height - 10)
- Case "e"c
- Panel1.Size = New Size(
- Panel1.Width + 10,
- Panel1.Height + 10)
- End Select
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- PictureBox1.Location = New Point(
- PictureBox1.Location.X - 1,
- PictureBox1.Location.Y + 1)
- Label3.Text = "Energy = " & energy
- Label4.Text = "km = " & km
- If energy <= 0 Then Me.KeyPreview = False
- If energy <= 20 Then Label3.ForeColor = Color.Red
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Me.Close()
- End Sub
- End Class
Ich weiß aber nicht genau wie ich das schießen mit Laser programmieren kann
Hat jemand von euch vielleicht eine Idee dazu
Danke im voraus.
Mfg, user82821.