this application for computing the gcd by using extended euclidean but it give me just the value for first iteration but i need the final values of x2 y2 a
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x1 As Integer
Dim x2 As Integer
Dim y1 As Integer
[code]....
this application for computing the gcd but it give me just the value for first iteration but i need the final values of x2 y2 a
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x1 As Integer
Dim x2 As Integer
Dim y1 As Integer
Dim y2 As Integer
[Code]...
phi(n) to any number in this code give me one?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Integer
n = CStr(TextBox1.Text)
[code]....
I am currently writing a code that prompts a user if they want to convert F to C or C to F, two functions with the calculations. My problem is my loop, it exits one time through and doesn't prompt again. And also doesn't display the final result.
' VB Script Document
option explicit
const menuBar = "Temperature Conversion"
Dim userPrompt, prompt, Temperature, toCelcius, toFahrenheit
prompt = vbOk
Do While prompt <> ""
[Code] .....
THis code extract a value from a table to a var...
Dim var_IES_fornecedores as double = 0
For Each dRow In ds.Tables("Tabelavalor").Rows
If dRow("numeroconta").Equals("221") Then
[CODE]...
This is the problem...the numbers after the period should be just 2 and not a lot of numbers...everythin wrong with the code?
I am creating a application in VB.net. I've just managed to get a mssql connection going with the many people on this forum. I am now trying to establish a connection with Sybase server/db. Upon entering the username and password from my application front end, I get the following message:
[Code]...
I am creating a application in VB.net. I've just managed to get a mssql connection going with the rom many people on this forum. I am now trying to establish a connection with Sybase server/db. Upon entering the username and password from my application front end, I get the following message:
View 1 RepliesI was trying to Validate characters (the extended ones) and i see that in various PC's they have in deferent places the extended characters. I meane we are not see the same ASCII code number for a certain character (not in Latins). Now My issue is what i have to do when my program starts to use always a certain ASCII code table? For extended character of course.
View 1 RepliesI have the following query:
Dim roommates = From p In dbroom.Residents _
Where p.room = queryStudent.First.r.id _
Where p.building = queryStudent.First.b.id _[co
de].....
But I still get the same error: The method 'First' can only be used as a final query operation. Consider using the method 'FirstOrDefault' in this instance instead.
Its finally done... post your impressions!Attached File(s) GH_Champion.zip (11.34K)Number of downloads: 35
View 7 RepliesPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click.[code]the program enters a number and display its factorial, our program has error, eg. if your going to input 7, the result would be {num1}5040.we are having difficulty in its result... the required output should be 1*2*3*4*5*6*7=5040
View 1 RepliesThe following code in C# gives result "228452386"
UInt32 a;
int k = 0;
a = 0x9E3779B9;
a += (UInt32)(url[k + 0] + (url[k + 1] << 8) + (url[k + 2] << 16) + (url[k + 3] << 24));
After above code is ran, "a" contains "228452386" But the following same code in VB.Net results in "Arithmetic operation resulted in an overflow". Basically the last statement is returning value "1868983913" so the runtime error is generated.
Dim a As UInt32
Dim k As Integer = 0
a = &H9E3779B9UI
a += CUInt(AscW(url(k + 0)) + (AscW(url(k + 1)) << 8) + (AscW(url(k + 2)) << 16) + (AscW(url(k + 3)) << 24))
note the variable "url" in above code could be any string and it is same for both codes.
EDIT:When I run the following statements in both C# and VB.Net than they both return same value
C#
(UInt32)(url[k + 0] + (url[k + 1] << 8) + (url[k + 2] << 16) + (url[k + 3] << 24))
VB.Net
CUInt(AscW(url(k + 0)) + (AscW(url(k + 1)) << 8) + (AscW(url(k + 2)) << 16) + (AscW(url(k + 3)) << 24))
Both statements return value "1868983913" for "url" "info:microsoft.com". But when I run complete statement with a += ..then VB.Net gives error while C# returns value "228452386".
As of right now I am getting no compile errors with my code, everything runs they way it is supposed to go except for one minor detail. I have a private function named MonthlyPayment() that does a calculation for a loan. The calculation runs as expected and I get the correct results by typing in Console.WriteLine(MonthlyPayment()) but it is not in currency format. To fix this I set FinPayment equal to MonthlyPayment [FinPayment = MonthlyPayment()] and typed in Console.WriteLine(FinPayment.ToString("C")), But this just gives me NaN as a result.
Here is my full code:
' The following code was created for McBride Financial Services to use to amoritize loans.
' This console code will calculate and display the monthly payment amount to fully amortize a loan.
' This console will prompt the user to input values for the loan amount, the term length, and the rate.
Module Module1
'Declares strings used for user input values
[Code] .....
I am trying to create an application for a wire company that sells spools of wire for $100 each. The normal delivery charge is $10 per spool. Rush delivery costs $15 per spool. The user should enter the number of spools ordered in a text box, and check Rush Delivery box if rush delivery is desired. When the Calculate Total button is clicked, an input box should appear asking the user to enter the number of spools currently in stock. If the user has ordered more spools than are in stock, a portion of the order is back-ordered. For example, if the user orders 200 spools and there are only 150 spools in stock, then 150 spools are ready to ship and 50 spools are back-ordered.
Attached is the code with comments on what each function is supposed to do. I dont know why but the form always returns zero.
'Declare variables
Public intNumberofSpools As Integer
Public intBackOrder As Integer
[CODE]....
I created this stored procedure.[code]Now, I want to get result set in vb.net by using ADO.net. How can I catch this.
View 2 RepliesHow do i execute this code in vs2008 visually with a result?
C#
struct Cycle {
int _val, _min, _max;
public Cycle(int min, int max)
[code]....
I have a stopwatch in my program. I start the stopwatch with the start button I created. When I stop it it gives the results of the time in a label that I have named labelTime. I have a Calculate button I have created. I also have a label I have named calcResult. I want to click the Calculate button and divide the stopwatch result (labelTime) by 60. I want the results of this calculation to be displayed in the label calcResult. I keep getting errors saying labelTime is a string value. I believe I will need my calcResult to be a Decimal.
View 20 RepliesIs there a proper code to export oracle query result to csv file? I want to save more than 3 million of records
View 1 RepliesI am trying to format a Function Code so that it returns a 4 digit result no matter the entry by the user (i.e. they enter 540, stores 0540 in the database). While looking online, I've found the format function, but when I use it, it returns 540, regardless if I enter 540 or 0540. [Code]
View 2 RepliesI am using a background worker, it runs fine but it does not shows the result. i am using jmcilhinney source to work it out.. have a look.
VB Imports System.ComponentModelImports System.Text.RegularExpressionsImports System.NetImports System.IO Public Class WorkDialogue Private _result As Long = 0L Public ReadOnly Property Result() As Long Get Return Me._result End Get End Property Private Sub
[CODE]...
And the button codding in other form:
VB Using dialogue As New WorkDialogue dialogue.ShowDialog()TextBox2.Text = dialogue.Result.ToString() End Using
I'm trying to serialize a LINQ result in this way:
Private Sub btnXML_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnXML.Click
Try
[Code].....
What I need to do, is to call a SQL stored procedure from VB.NET, and then store the returned query value in a string.
View 13 Repliesadd a code to handle the TextChanged event of my Textboxes to clear the Result box.
Private Sub btnCalculate_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
txtResult.Text = txtRate.Text / 100 * txtAmount.Text * txtYears.Text
End Sub
[code]....
I was trying to edit a excel document and save under different name and my coding for this is as follows.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Open
[Code]....
While debugging the code it resulting with me an error message asPublic member 'SaveAs' on type 'ApplicationClass' not found.
I've been programming a game recently and didn't want to make 99 weapons manually. I've tried making a loop do this for me. I've got the loop working, everything is perfect. But when I run the program and list all the Weapon(x).Name [x being any value between 0 & 99] they are all identical... HOWEVER. If I single step through the code it lists all the names from 0 to 99 perfectly fine. Why is it that single stepping through it produces what I want?
Private Sub CreateWeaponList()
Dim StatName(4) As String 'Creating 4 pre-made names for weapons
Dim WeaponName(4), RandomWeaponName As String 'Creating 4 more pre-made names for weapons
For x = 0 To 32
Weapons(x).Type = "Sword"
[Code] .....
Background: I wrote code that will output all the currently logged in User's Active Directory group names. I want the group name (ex: Acomp_user_BIG) via IdentityReference.Translate instead of the current user's SID's (ex: S-1-5-32-544) returned via IdentityReference.Value.
Here is code that I used:
Public ReadOnly Property Groups As IdentityReferenceCollection
Get
Dim irc As IdentityReferenceCollection
[Code].....
Due to this error I am getting a default date 1/1/1900. Variable 'dr' and 'dr1' is used before it has been assigned a value. Here's the code:-
[Code]...
I am currently having a headache on how to solve this problem that i am facing. here is the situation: I have a combobox and a list box on the main form. The combobox will get the data from the ms access database. In the database, i have the details of a person's IC, Name and DOB say for eg on one entry I have D215311523C,SHAWN,13/04/1987 So now, my combobox on form load will show the list of dates in the database to allow the user to search base on the date itself by clicking on the selected date. So when the user clicks on the particular date say 13/04/1987, people in the database whose birthday is 13/04/1987 will be shown on the listbox.Meaning to say if i have 3 entries whose dates are the same 13/04/1987, 3 entries will appear. If there is only two entry, then two results will be shown. But now, when i do a single click on the date, one result will be shown. That is correct. But the problem is when i click on the same date again, three of the same results will be shown on the list box. that is it will display : 13/04/1987 13/04/1987 13/04/1987 which is not the case. Then it will show more duplicates of the same results if i click more times on the same date which should not be the case.
Dim n As Integer
Dim numbers() As Integer
Dim StartFrom As Integer
Dim EndAt As Integer
[code].....
I am using a datagrid in my where i am having four columns. In first column the parameter values are entered and in the second column measured value is entered and in third column the nominal value is entered.Inthe fourth column the result is displayed by subtracting the measured value and nominal values. I am doing this calculation in Datagrid cell validated event. What i want is,there will be many rows in the grid,when typing the value in the third column the corresponding result will be displayedin the rowof theresult column,save button will be displayed while the form loads,when the calculate part is completed that is there should not any cell of the resut column empty then i should enable the save butto.
View 2 RepliesI am encountering the following issue So i have a device that sends stuff at the serial port, i then parse it and put it into an array of bytes like that:
Dim HCI_Command_Rcvd_Byte() As Byte All good till here What i wanna do is make an array and put this result every time the serial port gives me a new result, for example:
[Code]...
Basically what i wanna do is let the port parse the messages, fill in the array with the result at an empty spot in this array and then i will have a separate thread that will look in into this array in each non empty space and after it looks into the non empty space it will use or discard the info and also mark this space as empty (after it checked)