- 博客(1)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 编程浪子的六年之痒！
转眼间已经毕业六年了，在编程的第一线奋斗了六年，前两天修改简历，毫不客气的在简历上写下了精通delphi、java、vc等开发语言，想想天天给这些家伙打交道，咱应该也算精通了吧！虽然需要编程的时候，我会毫不犹豫的首先上网搜索一些源码来做参考，但感觉到自己应该还算的上精通吧（精于搜索，通于抄袭）！一直认为编程是件非常神圣的工作，通过键盘和鼠标可以撬动整个世界，做到现在才发现整个世
2006-05-15 13:26:00
775
sony srp-x351 232控制程序
sony 351的控制程序
procedure TForm1.btnExeClick(Sender: TObject);
begin
SwitchInput(cmbInput.Text[1]);
end;
procedure TForm1.btnSoundUpClick(Sender: TObject);
begin
IncSound();
end;
procedure TForm1.btnSoundDownClick(Sender: TObject);
begin
DecSound();
end;
procedure TForm1.btnMuteOnClick(Sender: TObject);
begin
MuteON();
end;
procedure TForm1.btnMuteOffClick(Sender: TObject);
begin
MuteOFF();
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if mscomm1.PortOpen then
begin
mscomm1.PortOpen:=false;
end;
end;
procedure TForm1.MSComm1Comm(Sender: TObject);
begin
case mscomm1.CommEvent of
comEvReceive: bzw := true;
end;
end;
procedure TForm1.btnStopClick(Sender: TObject);
begin
StopChangeSound();
end;
procedure TForm1.SwitchInput(pi_char: Char);
var
senddata:array of byte;
begin
Log('SwitchInput');
Setlength(senddata,4);
senddata[0]:=$11; //要发送的数据
senddata[1]:=$80;
senddata[3]:=$B1;
case pi_char of
'A':
senddata[2]:=$20;
'B':
senddata[2]:=$21;
'C':
senddata[2]:=$22;
'D':
senddata[2]:=$23;
end;
OutputToCom(senddata);
end;
2009-06-25
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人