ADMIN |
Дата: Чт, 09.04.2015, 06:53 | Сообщение # 18 |
Администратор
Группа:
Администраторы
Ранг:
Специалист
Сообщений:
1134
Замечания:
±
На сайте с 20.08.2007
Статус:
Offline
|
Цитата bulat (  ) вообще честно говоря накупил когда-то много пиков(12f629,675,16f627-630,676,684 и т д) ,лежат,хочется их пощупать,так сказать... частотомер вроде получается по тихоньку,считает правильно,разбираюсь с кнопками,жаль протон с ограничением 2 кб,все хотелки не полезут Так лекарство от этого есть. Опять же, какая версия Протона? Там рядом должно было лежать лекарство. Здесь у всех ломанная версия.
|
|
|
|
bulat |
Дата: Чт, 09.04.2015, 07:20 | Сообщение # 19 |
Группа:
Проверенные
Ранг:
Начал соображать
Сообщений:
26
Замечания:
±
На сайте с 05.04.2015
Статус:
Offline
|
я уже не помню где скачивал,пока это мне не надо,частотомер работает-проверял от 10 мгц до 446 мгц,на входе стоит прескалер SAB6456,развожу плату,всем огромное спасибо кто помогал P.S. с переполнением так и не разобрался
Сообщение отредактировал
bulat - Чт, 09.04.2015, 07:23
|
|
|
|
AndrF |
Дата: Чт, 09.04.2015, 10:53 | Сообщение # 21 |
Группа:
Проверенные
Ранг:
Могу и подсказать
Сообщений:
162
Замечания:
±
На сайте с 03.02.2012
Статус:
Offline
|
Цитата MiXaS (  ) Вот тож!!! Но переход разработчиков на микросхемы другого производителя все же занимает время, а значит и деньги. Так что тираж изделий должен быть достаточен чтобы это окупить разницей в цене чипа (я вот сильно сомневаюсь что она есть или существенна)...
Сообщение отредактировал
AndrF - Чт, 09.04.2015, 10:54
|
|
|
|
bulat |
Дата: Пн, 28.03.2016, 08:09 | Сообщение # 26 |
Группа:
Проверенные
Ранг:
Начал соображать
Сообщений:
26
Замечания:
±
На сайте с 05.04.2015
Статус:
Offline
|
MiXaSспасибо! но все равно мало понятно,есть ли реальная конструкция на 3310 написанная на протон Picbasic
Добавлено (18.06.2015, 23:17) --------------------------------------------- удалось вывести букву а,буду переделывать свой частотомер на 5110 '**************************************************************** '* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright © 2015 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 19.06.2015 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** Device = 12F629 Reminders = OFF Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, MCLRE_OFF ;No crystal, no reset Reminders = On Xtal = 4 TRISIO = %00000 GPIO = %00000 Declare All_Digital = On Symbol CLK=GPIO.0 Symbol DTA=GPIO.1 Symbol DC_=GPIO.2 Symbol RST=GPIO.4 GPIO=0
Dim Chr As Byte Dim BitMap As Word Dim PosX As Byte Dim PosY As Byte Dim ColumnDim[6] As Byte '?????? Dim LcdData As Byte
RST=0 DelayMS 100 RST=1 DelayMS 100 GoSub LCD_Init DelayMS 100 GoSub LCD_Clear
Start: PosX=0:PosY=0:GoSub LCD_GotoXY ' ????????????? ?????? ? ?????? ??????? 'Column[]= DATA $20, $54, $54, $54, $78, $00 '224 ? For Chr=0 To 5 '??????? 'READ Column(Chr)' Chr,????????? ?? EEPROM ??????? ? 0 ?????? ? ??????? ? ?????? Column(Chr) ???? ??????? ? Next Chr High DC_ '????????????? ??? ?????? SHOut DTA,CLK,1,[$20, $54, $54, $54, $78, $00]'Column(0),Column(1),Column(2),Column(3),Column(4),Column(5) GoTo Start
LCD_Init:
Low RST :DelayMS 100 : High RST : Low DC_ ' RESET LCD
LcdData= $21: GoSub LCD_ByteOut ' LCD EXTENDED COMMANDS LcdData= $c8: GoSub LCD_ByteOut ' SET LCD Vop (CONTRAST) LcdData= $06: GoSub LCD_ByteOut ' SET TEMP COEFFICENT LcdData= $13: GoSub LCD_ByteOut ' LCD BIAS MODE LcdData= $20: GoSub LCD_ByteOut ' LCD STANDARD COMMANDS LcdData= $0c: GoSub LCD_ByteOut ' LCD IN NORMAL MODE Return
LCD_ByteOut: SHOut DTA,CLK,1, [LcdData]Return
LCD_Clear: PosX=0:PosY=0:GoSub LCD_GotoXY High DC_ For Chr=1 To 252 LcdData=0:GoSub LCD_ByteOut LcdData=0:GoSub LCD_ByteOut Next Chr Return 'DATA $20, $54, $54, $54, $78, $00 '224 ? LCD_GotoXY: Low DC_ LcdData=%01000000 | PosY :GoSub LCD_ByteOut LcdData=%10000000 | PosX :GoSub LCD_ByteOut Return
'------------------------------------------------- ' Font DATA table '------------------------------------------------- '................................................. ' DEC Chr HEX
Добавлено (28.03.2016, 08:09) --------------------------------------------- снова занялся дисплеем не могу понять как пользоваться командами RESTORE и READ,пишу так BitMap VAR Word Column0 VAR Byte Column1 VAR Byte Column2 VAR Byte Column3 VAR Byte Column4 VAR Byte Column5 VAR Byte DATA $20, $54, $54, $54, $78, $00 '224 à DATA $3C, $4A, $4A, $49, $31, $00 '225 á DATA $7C, $54, $54, $28, $00, $00 '226 â DATA $7C, $04, $04, $04, $0C, $00 '227 ã DATA $E0, $54, $4C, $44, $FC, $00 '228 ä DATA $38, $54, $54, $54, $08, $00 '229 å DATA $6C, $10, $7C, $10, $6C, $00 '230 æ DATA $44, $44, $54, $54, $28, $00 '231 ç DATA $7C, $20, $10, $08, $7C, $00 '232 è DATA $78, $42, $24, $12, $78, $00 '233 é DATA $7C, $10, $28, $44, $00, $00 '234 ê DATA $20, $44, $3C, $04, $7C, $00 '235 ë DATA $7C, $08, $10, $08, $7C, $00 '236 ì DATA $7C, $10, $10, $10, $7C, $00 '237 í DATA $38, $44, $44, $44, $38, $00 '238 î DATA $7C, $04, $04, $04, $7C, $00 '239 ï DATA $7C, $14, $14, $14, $08, $00 '240 ð DATA $38, $44, $44, $44, $44, $00 '241 ñ DATA $04, $04, $7C, $04, $04, $00 '242 ò DATA $00, $00, $00, $00, $00, $00 '32 space 20 Restore BitMap-выдает ошибку READ Column0-выдает ошибку READ Column1-выдает ошибку READ Column2-выдает ошибку READ Column3-выдает ошибку READ Column4-выдает ошибку READ Column5-выдает ошибку что я делаю не так?
Сообщение отредактировал
bulat - Пн, 28.03.2016, 08:10
|
|
|
|
bulat |
Дата: Пн, 28.03.2016, 12:38 | Сообщение # 27 |
Группа:
Проверенные
Ранг:
Начал соображать
Сообщений:
26
Замечания:
±
На сайте с 05.04.2015
Статус:
Offline
|
получается вот так,пока сделал русские буквы и увеличенный цифры,не могу понять как присваивать буквам их код в аск2,воюю дальше
Сообщение отредактировал
bulat - Пн, 28.03.2016, 12:39
|
|
|
|
bulat |
Дата: Вт, 10.05.2016, 15:20 | Сообщение # 30 |
Группа:
Проверенные
Ранг:
Начал соображать
Сообщений:
26
Замечания:
±
На сайте с 05.04.2015
Статус:
Offline
|
вот я и спросил-правильно ли порты подключены,для входа частоты PORTB.6-правильно? на WH1602 ниже исходник,протеус,нех,решил переделать на нокиа5110,вывел букву а,пока норм(просто нех,протеус выше) не могу разобраться с командами restoreДобавлено (10.05.2016, 15:20) --------------------------------------------- тут что-никто ничего не знает про READ RESTORE?жду ответа уже полтора месяца,пипец с английским не дружу,где можно найти инфу?все перерыл,а адекватного описания так и не нашел...
|
|
|
|