|
I find answer! Because I had been defined three of variable as Single.
However this variables were small but when I change those to Double this problem solved.
Dim t, u, v As Single -------->Dim t, u, v As Double
Sorry
|
|
|
|
|
Using the Double datatype does not "solve" the problem. It mearly masks it. It still has the same problem as the Single type. Google and read up on "IEEE 754" and "IEEE 854" to understand how number representation works in computers and why you're getting the results you are.
|
|
|
|
|
Hmm. In this case I think single/double is the root cause; the OP complained about the numbers his code produced (which displayed some 16 digits of which obviously only 7 or so were correct). He wasn't really worried about the very last digit (yet).
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
Local announcement (Antwerp region): Lange Wapper? Neen!
|
|
|
|
|
i want to insert some values "from visual basic into one m-file in matlab" then run another m-file from visual basic that will get benefit from the first m-file with the inserted values. i really would apprecitae any help. this is what i wrote so far in visual basic:
Dim Matlab As Object
Dim Result As String
Dim MReal (0,3) As Double
Dim MImag() As Double
Set Matlab = createObject("Matlab.Application")
' here where i saved the two m-files
Result = Matlab.Excute("C:\Porgram Files\MATLAB71\work")
'this is the second m-file which i want to run
Result = Matlab.Excute("solvingnle")
Call Matlab.GetFullMatrix("X", "base", MReal, MImag)
'here where i will show the result of my m-file, each result of the matrix seperate
Text1.Text = MReal(0, 0)
Text2.Text = MReal(0, 1)
Text3.Text = MReal(0, 2)
Text4.Text = MReal(0, 3)
End Sub
|
|
|
|
|
I'm building a dataset by querying several different Oracle tables with the same query.
I want to output the dataset to an Excel file with a separate heading for the results from each Oracle table.
To do this, so far I've added a 'Heading" column to the datatable, but I can't figure out how to fill that column to identify the datarows that came from each Oracle table.
If anyone can shed some light on this it would be appreciated.
For i = 0 To 3
Try
CN = New OracleConnection("Data Source=xe;User Id=" & Username(i) & ";Password=" & Password(i))
'create the dataadapter object
Dim adp As New OracleDataAdapter(SQL(i), CN)
adp.Fill(ds)
If i = 0 Then
ds.Tables(0).Columns.Add("Headings")
End If
|
|
|
|
|
I don't think that you need to add a 'Headings' column.
A DataSet has a Tables collection, each DataTable in that collection has a TableName property. so that is accessible by iterating over the Tables collection.
Each DataTable has a Columns collection which is a collection of DataColumns, each of which has a ColumnName property.
So iterate over the Tables collection and for each DataTable returned iterate over its Columns collection. For each DataColumn, get its ColumnName.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Hi. Thanks for your input.
I'm iterating through a list of users of an Oracle database and running the same query on each. I create a new Oracle dataadapter for each user.
I would have thought that VB would fill a separate table with each user's query results. For some reason it's putting them all in the same table: Table(0).
It would be much easier to handle things if they did go into separate tables, but I can't see how to do this. Do you have any suggestions?
Thanks again.
|
|
|
|
|
Without seeing your code, it is difficult to be certain, and I am also not familiar with Oracle from a .Net point of view.
But if you are iterating a user list, it should be possible to create a new Table on each loop and have the query results added to that Table which then gets added to the DataSet.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Creating a new table for each user in your list would be exceedingly tedious to manage and also adds a lot of weight to your data in memory. DataTables are not light-weight objects. So, if you have thousands of users, you're going to consuming vast amounts of memory, needlessly.
From your limited description, it sounds like you have a serious design flaw in your data model.
|
|
|
|
|
Hello to All,
I am creating file with .ttg extenction. And i want to open those files with my application(Default) by using programming.
So how can i do that?
Thanks for help
If you can think then I Can.
|
|
|
|
|
look here[^]
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
I am a beginner in VB.
I am creating a Window Application. I want to authenticate it with username and password, on first screen.
How can it be done?
Thank You.
|
|
|
|
|
|
Andy, you're such a gentle, helpful soul, I do beleive the OP univoted you, probably because you did not snd codz. Have a balancer.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Mycroft Holmes wrote: Have a balancer.
And another.
I have a growing suspicion that word is out in certain areas that Code Project is better and faster than Google.
|
|
|
|
|
I want to make an application that when I'm with the mouse on it ... it sets the opacity to 100 ... and when the mouse is .. outside the form.. it sets the opacity to 50
THE PROBLEM IS that the code...is working when the mouse is over the content of the form... it does not include the border of the form or the form controlbox(min,max,close) ... don't know why 
I've managed to make something like that with a timer set to 100 and with this piece of code:
If Cursor.Position.X >= Me.Left And Cursor.Position.X <= Me.Right Then
If Cursor.Position.Y >= Me.Top And Cursor.Position.Y <= Me.Bottom Then
mouseover = True
Else
mouseover = False
End If
Else
mouseover = False
End If
Please help with an idea .. Thanks
|
|
|
|
|
That's because those events only fire inside the client area of the form. What you area referring to is the non-client area, borders and titlebar. There are no events for those areas.
You'd have to override the forms WndProc and capture the window messages, like WM_NCHITTEST, directly to to see if the mouse is over those areas. If so, you just fire your own custom events if you want, or make calls directly to some method, depending on what you need to do.
|
|
|
|
|
Thank you very much for your answer! I've done it  and also I've just learned something new
The code for doing that is:
Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
Dim WM_NCHITTEST = &H84
If m.Msg = WM_NCHITTEST Then
MsgBox("mouse is over")
End If
End Sub
Thanks!
|
|
|
|
|
I am reading from a text file and inserting a line "REF*LU*" at various stages in my text file. The ending textfile is in UNIcode/Little Endian; how do i convert this to ASCII? See my code below
Dim newString As New StringBuilder<br />
newString.Append(My.Computer.FileSystem.ReadAllText(FileName))<br />
newString.Replace(oldISAGS, newISAGS)<br />
newString.Replace(myString, myString & vbNewLine & "REF*LU*" & refNum & "~")<br />
newString.Replace(myString2, myString2 & vbNewLine & "REF*LU*" & refNum & "~")<br />
My.Computer.FileSystem.WriteAllText(FileName, newString.ToString, False)
Thanks.
|
|
|
|
|
1.
My.Computer.FileSystem.WriteAllText, without an explicit Encoding, creates a UTF-8, not a Unicode, file; the documentation says:
"When no encoding is specified, UTF-8 is used. The byte order mark (BOM) for the encoding is written to the file unless you specify Encoding.Default, which uses the system's current ANSI code page..."
If you don't want a BOM, use Encoding.Default; or use File.WriteAllText which works without BOM by default.
2.
why do you use a StringBuilder here? I don't think it will be faster than similar string operations in this app, as all you do are global operations, not a long sequence of appends.
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
Local announcement (Antwerp region): Lange Wapper? Neen!
|
|
|
|
|
Luc,
Thanks for your comments.
I used StringBuilder at the time on the fly when this was a simplier applet; it still works well for the intended use. But I agreed that one day I should clean it up and use more global codes instead of a series of appends.
Can you give me a sample of where in the code and how I should use the encoding.ASCII?
|
|
|
|
|
IvanIT wrote: Can you give me ...
I could, but I'm not going to.
I explained two ways to solve your problem, now use the documentation to figure out the details. Don't be lazy, and learn.
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
Local announcement (Antwerp region): Lange Wapper? Neen!
|
|
|
|
|
Thanks anyway Luc. no laziness here; just a little green and under pressure to get it done ASAP. I will do my homework. Regards.
|
|
|
|
|
That's OK then.
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
Local announcement (Antwerp region): Lange Wapper? Neen!
|
|
|
|
|
Just to close the loop on this. I got my solution with the codes below. Luc, I did my homework over the weekend. Thanks for the pointer.
<br />
'ASCII encoding<br />
Dim bteCode() As Byte<br />
bteCode = Encoding.ASCII.GetBytes(Me.lblClaimsFile.Text)<br />
<br />
My.Computer.FileSystem.WriteAllText(FileName, newString.ToString, False, Encoding.ASCII)<br />
<br />
MessageBox.Show("End of Translation ... Adios!")<br />
IT.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
) 