Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Исходники » Attyni2313+keyboardps/2+9светодиодов


Attyni2313+keyboardps/2+9светодиодов

Сообщений 1 страница 5 из 5

1

Задание: Клава ps/2 и 9 светодиодов подключено к attyni2313.Надо сделать так чтоб при нажатии клавиши 1 загорелся первый светодиод,отпустил-потух ,2 второй и тд.
Вроде все просто но чтото неполучается.Может кто подскажет что нетак

Код:
$regfile = "attiny2313.dat"
$regfile = 8000000

Config Keyboard = Pinb.0 , Data = Pinb.1 , Keydata = Key
Config Portd = Output


Dim A As Byte

Cls

Do
Portd = 1
A = Getatkbd()
If A = "1" Then Portd.0 = 0
If A = "2" Then Portd.1 = 0
If A = "3" Then Portd.2 = 0
If A = "4" Then Portd.3 = 0
If A = "5" Then Portd.4 = 0
If A = "6" Then Portd.5 = 0
If A = "7" Then Portd.6 = 0
Loop

End

Key:
Data 0 , 0 , 0 , 0 , 0 , 200 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , &H5E , 0
Data 0 , 0 , 0 , 0 , 0 , 113 , 49 , 0 , 0 , 0 , 122 , 115 , 97 , 119 , 50 , 0
Data 0 , 99 , 120 , 100 , 101 , 52 , 51 , 0 , 0 , 32 , 118 , 102 , 116 , 114 , 53 , 0
Data 0 , 110 , 98 , 104 , 103 , 121 , 54 , 7 , 8 , 44 , 109 , 106 , 117 , 55 , 56 , 0
Data 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0 , 0 , 46 , 45 , 108 , 48 , 112 , 43 , 0
Data 0 , 0 , 0 , 0 , 0 , 92 , 0 , 0 , 0 , 0 , 13 , 0 , 0 , 92 , 0 , 0
Data 0 , 60 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 125 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 81 , 33 , 0 , 0 , 0 , 90 , 83 , 65 , 87 , 34 , 0
Data 0 , 67 , 88 , 68 , 69 , 0 , 35 , 0 , 0 , 32 , 86 , 70 , 84 , 82 , 37 , 0
Data 0 , 78 , 66 , 72 , 71 , 89 , 38 , 0 , 0 , 76 , 77 , 74 , 85 , 47 , 40 , 0
Data 0 , 59 , 75 , 73 , 79 , 61 , 41 , 0 , 0 , 58 , 95 , 76 , 48 , 80 , 63 , 0
Data 0 , 0 , 0 , 0 , 0 , 96 , 0 , 0 , 0 , 0 , 13 , 94 , 0 , 42 , 0 , 0
Data 0 , 62 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0

0

2

код удержания дополняется одним или двумя дополнительными байтами. Скачайте любую программу на ПК, которая показывает коды клавиш клавиатуры. и увидите.
Собственно, а для чего вам удерживать кнопку?

Отредактировано MACTEPok (2014-08-12 20:45:37)

0

3

MACTEPok написал(а):

код удержания дополняется одним или двумя дополнительными байтами. Скачайте любую программу на ПК, которая показывает коды клавиш клавиатуры. и увидите.
Собственно, а для чего вам удерживать кнопку?

Отредактировано MACTEPok (Сегодня 20:45:37)


да впринципе удерживать ненадо.

0

4

Вопрос как в Proteus протестить? Клавиатуры ps/2 ненашел я в нем

0

5

в железе тестить.

0


Вы здесь » Программирование ATMEL в BASCOM. » Исходники » Attyni2313+keyboardps/2+9светодиодов