Data fra text1 til Array

øh, hvad er det lige du vil lave??

Hvis jeg forstår dig ret, så er det vel noget med en slaks database.. prøv at se her:
http://hjem.get2net.dk/sjh/eksperten/299869/TypeData.zip

Du skal nok kun kigge på "Global fileData() As fData" som er mit array. Det jeg har gjort, er at jeg har læst en 24C16 eeprom ind i textboxen fra comporten, og det vil jeg gerne have ind i mit array i bytes. Jeg kan derefter gemme arrayet i en fil via en funktion som omdanner daten til Intel hex8 format.

Mvh.

Christian

er det så ikke bare..


  redim fileData(100)

  with fileData(0)
      .Addr = 1
      .newLine = false
      .Dbyte = ??
  end with

Prøver lige på en anden måde, hvis nu man har en for next løkke, hvordan får man så en variable ind på en ny pkads i sit array, hver gang der køres igennem for next løkken ?

hvis du lige viser den data som skal ind i dit array.. så kan det være jeg fatter hvad det er du vil ;)

Jeg har en lykke som nedenstående, og det er "EEPromByte" jeg gerne vil have ind i mit array, så hver gang der loopes i for next løkken, skal EEPromByte "proppes" ind på en ny plads i arrayet

For EEPromAddressHighByte = 0 To 7 ' Skift page i eeprom
  For EEPromAddressLowByte = 0 To 255 '5
      DoEvents
      DelayUS 10
      EEPromByte = i2crbyte
      DelayUS 10
      sendack
      DelayUS 10
      frmSerial.Text1.Text = frmSerial.Text1.Text & Hex2(EEPromByte)       

      HER SKAL "EEPromByte" PUTTES IND PÅ EN NY PLADS I AARAYET

  Next
Next

Så er det vel bare sådan:


ReDim fileData(2048) As fData
j = 0

For EEPromAddressHighByte = 0 To 7 ' Skift page i eeprom
  For EEPromAddressLowByte = 0 To 255 '5
      DoEvents
      DelayUS 10
      EEPromByte = i2crbyte
      DelayUS 10
      sendack
      DelayUS 10
      frmSerial.Text1.Text = frmSerial.Text1.Text & Hex2(EEPromByte)
      With fileData(j)
          .Addr = 1
          .newLine = False
          .Dbyte = EEPromByte
      End With
      j = (j + 1)
  Next
Next

Er der en måde hvorpå jeg kan visuelt kan se at min data er kommet rigtigt ind i arrayet ?

Ja, så skal du bare køre den igen..


j = 0
strHex = ""

For EEPromAddressHighByte = 0 To 7 ' Skift page i eeprom
  For EEPromAddressLowByte = 0 To 255 '5
      strHex = strHex & Hex2(fileData(j).Dbyte)
      j = (j + 1)
  Next
Next

frmSerial.Text2.Text = strHex ' <- Text2

så skulle frmSerial.Text2.Text gerne være det samme som det der står i frmSerial.Text1.Text

HUSK at nulstille:

j = 0
strHex = ""

Lige en ting.. du skal ikke brokke dig til mig.. hvis du brænder noget af.. det styre du altså selv.. ;)

Hæ hæ hæ, det gør jeg ikke, indlæsningen af eeprommen, er på plads, det er bare denne array ting, der driller, kigger lige lidt mere på det og vender så tilbage :-) men det ser lovende ud

Det ser udtil at der kommer data ind i arrayet, men kan du gennemskue, om det kommer ind på samme måde som hvis en hex fil åbnes med nedenstående sub, for hvis jeg prøver at gemme arrayet med en saveHex sub jeg har bliver det gemt forkert, og det gør det ikke hvis det er en hex fil jeg har åbnet ind i aarayet med den nedenstående sub.

Sub loadHex8File(fdat() As fData, fileName As String)
  ReDim fdat(numberOfBytes(fileName) + 1) 'change size of array to the number of bytes in the hexfile
  Dim curLine As Integer, curAddr As Long, curIdx As Long, f As Integer, a$, i As Integer
  f = FreeFile
 
  Open fileName For Input As f
   
    Do Until EOF(f)
      curLine = curLine + 1
      Line Input #f, a$
     
      curAddr = "&H" & Mid$(a$, 4, 4)    'get lineaddress
      For i = 0 To Int("&H" & Mid$(a$, 2, 2)) - 1 'get # bytes in line
        fdat(curIdx).Addr = curAddr + i
        If i = 0 Then
          fdat(curIdx).newLine = True
        Else
          fdat(curIdx).newLine = False
        End If
        fdat(curIdx).Dbyte = "&H" & Mid$(a$, i * 2 + 10, 2)
        curIdx = curIdx + 1
      Next i
    Loop
  Close f
End Sub

Hej sjh.

1000 tak for din hjælp, jeg fandt ud af at jeg også skulle komme en adresse, samt definere hvornår der skulle være linie skift, så det hele er kommet til at se således ud.

Smid lige et svar, så får du dine point, dem har du fortjent.

Mvh.

Christian_h

If ByteCount = 16 Then
        With fileData(j1)
          .Addr = ByteAdr
          .newLine = True
          .Dbyte = EEPromByte
        End With
        ByteCount = 0
        Else
          With fileData(j1)
          .Addr = ByteAdr
          .newLine = False
          .Dbyte = EEPromByte
      End With
      End If
      ByteAdr = (ByteAdr + 1)
      ByteCount = (ByteCount + 1)
      j1 = (j1 + 1)

okææ ;)