Отправлено AK 24 сентября 2002 г. 04:03 В ответ на: Господа! Помогите! Срочно надо запустить SED1335 в BG320240F. Что ни делал - нифига не выходит, все демки и аппликухи перепробовал. Может кто выручит, бросит в меня примером программы на А51? Заранее благодарен. отправлено Paul 23 сентября 2002 г. 20:23

{*******************************************************}
//  SED commands
{*******************************************************}
procedure TForm1.SytemSet1Click(Sender: TObject);
begin
write_cmd($40);  // control byte
write_dat($30);  // DR=0 normal mode
                 // T/L=0  LCD mode
                 // IV=1 no screen top line correction
                 // =1 as required
                 // W/S=0 single panel drive
                 // M2=0 8-pixel char height
                 // M1=1 64 char CG RAM + CG RAM2
                 // M0=0 internal CG R0M
write_dat($87);  // WF=1  two-frame AC drive
                 // 000 as required
                 // FX=0111 char width 8 pixels
write_dat($01);  // 0000 as required
                 // FY=8 as recommended by Ampire
write_dat(39);   // 27h=39d, C/R: 40 bytes per line (8*40=320 pixels)
write_dat(43);   // TC/R >= C/R+4
write_dat(239);  // L/F: 240 lines
write_dat(40);   // address pitch AP=39+1
write_dat($00);  //
SytemSet1.Checked:=true;
end;
{*******************************************************}
procedure TForm1.Sleepin1Click(Sender: TObject);
begin
If Sleepin1.Checked then begin
 write_cmd($40);  // control byte for System Set
 Sleepin1.Checked:=false;
end else begin
 write_cmd($53);  // Sleep In control byte only, no param
 Sleepin1.Checked:=true;
end;
end;
{*******************************************************}
procedure TForm1.DisplOnOff1Click(Sender: TObject);
begin
if DisplOnOff1.Checked then begin
  write_cmd($58); // OFF
//  write_dat($16); // 00 01 01 - 1 and 2 blocks, no flash, other block disabled
                  // FC=10 cursor flash Ffr/32 Hz, ie 2Hz
  write_dat($14);
//  Write_dat($2A);
  DisplOnOff1.Checked:=false;
end else begin
  write_cmd($59); // ON
  write_dat($14);
  //  write_dat($16);   // 00 00 01 - 1 and 2 blocks, no flash, other block disabled
                  // FC=10 cursor flash Ffr/32 Hz, ie 2Hz
  DisplOnOff1.Checked:=true;
end
end;

• Ответ: Спасибо! Попытаюсь... — Paul   (24.09.2002 10:11, пустое)