Alle Werte einer Spalte addieren?

  • VB6

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Unknown.

    Alle Werte einer Spalte addieren?

    Hallo,
    ich habe eine Tabelle, die sieht so aus:

    Visual Basic-Quellcode

    1. Set Item = ListView1.ListItems.Add
    2. Item.SmallIcon = 1
    3. Item.Text = Format(Now, "dd.mm.yyyy")
    4. Item.SubItems(1) = Format(Now, "hh:mm")
    5. Item.SubItems(2) = WinSock1(Index).RemoteHostIP
    6. Item.SubItems(3) = Page
    7. Item.SubItems(4) = Format(FileLen(App.Path & "\" & Page), "#,##0")


    So jetzt möchte ich in einer Textbox alle Einträge aus der Spalte "Item.SubItems(4)" zusammenrechnen. Also steht in der Spalte 200 und 300. Jetzt soll unten in der Textbox 500 stehen.

    Das verändert sich während der Ausführung aber soll aber immer aktuell sein.

    Das geht doch bestimmt oder?

    ich verstehe das nicht ganz, da bei item.subitems(1) ja ein datum ist, wie sollt man das denn mit den anderen zusammenrechnen?

    man müsste das i-wie in eine zahl wandeln und dann normal zusammenrechen.

    damit das aktuell ist einen timer auf 100 ms stellen und bei timer1_tick das schreiben:

    Visual Basic-Quellcode

    1. textbox1 = item.subitems(1) + ...(2) + ...(3) + ...(4)


    (nicht getestet!!!)
    | Keine Fragen per PN oder Skype.

    Was für einen Ansichtsmodus verwendest du
    denn ? Bei lvwReport würde das so funktionieren:

    Visual Basic-Quellcode

    1. TextBox.Text = Summe
    3. Function Summe() As Long
    4. Dim i As Long
    6. For i = 1 To ListView1.ListItems.Count
    7. Summe = Summe + CLng(ListView1.ListItems(i).SubItems(4))
    8. Next i
    9. End Function

    Irgendwie klappt das nicht. Also ich erklär mal das ganze. Das Programm erstellt einen HTML Webserver. Der gibt die Datei index.html aus wenn die Computer IP im Browser aufgerufen wird.

    Kompl. Quelltext:

    Visual Basic-Quellcode

    1. Private Declare Function SetWindowPos Lib _
    2. "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    3. ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
    4. ByVal cy As Long, ByVal wFlags As Long) As Long
    6. Public Function LoadFile(Dateiname As String) As String
    7. On Error GoTo Fehler
    8. Close #1
    9. Open Dateiname For Binary As #1
    10. LoadFile = Input(FileLen(Dateiname), #1)
    11. Close #1
    12. Fehler:
    13. End Function
    15. Private Sub Check1_Click()
    16. If Check1.Value = 1 Then
    17. Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
    18. Else
    19. Call SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
    20. End If
    21. End Sub
    23. Private Sub Command1_Click()
    24. WinSock2.Close
    25. WinSock2.LocalPort = 80
    26. WinSock2.Listen
    27. With StatusBar1
    28. .Tag = "http://" & WinSock2.LocalIP
    29. .SimpleText = "Web-Server Adresse: " & .Tag & ""
    30. End With
    31. Command1.Enabled = False
    32. Command2.Enabled = True
    33. End Sub
    35. Private Sub Command2_Click()
    36. WinSock2.Close
    37. Command1.Enabled = True
    38. Command2.Enabled = False
    39. End Sub
    41. Private Sub Form_Load()
    42. Dim i As Integer
    43. For i = 1 To 200
    44. Load WinSock1(i)
    45. Next i
    46. Command2.Enabled = False
    47. End Sub
    48. Private Sub StatusBar1_Click()
    49. Clipboard.Clear
    50. Clipboard.SetText StatusBar1.Tag
    51. End Sub
    53. Private Sub WinSock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    54. Dim strData As String
    55. WinSock1(Index).GetData strData
    56. If Mid(strData, 1, 3) = "GET" Then
    57. P1 = InStr(strData, "GET")
    58. P2 = InStr(P1 + 5, strData, " ")
    59. Page = Trim(Mid(strData, P1 + 5, P2 - (P1 + 4)))
    60. If Right(Page, 1) = "/" Then Page = Left(Page, Len(Page) - 1)
    61. If Page = "/" Then Page = "index.html"
    62. If Page = "" Then Page = "index.html"
    63. If Dir(App.Path & "\" & Page) = "" Then Page = "404.html"
    64. WinSock1(Index).SendData LoadFile(App.Path & "\" & Page)
    66. Set Item = ListView1.ListItems.Add
    67. Item.SmallIcon = 1
    68. Item.Text = Format(Now, "dd.mm.yyyy")
    69. Item.SubItems(1) = Format(Now, "hh:mm")
    70. Item.SubItems(2) = WinSock1(Index).RemoteHostIP
    71. Item.SubItems(3) = Page
    72. Item.SubItems(4) = Format(FileLen(App.Path & "\" & Page), "#,##0")
    73. End If
    74. End Sub
    76. Private Sub WinSock1_SendComplete(Index As Integer)
    77. WinSock1(Index).Close
    78. End Sub
    80. Private Sub WinSock2_ConnectionRequest(ByVal requestID As Long)
    81. Dim i As Integer
    82. For i = 0 To 200
    83. If WinSock1(i).State = sckClosed Then
    84. WinSock1(i).Close
    85. WinSock1(i).Accept (requestID)
    86. Exit Sub
    87. End If
    88. Next i
    89. End Sub

    Sourcecode © 2007 Bastian Stiehler ;)

    So. Jetzt gibt es ja diese 4. Spalte in der die Dateigröße der vom Besucher geöffneten Seite. Ich möchte unten in einem "LABEL!" stehen haben: "Traffic gesamt: X.XXX Bytes". So wie bekomme ich das hin?

    MfG
    Basti

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „kulimeya“ ()

Facebook
Telefonspende