«

»

Lis 03

Wydrukuj to Wpis

Visual Basic – Tenis stołowy

visual-basc-ping-pong

W tym artykule opisano, jak zrobić prostą grę w Visual Basic. Będzie to gra w Tenis stołowy (Ping Pong), polegająca na odbijaniu piłeczki rakietką.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Public Class Form1
    Dim biegX = 5
    Dim biegY = 5
    Dim pilkaX, pilkaY As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Left = (Me.Width / 2) - (Label1.Width / 2)
        Label1.Top = (Me.Height / 2) - (Label1.Height / 2)
 
        Grac()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        pilkaX = OvalShape1.Left + biegX
        pilkaY = OvalShape1.Top + biegY
 
        If (pilkaX + 30 >= Me.Width) Then biegX = -biegX : My.Computer.Audio.Play("pong.wav", AudioPlayMode.Background)
 
        If (pilkaX < 0) Then biegX = -biegX : My.Computer.Audio.Play("pong.wav", AudioPlayMode.Background)
 
        If pilkaY < 0 Then biegY = -biegY : My.Computer.Audio.Play("pong.wav", AudioPlayMode.Background)
 
 
        If pilkaY + 20 >= RectangleShape1.Top Then
 
            If pilkaX > RectangleShape1.Left + RectangleShape1.Width Or pilkaX + 18 < RectangleShape1.Left Then
                OvalShape1.BackColor = Color.Red
                Timer1.Enabled = False
                Exit Sub
            End If
            My.Computer.Audio.Play("ping.wav", AudioPlayMode.Background)
            biegY = -biegY
 
        End If
 
        OvalShape1.Top = pilkaY
        OvalShape1.Left = pilkaX
    End Sub
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If e.KeyCode = Keys.A And RectangleShape1.Left <> 0 And Timer1.Enabled = True Then
            RectangleShape1.Left -= 20
        ElseIf e.KeyCode = Keys.D And RectangleShape1.Left <> (Me.Width - RectangleShape1.Width) - 20 And Timer1.Enabled = True Then
            RectangleShape1.Left += 20
        ElseIf e.KeyCode = Keys.Space Then
            Grac()
            Timer1.Enabled = True
            Label1.Visible = False
        End If
    End Sub
 
    Sub Grac()
        RectangleShape1.Left = (Me.Width / 2) - (RectangleShape1.Width / 2)
        RectangleShape1.Top = Me.Height - 60
 
        OvalShape1.Left = (Me.Width / 2) - (OvalShape1.Width / 2)
        OvalShape1.Top = RectangleShape1.Top - 25
        OvalShape1.BackColor = Color.Yellow
    End Sub
 
End Class

Załączniki do pobrania

  • rar Ping-Pong
    Visual Basic Project
    Rozmiar pliku: 154 KB Pobrania: 143

Permalink do tego artykułu: http://tmall.com.pl/visual-basic-tenis-stolowy/

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Możesz użyć tych znaczników i atrybutów HTMLa: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>