Visual Basic

bapu2889 wrote:

Public Sub CheckCollision()
Dim Collid As Rectangle, Collided As Boolean
Collid = Collid.Intersect(BallRct(MyBall), MyBat1)
If Not (Collid.IsEmpty) Then
BallX(MyBall) = 1

End If

End Sub

bapu2889 wrote:

but i am not sure can you please tell me what do i need to do

  If BallX(I) < (MyBat1.Width) Then<br />
                BallDirX(I) = 1<br />
                Collided = True<br />
                Beep()<br />
            End If<br />
<br />
Public Sub CheckCollision()<br />
        Dim Collid As Rectangle, Collided As Boolean<br />
        Collid = Collid.Intersect(MyBat1, BallRct(MyBall))<br />
        If Not (Collid.IsEmpty) Then<br />
            BallDirX(MyBall) = -BallDirX(MyBall)<br />
<br />
        End If<br />
<br />
    End Sub

Option Explicit On <br />
Option Strict On<br />
Public Class frmPong<br />
    Inherits System.Windows.Forms.Form<br />
<br />
#Region " Windows Form Designer generated code "<br />
<br />
    Public Sub New()<br />
        MyBase.New()<br />
<br />
        'This call is required by the Windows Form Designer.<br />
        InitializeComponent()<br />
<br />
        'Add any initialization after the InitializeComponent() call<br />
<br />
    End Sub<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing Then<br />
            If Not (components Is Nothing) Then<br />
                components.Dispose()<br />
            End If<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    Friend WithEvents timPong As System.Windows.Forms.Timer<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
        Me.components = New System.ComponentModel.Container<br />
        Me.timPong = New System.Windows.Forms.Timer(Me.components)<br />
        '<br />
        'timPong<br />
        '<br />
        '<br />
        'frmPong<br />
        '<br />
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
        Me.BackColor = System.Drawing.Color.GreenYellow<br />
        Me.ClientSize = New System.Drawing.Size(728, 461)<br />
        Me.Name = "frmPong"<br />
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen<br />
        Me.Text = "PingPong"<br />
<br />
    End Sub<br />
<br />
#End Region<br />
    Const BALL_WID As Integer = 50<br />
    Const BALL_HGT As Integer = 50<br />
    Const MyBall As Integer = 1<br />
    Dim BallDirX(MyBall), BallXSpd(MyBall) As Integer<br />
    Dim BallDirY(MyBall), BallYSpd(MyBall) As Integer<br />
    Dim BallX(MyBall) As Integer<br />
    Dim BallY(MyBall) As Integer<br />
    Dim MyBrush As Drawing.Brush<br />
    Dim BallImage(MyBall) As Drawing.Image<br />
    Dim MyDrawing As Drawing.Graphics<br />
    Dim Colors(10) As Drawing.Brush<br />
    Dim MyBat1, MyBat2, BallRct(MyBall) As Drawing.Rectangle<br />
    Dim MyPen As Drawing.Pen<br />
    Dim Collid As Rectangle, Collided As Boolean<br />
    Dim W, H, I As Integer<br />
<br />
    Private Sub frmPong_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        'choose color<br />
        Colors(1) = Brushes.BlueViolet<br />
        Colors(2) = Brushes.Blue<br />
        Colors(3) = Brushes.Green<br />
        Colors(4) = Brushes.Red<br />
        Colors(5) = Brushes.Yellow<br />
        Colors(6) = Brushes.Aqua<br />
        Colors(7) = Brushes.Black<br />
        Colors(8) = Brushes.Brown<br />
        Colors(9) = Brushes.DarkOrange<br />
        Colors(10) = Brushes.Navy<br />
<br />
        'choose random color<br />
        MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
        'bat1 and bat2 dimention<br />
        W = 30 : H = 100<br />
        'draw bat1<br />
        MyBat1 = New Drawing.Rectangle(0, 0, W, H)<br />
        'draw bat2<br />
        MyBat2 = New Drawing.Rectangle(Me.ClientRectangle.Width - W - CInt(W / 2), CInt(Me.ClientRectangle.Height / 2) _<br />
        - CInt(W / 2), W, H)<br />
<br />
        'randomize ball direction<br />
        Randomize()<br />
        For I As Integer = 1 To MyBall<br />
            BallDirX(I) = CInt(Rnd() * 3 - 0.5)<br />
            BallDirY(I) = CInt(Rnd() * 3 - 0.5)<br />
            BallX(I) = CInt(Rnd() * (Me.ClientSize.Width - BALL_WID))<br />
            BallY(I) = CInt(Rnd() * (Me.ClientSize.Height - BALL_HGT))<br />
            'randomize speed<br />
            BallXSpd(I) = 3 + CInt(Rnd() * 8 - 0.5)<br />
            BallYSpd(I) = 3 + CInt(Rnd() * 8 - 0.5)<br />
        Next I<br />
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _<br />
            ControlStyles.DoubleBuffer, True)<br />
        Me.UpdateStyles()<br />
        timPong.Enabled = True<br />
    End Sub<br />
<br />
    Private Sub timPong_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timPong.Tick<br />
<br />
        For I = 1 To MyBall<br />
            BallX(I) = BallX(I) + BallDirX(I) * BallXSpd(I)<br />
            BallY(I) = BallY(I) + BallDirY(I) * BallYSpd(I)<br />
            BallRct(I) = New Rectangle(BallX(I), BallY(I), BALL_WID, BALL_HGT)<br />
            If BallX(I) < 0 Then<br />
                Collided = False<br />
                BallX(I) = 0 : BallDirX(I) = 1<br />
                'choose random color<br />
                MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
            ElseIf BallX(I) + BALL_WID > Me.ClientSize.Width Then<br />
                BallDirX(I) = -1<br />
                Collided = False<br />
                'choose random color<br />
                MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
            End If<br />
            If BallY(I) < 0 Then<br />
                Collided = False<br />
                BallY(I) = 0<br />
                BallDirY(I) = 1<br />
                'choose random color<br />
                MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
            ElseIf BallY(I) + BALL_HGT > Me.ClientSize.Height Then<br />
                Collided = False<br />
                BallDirY(I) = -1<br />
                'choose random color<br />
                MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
            End If<br />
            Dim Collid As Rectangle<br />
            Collid = Collid.Intersect(MyBat1, BallRct(MyBall))<br />
            If Not (Collid.IsEmpty) Then<br />
                BallDirX(MyBall) = 1<br />
                Beep()<br />
            End If<br />
        Next I<br />
        Me.Invalidate()<br />
    End Sub<br />
<br />
    Private Sub frmPong_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint<br />
        e.Graphics.Clear(Me.BackColor)<br />
<br />
        e.Graphics.FillEllipse(MyBrush, BallX(MyBall), BallY(MyBall), BALL_WID, BALL_HGT)<br />
<br />
        e.Graphics.FillRectangle(MyBrush, MyBat1)<br />
        e.Graphics.FillRectangle(MyBrush, MyBat2)<br />
    End Sub<br />
    Public Sub CheckCollision()<br />
<br />
    End Sub<br />
<br />
    Private Sub frmPong_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown<br />
        Select Case e.KeyCode<br />
            Case Keys.Up<br />
                MyBat1.Y -= 10<br />
            Case Keys.Down<br />
                MyBat1.Y += 10<br />
              <br />
        End Select<br />
    End Sub<br />
End Class

///Please use this function for MatchWithList
public static bool MatchWithList(ref ComboBox cmb, string cmbText)
{
    bool matchexists = false;

    int i = cmb.FindStringExact(cmbText);
    if (i != -1)
    {
        cmb.SelectedIndex = i;
        matchexists = true;
    }
    else
    {
        matchexists = false;
    }

    return matchexists;
}