Вообще при отправке любого цвета либо грязно синий, либо фиолетовый, с незначительными градациями. Если постоянно нажимать кнопку то при каждом нажатии 3 раза происходит перезаливка. Пытаюсь отправить единственный красный цвет.
Код: Выделить всё
procedure TForm1.Button2Click(Sender: TObject);
var r1,g1,b1:integer;
Data: Byte;
begin
r1:=GetRValue(i) shr 3;
g1:=GetGValue(i) shr 2;
b1:=GetBValue(i) shr 3;
i:= (r1 shl 11) + (g1 shl 5) + b1; // i - глобальная integer, из ColorDialog1
BComPort1.Open;
Data := Hi(i);
BComPort1.Write(Data, SizeOf(Data));
Data := Lo(i);
BComPort1.Write(Data, SizeOf(Data));
end;
Код: Выделить всё
while (1)
{
un1.all[1]=getchar(); // первый байт цвета принимаем
un1.all[0]=getchar(); // второй байт цвета принимаем
WRDATA(un1.color);
//fill_screen(un1.color); // отправляем на заливку цветом
};
Т.е. например отсылаем байт последовательность D3 F8 1F. Если приняли её - выключить дисплей. Но D3 F8 1F у нас может быть и 1 цветом + половинка др. цвета. Как выделить уникальную команду? Чтобы не спутать её с цветом.urry писал(а):По количеству принятых слов, наверное.
Где пример посмотреть как это делается?urry писал(а): например, в команде кода выделить место для количества принятых байт и координате начала заливки.
Код: Выделить всё
while (1)
{
un1.all[1]=getchar(); // первый байт цвета принимаем
un1.all[0]=getchar(); // второй байт цвета принимаем
if (getchar() != '') {
bait++;
if (bait>=46463) {
bait=0;
// <- тут как то наверное
};
}
WRDATA(un1.color);
};Код: Выделить всё
#define komanda 1
#define data 0
#define max_data 46463
static bit rejim
rejim = komanda;
while (1)
{
un1.all[1]=getchar(); // первый байт цвета принимаем
un1.all[0]=getchar(); // второй байт цвета принимаем
if(rejim == komanda)
{
if(un1.color == stop)
{
делаем стоп
}
if(un1.color == start_data)
{
rejim=data;
}
}
//--------------------------------
else
{
WRDATA(un1.color);
count_bait++;
if( count_bait==max_data )
{
count_bait=0;
rejim=komanda;
}
}
};
Код: Выделить всё
if(un1.color == stop)
...
if(un1.color == start_data)
Причем даже на те которые отсылает сам МК (без команд с USART) типа заливки экрана одним цветом и т.д.
Добрый день.mr_smit писал(а): В Delphi использую компонент CPortLib.
Для записи в порт у него есть:
Write - Writes non-typed variable to output buffer.
WriteAsync - Writes non-typed variable to output buffer in asynchronous mode.
WriteStr - Writes string type variable to output buffer.
WriteStrAsync - Writes string type variable to output buffer in asnychronous mode.
