Visual Basic

Henry Minute28-Oct-09 10:00

Henry Minute

28-Oct-09 10:00

This at least the third time I have seen you asking the same question. In all of them your code is unformatted and uncoloured. It is therefore very difficult to read, which cuts down on the number of people willing to try to plough through it in order to attempt to help you.

Edit your post (above), put a <pre> tag on the line above your code and a </pre> tag on the line after your code. Then put back the indentation so that people at least have a chance to read and understand it.

Have you tried Googling for this?

I googled on vb.net calculate standard deviation and I got loads of hits with fully working code examples. Why not try that yourself?

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.”

PAguilar0929-Oct-09 8:54

PAguilar09

29-Oct-09 8:54

thanks i got it working on my own, i saw what was wrong
and i will remember to post code correctly
next time.

thanks for your help and time

Henry Minute29-Oct-09 8:58

Henry Minute

29-Oct-09 8:58

Good stuff! Thumbs Up | :thumbsup:

Luc Pattyn28-Oct-09 10:41

Luc Pattyn

28-Oct-09 10:41

Henry is right, your code needs proper formatting.
Use PRE tags and you will probably be able to see what is wrong yourself.
Hint: your calculations are completely wrong.

Smile | :)

Luc Pattyn

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

Henry Minute28-Oct-09 10:44

Henry Minute

28-Oct-09 10:44

Luc,

Thank you for your support. I shall wear it always! Laugh | :laugh:

Luc Pattyn28-Oct-09 10:49

Luc Pattyn

28-Oct-09 10:49

You're welcome.
And don't you worry, there is a great deal of wear in it.

Smile | :)

Luc Pattyn

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

Christian Graus28-Oct-09 11:11

Christian Graus

28-Oct-09 11:11

You keep posting the same crappy code. I ask again, how is dividing the cumulative sum against the number of items what you want ? If you won't fix the most basic of poor decisions based on advice I've given you, then it seems like what you really want is for someone to do your homework for you. I suggest instead that you contact your teacher and tell them you are too dumb for their course.

OR you could try to actually learn programming. Break the task down into steps. Work it out on paper so your steps lead to the right answer. Step through in the debugger and work out at what point your code is not doing what you expect it to.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Paul Conrad28-Oct-09 11:54

Paul Conrad

28-Oct-09 11:54

Christian Graus wrote:
Break the task down into steps. Work it out on paper so your steps lead to the right answer. Step through in the debugger and work out at what point your code is not doing what you expect it to.

Excellent point.

Christian Graus wrote:
suggest instead that you contact your teacher and tell them you are too dumb for their course.

Another excellent point Laugh | :laugh:

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham

PAguilar0929-Oct-09 8:51

PAguilar09

29-Oct-09 8:51

i got it to work on my own, didnt need ur help but thanks and God bless

hope that you dnt treat all users the way you
disrespected me.

Paul Conrad28-Oct-09 11:56

Paul Conrad

28-Oct-09 11:56

Reformat your code so it is easier to read (use

code block

tag) that aside, relook through the steps you are taking to solve the problem. You do have calculation mistakes and leaving it as an exercise for you to find.

PAguilar0929-Oct-09 8:47

PAguilar09

29-Oct-09 8:47

thanks i will do that next time i place code on the forums.
i got it to work anyways but thanks!

Filling an Upload Form within a WebBrowser

John M Bundy29-Oct-09 8:40

John M Bundy

29-Oct-09 8:40

You are getting the incorrect result because you are trying to get the mean as a running total, and dividing only part of true mean, here is what i mean:

dFAvg = iSum / Convert.ToDouble(lblGrades.Text) 'calculate average

but the way you are calling it in the loop the first time you calculate the mean you are using only one number, then performing your deviation with that. The next loop you have the mean of 2 numbers and use that for your calculations. So what you want to do is load everything and calculate the mean, then use that to loop through and plug into your calculations. The below works:

  Dim iSum As Integer = 0
        Dim dFAvg As Double = 0
        Dim dDev As Double = 0
        Dim dSqDev As Double = 0
        Dim strArr As Array = {1, 3, 4, 6, 9, 19}

        For count = 0 To strArr.Length - 1
            iSum += Convert.ToDouble(strArr(count))             
lstGrades.Items.Add(strArr(count))
            lblGrades.Text = lstGrades.Items.Count
            lblSum.Text = iSum 'display sum in label box
            dFAvg = iSum / Convert.ToDouble(lblGrades.Text) 'calculate average
        Next
        For count = 0 To strArr.Length - 1
            dDev = ((strArr(count) - dFAvg) ^ 2)
            dSqDev += dDev
        Next 'end for
        lblSumDev.Text = FormatNumber(dSqDev, 2)
    End Sub

Windows Mobile

PRT928-Oct-09 7:28

PRT9

28-Oct-09 7:28

Hello,

Does anyone have a code example for vb.net 2008 to locate an email on a windows mobile device (checking the subject) and then read the body of it?

I can find examples in C but not VB. Any help would be great.

Thanks

Re: Windows Mobile

EliottA28-Oct-09 8:44

EliottA

28-Oct-09 8:44

Try the Mobile Development [^] section, and check the microsoft .net CE documentation.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Nowid5028-Oct-09 6:58

Nowid50

28-Oct-09 6:58

Hello

I'm trying to do an auto uploader for my own usage, as I have a lot of files to upload.
I took a new form, put an hidden WebBrowser and made a "login" function. Okay, all of this is working nicely but I cannot find how to fill the form for uploading. Sigh | :sigh:

If you want the page : http://www.uploadjockey.com. Hmmm | :|

Can somebody please help me ? Frown | :(

Thanks in advance for your answers Smile | :)

vb6 to vb.net help needed

offroaderdan28-Oct-09 2:51

28-Oct-09 2:51

hi there,
i asked a question earlier to try and get information from command prompt howver i seem to have found a better way.

here is the code used

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Management

Namespace VBDotNet_WMI_HD_GetSerialNumber_2

    Public Class MainForm
        Inherits System.Windows.Forms.Form
        Private button1 As System.Windows.Forms.Button

        Public Shared Sub Main()
            Dim fMainForm As New MainForm
            fMainForm.ShowDialog()
        End Sub

        Public Sub New()
            MyBase.New()
            Me.InitializeComponent()
        End Sub

#Region " Windows Forms Designer generated code "
        Private Sub InitializeComponent()
            Me.button1 = New System.Windows.Forms.Button
            Me.SuspendLayout()
            '
            'button1
            '
            Me.button1.Location = New System.Drawing.Point(8, 8)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(280, 32)
            Me.button1.TabIndex = 0
            Me.button1.Text = "&Get serial number"
            AddHandler Me.button1.Click, AddressOf Me.Button1Click
            '
            'MainForm
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(292, 45)
            Me.Controls.Add(Me.button1)
            Me.Name = "MainForm"
            Me.Text = "Testform <WMI - Harddisk - Get Serial Number. 2>"
            Me.ResumeLayout(False)
        End Sub
#End Region

        Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Dim Result As String = GetHarddiskSerialNumber("c:\")
            If (Not Result Is String.Empty) Then
                MessageBox.Show(Result, "Info")
            End If
        End Sub

        Private Function GetHarddiskSerialNumber(ByVal drv As String) As String
            Try
                Dim BackSlash As String = "\"
                Dim Position As Integer = drv.LastIndexOf(BackSlash)

                If Position > -1 Then
                    drv = drv.Substring(0, drv.Length - 1)
                Else
                    drv = drv
                End If
                Dim mo As New _
                 ManagementObject("Win32_LogicalDisk.DeviceID=""" & drv & """")
                Dim pd As PropertyData = mo.Properties("VolumeSerialNumber")
                Return pd.Value.ToString()
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Info")
            End Try
            Return String.Empty
        End Function

    End Class
End Namespace

however this code is for vb6, and there are a few errors in it.

all i want the code for is to show a serial number up.

here is the link that may help
http://www.visual-basic5.de/vbclassic/dotnet/serialnumberfromhd.htm[^]

i don't really know much about WMI so that is why i am trying to pst as much info as i can Smile | :)

cheers

DaveAuld28-Oct-09 3:00

DaveAuld

28-Oct-09 3:00

offroaderdan wrote:
however this code is for vb6

i somehow don't think the code you listed is from vb6......do you mean that the code has been ported from vb6 original code and may contain some errors.

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

offroaderdan28-Oct-09 3:56

28-Oct-09 3:56

umm yeh it contains some errors.

offroaderdan28-Oct-09 4:03

28-Oct-09 4:03

and i ain't very good at solving them if im being perfectly honest.

I literally copied and pasted the code into a new form hoever when tryingto run the code this don't work

I really need this code so if anybody could help resolve this that would be great

EliottA28-Oct-09 4:20

EliottA

28-Oct-09 4:20

Do you have the vb6 code?

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

offroaderdan28-Oct-09 4:24

28-Oct-09 4:24

no i thought it was orignally written in vb6 however it aint

i copied and pasted the code into vb.net however when trying to run it this doesn't work?

Dave Kreskowiak28-Oct-09 4:55

Dave Kreskowiak

28-Oct-09 4:55

See my reply to your other post. There's a link to an example of executing a WMI query in there.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

offroaderdan28-Oct-09 5:09

28-Oct-09 5:09

Thanks for the reply, this has now rely confused me. What would do i simply do something along the lines off

Dim instance As ManagementObjectSearcher
Dim returnValue As ManagementObjectCollection

returnValue = instance.Get()

and then something like

SELECT SerialNumber FROM Win32_BIOS"

??

i have never really tried anything like this before so its all new to me

offroaderdan28-Oct-09 5:17

28-Oct-09 5:17

i have tried using the code you said but got this far, how do i fix it?

Imports System
Imports System.Management
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Public Overloads Shared Function _
        Main(ByVal args() As String) As Integer

    End Function 'Main

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As New ManagementObjectSearcher( _

            select SerialNumber from Win32_BIOS""     ' the bit of code you told me to put in it!!
            New EnumerationOptions( _
            Nothing, System.TimeSpan.MaxValue, 1, _
            True, False, True, True, False, _
            True, True))
        For Each service As ManagementObject In s.Get()
                'show the instance
            TextBox1.Text = (service.ToString())
        Next
    End Sub
End Class

thanks Dave for the help!! Smile | :)