Przyjazne Bascom Forum

Forum
https://bart-projects.pl/forum/

Pomoc w dokończeniu programu

https://bart-projects.pl/forum/viewtopic.php?f=3&t=118

Strona 1 z 1

Pomoc w dokończeniu programu

: 09 sty 2018, 20:14
autor: Jacek
Witam czytających - mam prośbę o pomoc w dokończeniu ( usprawnieniu ) programu.
Chodzi mi o dodanie "przycisku" rozróżniającego krótkie i długie naciśnięcie program wygląda tak:
Code: [Zaznacz cały] [Rozwiń/Zwiń]
  1. '-------------------------------------------------------------------
  2. ' TESTOWY STEROWNIK PODGRZEWANIA MIODARKI
  3. 'CZUJNIKI TEMPERATURY DS18B20          06.01.2018
  4. '$sim
  5. $regfile = "m2560def.dat"
  6. $crystal = 16000000
  7. $baud = 19200
  8. $hwstack = 255
  9. $swstack = 128
  10. $framesize = 128
  11. '--------------------------------------------------------------------
  12. $prog &HFF , &HFF , &HD9 , &HFF                                                 ' generated. Take care that the chip supports all fuse bytes.
  13.  '-------------------------------------------------------------------
  14. '                    SP9DR Pawel Labendz
  15. '                 T6963C graphic display support demo 240 * 128
  16. 'First we define that we use a graphic LCD
  17. '--------------------------------------------------------------------
  18. 'The dataport is the portname that is connected to the data lines of the LCD
  19. 'The controlport is the portname which pins are used to control the lcd
  20. 'CE, CD etc. are the pin number of the CONTROLPORT.
  21. ' For example CE =5 because it is connected to PORTC.5
  22. 'mode 8 gives 240 / 8 = 30 columns , mode=6 gives 240 / 6 = 40 columns
  23. 'The connections of the LCD used in this demo
  24. 'LCD pin                  connected to
  25. ' 1        GND            GND         'black
  26. '2        +5V           +5V          'red
  27. '3        nc          not connected  'yellow
  28. '4        C/D            PORTC.0    'brown
  29. '5        /RD            PORTC.1     'green
  30. '6        /WR            PORTC.2    'blue
  31. '7-14     DBA            PORT A0-A7
  32. '15       /CE            PORTC.3     'blue
  33. '16       RESET          PORTC.4     'white
  34. '17       NC                     not connected
  35. '18       MD2            GND         'green
  36. '19       FS             PORTC.5     'white
  37. '20       NC                     not connected
  38. '--------------------------------------------------------------------
  39. Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 4 , Cd = 5 , Wr = 2 , Rd = 3 , Reset = 6 , Fs = 7 , Mode = 6
  40. '--------------------------------------------------------------------
  41. 'KONFIGURACJA TIMER'ÓW
  42. 'Config Timer0 = Timer , Prescale = 256
  43. 'Enable Timer0 : On Timer0 Przertimer0
  44. Config Timer1 = Timer , Prescale = 8
  45. Enable Timer1 : On Timer1 Przertimer1
  46. Config Timer3 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
  47. Config Timer4 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
  48. Enable Timer3 , Enable Timer4
  49. Stop Timer3 : Stop Timer4
  50. Enable Interrupts
  51. '--------------------------------------------------------------------
  52. 'KONFIGURACJA ADC
  53. Config Adc = Single , Prescaler = Auto , Reference = Avcc
  54. Start Adc
  55. '--------------------------------------------------------------------
  56. 'KONFIGURACJA PORTÓW
  57. Config Portk = &B00000001 : Portk = &B11111111
  58. Config Portb = &B11111110 : Portb = &B01111111
  59. '--------------------------------------------------------------------
  60. 'ALIASY PORTÓW
  61. Set_start Alias Pink.7                                                          'przycisk enkodera
  62. Led_live Alias Portk.0                                                          'LED pokazująca że układ żyje
  63. Arduino_led Alias Portb.7                                                       'LED na płytce Arduino
  64.  '--------------------------------------------------------------------
  65. 'ZMIENNE   CZASU
  66. Dim Dziel(6) As Byte
  67. Dim Flaga10ms As Bit
  68. Dim Flaga100ms As Bit
  69. Dim Flaga500ms As Bit
  70. Dim Flaga1s As Bit
  71. Dim Flaga2s As Bit
  72. Dim Flaga10s As Bit
  73. '--------------------------------------------------------------------
  74. 'ZMIENNE ENKODERA
  75. Dim Tryb As Byte , Rezultat As Integer
  76. Dim Zmienna As Word
  77. Dim Enc As Byte
  78. '--------------------------------------------------------------------
  79. 'ZMIENNE MENU
  80. Dim Poz_menu As Byte
  81. '--------------------------------------------------------------------
  82. 'ZMIENNE TEMPERATUR
  83. Dim T1_bok As String * 6
  84. Dim T1_bok_p2 As Single
  85. Dim T1_bok_p3 As Single
  86. Dim B1 As Byte
  87. Dim B1_1 As Byte
  88. 'Dim R1 As Byte
  89. Dim Znak1 As String * 1
  90. '--------------------------------------
  91. Dim T_set As Single
  92. Dim T_set_p1 As Word
  93. Dim T_set_p2 As String * 10
  94. Dim T_set_eeprom As Word
  95. '--------------------------------------
  96. Dim T_set_delta As Single
  97. Dim T_set_delta_p1 As Word
  98. Dim T_set_delta_p2 As String * 10
  99. Dim T_set_delta_eeprom As Word
  100. '--------------------------------------------------------------------
  101. Dim T_suma As Single
  102. Dim T_suma1 As Word
  103. Dim T_suma2 As String * 10
  104. '--------------------------------------------------------------------
  105. 'ZMIENNE PRZETWORNIKÓW ADC
  106. Dim Adc_s1bok As Word
  107. Dim Adc_s1bok_p1 As Long
  108. Dim Adc_s1bok_p2 As Word
  109. '----------------------------------------------------------
  110. 'ZMIENNE PRZELICZNIKA PROCENT
  111. Dim Proc_s1bok As Long
  112.  
  113.  
  114. '--------------------------------------------------------------------
  115. 'DEKLARACJE PODPROGRAMÓW
  116. Declare Sub Pomiary
  117. Declare Sub Przyciski
  118. Declare Sub Wyswietl
  119. Declare Sub Mruganie
  120. Declare Sub Get_adc
  121. Declare Sub Termostat_on
  122. Declare Sub Termostat_off
  123. Declare Sub Grzanie_on
  124. Declare Sub Grzanie_off
  125.  
  126. '--------------------------------------------------------------------
  127. 'USTAWIENIA POCZĄTKOWE
  128. 'Readeeprom T_set_p2
  129. Waitms 500
  130. Cursor Off
  131. Cls
  132. '--------------------------------------------------------------------
  133. 'ODCZYT DANYCH Z PAMIĘCI EEPROM
  134. Readeeprom T_set_eeprom , 10
  135. Readeeprom T_set_delta_eeprom , 30
  136. '--------------------------------------------------------------------
  137. 'PRZYPISANIE ODCZYTANYCH DANYCH Z PAMIĘCI EEPROM
  138. 'DO DANYCH W PROGRAMIE
  139. T_set_p1 = T_set_eeprom
  140. T_set_delta_p1 = T_set_delta_eeprom
  141.  
  142. Call Wyswietl
  143. '--------------------------------------------------------------------
  144. 'POCZĄTEK PĘTLI GŁÓWNEJ
  145. Do
  146.  '--------------------------------------------------------------------
  147.  
  148.    If Flaga10ms = 1 Then                                                        'co 10 ms
  149.       Flaga10ms = 0                                                             'wyzeruj Flaga10ms
  150.       Call Get_adc
  151.    End If
  152.  
  153.    If Flaga100ms = 1 Then                                                       'co 100ms
  154.       Flaga100ms = 0                                                            'wyzeruj Flaga100ms
  155.       Call Przyciski
  156.       Call Wyswietl
  157.    End If
  158.  
  159.    If Flaga500ms = 1 Then                                                       'co 50ms
  160.       Flaga500ms = 0                                                            'wyzeruj Flaga500ms
  161.    End If
  162.  
  163.    If Flaga1s = 1 Then                                                          'co1s
  164.       Flaga1s = 0                                                               'wyzeruj Flaga1s
  165.       Call Pomiary                                                              '
  166.       Call Mruganie
  167.    End If
  168.  
  169.    If Flaga2s = 1 Then                                                          'co2s
  170.       Flaga2s = 0                                                               'wyzeruj Flaga2s
  171.    End If
  172.  
  173.    If Flaga10s = 1 Then                                                         'co10s
  174.       Flaga10s = 0                                                              'wyzeruj Flaga10s
  175.    End If
  176. '--------------------------------------------------------------------
  177.  'USTAWIANIE TEMP. ZADANEJ ORAZ DELTY ENKODEREM
  178.    If Poz_menu = 1 Then
  179.  
  180.       If Rezultat <> 0 Then
  181.          Zmienna = Zmienna + Rezultat
  182.          If Zmienna > 0 And Rezultat = 1 Then
  183.             Incr T_set_p1
  184.             If T_set_p1 > 390 Then
  185.                T_set_p1 = 390
  186.             End If
  187.          End If
  188.          If Zmienna > 0 And Rezultat = -1 Then
  189.             Decr T_set_p1
  190.             If T_set_p1 = 0 Or T_set_p1 > 390 Then
  191.                T_set_p1 = 0
  192.             End If
  193.          End If
  194.  
  195.          T_set_eeprom = T_set_p1
  196.          Writeeeprom T_set_eeprom , 10
  197.       End If
  198.    End If
  199.  
  200.    If Poz_menu = 2 Then
  201.  
  202.       If Rezultat <> 0 Then
  203.          Zmienna = Zmienna + Rezultat
  204.          If Zmienna > 0 And Rezultat = 1 Then
  205.             Incr T_set_delta_p1
  206.             If T_set_delta_p1 > 50 Then
  207.                T_set_delta_p1 = 50
  208.             End If
  209.          End If
  210.          If Zmienna > 0 And Rezultat = -1 Then
  211.             Decr T_set_delta_p1
  212.             If T_set_delta_p1 = 0 Or T_set_delta_p1 > 50 Then
  213.                T_set_delta_p1 = 0
  214.             End If
  215.          End If
  216.  
  217.          T_set_delta_eeprom = T_set_delta_p1
  218.          Writeeeprom T_set_delta_eeprom , 30
  219.       End If
  220.    End If
  221.  
  222.  
  223.  '-------------------------------------------------------------------
  224. 'OBSŁUGA ENKODERA
  225.    Enc.0 = Pink.1
  226.    Enc.1 = Pink.2
  227.    Rezultat = 0
  228.    Select Case Tryb
  229.       Case 0:
  230.          If Enc = 3 Then Incr Tryb                                              'jeżeli dwa rozwarte
  231.       Case 1:
  232.          If Enc = 2 Then Tryb = 2
  233.          If Enc = 1 Then Tryb = 3
  234.       Case 2:
  235.          If Enc = 1 Then
  236.             Rezultat = 1
  237.             Tryb = 0
  238.          End If
  239.       Case 3:
  240.          If Enc = 2 Then
  241.             Rezultat = -1
  242.             Tryb = 0
  243.          End If
  244.  
  245.    End Select
  246.  
  247.  '  If Poz_menu = 3 Then
  248.   '    Call Grzanie_on
  249.    'Else
  250.     '  Call Grzanie_off
  251.    'End If
  252. '--------------------------------------------------------------------
  253. 'OBLICZANIE ZAŁĄCZANIA I WYŁĄCZANIA TERMOSTATU
  254.    T_suma1 = T_set_p1 - T_set_delta_p1                                          'tu działa
  255.    T_suma = T_suma1 / 10
  256.    T_suma2 = Str(t_suma)
  257.    T_suma2 = Fusing(t_suma , "#.#")
  258.    If T1_bok < T_suma2 And Poz_menu = 3 Then
  259.       Call Termostat_on
  260.    End If
  261.  
  262.    If T1_bok => T_set_p2 Or Poz_menu <> 3 Then
  263.       Call Termostat_off
  264.    End If                                                                       'tu działa
  265. '--------------------------------------------------------------------
  266.  
  267.  
  268. Loop
  269. End
  270. 'KONIEC PETLI GŁÓWNEJ
  271. '--------------------------------------------------------------------
  272. 'PODPROGRAMY
  273. '--------------------------------------------------------------------
  274. 'POBIERANIE Z PRZETWORNIKA ADC0 WARTOŚCI
  275. 'NASTAWA PWM POTENCJOMETREM
  276. Sub Get_adc
  277.  
  278.    Adc_s1bok = Getadc(0)
  279.    Adc_s1bok_p1 = Adc_s1bok * 100
  280.    Shift Adc_s1bok , Right , 2
  281.    If Adc_s1bok_p2 <> Adc_s1bok Then
  282.       Adc_s1bok_p2 = Adc_s1bok
  283.       Pwm3a = Adc_s1bok_p2
  284.       Proc_s1bok = Adc_s1bok_p1 / 1023
  285.    End If
  286.  
  287. End Sub
  288.  
  289.  
  290. Sub Pomiary
  291. '--------------------------------------------------------------------
  292. 'POBIERANIE DANYCH Z DS18B20 I OBLICZENIA TEMPERATURY
  293. '-----------------czujnik DS18B20------------------------------------
  294.    Config 1wire = Pinb.0                                                        'konfiguracja maistrali 1wire
  295.    1wreset
  296. '1wr                                                         'podprogram 1wr
  297.    1wwrite &HCC                                                                 'komenda skip ROM
  298.    1wwrite &H44                                                                 'komenda convert T
  299.  
  300. '1wr
  301.    1wreset                                                                      'podprogram 1wr
  302.    1wwrite &HCC                                                                 'komenda skip ROM
  303.    1wwrite &HBE                                                                 'komenda read
  304.  
  305.    B1 = 1wread()                                                                'odczyt z czujnika 1
  306.    B1_1 = 1wread()
  307.  
  308. '1wr                                                         'podprogram 1wr
  309.  
  310.    If B1 >= 248 Then                                                            'jesli temperatura ujemna
  311.       B1 = R1 - B1                                                              'od 255 odejmujemy B1a
  312.       B1_1 = R1 - B1_1                                                          'od 255 odejmujemy B2a
  313.       Znak1 = "-"
  314.    Else
  315.       Znak1 = "+"
  316.    End If
  317.    T1_bok_p2 = B1 / 16                                                          'przesunięcie w prawo o 4 bajty
  318.    T1_bok_p3 = B1_1 * 16                                                        'przesunięcie w lewo o 4 bajty
  319.    T1_bok_p2 = T1_bok_p2 + T1_bok_p3
  320.  
  321.    T1_bok = Fusing(t1_bok_p2 , "###.&")
  322.  
  323. End Sub
  324. '--------------------------------------------------------------------
  325. 'OBSŁUGA PRZYCISKU ENKODERA
  326. Sub Przyciski
  327.  
  328.    If Set_start = 0 Then
  329.       Incr Poz_menu
  330.       Bitwait Set_start , Set
  331.    End If
  332.    If Poz_menu = 4 Then
  333.       Poz_menu = 0
  334.    End If
  335.  
  336.  
  337.  
  338. End Sub
  339. '--------------------------------------------------------------------
  340. ' NARAZIE NIE WYKORZYSTANE
  341. Sub Grzanie_on
  342.  
  343.  
  344.  
  345.  
  346.  
  347. End Sub
  348.  
  349. Sub Grzanie_off
  350.  
  351.  
  352.  
  353.  
  354.  
  355.  
  356. End Sub
  357. '--------------------------------------------------------------------
  358. 'TERMOSTAT
  359. Sub Termostat_on
  360.  
  361.    Set Arduino_led
  362.    Start Timer3
  363.    Pwm3a = Adc_s1bok_p2
  364.  
  365. End Sub
  366.  
  367. Sub Termostat_off
  368.  
  369.    Reset Arduino_led
  370.    Stop Timer3
  371.    Pwm3a = 0
  372.  
  373.  
  374. End Sub
  375. '--------------------------------------------------------------------
  376. 'WYŚWIETLANIE
  377. Sub Wyswietl
  378. '--------------------------------------------------------------------
  379. 'PRZELICZANIE TEMP. ZADANEJ
  380.    T_set_delta = T_set_delta_p1 / 10
  381.    T_set_delta_p2 = Str(t_set_delta)
  382.    T_set_delta_p2 = Fusing(t_set_delta , "#.#")
  383. '--------------------------------------------------------------------
  384. 'PRZELICZANIE DELTY
  385.    T_set = T_set_p1 / 10
  386.    T_set_p2 = Str(t_set)
  387.    T_set_p2 = Fusing(t_set , "#.#")
  388. '--------------------------------------------------------------------
  389.    Select Case Poz_menu
  390.       Case 0:
  391.          Showpic 84 , 0 , Stopien_c
  392.          Locate 1 , 1 : Lcd "TEMP_S1 : " ; T1_bok ; " C "
  393.          Locate 2 , 1 : Lcd "TEMP_SET: " ; T_set_p2 ; "C "
  394.          Locate 3 , 1 : Lcd "DEL_TEMP: " ; T_set_delta_p2 ; "C "
  395.          Locate 4 , 1 : Lcd "PWM S1: " ; Proc_s1bok ; "% "
  396.          Locate 5 , 1 : Lcd "TERMOSTAT OFF "
  397. '--------------------------------------------------------------------
  398. 'PONIŻEJ CHWILOWO WYŚWIETLANE SĄ DANE POMOCNICZE
  399. 'CO BYM WIDZIAŁ CO SIĘ DZIEJE
  400.          Locate 11 , 1 : Lcd "ADC0: " ; Adc_s1bok ; "  "
  401.          Locate 12 , 1 : Lcd "PWM3A: " ; Pwm3a ; "  "
  402.          Locate 13 , 1 : Lcd "T_set_delta: " ; T_set_delta_p1 ; "  "
  403.          Locate 14 , 1 : Lcd "T_set_p1: " ; T_set_p1 ; "  "
  404.          Locate 15 , 1 : Lcd "POZ_MENU " ; Poz_menu
  405.  
  406.       Case 1:
  407.  
  408.  
  409.  
  410.          Locate 1 , 1 : Lcd "TEMP_S1 : " ; T1_bok ; " C "
  411.          Locate 2 , 1 : Lcd "TEMP_SET: " ; T_set_p2 ; "C "
  412.          Locate 3 , 1 : Lcd "DEL_TEMP: " ; T_set_delta_p2 ; "C "
  413.          Locate 4 , 1 : Lcd "PWM S1: " ; Proc_s1bok ; "% "
  414.          Locate 5 , 1 : Lcd "TERMOSTAT OFF "
  415. '--------------------------------------------------------------------
  416. 'PONIŻEJ CHWILOWO WYŚWIETLANE SĄ DANE POMOCNICZE
  417. 'CO BYM WIDZIAŁ CO SIĘ DZIEJE
  418.          Locate 11 , 1 : Lcd "ADC0: " ; Adc_s1bok ; "  "
  419.          Locate 12 , 1 : Lcd "PWM3A: " ; Pwm3a ; "  "
  420.          Locate 13 , 1 : Lcd "T_set_delta: " ; T_set_delta_p1 ; "  "
  421.          Locate 14 , 1 : Lcd "T_set_p1: " ; T_set_p1 ; "  "
  422.          Locate 15 , 1 : Lcd "POZ_MENU " ; Poz_menu
  423.  
  424.  
  425.       Case 2:
  426.  
  427.          Locate 1 , 1 : Lcd "TEMP_S1 : " ; T1_bok ; " C "
  428.          Locate 2 , 1 : Lcd "TEMP_SET: " ; T_set_p2 ; "C "
  429.          Locate 3 , 1 : Lcd "DEL_TEMP: " ; T_set_delta_p2 ; "C "
  430.          Locate 4 , 1 : Lcd "PWM S1: " ; Proc_s1bok ; "% "
  431.          Locate 5 , 1 : Lcd "TERMOSTAT OFF "
  432. '--------------------------------------------------------------------
  433. 'PONIŻEJ CHWILOWO WYŚWIETLANE SĄ DANE POMOCNICZE
  434. 'CO BYM WIDZIAŁ CO SIĘ DZIEJE
  435.          Locate 11 , 1 : Lcd "ADC0: " ; Adc_s1bok ; "  "
  436.          Locate 12 , 1 : Lcd "PWM3A: " ; Pwm3a ; "  "
  437.          Locate 13 , 1 : Lcd "T_set_delta: " ; T_set_delta_p1 ; "  "
  438.          Locate 14 , 1 : Lcd "T_set_p1: " ; T_set_p1 ; "  "
  439.          Locate 15 , 1 : Lcd "POZ_MENU " ; Poz_menu
  440.  
  441.       Case 3:
  442.  
  443.          Locate 1 , 1 : Lcd "TEMP_S1 : " ; T1_bok ; " C "
  444.          Locate 2 , 1 : Lcd "TEMP_SET: " ; T_set_p2 ; "C "
  445.          Locate 3 , 1 : Lcd "DEL_TEMP: " ; T_set_delta_p2 ; "C "
  446.          Locate 4 , 1 : Lcd "PWM S1: " ; Proc_s1bok ; "% "
  447.          Locate 5 , 1 : Lcd "TERMOSTAT ON  "
  448. '--------------------------------------------------------------------
  449. 'PONIŻEJ CHWILOWO WYŚWIETLANE SĄ DANE POMOCNICZE
  450. 'CO BYM WIDZIAŁ CO SIĘ DZIEJE
  451.          Locate 11 , 1 : Lcd "ADC0: " ; Adc_s1bok ; "  "
  452.          Locate 12 , 1 : Lcd "PWM3A: " ; Pwm3a ; "  "
  453.          Locate 13 , 1 : Lcd "T_set_delta: " ; T_set_delta_p1 ; "  "
  454.          Locate 14 , 1 : Lcd "T_set_p1: " ; T_set_p1 ; "  "
  455.          Locate 15 , 1 : Lcd "POZ_MENU " ; Poz_menu
  456.  
  457.    End Select
  458.  
  459.  
  460. End Sub
  461. '--------------------------------------------------------------------
  462. 'MRUGANIE DIODĄ LED CO 1 SEKUNDĘ
  463. ' CO BY BYŁO WIDAĆ ŻE UKŁAD ŻYJE
  464. Sub Mruganie
  465.    Toggle Led_live
  466. End Sub
  467. '--------------------------------------------------------------------
  468. '            podprogram przerwań Timer1
  469. Przertimer1:
  470.    Timer1 = 45536                                                               'wstawienie do Timer1 wartości 45536
  471.    Incr Dziel(1)                                                                'zwiększaj dzielnik 1
  472.    If Dziel(1) = 1 Then                                                         'jeśli dzielnik 1 zwiększy się 1 razy
  473.       Dziel(1) = 0                                                              'wyzeruj dzielnik 1
  474.       Set Flaga10ms                                                             'ustaw Flaga10ms
  475.       Incr Dziel(2)                                                             'zwiększaj dzielnik 2
  476.       If Dziel(2) = 10 Then                                                     'jeśli dzielnik 2 zwiększy się 10 razy
  477.          Dziel(2) = 0                                                           'wyzeruj dzielnik 2
  478.          Set Flaga100ms                                                         'ustaw Flaga100ms
  479.          Incr Dziel(3)                                                          'zwiększaj dzielnik 3
  480.          If Dziel(3) = 5 Then                                                   'jeśli dzielnik 3 zwiększy się 5 razy
  481.             Dziel(3) = 0                                                        'wyzeruj dzielnik 3
  482.             Set Flaga500ms                                                      'ustaw Flaga500ms
  483.             Incr Dziel(4)                                                       'zwiększaj dzielnik 4
  484.             If Dziel(4) = 2 Then                                                'jeśli dzielnik 4 zwiększy się 2 razy
  485.                Dziel(4) = 0                                                     'wyzeruj dzielnik 4
  486.                Set Flaga1s                                                      'ustaw Flaga1s
  487.                Incr Dziel(5)                                                    'zwiększaj dzielnik 5
  488.                If Dziel(5) = 2 Then                                             'jeśli dzielnik 5 zwiększy się 2 razy
  489.                   Dziel(5) = 0                                                  'wyzeruj dzielnik 5
  490.                   Set Flaga2s                                                   'ustaw Flaga2s
  491.                   Incr Dziel(6)                                                 'zwiększaj dzielnik 6
  492.                   If Dziel(6) = 5 Then                                          'jeśli dzielnik 6 zwiększy się 5 razy
  493.                      Dziel(6) = 0                                               'wyzeruj dzielnik 6
  494.                      Set Flaga10s                                               ' Ustaw Flaga10s
  495.                   End If                                                        'koniec warunku
  496.                End If                                                           'koniec warunku
  497.             End If                                                              'koniec warunku
  498.          End If                                                                 'koniec warunku
  499.       End If                                                                    'koniec warunku
  500.    End If                                                                       'koniec warunku
  501. Return                                                                          'powrót
  502. '--------------------------------------------------------------------
  503. 'ZNAK STOPNIA NA RAZIE NIE UMIEM ZAŁADOWAĆ DO WYŚWIETLACZA
  504. 'WŁASNYCH ZNAKÓW STOPNIA POPRZEZ WŁASNE FONTY
  505. Stopien_c:
  506.    $bgf "stopien_C.bgf"
Znalazłem tu na forum program Bartka
viewtopic.php?f=16&t=55
(mam nadzieję że Bartek nie będzie miał nic przeciwko że go użyje).
Nie wiem w którym miejscu umieścić program Bartka i jak go połączyć w całość.
W tej chwili mój program działa tak że aby dojść do załączenia termostatu muszę przejść za każdym razem
przez ustawienie temperatury zadanej jak i delty.
Miłe było by również poprawienie moich wypocin :oops: .
pozdrawiam Jacek.
Strefa czasowa UTC+02:00
Strona 1 z 1
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/