Hi Six1,
ich habe mein code auf Basis von deinem veränder.
Mit einem Taster am AVR, schreibe ich alle Daten in den EEPROM
wie folgt:
Alles anzeigen
Leider liefert mit der Print jetzt unlesbare Zeichen.
Warum eigentlich?
VG
Katip
ich habe mein code auf Basis von deinem veränder.
Mit einem Taster am AVR, schreibe ich alle Daten in den EEPROM
wie folgt:
BASCOM-Quellcode
- Dim Setip_e As Eram String * 16
- Dim Setsubmaske_e As Eram String * 16
- Dim Setgateway_e As Eram String * 16
- Dim Setport_e As Eram String * 4
- Dim Setip(4) As String * 3
- Dim Setsubmaske(4) As String * 3
- Dim Setgateway(4) As String * 3
- Dim Setip_p As Long
- Dim Setsubmaske_p As Long
- Dim Setgateway_p As Long
- Dim Ipa As Byte
- Ipa = Split(setip_e , Setip(1) , ".")
- Setip_p = Maketcp(setip(1) , Setip(2) , Setip(3) , Setip(4))
- Ipa = Split(setsubmaske_e , Setip(1) , ".")
- Setsubmaske_p = Maketcp(setip(1) , Setip(2) , Setip(3) , Setip(4))
- Ipa = Split(setgateway_e , Setip(1) , ".")
- Setgateway_p = Maketcp(setip(1) , Setip(2) , Setip(3) , Setip(4))
- Print Setip(1) ; Setip(2) ; Setip(3) ; Setip(4)
- Setport = Setport_e
- Config Tcpip = Int0 , Mac = 0.8.220.77.05.11 , Ip = 192.168.178.29 , Submask = 255.255.255.0 , Gateway = 192.168.178.1 , Localport = 2005 , Chip = W5500 , Spi = 1 , Cs = Portb.4
- Local_port = Val(setport)
- Settcp 0.8.220.77.05.11 , Setip_p , Setsubmaske_p , Setgateway_p
- 'Nach dem betätigen der Taster am AVR
- Ippreset:
- Setip_e = "192.168.178.29"
- Setsubmaske_e = "255.255.255.0"
- Setgateway_e = "192.168.178.1"
- Setport_e = "2005"
- Goto _reset
Warum eigentlich?
VG
Katip