Регистрация | Вход

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: demanik, ivan_fd  
LGM12864H
DNM Дата: Пт, 11.03.2016, 11:03  |                                                                                                                Сообщение # 16
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 75
Репутация: 0   ±
Замечания:   ±
На сайте с 29.09.2011

Статус: Offline

Все заработало! Спасибо за помощь!
Вот рабочий код:

Device = 18F452
Xtal =  20
@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      'LCD № 4-11
Declare LCD_RSPin = PORTD.5     'LCD № 16
Declare LCD_ENPin = PORTD.7     'LCD № 17
Declare LCD_RWPin = PORTD.6     'LCD № 15
Declare LCD_CS1Pin = PORTD.4    'LCD № 12   ?
Declare LCD_CS2Pin = PORTD.3    'LCD № 13   ?
Declare LCD_Type = Graphic
Declare GLCD_STROBE_DELAY 0
Declare GLCD_READ_DELAY 2
Declare Internal_Font = On
Declare Font_Addr = 0
Declare GLCD_CS_Invert = 1     

 
Dim TEKRAR As Word
Dim ADRS As Word
Dim OKU As Byte
Dim Xpos As Byte
Dim Ypos As Byte
Dim Size As Byte
Dim SetClr As Byte
Dim RADIUS As Byte
Dim SET_CLR As Byte
Cls

ADRS=3000
TEKRAR=0
Main:
'

Print At 0,1,"Hello World! "

Xpos = 63
Ypos = 32
Size = 20
SetClr = 1
Box SetClr,Xpos,Ypos,Size
DelayMS 2000
Cls

Xpos = 63 ' Позиция центра окружности по горизонтали
Ypos = 32 ' Позиция центра окружности по вертикали
RADIUS = 20 ' Радиус окружности 20 пикселей
SET_CLR = 1 ' Задать режим рисования, но не стирания

For RADIUS=1 To 20 Step 2
Circle SET_CLR , Xpos , Ypos , RADIUS ' Нарисовать окружность с заданными параметрами            
DelayMS 500
Print At 5,1,"r=",Dec RADIUS
Next RADIUS
DelayMS 2000
Cls

BASLA:
    Cls
    For Ypos = 0 To 7
    For Xpos = 0 To 127
    OKU = CRead ADRS
    ADRS=ADRS+1
    LCDWrite Ypos,Xpos,
    [OKU]Next Xpos
    Next Ypos
    TEKRAR=TEKRAR+1  'номер картинки
    If TEKRAR=17 Then TEKRAR=0:ADRS=3000
    DelayMS  175
    GoTo BASLA

GoTo Main
Include "FONT.INC"
Include "balik.inc"
Прикрепления: balik.inc (92.8 Kb)


Более подробно здесь: http://asemlab.net/
DNM Дата: Пт, 25.03.2016, 15:01  |                                                                                                                Сообщение # 17
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 75
Репутация: 0   ±
Замечания:   ±
На сайте с 29.09.2011

Статус: Offline

Что получилось
Прикрепления: 8079297.jpg (184.1 Kb)


Более подробно здесь: http://asemlab.net/
Сообщение отредактировал DNM - Пт, 25.03.2016, 15:07
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск: