Way To Do Collisions From All Angles
Aug 19, 2009
Well I attempted collision detection and it was only ok. First of all only the out of bounds place would work because I just made the right side of the screen make you go left etc.My moving button also goes outside of the area for a brief second before it teleports back to the bounds + 3 or w/e.Never mind all of that I guess.Could someone give me some source code for the simplest way to do collisions from all angles (like a zelda game or something...) or just up/down or left/right (like in pong).
View 1 Replies
ADVERTISEMENT
Dec 20, 2009
i am trying to make a game in vb.net and so far have managed to create a sprite which is animated on key event. the only problem is it able to walk off the form out of site. i want to be able to create some sort of boundary so that when sprite position equals greater or smaller then the form width it can no longer walk in that direction, the same goes for the hight. i have tryed this myself like this
[Code]...
View 2 Replies
Aug 1, 2010
Ok I am making an RPG that is checking for collisions whenever the user is walking...Basically i made an array of points in which the user is not allowed to access and if they do try to access them it will not walk...
Public Class cityshop2010
Dim abletomove As Boolean = True
Dim moveto As Point
Dim badpoints(1) As Point
[code]....
with that code there I want to be able to say badpoints(0-50) or badpoints (0 to 50) whatever... or even badpoints(*) for any badpoint....How do i make it check all the badpoints?
View 2 Replies
Nov 9, 2009
How can i calculate the angles of a triangle, where i have the lengths in cm of all 3 sides?
heres an example where i already know the angles. i know its a sin, cos or tan formula, but nothing i've tried works.
View 14 Replies
Jan 19, 2012
I have got the code to draw the line at the angle. the issue is that I need 0 degrees to be the right hand side and not the top.[code]
View 37 Replies
Mar 9, 2011
I followed this tutorial [URL] in creating a pong game in VB NET, everything worked well as followed but believe there is still more development that needs to be done to it, for example if the ball is moving horizontally in a straight line, it will just re-bound of the paddles in the same angle everytime which means there is no point to the game. When the game starts moving the ball at a random angle and the ball re-bounds of either paddles, it will re-bound in the same angle it started with each time.
Pointed out what code this is:
Dim random As New Random() ' Random instance
Dim xVel As Single = Math.Cos(random.Next(6, 8)) * speed ' Move ball from randomized angle in X-axis
Dim yVel As Single = Math.Sin(random.Next(6, 8)) * speed ' Move ball from randomized angle in Y-axis
[code]....
If the ball hits the top of the paddle object, it should re-bound at a different angle How it should be is when the ball hits the paddle object, it should re-bound at a different angle, if it intersects at the top of the paddle, it should re-bound up or bottom of paddler should re-bound down.
View 4 Replies
May 24, 2010
Here's the code i'm using to rotate:
Dim m As New System.Drawing.Drawing2D.Matrix
Dim size = image.Size
m.RotateAt(degreeAngle, New PointF(CSng(size.Width / 2), CSng(size.Height / 2)))
Dim temp As New Bitmap(600, 600, Imaging.PixelFormat.Format32bppPArgb)
Dim g As Graphics = Graphics.FromImage(temp)
g.Transform = m
g.DrawImage(image, 0, 0)
(1) Disposals removed for brevity.
(2) I test the code with a 200 x 200 rectangle.
(3) Size 600,600 it just an arbitrary large value that I know will fit the right and bottom sides of the rotated image for testing purposes.
(4) I know, with this code, the top and left edges will be clipped because I'm not transforming the orgin after the rotate.
The problem only occurs at certain angles:
(1) At 90, the right hand edge disappears completely.
(2) At 180, the right and bottom edges are there, but very faded.
(3) At 270, the bottom edge disappears completely.
Is this a known bug?If I manually rotate the corners an draw the image by specifying an output rectangle, I don't get the same problem - though it is slightly slower than using RotateAt.
View 1 Replies
Apr 5, 2011
I'm working on a Pythagorean Theorem program that calculates the sides and angles of a right triangle. I have the side measurements and all that down, but I can't find the Visual Basic function that will allow me to calculate the angles from the side measurements. I've tried asin and sinh, but both give me the wrong measure.
View 2 Replies
May 9, 2012
I need a Function or section of code that finds the angle of a lineShape. Alternitively, a code to find the angle between two set coordinates would also work. I need to know the angle in order for my program to work properly. I'm using VB Express 2010.
View 2 Replies
Aug 20, 2010
Im making a little game. All it does is make a bunch of Random Letters. Move around the screen. Im drawing to the form with paint. But i wanted to make it. So you have to click the letter that my program ask's you to click. I know there is easy ways of doing this. Like just getting the x,y and the mouse x,y on the click event. But i was wondering. If i could accomplish this task. Just by Scanning about 10x10 pixels from where the mouse down event is triggerd. to see if a letter is there. And how i could make it see if it is an A or B etc. The font is white. And about this size. I was thinking about it counting all the white pixel's but that wouldn't work?
View 3 Replies
Jan 15, 2011
I dont even know if you can do this in vb.net but, how do you change the pictureboxes x2 y2 to tilt some degrees other than 90 degree angles?
View 2 Replies
Mar 31, 2009
I'm making a game engine, its coming along pretty nicely, but I'm having trouble with collision detection.. This will be a platform game..I'm using GDI+ for my rendering.My rendering engine, basically draws upon a sprite class I wrote, this class is getting pumped into a collection, then I'm using a for loop to draw the images in the collection..
Code: Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Try For i As Integer = 1 To SCollection.Count Step 1 Dim Image As New Bitmap(DirectCast(SCollection.Item(i), clsSprite).Filename)
[Code]...
View 13 Replies
