private Sub sdwrite
Log("SD init")
sd.Initialize(d1pins.D8) '4 is the CS pin when using the ethernet shield
Log("OpenReadWrite: ", sd.OpenReadWrite("text.txt"))
Dim s As String
s = NumberFormat(temp,2,2)
Log("wert der Temp: ",s)
Log ("länge vom werts:",s.Length)
sd.Stream.WriteBytes("Test:", 0, 5)
sd.Stream.WriteBytes(s, 0, 5)
sd.Stream.WriteBytes(Array As Byte(13,10), 0, 2)
sd.Close