'**************************************************************** '* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2016 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 02.03.2016 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** Device = 18F452 Xtal = 4 '@Config_REQ '@__Config Config1H, OSCS_OFF_1 & HS_OSC_1 '@__Config Config2L, BOR_OFF_2 & BORV_20_2 & PWRT_ON_2 '@__Config Config2H, WDT_OFF_2 & WDTPS_128_2 '@__Config Config3H, CCP2MX_OFF_3 '@__Config Config4L, STVR_OFF_4 & LVP_OFF_4 & DEBUG_OFF_4 '----------------------------------------------------------- All_Digital = TRUE Declare LCD_DTPort = PORTB Declare LCD_RSPin = PORTD.5 Declare LCD_ENPin = PORTD.7 Declare LCD_RWPin = PORTD.6 Declare LCD_CS1Pin = PORTD.3 Declare LCD_CS2Pin = PORTD.4 Declare LCD_Type = Graphic Declare Internal_Font = On Declare Font_Addr = 0 Declare GLCD_CS_Invert = 1 ' работает с 1 Dim Xpos As Byte Dim Ypos As Byte Dim Size As Byte Dim SetClr As Byte Main: Cls Print At 0,1,"Hello World" DelayMS 5000 Cls Xpos = 63 Ypos = 32 Size = 20 SetClr = 1 Box SetClr,Xpos,Ypos,Size DelayMS 100 Include "FONT.INC" Stop