Так и скажите ,что лень ( А я вам на будущее печатку выложу в Lay исходник, даже обновлю под драйвер IR4426 и всё такое.

Размеры уже сделаны под телефон, прошивку я напишу, как бы с UART не работал. Кстати, кто делал устрйоства по договорам? Есть у кого бланк для образца, акты всякие и вообще, что с чем едят? без работы ща, а как раз колымчик подвернулся с бюрократической заморочкой (

Но только такой был массово везде, с номеронабирателем или без него, красный, серый, с кнопкой и без.

МоСк высушил... Чувствую придётся на ассемблере вытворять нечто подобное, BASCOM не предсказуем, использование библиотек прям как подводные мины.
Вообщем начитался про регистр UDR и всё такое, покопался на форуме и в яндексе, вник в прерывание Urxc  и т.п. но блин как теперь всё это подружить с библиотекой от Nokia LCD 1110 не имею представления. даже если Disable Urxc перед библиотекой, всё равно экран не экранит.
получается проще написать самому библиотеку на асме, прерывания и общения тоже на асме, чем использовать благо Bascom и непонятую разбросанную кусками информацию на русском языке Bascom Avr.
А ещё не понял, по мимо прерывания есть ещё способ получения информации по UART через какой-то буфер?

Подскажи как в переменную String забить хоть байт инфомрации из SIM 300 и при этом работать с библиотекой LCD 1110 ))) Бубен уже затёртый )

Проект задержался, сейчас опять возьмусь за него, всего-то софт и чуток напильника добавить.

огромное СПАСИБО! А проблем нет с кодировкой Русского языка и баскомоских глюков?
Столкнулся с новой проблемой, пишет, то низкое питание, AZ1085T - 3.3v 2A питает схему, но для SIM300 по документации от 3.4 - 4.5в. надо. Получается с SIM300 на 3.3в. такой эффект: то работает, то не работает.

ОНО РАБОТАЕТ И ЗВОНИТ!!!! ББуууууАААаааААА ааа ХАХАХА

Я тоже слыхал об этом, может там разомкнуть цепь?

У меня моск высох, ну почему вот так не работает?

If Ischarwaiting() = 1 And Buff = 0 Then
   Buff = 1
   Buffer = ""
End If
If Buff = 1 Then
   P = Inkey()
   Buffer = Buffer + Chr(p)
   If P = 10 Then
      Buff = 0
      Modem = Buffer
   End If
End If

Именно так не мешает и не тормозит программу. Жопа полная, другие методы либо тормозят, либо слишком быстрые, а нужен метод не тормозящий программу и в любом случае завершающий опрос буфера, может я нетак представление имею? Вообще буферизация UART в Atmega8 аппаратная?

Вот такое нахальство тоже не катит:

   P = Inkey()
   If P = 10 Then
         Modem = Buffer
         Buffer = ""
      Else
         If P > 31 Then Buffer = Buffer + Chr(p)
   End If

Отредактировано Ev3658 (2013-08-30 02:53:57)

Эксперементирую. Всё-же какае-то нестабильность проявляется. Может кто подскажет как асинхронно/синхронно, требования какие нибудь и т.п. До 4 часов ночи копался, жена злая, моск высушен, глаза смотрят на AVR Studio...
Я так понял, что Ischarwaiting() = 1 становится тогда, когда только стали поступать данные в буфер, а так как туда залетает куча информации, то его нужно быстро очистить, но не настолько быстро, нужно, чтоб он успел забить строку и при этом попасть в интервал до поступления следующей строки.
Эта очень нестабильно как-то, а метод популярный в интернет подвисает, хоть и сделали выход по нулю, всё равно не даёт стабильности.
Вообщем то в начале иссчезнет буква, то наберутся буквы со всех команд и даже эроглифы появляются, причём 100% модем даёт нормальные данные, но inkey возвращает их нестабильно в зависимости от кода опроса.

Разорвать короткозамкнутую цепь и поменять местами... у всех по разному, да и диапазон разный по частоте.

УРААААА!!!!! Я С АЛХИМИЧИЛ ФОРМУЛУ ПРИЁМА С SIM 300 БЕЗ ПОДВИСАНИЯ !!!!!
Держите и владейте моим детищем, убившее бессоные ночи )))) (ну немножко сплагиатил)

Sim300:

Tbuf = 0
Do
   B = Inkey()
   Tbuf = Tbuf + 1
   Select Case B
        Case 10 : If S <> "" Then
                     Modem = S
                     S = ""
                     Exit Do
                     End If
                  Case Else
         If B > 32 Then
            Tbuf = 0
            S = S + Chr(b):                                
         End If
    End Select
    If Tbuf > 25000 Then
           Exit Do
            End If

   Loop
return

и них переменные:

Dim B As Byte
Dim Tbuf As Integer                                       
Dim Modem As String * 16
Dim S As String * 16

Подпрограмму из программы вызываю просто:

b = Ischarwaiting()
If b= 1  Then gosub sim300

Можно сказать как часы, tbuff если сработал, то после допишет, главное программа не прерывается на много секунд.
А да, шапка для новичков:

$regfile = "m8def.dat" 
$crystal = 14745600 'работает с кварцом и 12 и 16, меняйте baud 14400 или 19200
$hwstack = 16
$swstack = 64
$framesize = 32
$baud = 19200
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 0

Как то всё наоборот понаписал )

Отредактировано Ev3658 (2013-09-02 10:51:01)

Да всё нормально!!! Проверил на 2х разным МК с разными кварцами. Оказывается без Ischarwaiting() Вообще круть!

Вот так вот:

.....
Goto programma


Sim300:

Tbuf = 0
Do

   Tbuf = Tbuf + 1
   Select Case B
       'Case 0 :
       'Case 13
       Case 10 : If S <> "" Then
                     Modem = S
                     S = ""
                     Do
                        B = Inkey()
                     Loop Until B = 0
                     Exit Do
                     End If
                  Case Else
         If B > 32 Then
            Tbuf = 0
            S = S + Chr(b) :
         End If
    End Select
    If Tbuf > 25000 Then
           Exit Do
            End If
  B = Inkey()
   Loop
return

programma:

do
B = Inkey()
If B > 0  Then Gosub Sim300  
...

loop

Вообще не представляю как поток информации наладить по TCP IP стеку, метод в баскоме нереален, полезу я пожалуй в ассемблер, иначе никак.

Отредактировано Ev3658 (2013-09-02 16:49:53)