

If Button_plus = 0 And Button_minus = 1 Then If Thermo_mode_counter >= Button_mode_time Then Thermo_mode = 1Ĭall Modify_setting_lcd(modify_thermo_setting) If Thermo_mode = 0 And Thermo_mode_state = 1 Then برنامه میکروکنترلر به زبان بیسیک BASIC در نرم افزار BASCOM-AVRĭeclare Sub Thermo_lcd(thermo As Integer)ĭeclare Sub Thermocontrol(thermo As Integer, Thermosetting As Integer)ĭeclare Sub Modify_setting_lcd(thermo As Integer)ĭeclare Function Read_thermo(thermo As Byte) As Byteĭim Currenttermo As Integer At 1wire_array OverlayĬonfig Lcdpin = Pin, Db4 = Portb.0, Db5 = Portb.1, Db6 = Portb.2, Db7 = Portb.3, Rs = Portb.4, E = Portb.5Ĭall Thermocontrol(currenttermo, Thermo_setting)
