[Bascom] Mehrere Namen in Array

[Lutze53 E. (lutze53)]

Nabend

hab mom ein kleines Problem und komme da nicht weiter :(
da ja in Bascom kein mehrdimensionales Array geht komme ich hier nicht 
weiter.
habe momentan 2 ds1820 am 1wire hängen, ich wollte jetzt die ID der 
DS1820 abspeichern und den einen Namen geben, so das ich sie später 
immer wieder aufrufen kann.
hab hier erstmal den code wo ich sie auslesen und anzeigen lassen kann, 
aber komme nicht weiter mit dem abspeichern. wobei hier noch ein problem 
ist da der name "ID" und der hex als string abgespeichert wird, was mir 
nix bringt.

'-------------------------------------------'
'     Mikrocontroller/Chip                  '
'-------------------------------------------'
$regfile = "m32def.dat"                                     'ATMEGA32 Registerdatei
$crystal = 8000000                                          'Externer Quarz 8Mhz
$hwstack = 40                                               'HardwareStack
$swstack = 16                                               'SoftwareStack
$framesize = 32                                             'Framesize
$baud = 9600                                                'Baudrate

'-------------------------------------------'
'     LCD Konfiguration                     '
'-------------------------------------------'
'Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , _
'                 Db7 = Portb.7 , E = Portb.0 , Rs = Portb.1
'Config Lcd = 16 * 2


'-------------------------------------------'
'     1Wire Konfiguration                   '
'-------------------------------------------'
Config 1wire = Porta.1


'-------------------------------------------'
'     Deklarationen                         '
'-------------------------------------------'
Declare Sub Sensorsuche()

Declare Sub Sensorinfo()

'-------------------------------------------'
'     Variablen                             '
'-------------------------------------------'

Dim Ds_id(8) As Byte
Dim Index(16) As String * 16
Dim I As Byte
Dim Anzahl As Word
Dim Sensor As Byte


'-------------------------------------------'
'     Main                                  '
'-------------------------------------------'
Call Sensorinfo()
Wait 2
Call Sensorsuche()
Call Sensorinfo()

Do
    nop
Loop

End


'******************************************************************************'

'-------------------------------------------'
'     Subroutinen                   '
'-------------------------------------------'

Sub Sensorsuche()
   1wreset
   Anzahl = 1wirecount()
   Ds_id(1) = 1wsearchfirst()
   For I = 1 To 8
      Index(1) = Index(1) + Hex(ds_id(i))
   Next I

   For Sensor = 2 To Anzahl
      Ds_id(1) = 1wsearchnext()
      For I = 1 To 8
      Index(sensor) = Index(sensor) + Hex(ds_id(i))
      Next
   Next Sensor
End Sub

Sub Sensorinfo()
   If Anzahl = 0 Then
   Print "Keine Sensoren gefunden, suche..."
   Exit Sub
   End If

   Print "Sensoren: " ; Anzahl
   For I = 1 To Anzahl
   Print "Sensor " ; I ; ": " ; Index(i)
   Next I
End Sub

und verstehe nicht wenn ich es in putty anzeigen lasse kommt die 
sensorinfo am anfang immer doppelt. ka wieso

[Peter R. (peterfido)]

Wenn Du Variablen mit Namen ansprechen möchtest, geht das z.B. per 
Overlay und Alias

$regfile = "M8def.dat"                                      '.dat-file ATmega8'
$crystal = 8000000                                          'Taktfrequenz 8MHz'
$hwstack = 350                                              'Größe Hardwarestack'
$swstack = 350                                              'Größe Softwarestack'
$framesize = 200                                            'Größe Frame'


$baud = 19200                                               'Baudrate UART

Dim Ds_id(8) As Byte
Dim Ds1 As Byte At Ds_id(1) Overlay
Dim Ds2 As Byte At Ds_id(2) Overlay
Dim Ds3 As Byte At Ds_id(3) Overlay
Dim Ds4 As Byte At Ds_id(4) Overlay
Dim Ds5 As Byte At Ds_id(5) Overlay
Dim Ds6 As Byte At Ds_id(6) Overlay
Dim Ds7 As Byte At Ds_id(7) Overlay
Dim Ds8 As Byte At Ds_id(8) Overlay

Ds_1 Alias Ds_id(1)
Ds_2 Alias Ds_id(2)
Ds_3 Alias Ds_id(3)
Ds_4 Alias Ds_id(4)
Ds_5 Alias Ds_id(5)
Ds_6 Alias Ds_id(6)
Ds_7 Alias Ds_id(7)
Ds_8 Alias Ds_id(8)





Dim B As Byte

For B = 1 To 8
   Ds_id(b) = B
Next B

Print Ds1
Print Ds2
Print Ds3
Print Ds4
Print Ds5
Print Ds6
Print Ds7
Print Ds8

Print Ds_1
Print Ds_2
Print Ds_3
Print Ds_4
Print Ds_5
Print Ds_6
Print Ds_7
Print Ds_8

Do

Loop
End

[Lutze53 E. (lutze53)]

aso overlay da habe ich was drüber gelesen, thx werde ich mir mal 
anschauen.
hatte auch gerade was gefunden, die ids ins eeprom zu schreiben und von 
da immer auslesen.

[ich da (Gast)]

Kann man auch so machen,

ID1(1) = &H10 : ID1(2) = &H06 : ID1(3) = &HFB : ID1(4) = &H98 : ID1(5) = 
&H01 : ID1(6) = &H08 : ID1(7) = &H00 : ID1(8) = &HBF

mit ID2(x) = &H xx usw, entsprechend weiter.
entsprechend mit Komentaren versehen wie,
'ID1 ist Sensor Wohnzimmer mit ID 1006FB98010800BF
'ID2 ist Sensor Aussen mit ID 104587FE01002E usw

[Gerhard (Gast)]

Lutze53 E. schrieb:
> da ja in Bascom kein mehrdimensionales Array geht komme ich hier nicht
> weiter

kennst den schon?
http://www.mcselec.com/index2.php?option=com_forum&Itemid=59&page=viewtopic&t=9675&highlight=array