Форум РадиоКот

Код: Выделить всё

End

$include "alpha.bas"

Код: Выделить всё

Zero_big:
Data 9 , 63 , 252 , 127 , 254 , 192 , 3 , 128 , 1 , 128 , 1 , 128 , 1 , 192 , 3
Data 127 , 254 , 63 , 252
One_big:
Data 6 , 64 , 1 , 64 , 1 , 255 , 255 , 255 , 255 , 0 , 1 , 0 , 1

Код: Выделить всё

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 16
$framesize = 16
Open "comb.3:19200,8,n,1" For Output As #1
Open "comb.4:19200,8,n,1" For Input As #2
Dim Cmd As String * 8

Config Portb.0 = Output
Led Alias Portb.0

Led = 1
Print #1 , "AT+CMGF=1"
Waitms 100

Print #1 , "AT+CNMI=2,2"
Waitms 100
Led = 0



Do
Wait 2
Led = 1
Print #1 , "ATD+79199999999;"
Wait 10
Print #1 , "Ath0"
Led = 0

Loop

Код: Выделить всё

$regfile = "m32def.dat"
$crystal = 14745600
$baud = 9600
$hwstack = 64
$swstack = 64
$framesize = 100

Config Lcdpin = Pin , Rs = Portb.3 , E = Portb.2 , Db4 = Portb.6 , Db5 = Portb.4 , Db6 = Portb.7 , Db7 = Portb.5
Config Lcd = 16 * 2
Cursor Off Noblink

Portc.0 = 1
Cls
Declare Sub Getline(sk As String)                         
Declare Sub Flushbuf()                                     
Dim Infa As String * 20
Dim Sk As String * 100                                    
Dim Phonebook_1 As String * 12                            
Dim Phonebook_2 As String * 12                              

Dim Phonenumbereeprom As Eram String * 12
Dim Number As String * 12

'Phonenumber = "+79199999999"


Print "AT+CPBS?"
Waitms 500
Getline Sk 'Îòâåò +CPBS: "SM",1,110
Infa = Mid(sk , 13 , 1) 
If Infa <> "0" Then
Gosub Phonebook
Phonenumber = Phonebook_1                                 <<<  - - РУГАЕТСЯ СЮДА
Locate 1 , 1
Lcd "HOMEP TE§EªOHA"
Locate 2 , 1
Lcd Phonebook_1
Waitms 999

Else
Locate 1 , 2
Lcd "HET TE§EªOHA "
Locate 2 , 4
Lcd "ৱ CMC"
Waitms 999
End If
Infa = ""
Flushbuf


'Òåëåôîííàÿ êíèãà
Phonebook:
Print "AT+CPBR=1"
Getline Sk
Phonebook_1 = Sk
Phonebook_1 = Mid(phonebook_1 , 11 , 12)
Locate 1 , 1
Lcd Phonebook_1
Wait 2

Print "AT+CPBR=2"
Getline Sk
Phonebook_2 = Sk
Phonebook_2 = Mid(phonebook_2 , 11 , 12)
Locate 2 , 1
Lcd Phonebook_2
Wait 2

Flushbuf

Return

Код: Выделить всё

dim b as byte
dim с as byte
dim temp_a as single
Readeeprom b , 1' целая часть
Readeeprom c , 2' десятые
a = с / 10'десятые
a = a + b'прибавляем целую часть

Код: Выделить всё

b = int (a)'берём целую часть Т
temp_a = a'закидываем Т во вспомогат переменную
temp_a = temp_a - b'находим десятые
temp_a = temp_a * 10'представляем десятые как целое число
с = temp_a'перекидываем в байтовую переменную

Writeeeprom b, 1 'сохраняем целую часть
Writeeeprom c, 2 ' сохраняем десятые