Форум РадиоКот

edm2007 писал(а):

Gordon Shumway писал(а):Вот при таком раскладе при нажатии на кнопку выводится всякая чушь

Здравствуйте, Алексей. А что значит "чушь"? Вообще на экране или именно со значениями?

Gordon Shumway писал(а):Завтра смогу весь код выложить и фотки того, что получается.

edm2007 писал(а):

Gordon Shumway писал(а):Завтра смогу весь код выложить и фотки того, что получается.

Вот это будет замечательно.

$regfile = "m8def.dat"
$crystal = 1000000

$hwstack = 32
$swstack = 8
$framesize = 100

Config Portd.4 = Output
Portd.4 = 0

Config Portb.0 = Output 'D/C (pin 4)
D3310dc Alias Portb.0

Config Portd.3 = Output 'SCE (pin 5)
D3310ce Alias Portd.3

Config Portd.6 = Output 'Reset (pin 8 )
D3310re Alias Portd.6

'Config Pind.2 = Input

Config Int0 = Falling
On Int0 Maxmin

Config 1wire = Portb.7

Dim A As Bit
Dim Byte0 As Byte , Byte1 As Byte 'читать датчики
Dim Byte2 As Byte , Byte3 As Byte

Dim T1 As Single , T2 As Single
Dim T3 As Single , T4 As Single

Dim 1sign As String * 1
Dim 1signmax As String * 1
Dim 1signmin As String * 1

Dim 2sign As String * 1
Dim 2signmax As String * 1
Dim 2signmin As String * 1

Dim 1tmax As Single , 1tmin As Single
Dim 2tmax As Single , 2tmin As Single

Dim 1temper As String * 7
Dim 1tempermax As String * 10
Dim 1tempermin As String * 10

Dim 2temper As String * 7
Dim 2tempermax As String * 10
Dim 2tempermin As String * 10

Enable Interrupts
Enable Int0

'конфигурируем SPI в программном режиме. SCLK (pin 2) - PORTD.0; SDA (pin 3) - PORTD.1;
Config Spi = Soft , Din = Portb.1 , Dout = Portd.1 , Ss = None , Clock = Portd.0

'Initialise Spi
Spiinit

$include "3310init.bas"

'Initialise the display
Call D3310reset
Call D3310init
Call D3310clear

Restore Bmp1 'D3310Bmp1 is the label name for the first bmp
Call D3310bmpout

A = 0

Do

'If Pind.2 = 0 Then Gosub Maxmin

1wreset

1wwrite &HCC ' Выдаем команду чтения ПЗУ
1wwrite &H44 ' Запуск измерения

Waitms 750 ' Ждем окончания преобразования

1wreset
1wwrite &HCC
1wwrite &HBE ' Команда чтения ОЗУ датчика


Byte0 = 1wread() ' Читаем нулевой байт

Byte1 = 1wread()

Waitms 750

1wreset Pinc , 5

1wwrite &HCC , 1 , Pinc , 5 ' Выдаем команду чтения ПЗУ
1wwrite &H44 , 1 , Pinc , 5 ' Запуск измерения

Waitms 750 ' Ждем окончания преобразования
1wreset Pinc , 5

1wwrite &HCC , 1 , Pinc , 5
1wwrite &HBE , 1 , Pinc , 5 ' Команда чтения ОЗУ датчика
Byte2 = 1wread(1 , Pinc , 5) ' Читаем нулевой байт
Byte3 = 1wread(1 , Pinc , 5) ' Читаем первый байт



If Byte1 > 248 Then ' Проверка на отрицательность температуры
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1

Else
1sign = "+"
End If

T1 = Byte0 / 16 ' Сдвигаем нулевой байт вправо на 4 бита (2*2*2*2=16)
T2 = Byte1 * 16 ' Сдвигаем первый байт влево на 4 бита (2*2*2*2=16)

T1 = T1 + T2

If Byte1 > 248 Then
T1 = T1 + 1
T1 = T1 * -1
1sign = ""
End If

If 1sign = "+" And T1 = 0 Then ' убираем знак "+" с нулевой температуры
1sign = " "
End If

If A = 0 Then
1tmax = T1
1tmin = T1

End If

If T1 > 1tmax Then 1tmax = T1
If T1 < 1tmin Then 1tmin = T1
If 1tmax > 0 Then 1signmax = "+"
If 1tmax <= 0 Then 1signmax = ""
If 1tmin > 0 Then 1signmin = "+"
If 1tmin <= 0 Then 1signmin = ""

1temper = Fusing(t1 , "#.#")
1temper = 1sign + 1temper
1temper = 1temper + "_C"

1tempermax = Fusing(1tmax , "#.#")
1tempermax = 1signmax + 1tempermax
1tempermax = 1tempermax + "_C"


1tempermin = Fusing(1tmin , "#.#")
1tempermin = 1signmin + 1tempermin
1tempermin = 1tempermin + "_C"


'расчет показаний второго датчика

If Byte3 > 248 Then ' Проверка на отрицательность температуры
Byte2 = &HFF - Byte0
Byte3 = &HFF - Byte1

Else
2sign = "+"
End If

T3 = Byte2 / 16
T4 = Byte3 * 16

T3 = T3 + T4

If Byte3 > 248 Then
T3 = T3 + 1
T3 = T3 * -1
2sign = ""
End If

If 2sign = "+" And T3 = 0 Then ' убираем знак "+" с нулевой температуры
2sign = " "
End If

If A = 0 Then
2tmax = T3
2tmin = T3
A = 1
End If

If T3 > 2tmax Then 2tmax = T3
If T3 < 2tmin Then 2tmin = T3
If 2tmax > 0 Then 2signmax = "+"
If 2tmax <= 0 Then 2signmax = ""
If 2tmin > 0 Then 2signmin = "+"
If 2tmin <= 0 Then 2signmin = ""

2temper = Fusing(t3 , "#.#")
2temper = 2sign + 2temper
2temper = 2temper + "_C"

2tempermax = Fusing(2tmax , "#.#")
2tempermax = 2signmax + 2tempermax
2tempermax = 2tempermax + "_C"

2tempermin = Fusing(2tmin , "#.#")
2tempermin = 2signmin + 2tempermin
2tempermin = 2tempermin + "_C"



Call D3310position(6 , 1)
Call D3310print(1temper)

Call D3310position(6 , 4)
Call D3310print(2temper)

Wait 1

Loop

End

Maxmin:

Call D3310clear

Restore Bmp2
Call D3310bmpout

Call D3310position(6 , 1)
Call D3310print(1tempermax)

Call D3310position(6 , 2)
Call D3310print(1tempermin)

Call D3310position(6 , 4)
Call D3310print(2tempermax )

Call D3310position(6 , 5)
Call D3310print(2tempermin)

Wait 5

Call D3310clear

Restore Bmp1
Call D3310bmpout

Return

$include "3310end.bas"
$include "bmp1.bas"
$include "bmp2.bas"

AVRDaemon писал(а):А LCD графический от чего? можно узнать?

edm2007 писал(а):Получается что разница только в том, что по gosub он уходит четко в начале, а прерывание может прервать выполнение где угодно... Только где оно мешает...

kip96 писал(а):по-этому при обращении к датчикам, лучше отключать прерывание.

edm2007 писал(а):Но Алексей вроде говорил что отключал прерывания...

edm2007 писал(а):хоть в протеусе накидаю...

edm2007 писал(а):Точнее так: "говорил что пробовал отключать".

do

disable int0
disable interrupts

программа

вывод на экран

enable interrupts
enable int0

wait 1

loop

edm2007 писал(а):Вы можете еще скинуть bmp1 и bmp2, хоть в протеусе накидаю...

Комментарий к файлу: Перезалил! Там была ошибка с метками.

edm2007 писал(а): Теперь по делу: нарисовал в протеусе, и в обычном режиме все работает, но только почему-то при уходе в отрицательную температуру картинка бьется и что-то типа -4096 С. Вы не проверяли в холодильнике? И при нажатии на кнопку да, иногда мусор а иногда просто тишина...

Вот проект для 7.7. Если нужна модель дисплея то скину. А то в протеусе нет 3310...