Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zahlen Häufigkeit ermitteln ???
Autor: JBL
Datum: 16.05.11 14:45
Hallo, ich habe es jetzt genauso gemacht: Leider - keine Reaktion auf das drücken des Command1_Click() Public Sub CountFrequencies(MyNumbers() As Integer, _ MyDistictNumbers() As Integer, MyFrequencies() As Integer) Dim i%, k%, counter% Dim found As Boolean ReDim MyDistinctNumbers(UBound(MyNumbers)) ReDim MyFrequencies(UBound(MyNumbers)) MyDistinctNumbers(0) = MyNumbers(0) MyFrequencies(0) = 1 For i = 1 To UBound(MyNumbers) If MyNumbers(i) <> 0 Then found = False For k = 0 To counter If MyDistinctNumbers(k) = MyNumbers(i) Then 'Zahl bereits aufgetreten --> Zählen MyFrequencies(k) = MyFrequencies(k) + 1 found = True Exit For End If Next k If Not found Then 'Erstes Auftreten einer Zahl counter = counter + 1 MyFrequencies(counter) = 1 MyDistinctNumbers(counter) = MyNumbers(i) End If End If Next i ReDim Preserve MyDistinctNumbers(counter) ReDim Preserve MyFrequencies(counter) End Sub Private Sub Command1_Click() Dim ic As Integer, indx As Integer, counter As Integer, sline As String Dim snum() As String, MyNumbers() As Integer ReDim MyNumbers(100) ic = FreeFile: counter = -1 Open "input.txt" For Input As ic While Not EOF(ic) Line Input #ic, sline snum() = Split(sline, " ") For indx = 0 To UBound(snum) If IsNumeric(snum(indx)) Then counter = counter + 1 If counter > UBound(MyNumbers) Then ReDim Preserve MyNumbers(counter + 100) End If MyNumbers(counter) = CInt(snum(indx)) End If Next indx Wend ReDim Preserve MyNumbers(counter) End Sub gruß

Zahlen Häufigkeit ermitteln ???	2.754	JBL	16.05.11 12:51
Re: Zahlen Häufigkeit ermitteln ???	2.177	Manfred X	16.05.11 13:10
Re: Zahlen Häufigkeit ermitteln ???	1.833	JBL	16.05.11 13:22
Re: Zahlen Häufigkeit ermitteln ???	1.833	Manfred X	16.05.11 13:52
Re: Zahlen Häufigkeit ermitteln ???	1.805	JBL	16.05.11 14:14
Re: Zahlen Häufigkeit ermitteln ???	1.762	Manfred X	16.05.11 14:29
Re: Zahlen Häufigkeit ermitteln ???	1.724	JBL	16.05.11 14:45
Re: Zahlen Häufigkeit ermitteln ???	1.729	Manfred X	16.05.11 14:54
Re: Zahlen Häufigkeit ermitteln ???	1.848	JBL	16.05.11 15:12
Re: Zahlen Häufigkeit ermitteln ???	1.819	Manfred X	16.05.11 15:24
Re: Zahlen Häufigkeit ermitteln ???	1.760	JBL	16.05.11 15:34
Re: Zahlen Häufigkeit ermitteln ???	1.807	Manfred X	16.05.11 16:07
Re: Zahlen Häufigkeit ermitteln ???	1.855	JBL	16.05.11 16:19
Re: Zahlen Häufigkeit ermitteln ???	1.895	Manfred X	16.05.11 16:24
Re: Zahlen Häufigkeit ermitteln ???	1.761	JBL	16.05.11 16:41
Re: Zahlen Häufigkeit ermitteln ???	1.922	Manfred X	16.05.11 16:44
Re: Zahlen Häufigkeit ermitteln ???	2.124	JBL	16.05.11 16:54
Re: Zahlen Häufigkeit ermitteln ???	1.714	Manfred X	16.05.11 17:00
Re: Zahlen Häufigkeit ermitteln ???	1.683	JBL	16.05.11 17:18
Re: Zahlen Häufigkeit ermitteln ???	1.701	Manfred X	16.05.11 17:24
Re: Zahlen Häufigkeit ermitteln ???	1.685	JBL	16.05.11 17:33
Re: Zahlen Häufigkeit ermitteln ???	1.823	Manfred X	16.05.11 17:39
Re: Zahlen Häufigkeit ermitteln ???	1.687	JBL	16.05.11 17:42
Re: Zahlen Häufigkeit ermitteln ???	1.701	JBL	16.05.11 17:59
Re: Zahlen Häufigkeit ermitteln ???	1.686	Manfred X	16.05.11 18:10
Re: Zahlen Häufigkeit ermitteln ???	1.702	JBL	16.05.11 18:31
Re: Zahlen Häufigkeit ermitteln ???	1.680	Manfred X	16.05.11 18:40
Re: Zahlen Häufigkeit ermitteln ???	1.755	JBL	16.05.11 19:00
Re: Zahlen Häufigkeit ermitteln ???	1.987	JBL	02.06.11 19:34
Re: Zahlen Häufigkeit ermitteln ???	1.738	JBL	04.06.11 11:40
Kombination?	1.701	Manfred X	04.06.11 12:40
Re: Kombination?	1.759	JBL	04.06.11 12:59
Re: Kombination?	1.682	Manfred X	04.06.11 13:41
Re: Kombination?	1.723	JBL	04.06.11 13:52
Re: Kombination?	1.676	Manfred X	04.06.11 14:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen