I'm still learning visual basic and I'm kind of stuck. I'm getting the wrong output when I test my data. I'm trying to sum array data and get an average from it. When I print out the average it's way above what it should be. When I enter these numbers 32500, 23000, 38210 I should get an average of 31236.67 but the number I get as the average is 46855.
[Code]...
I put comments on the average output since I kept getting error messages about that. My out keeps saying:
Maximum value: 33
Minimum value: 33
what am I doing wrong?
Option Explicit On
Option Strict On
[Code]...
i am trying to get the average of an array of numbers. There could be up to 999 indexes (I picked a large array because of the the numbers of entries the array could have). As you can see I have managed to get the program to calculate the Sum of the in the array, but I am struggling with getting the average.Say, for example, I enter three sets of 90's, I get 3. How do I get an average?(BTW I have programmed it so the numbers go into an List Box, so this is why you see no code to make up the array or to where the array is printing the values).
Dim Sum As Integer
Dim SumCount As Integer
Dim AverageCount As Integer
[code].....
i'm working on something to get the average color from an image and the code i have puts all the rgb values into a byte array, so the values are being stored as (r,g,b,r,g,b,r,g,b,r,g,b,r,g,b,etc). how would i loop through each r value to add them to another array to then be able to calculate the average (and so forth for g and b as well).
View 4 Repliestrying to give an average of an array in VB MVS2008. I tried using a sample code online but the averages it gives me are completely off. If I enter three ages (20) it gives me an average of 0.6, instead of 20. Here's the code:
Spoiler
Public Class Form1
Dim Names(100) As String
Dim Ages(100) As Integer
[code]....
My assignment was to compute design a {Loop, Array } that user inputs grades and calculates the average, Im stuck on the part of computing avg but i
Module Module1
Sub Main()
'Declare Array called Grades with 4 Elements
[code].....
i created an array of 100 cells, and the user inputs the value into them now i have to find the average of the array but not all of the cells are used how do i go to the last value, instead of the last cell? [code]
View 1 RepliesOK, so I've been given an assignment due for Monday, which was to create a console program which allows the user to enter an unknown quantity of numbers, then have the Mean, Median and Mode averages displayed of said group of numbers.
So far I've managed to get the Mean and Median to work, for both odd and even quantities of variables. I am however stuck on getting it to calculate the modal average! I don't really know how to approach this, would a structure with two fields, variable and quantity of variable, work?
Below is the code, I haven't made it display discrete of continuous data yet, I'm leaving that for the end.
Module Module1
Sub Main()
Start:
'Declare Variables
[Code].....
I imagine this is quite elementary for most of you, I unfortunately received no replies what-so-ever to my last thread...
PS: Why isn't there an option for UK in the two letter country codes?
I was working on some code in VB.NET 2008 and somehow got a bunch of new functions to pop up in intellisense on a datarow array. I saw find, findfirst, sort, average, and lots more. They had an icon next to them in intellisense when I saw them. Then I went and changed some of the code and now I can't get them to come back. I have used 2005 and 2003 for a long time, but still pretty new to 2008.
View 1 RepliesI'm working with an API, for this I'm using this particular call: [URL]
If i use this, I will get all the .price values:
For i = 0 To .bets.Length - 1
With .bets(i)
Print(.price)
End With
Next
Can I calc the average .price value? I will need to sum all the values as well.
I want to include an average in a column where the average ignores zero values in a report cell where the column may have
17
19
0
[code].....
I want 16, not 11 so (17 + 19 + 12 + 13 + 19) / 5 not (17 + 19 + 0 + 0 + 12 + 13 + 19) / 7 Something like this if it would work.
=SUM(Fields!fieldname.Value) / Count(iif(Fields!count_cycle_per_hour.Value >= 0,Fields!fieldname.Value,0))
Essentially just average everything in the column NOT a zero?
"I need to create a program that will allow the user to enter in 10 test grades from a class. I need to store these grades into an array, and use a loop to add up the total. Then I'll need to output the average, and the letter grade for the average using:
90 - 100 A
80 - 89 B
70 - 79 C
60 - 69 D
Below 60 F"
That's all it needs to do. Here is some code that shows you that the only thing I know how to do is (allow the user to enter in 10 test grades from a class.) The rest I'm so lost on and have a crappy instructor. This assignment is due tomorrow, but the instructor is not available over the weekend.
Here is my This is all I have:
Dim MyNumbers(9) As Integer
Dim Total As Integer
Dim i As Integer
[Code]....
I'm working on a function to return a exponential average and there are a lot of examples of exponential moving averages but they all start with a moving average that is just the mean as a lead in to calculating the continuing moving average. I needed just a exponential average of a value set. After Googling my Bing off I still haven't seen anything so here is my attempt at a basic exponential average. Is this correct? Are there any errors? I have seen some text about adding a smoothing value to change the curve of the exponential average but not how that would be implemented.
[Code]...
I am trying to program a noise reduction algorithm that works with a set of datapoints in a VB.NET DataTable after being helped with my other question. Basically, I want to take two integers, a coordinate value (yCoord for example) and a threshold smoothing value (NoiseThresh), and take the average of the values in the range of (yCoord - NoiseThresh, yCoord + NoiseThresh) and store that number into an array. I'd repeat that process for each column (in this example) and end up with a one-dimensional array of average values. My questions are:
1) Did anything I just say make any sense ;), and
2) Can anyone help me with the code? I've got very little experience working with databases.
[Code]...
I'm in a computer science class, and we are writing simple programs using Visual Basic 2008. I am really inept when it comes to this, as I have never done it before. I need to write a program that: "Asks the user for 5 numbers and computes the average. It then displays the average with an appropriate message before the average."
I have been really close with this, but I can't get the numbers to add up, then divide by 5, and display a pop up message.
Below is my code. I have a system that provides me voltage readings that changes based on a timer (interval of 300 milliseconds). I want to compile voltage readings for over 5 seconds (but I need the timer reading to remain at 300 ms) and then spit out an average of the THAT data. How do I do this? I was thinking of using datasetvalue but wasn't sure.
Public Class Form1
Private Daqboard As MccDaq.MccBoard = New MccDaq.MccBoard(0)
Private RangeSelected As MccDaq.Range = MccDaq.Range.Bip5Volts
Dim ULStat As MccDaq.ErrorInfo
Dim Channel As Integer = 0, DataValue As System.UInt16, EngVolts As Single
[Code] .....
I have a text file that the first part of my program writes data to, but for this second section, I need to read that file and use pieces of that data and average them out. The text file is setup up with 90 lines of data starting with the first 9 lines containing data and the 10th is a blank space. I need to read line 6, 8, and 9. I need to Loop through the file so I am using the Do While Loop. Where I am confused is when using the For...Next Loop to tell the program to read a specific line. If you have any info that can lead me to the answer that would be great. I would prefer you just point me in the right direction because I would very much like to somewhat figure it out in the process.
View 2 RepliesI'm trying to calculate the average hours worked from a set of data imported from a text file using streamreader. My problem is counting the number of entries and the total hours worked imported from a text file within a loop[.
[Code]...
I'm trying to sort an array based on a structure but whenever I do this, it basically erases all the data in the entire array.I have verified that the array is populated correctly, it is when using array.sort that everything returns blank.
View 6 RepliesI want to reading in a excel file and extract the sCodenumber sDescription ans the sStatus and store them in a array : StatusComposeArray(5200) As MyCompose. After this I need this array for comparing outside this class. But as can you see the array is defined inside the sub: ReadingIn_ExcelFilesCompose [Code]
View 2 Repliesi have an array contains a-z.Then i have a textbox and when click on the button, it will replace the text inside the textbox to the index number of the array.Example, from "abc" will become "0 1 2" The code below do the job.how to do so that i can replace the text inside the textbox from "0 1 2" back to "abc" based on the array?
Dim txtKey As String = readKeyTxt.Text
readKeyTxt.Text = ""
For Each b As String In txtKey[code].....
Here's the data I'm trying to work with
Spark Plugs
column 1: PR214,PR223,PR224,PR246,PR247,PR248,PR324,PR326,PR444
Brands:
column 2: MR43T,R43,R43N,R46N,R46TS,R46TX,S46,SR46E,47L
column 3: RBL8,RJ6,RN4,RN8,RBL17Y,RBL12-6,J11,XEJ8,H12
column 4L 14K22,14K24,14K30,14K32,14K33,14K35,14K38,14K40,14K44
Here is what i came up with for my code so far
Public Class frmMain
Private strSpark() As String = {"PR214","PR223","PR224","PR246","PR247","PR248","PR324", "PR326","PR444"}
Private strBrands As String(,) = { { } }
End Class
how to parse SQL Text with VB.NET?
Ex: I got a sql file "CREATE TABLE..." i want to get an array of columns and an array of data types.
Ypos = TopMargin + Count * PrintFont.GetHeight(ev.Graphics)
ev.Graphics.DrawString(ROData(x, 3), PrintFont, Brushes.Black, LeftMargin, Ypos, New StringFormat())
Count = Count + CInt(ROData(x, 4))
The above line prints the data contents of the ROData array in position three. I would like to be able to assign a specific position accross the line to have the printer print the data at without left padding the array data.
I am trying to write a thread safe application that contains 3 threads : -
1 - Data acquisition and decoding
2- Data graphing
3 - FFT and filtering
Thread 1 is collecting bytes from the serial port and converting them int integers (so taking two bytes) after is has captured 64 Bytes and converted into 32 integers, it then needs to pass the array to the graphing thread.
The graphing thread then plots the data and waits for more data.
Thread 3 also waits until thread one has collected 2023 integers and takes these and performs some FFT calculations (which take time).
My question is how do i share the arrays between the three threads without deadlocking the program? as the serial thread will be flying around reasonable fast (1000 bytes per second) so it will synclock onto the shared buffers for most of the time.
Originally i was going to use two synchronised queues, so when thread 1 has collected 32 bytes it queues the data into the graph queue, and once it has collected 2023 it queues the data into the FFT queue.
Then thread 2 and 3 can simple dequeue the data.
However using queues has the overhead of casting the data in and out, and as i know the data type i was planning on using two arrays :-
Dim GraphArray() as ushort
Dim FFTArray() as ushort
Then Thread 1 adds data to each thread, and thread 2 and 3 simple wait until the correct amount of data is available before removing the data. my question is there an array type that allows me to remove x amount of data from an array?
Because i cannot do this easily with the ararys defined as above (GraphArray, FFTArray), as i was planning on making them 1mByte and allowing thread 1 to fill them Knowing they should never overflow and then let thread 2 and 3 remove x amout of bytes at a time unless there is a better way of doing it
Data binding should be an extremely simple thing to manage but I can't find a SIMPLE solution to the following problem.
I have two forms
Form1 contains a 4x4 MSFlexGrid (unfortunately an unmanaged COM object but I can merge cells, which I can't do with a managed Datagrid)
Form2 contains other controls which change the data in the Flexgrid.
I connect the two with a Public 4x4 array. Form2 changes the data in this array. I can update the grid data by reading the array. But how do I bind the Grid to the array so that it auto-updates - which is the whole point of binding isn't it?
In order to re-sort the data received in USB easier, I send the data array received in USB (declared as Byte) to a temporary array (declared as SByte) to re-sort. I declared the temporary array as SByte just for easy sorting. After I compiled, an error message came up "make sure not divided by zero". I tried to use convert.SByte but still didn't help. Is it not allowed to send data to an array with different data type declaration?
View 1 RepliesI have a question regarding average and max values. I am new at programming. I have 6 text boxes with generated numbers in them. I need the max number to show up in one text box and the average to show up in the other.Sometimes not all six boxes will be used so I can't just do textbox1 + textbox2 + textbox3 + textbox4 +textbox5 + textbox6 /6 = average and as for max I have no clue how to do that.
View 4 Repliesi need it urgently for this code. i have data input to richtextbox and i want to average up the data? how to do this?
View 6 RepliesHeres my code so far:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Subject As Integer
Subject = InputBox("How many products")
[code]...
Only "0" appears in the TextBox2 and not the average number.