Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
BlAcKfINAl.aT
Poster
Poster

Anmeldedatum: 26.07.2008
Beiträge: 162
Liste daten-.-
Verfasst am: 27.07.2008, 19:05
Hoi , habe schon wieder ne frage [img]/sad.gif[/img]
Also folgendes:

Ich habe 2 Listen , die Liste1, und die Liste2.
In der Liste 2 sind nur ganze Zahlen , und ich will diese , alle zusammen gezählt , in nem Textfeld haben.

Habe ne Variable definiert, und zwar:

Dim a as Integer

und nun veruscht,
a=txt_eingabe
txt_gesamt=a

Dann kommt die zahl in dem Textfeld, das man zuletzt eingegebn hat (Man gibt die Zahlen ein , bevor sie in die Liste kommen.)

Ich will nun aber ALLE werte, die in der liste sind (sind NUR zahlen , NUR ganz), in der Textbox txt_gesamt ausgeben

Geht das? Müsste schon , oder?
Wenn ja , wie?
 
^^kev####
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan

Verfasst am: 27.07.2008, 19:16
Geh jeden Eintrag in den Liste mit einer For schleife durch und addier die Werte einfach?!
Wo ist das Problem ôo
 
bla
Coder
Coder

Anmeldedatum: 02.05.2008
Beiträge: 267

Verfasst am: 27.07.2008, 19:20
kein guter lerneffekt, aber hier ein beispiel:

Visual Basic: [code]Private Sub Form_Load()
Dim i As Byte

For i = 1 To 20
List1.AddItem i
Next

Dim zahl As Integer

For i = 0 To List1.ListCount - 1
zahl = zahl + List1.List(i)
Next i

Me.Caption = zahl
End Sub
[/code]
 
^^kev####
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan

Verfasst am: 27.07.2008, 19:22
Wieso?
Hier wollen halt alle nur noch C&P Codes ôo
Wieso sollte man dehnen nicht erklären, wie es geht
und dann können sie es auch einmal selber versuchen!
 
BlAcKfINAl.aT
Poster
Poster

Anmeldedatum: 26.07.2008
Beiträge: 162

Verfasst am: 27.07.2008, 19:25
(bla;6085)
kein guter lerneffekt, aber hier ein beispiel:

Visual Basic: [code]Private Sub Form_Load()
Dim i As Byte

For i = 1 To 20
List1.AddItem i
Next

Dim zahl As Integer

For i = 0 To List1.ListCount - 1
zahl = zahl + List1.List(i)
Next i

Me.Caption = zahl
End Sub
[/code]



Dann kommt error in der Zeile:
For i = 0 To List2.ListCount - 1
Fehleranzeige: Überlauf

edit:

Wenn ich dsa mache:

Private Sub Form_Load()
Dim i As Byte
For i = 1 To 20
List1.AddItem i
Next i
Dim zahl As Integer
For j = 0 To List2.ListCount - 1
zahl = zahl + List2.List(i)
Next j
txt_gesamt = zahl

End Sub

, öffnet sich das Programm zwar , doch beim Klick , damit das von text2.Text in die List2.List kommt , und eigentlich zu der gesamtanzahl unten ins txt_gesamt gehn sollte, kommt Fehler: Typen unverträglich

Wen ich debuggen mache, gehts hoch zu:
Private Sub cmd_add_Click()
Dim a As Integer


List1.AddItem (text1.Text)
List2.AddItem (text2.Text)

a = List2.Text
txt_gesamt.Text = a


Kanns daran liegen , dass der Code vom Button weiter oben ist , als der von Form load?

(^^kev####;6081)
Geh jeden Eintrag in den Liste mit einer For schleife durch und addier die Werte einfach?!
Wo ist das Problem ôo



*HUST*

Ich bin Anfänger, falls du meine anderen Posts nicht gelsen hast. [img]/sad.gif[/img]
 
bla
Coder
Coder

Anmeldedatum: 02.05.2008
Beiträge: 267

Verfasst am: 27.07.2008, 19:34
Kanns daran liegen , dass der Code vom Button weiter oben ist , als der von Form load?

daran kann es nicht liegen...

poste mal deinen code, ich check nicht was du willst Very Happy
 
BlAcKfINAl.aT
Poster
Poster

Anmeldedatum: 26.07.2008
Beiträge: 162


Verfasst am: 27.07.2008, 19:37
K also , das tool sieht so aus

Eine Textbox , für Säufername
Eine Textbox , für Bieranzahl

Eine Liste, in der die Säufernamen gelistet werden
Eine Liste, in der die Biere unereinander gelistet werden

und Noch eine Textbox , in der die gesamten Biere ausgegeben sollen.

Code:

Private Sub cmd_add_Click()
Dim a As Integer


List1.AddItem (txt_gast.Text)
List2.AddItem (txt_bier.Text)

a = List2.Text
txt_gesamt.Text = a








End Sub

Private Sub Form_Load()

End Sub

Private Sub frm_gast_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub lbl_bier_Click()

End Sub

Private Sub lbl_gast_Click()

End Sub

Private Sub List1_Click()

End Sub

Private Sub List2_Click()

End Sub

Private Sub txt_bier_Change()

End Sub

Private Sub txt_gast_Change()

End Sub

Private Sub txt_gesamt_Change()

End Sub


Problem:
Kann die Biere in der 2. Liste halt nich zusammen zählen ---> [img]/sad.gif[/img]^^
 
bla
Coder
Coder

Anmeldedatum: 02.05.2008
Beiträge: 267


Verfasst am: 27.07.2008, 19:50
Visual Basic: [code]List1.AddItem (txt_gast.Text)
List2.AddItem (txt_bier.Text)

Dim Zahl, i As Long

'man durchläuft jeden eintrag
'in der list2 und addiert diese zusammen
For i = 0 To List2.ListCount - 1
Zahl = CLng(Zahl) + CLng(List2.List(i))
Next i

txt_gesamt.Text = Zahl
[/code]

:p lern draus Wink
 
BlAcKfINAl.aT
Poster
Poster

Anmeldedatum: 26.07.2008
Beiträge: 162


Verfasst am: 27.07.2008, 20:09

(bla;6095)
Visual Basic: [code]List1.AddItem (txt_gast.Text)
List2.AddItem (txt_bier.Text)

Dim Zahl, i As Long

'man durchläuft jeden eintrag
'in der list2 und addiert diese zusammen
For i = 0 To List2.ListCount - 1
Zahl = CLng(Zahl) + CLng(List2.List(i))
Next i

txt_gesamt.Text = Zahl
[/code]

:p lern draus Wink



großes thx an dich ,bla
Du hilfst mir fast immer , wen ich was poste.
Bist der beste Wink  
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 983 09.06.2011, 13:19
Keine neuen Beiträge Post/Get Daten senden 679 02.06.2007, 16:01
Keine neuen Beiträge Daten an meine Homepage senden 908 26.05.2007, 21:11
Keine neuen Beiträge VB daten kompilieren? 783 23.04.2007, 14:34
Keine neuen Beiträge Daten in einen Ordner schreiben 889 25.03.2007, 14:12
 



[ Time: 0.0690s ][ Queries: 104 (0.0224s) ][ GZIP on - Debug on ]