Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Array addieren
Autor: Phase
Datum: 17.07.03 17:07
Hallo Leute, ich hab ein riesen problem: ich bekomme ueber die serielle schnittstelle eine bestimmte anzahl von daten, die ich in einem array ablege. (Bsp. von 0 bis 49) diese daten (Integerwerte), will ich nun mit neuen daten die ich ueber die schnittstelle bekomme aufsummieren und einen mittelwert bilden. ich hab nun versucht die ersten array daten in ein anderes array zu kopieren, was auch beim erstenmal klappt. nur ist es jetzt so, dass beim nächsten schub daten die daten vom 2. array auf null gesetzt werden. wie kann ich das verhindern? ich hab auch schon dran gedacht dem zweiten array eine feste groesse zu geben, aber die groesse bestimmt sich aus der laenge des Strings von meiner seriellen schnittstelle, und der ist nur bei einem vorgang konstant. wenn ich die einstellungen meines programmes aendere, dann variert die länge des strings. hier mal kurz der quelltext: Private Sub SCANDATA_Average() ReDim RSSIArray(0) ReDim RssiAverage(0) Dim SArray() As String ReDim SArray(0) Pass = Pass - 1 If Pass < 0 Then If Form4.Text4.Text = "e" Then Else Form4.Text4.Text = Val(Form4.Text4.Text) - 1 End If Pass = Val(Form4.Text9.Text) Else End If Form4.Command1.Visible = False For i = 1 To Len(RSSIString) ReDim Preserve SArray(i - 1) SArray(i - 1) = Mid(RSSIString, i, 1) Next i <--- hier kommen die daten For i = 1 To (Len(RSSIString) / 2) ReDim Preserve RSSIArray(i - 1) RSSIArray(i - 1) = (Asc(CVar(SArray((i - 1) * 2))) * 256) + Asc(CVar(SArray(((i - 1) * 2) + 1))) Next i <--- hier werden sie geordnet und im ersten array abgelegt If Pass >= 0 Then For i = 1 To (Len(RSSIString) / 2) ReDim Preserve RssiAverage(i - 1) RssiAverage(i - 1) = RssiAverage(i - 1) + RSSIArray(i - 1) Next i <--- und hier sollen sie aufaddiert werden If Pass = 0 Then For i = 1 To (Len(RSSIString) / 2) 'ReDim Preserve RSSIAverage(i - 1) RssiAverage(i - 1) = RssiAverage(i - 1) / Val(Form4.Text9.Text) Next i <------ und hier soll der mittelwert gebildet werden kurze anmerkung: die bestimmung des arrays an sich ist in einem modul als global definiert. kann mir jemand sagen, wie es schaffe die daten im RSSIAverage Array zu behalten....das muss doch irgendwie gehen.... danke phase

Array addieren	152	Phase	17.07.03 17:07
Re: Array addieren	691	michi-bib	17.07.03 18:29

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