VS 2010 Lines From Angles
Jan 19, 2012I 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 RepliesI 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 RepliesWell 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 RepliesHow 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.
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.
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.
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 RepliesI 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 RepliesIm 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 RepliesI 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 RepliesIf I have a textbox, and I have this for example:[code]Now, how do I put a check, to check if there's a free line between the text, do the text adding, if not, send a msgbox?
View 5 RepliesQuote:This is my first code lineThen I want to add a delay hereThis is my second code lineI want it to first process the first line, then make a delay before processing the secondline, then it will process the second line.
View 9 RepliesHow to find Lines of Code in VS 2010?
View 7 RepliesI need to read lines from file. Now my code is like this:
Sub data()
Dim reader As New IO.StreamReader("log.txt")
For i = 0 To 1500
date(i) = reader.ReadLine
Next i
End Sub
Now if some user will change add or remove the data from this file, it will end up with error or sth. I also tried to write sth like this:
Open "C:in.txt" For Input As intInFile
But there appears an error, that open is not declared and IO functionality is microsoft.visualbasic namespace. I added this name space (at the top: Imports Microsoft.VisualBasic), but this error still occurs.
I have a windows form with a textbox and a button, what I am trying to do is enter a number in the textbox and when clicked on the button to cut and paste the data in to a new text file (from number 0 to the number I entered).ie, textfile 1 has 100 lines of data, I enter 25 and press OK I would like to take the first 25 lines and save them into a new text file and save the remaining lines in textfile 1 so it should be like textfile1 75 lines and textfile2 25 lines.The closest I've come to this is the following but this only deletes the one line..[code]
View 3 RepliesI have two text files and each text file has various columns (each column is separated by a tab " "), now some of the fields in column1 text file2 match the fields in column1 text file1. What I'm trying to achieve is to remove every row in text file 1 where the field in column1 matches the field in column 1 textfile 2 - is this possible?I have used some basic coding in the past to remove certain lines, but nothing as complex as this.
Dim linesList As New List(Of String)(File.ReadAllLines("Path"))
linesList.RemoveAt(1)
File.WriteAllLines("Path", linesList.ToArray())
I have a multiline textbox where I sometimes get the first and last line of data that is blank.
This is my code that populates the textbox:
txtOutput.Lines = lines.ToArray How can I remove these blank rows?
Im trying to truncate lines in a .txt file from 19chars to 13chars. Then copy the .txt file to another location and rename the extension to .lst. As below... Iam having issue with getting it to write the truncated number to the new txt file. Its some how returning a Null referance & i cant work out why??
Imports System.IO
Public Class Form1
Sub ProcessFile(ByVal SourceFile As String, ByVal DestFile As String)
[code].....
everytime i try the space then underscore + enter it doesnt work and it lights up red edit - like for example this is a comment:'you must add such and such to this variable and then you must declare it' say i have that for a comment and i want to break the comment after variable. when i do this 'you must add such and such to this variable
View 2 RepliesI use the following coding to replace a word in my textfile, would it be possible to add any coding that will remove all blank lines from the same text file?
Dim EditMyFile As String = IO.Path.Combine("D:Test.txt")
Dim inputFile = Regex.Replace(IO.File.ReadAllText(EditMyFile), "test", "test2")
IO.File.WriteAllText(EditMyFile, inputFile)
I have tried the following but it doesnt work.
Dim EditMyFile As String = IO.Path.Combine("D:Test.txt")
Dim inputFile = Regex.Replace(IO.File.ReadAllText(EditMyFile), "test", "test2")
IO.File.WriteAllText(EditMyFile, inputFile)
Dim sText As String = File.ReadAllText("D:Test.txt")
Dim sNewLines() As String = sText.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
File.WriteAllLines("D:Test.txt", sNewLines)
I want to put a function that reads a text file and put it in textbox1. I used this code to read the last line
Textbox1.text = Io.file.readalllines("C:c.txt").last
but I want it to read the third line.
I want to create a little program with textboxes in it, that writes the contents of these textboxes to a file. It also needs to write some predefined lines to the files, even on the same line as where the contents of the textbox is.
Heres an example:
The file should look like this when you open it in notepad:
^1::
Send t Text from TextBox {Enter}
First I think I would need to do this:
Dim ioFile As New StreamWriter("scripting.ahk")
ioFile.WriteLine("^1::")
If I do the above it works.. But how can I write another line where the "Send t" and "{Enter}" gets written automaticly before and after the contents from the Textbox?
I have a text file with user names in them on separate lines. I want to check to see if any of the lines doesn't match the exact text im checking for. It doesn't matter what line the text is on, as long as it is in there. If it's not, alert me. Previously i tried .contains() but obviously if a user name is "hello" and another's is "helloworld" it will match both of them.So basically i need to read all the lines in the txt file and if none of them lines contains the specific text im looking for then alert me. [code]
View 5 RepliesI am having a bit of trouble on how to do a simple compare of two textboxes.In first textbox i have lines with values (mostly http links) In the second textbox i have lines also with links I want to compare every line in textbox1 with every line in textbox2.i would prefer TextBox1 to stay textbox but textbox2 can be a listbox or anything else.
VB For Each line In Me.TextBox1.Lines If line.Equals("i need to have every item from textbox2 here", StringComparison.CurrentCultureIgnoreCase) Then End If Next
I have the following code to read a csv file and copy each line to another file as long as it does not contain certain strings, it seems to work a little but it leaves some lines in it shouldn't, and it's also taking lines out it shouldn't as if I keep running it again on each output file it eventually takes everything out!
Private Sub Strip_File()
Microsoft.VisualBasic.FileOpen(1, tFile.Text, OpenMode.Input, OpenAccess.Read)
Microsoft.VisualBasic.FileOpen(2, "C:AcmeIPPMaster.csv", OpenMode.Append, OpenAccess.ReadWrite)
[Code]....
Some of my users are collecting data files this size and wish to load it in to my tool. Is there a way to load large files of string data w/o getting a OutOfMemoryException? I have tried many different storage methods (Array, List, etc) but always without success.Before anyone asks 'why load it all at once', let me say the nature of my app is speed critical and it must be so.
View 3 Repliesas per title, I want specific lines in listbox as bold or with colours.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xyz() As Byte = {&H1B, &H0, &H10, &H1B, &H0}
ListBox1.Items.Add("XYZ: " & read_write_str(deviceHandle, xyz, xyz.Length))I get reply from device for i.e. 1234567890, I want this to be in BOLD or if I could add colours to it.
How do i can put more lines for specific information of regex?
...Regex("(?<=SOMETHING).+?(?=SOMETHING)")
Once again selected from RuneScape, because here is best code for it.
<tr class="row rowp4">
<td align="center">
<img class="miniimg" src="http://www.runescape.com/img/hiscores/skill_icon_strength1.gif">
</td>
[code]....
Here's what i've got so far, i've written all of the data that i'm going to put into my config file, however i'm having trouble reading the specific string values that I need from that ini file. The parts of the ini lines I want to get are the values in between the I've tried using streamreader a couple things but i'm having trouble figuring that out. I need to parse each line of the ini file to get that value in between the single quotations, so that I can set the value for my richtextbox background and text color as well as a few other things that i've set up in my notepad including tab spacing and so on. lots of these different values need to be converted from a string value to integers, and boolean values as well. (4 of them, the rest of them don't have to be changed because they are already string values when my application reads them to determine it's application load settings.
EDIT: I just noticed in the preview that this is from the version of the app where I had streamwriter write "______ value=" & Something to a file. lol some of the (')s are still in this version, so please excuse that little part. I had them in, but took them out so that I could trim data to get a value easier, but I want to use (')s hopefully when all is said and done.For example, just to restate what I want - in the ini file it will read [setting name] value='VALUE'I want to be able to "get" the string value of "VALUE" within the ini file between the 2 single quotations '
how to count the lines in textbox1.text (with multiplelines). I don't need to count each character. I only need to count each line from top to bottom in textbox1.text (multiplelines) and I will use Label1 to display the numbers.
example:
1-pauljaones
2-tommyperrry
3-marktoms
4-Jonessmith
5-paulwhite
Obviously this is 5 lines and that's what I need to count.
I have written a simple script to get a bunch of lines from a text file (they will be filenames eventually) which are split by new lines and puts each one into an array..
Dim ary() As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If My.Computer.FileSystem.FileExists("C:MenuFiles.txt") Then
[code]....
The only thing I can do for now is either use the substring function to remove the first character from all array values after 0 but I don't like that because it's messy and what if the split "works" as I want it to one one of the lines and knocks of the first character when I don't want it to.