Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Помощ за програма на VB 2008

Последователи

28 януари 201016 г.

Привет на всички... имам малък проблем с една програма/код с който си блъскам тук главата... мислех си че ще успея сам , но уви... целта е следната:

"Да се запълни списък със стойности и да се намери сумата , най-малката стойност , средната стойност на положителните и средната стойност на отрицателните числа в списъка" ... ако може някой да помогне , ще съм много благодарен...

П.п. ето тук имаше някакви опити , но безрезултатни... естествено това е само опит ... някой ако има друго виждане за изгледа и начина нека го каже...

Public Class Form1

Dim chisloto = 0, masiv(100) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

masiv(chisloto) = InputBox("Въведи число")

chisloto = chisloto + 1

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim min, polojitelni, otricatelni, i, br1, br2 As Integer

polojitelni = 0

otricatelni = 0

br1 = 0

br2 = 0

For i = 0 To chisloto - 1

If i = 0 Then

min = masiv(i)

Else

If min > masiv(i) Then

min = masiv(i)

End If

If masiv(i) > 0 Then

polojitelni = polojitelni + masiv(i)

br1 = br1 + 1

Else

otricatelni = otricatelni + masiv(i)

br2 = br2 + 1

End If

TextBox2.Text = TextBox2.Text + "Минимално: " + min + vbNewLine + "Средно положителни: " + polojitelni / br1 + vbNewLine + "Средно отрицателни: " + otricatelni / br2

End Sub

End Class

изписва грешка... някъде тук...

Благодаря за отделеното време и внимание!

Редактирано 28 януари 201016 г. от Ghost Wolf (преглед на промените)

28 януари 201016 г.

Public Class Form1



    Dim chisloto = 0, masiv(100) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        masiv(chisloto) = InputBox("Въведи число")

        chisloto = chisloto + 1

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim min, polojitelni, otricatelni, suma, i, br1, br2 As Integer

        Dim sredno_pol, sredno_otr As Double


        If chisloto - 1 < 0 Then

            Exit Sub

        End If


        polojitelni = 0

        otricatelni = 0

        br1 = 0

        br2 = 0

        suma = 0

        min = masiv(0)

        For i = 0 To chisloto - 1

            If min > masiv(i) Then

                min = masiv(i)

            End If


            suma = suma + masiv(i)


            If masiv(i) > 0 Then

                br1 = br1 + 1

                polojitelni = polojitelni + masiv(i)

            End If

            If masiv(i) < 0 Then

                br2 = br2 + 1

                otricatelni = otricatelni + masiv(i)

            End If


        Next

        TextBox1.AppendText(vbNewLine + "Сума: " + Format(suma, "0.0000"))

        TextBox1.AppendText(vbNewLine + "Минимално: " + Format(min, "0.0000"))

        sredno_pol = 0

        sredno_otr = 0

        If br1 > 0 Then

            sredno_pol = polojitelni / br1

        End If

        If br2 > 0 Then

            sredno_otr = otricatelni / br2

        End If


        TextBox1.AppendText(vbNewLine + "Средно положителни: " + Format(sredno_pol, "0.0000"))

        TextBox1.AppendText(vbNewLine + "Средно отрицателни: " + Format(sredno_otr, "0.0000"))


    End Sub

End Class

28 януари 201016 г.

Автор

Благодаря ти много... а ако се използва NumericUpDown ... за въвеждането на цифри да речем в един ListBox ... в смисъл идеята ще е да се подредят там числата , за да се виждат кои числа се използват... и после ще си се появяват резултатите пак както е в момента в Текст Бокса...

П.п. извинявай за глупавите наглед въпроси... ама тепърва нагазвам в тия води и ... Благодаря ти за отделеното време...!

Редактирано 28 януари 201016 г. от Ghost Wolf (преглед на промените)

28 януари 201016 г.

Благодаря ти много... а ако се използва NumericUpDown ... за въвеждането на цифри да речем в един ListBox ... в смисъл идеята ще е да се подредят там числата , за да се виждат кои числа се използват... и после ще си се появяват резултатите пак както е в момента в Текст Бокса...

П.п. извинявай за глупавите наглед въпроси... ама тепърва нагазвам в тия води и ... Благодаря ти за отделеното време...!

Не виждам смисъл да е NumericUpDown макар, че няма проблем да се направи и така.

Може един TextBox да се въвеждат числата, и с бутон да се добавят в някакъв контрол подържащ списък. ListBox или нещо друго.

Може и направо да се пишат в TextBox и да се попълни масива оттам:

    Dim chisloto = 0, masiv(100) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim snum As String, i As Integer

        chisloto = -1

        i = 0

        For i = 0 To TextBox2.Lines.Length - 1

            snum = TextBox2.Lines(i)

            If snum <> "" Then

                chisloto = chisloto + 1

                masiv(chisloto) = Val(snum)

            End If

        Next

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim min, polojitelni, otricatelni, suma, i, br1, br2 As Integer

        Dim sredno_pol, sredno_otr As Double


        If chisloto < 0 Then

            Exit Sub

        End If


        polojitelni = 0

        otricatelni = 0

        br1 = 0

        br2 = 0

        suma = 0

        min = masiv(0)

        For i = 0 To chisloto

            If min > masiv(i) Then

                min = masiv(i)

            End If


            suma = suma + masiv(i)


            If masiv(i) > 0 Then

                br1 = br1 + 1

                polojitelni = polojitelni + masiv(i)

            End If

            If masiv(i) < 0 Then

                br2 = br2 + 1

                otricatelni = otricatelni + masiv(i)

            End If


        Next

        TextBox1.AppendText(vbNewLine + "Сума: " + Format(suma, "0.0000"))

        TextBox1.AppendText(vbNewLine + "Минимално: " + Format(min, "0.0000"))

        sredno_pol = 0

        sredno_otr = 0

        If br1 > 0 Then

            sredno_pol = polojitelni / br1

        End If

        If br2 > 0 Then

            sredno_otr = otricatelni / br2

        End If


        TextBox1.AppendText(vbNewLine + "Средно положителни: " + Format(sredno_pol, "0.0000"))

        TextBox1.AppendText(vbNewLine + "Средно отрицателни: " + Format(sredno_otr, "0.0000"))


    End Sub