Error : 344 Line : 13 Program will overwrite bootloader [ 20 too long] , in File : C:\PROGRAM FILES (X86)\MCS ELECTRONICS\BASCOM_2081\LIB\FP_TRIG.LBX
Ja, 20 Byte fehlen mir im Flash, um das Programm zu compilieren.
Hat jemand eine Idee?
Alles anzeigen
Ja, 20 Byte fehlen mir im Flash, um das Programm zu compilieren.
Hat jemand eine Idee?
BASCOM-Quellcode: Min-Max_Temperatur
- '$sim
- $regfile = "attiny2313.dat"
- $crystal = 16000000
- $hwstack = 34
- $swstack = 16
- $framesize = 24
- Reset_taste Alias Pind.1
- Portd.1 = 1
- Config 1wire = Portd.0 'achtung, externer Pullup 4k7
- Config Lcd = 16 * 2
- Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.1 , Db6 = Portb.0 , Db7 = Portd.6 , E = Portb.3 , Rs = Portb.4
- Initlcd
- Cursor Off , Noblink
- Deflcdchar 0 , 31 , 14 , 4 , 32 , 31 , 14 , 4 , 32 'Pfeil abwärts
- Deflcdchar 1 , 4 , 14 , 31 , 32 , 4 , 14 , 31 , 32 'Pfeil aufwärts
- Deflcdchar 2 , 14 , 10 , 14 , 32 , 32 , 32 , 32 , 32 'Gradzeichen
- Cls
- Dim Maxtemp As Integer
- Dim Mintemp As Integer
- Dim Temp As Integer
- Dim Temp1 As Integer
- Dim 1w_i As Byte
- Dim 1w_t1 As Integer
- Dim 1w_t As Integer
- Dim Spp(9) As Byte
- Dim Temperaturnegativ As Bit
- Dim Neustart As Bit
- Do
- 'Temperatur_starten
- 1wreset
- 1wwrite &HCC 'Skip ROM Kommando
- 1wwrite &H44 'Convert Temperatur Kommando
- Wait 1 'Wartezeit zum Wandeln
- 1wreset
- 1wwrite &H33 'Read ROM Kommando
- 'Temp = 1wread(1) '1.Stelle enthält den Familycode
- 1w_i = 1wread(1) '1.Stelle enthält den Familycode
- 1wreset
- 1wwrite &HCC 'Rom überspringen, nur 1 Sensor
- 1wwrite &HBE 'Temperatur auslesen
- Spp(1) = 1wread(9) 'Daten in ein Array lesen
- 'TEST
- 'Temp = &H10
- ' Spp(1) = &H36
- ' Spp(2) = &H00
- ' Spp(3) = &H4B
- ' Spp(4) = &H46
- ' Spp(5) = &HFF
- ' Spp(6) = &HFF
- ' Spp(7) = &H01
- ' Spp(8) = &H10
- ' Spp(9) = &HB4
- 'TEST ENDE
- 'Rechnung für Family Code 0x10
- Spp(1).0 = 0
- If 1w_i = &H28 Then
- 1w_t = Makeint(spp(1) , Spp(2))
- 1w_t = 1w_t * 10
- 1w_t = 1w_t / 16
- Else
- 'Rechnung für Family Code 0x28
- 1w_t = Makeint(spp(1) , Spp(2))
- 1w_t = 1w_t * 50
- 1w_t = 1w_t - 25
- 1w_t1 = Spp(8) - Spp(7)
- 1w_t1 = 1w_t1 * 100
- 1w_t1 = 1w_t1 / Spp(8)
- 1w_t = 1w_t + 1w_t1
- 1w_t = 1w_t / 10
- ' Temperatur in 0,1 Grad Schritten
- '
- End If
- '1w_t = -234 'Test
- 'Ausgabe
- If Reset_taste = 0 Or Neustart = 0 Then
- Neustart = 1
- Maxtemp = 1w_t
- Mintemp = 1w_t
- End If
- If 1w_t > Maxtemp Then Maxtemp = 1w_t
- If 1w_t < Mintemp Then Mintemp = 1w_t
- If 1w_t < 0 Then
- Temperaturnegativ = 1
- Temp1 = Abs(1w_t)
- Else
- Temperaturnegativ = 0
- Temp1 = 1w_t
- End If
- Temp = Temp1 / 10
- Locate 1 , 1
- Lcd "Aktuell: "
- Gosub Darstellung
- Locate 2 , 1
- If Mintemp < 0 Then
- Temperaturnegativ = 1
- Temp1 = Abs(mintemp)
- Else
- Temperaturnegativ = 0
- Temp1 = Mintemp
- End If
- Temp = Temp1 / 10
- Lcd Chr(0) ' ; " "
- Gosub Darstellung
- If Maxtemp < 0 Then
- Temperaturnegativ = 1
- Temp1 = Abs(maxtemp)
- Else
- Temperaturnegativ = 0
- Temp1 = Maxtemp
- End If
- Locate 2 , 9
- Temp = Temp1 / 10
- Lcd Chr(1)
- Gosub Darstellung
- Loop
- Darstellung:
- If Temp < 100 Then
- If Temperaturnegativ = 1 Then
- Lcd "-"
- Else
- Lcd " "
- End If
- End If
- If Temp < 10 Then Lcd " "
- Lcd Temp ; ","
- Temp = Temp1 Mod 10
- Lcd Temp ; Chr(2) ; "C"
- Return
- End