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

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

void send_byte (unsigned char data)		//Отправка байта по шине
{
  unsigned char i;
  for (i=0; i<4; i++)
  { 
	if (data&1) {PORTB|= 1;} else {PORTB&= ~1;};//сброс линии данных, если бит=0 и наоборот
	data=data>>1;  //сдвиг вправо   
	PORTB|= 2;  //установка линии тактирования
    delay_1us();   //задержка на установку данных
	PORTB&= ~2;//сброс линии тактирования  
    delay_1us(); //задержка на удержание данных
	delay_1us(); 
  };
  delay_1us();//межсимвольная задержка
  delay_1us();
  delay_1us();
  delay_1us();
  delay_1us();
}

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

$Device= attiny2313        ' used device
$Stack = 32                ' stack depth
$Clock = 8                ' adjust for used crystal

$Def pinLCDdat = PORTB.0
$Def pinLCDclk = PORTB.1
$Def pinLed = PORTB.2
      
Declare Sub SendLCD(LCDdataX As Byte)
Declare Sub ScrollLCD(LCDdvigatSinvolov As Byte)

Dim KeyPressed As Byte, tempA As Byte
' ===================

ALLinit:  '- Инициализация всей периферии
    DDRD=0: PORTD =255        ' INPut
    DDRB=255: PORTB =255    ' OUTput

metka:  ' Тест ЖКИ: выводим все отображаемые символы

    ScrollLCD (10)        ' Скроллинг экрана на (X) "пробелов" 
    
    For KeyPressed = 0 To 15
     SendLCD (KeyPressed)        ' Один символ на экран
     Toggle pinLed
     WaitMs 255 
    Next KeyPressed
    
Wait 2
Goto metka


' ---------  Скроллинг экрана на X символов  --------
Sub ScrollLCD(LCDdvigatSinvolov As Byte)
Local temp2 As Byte, temp As Byte
pinLCDdat =0    ' Data
For temp = 1 To LCDdvigatSinvolov    
    For temp2 = 0 To 3
        pinLCDclk = 0: WaitUs 1    ' CLK  
        pinLCDclk = 1: WaitUs 1    ' CLK 
    Next temp2
Next temp
End Sub


'----------   Один символ на экран  ---------
Sub SendLCD(LCDdataX As Byte)
Local tiki As Byte, temp2 As Byte, temp As Byte

pinLCDclk =1    ' CLK
tiki= 128

Shift(Left, 4, LCDdataX)

For temp2 = 0 To 3 
    temp = LCDdataX & tiki
    
    If temp =0 Then
       pinLCDdat =0    ' Data 
     Else 
       pinLCDdat =1    ' Data
    End If
      
    pinLCDclk = 0: WaitUs 1
    pinLCDclk = 1: WaitUs 1
        
    Shift(Right, 1, tiki):    If tiki =0 Then tiki = 128
Next temp2
End Sub