¼±£¡°Ñdelphi´úÂëת»»³ÉVC++´úÂ룬Çë¸ßÊÖ°ï°ïæ
procedure TSG_Form.SpeedButton1Click(Sender: TObject);
begin
CurrentSGWave := (Sender as TSpeedButton).Tag;
SetupWavePara_Btn.Enabled := True;
ReDraw_timer.Enabled := False;
if (CurrentSGWave = 0) or (CurrentSGWave = 6) or (CurrentSGWave = 7) then
begin
SetupWavePara_Btn.Enabled := False;
ReDraw_timer.Enabled := True;
end;
if SGSendWave then
begin
DownLoad;
DrawWave(Wave_Pic);
end
else
DrawWave(Wave_Pic);
end;
procedure TSG_Form.TrigerType_CBChange(Sender: TObject);
begin
case TrigerType_CB.ItemIndex of
0: SGSetConByte := SGSetConByte and $fb; // 1111 1011 ÄÚ´¥·¢
1: SGSetConByte := SGSetConByte or $06; // 0000 0110 Íâ´¥·¢ÉÏÉýÑØ
2: begin
SGSetConByte := SGSetConByte or $04;
SGSetConByte := SGSetConByte and $fd; // 1111 1101 Íâ´¥·¢Ï½µÑØ
end;
end;
SetCON(SGSetConByte, 0);
end;
procedure TSG_Form.Frequency_EditExit(Sender: TObject);
begin
try
SGFrequency := StrToFloat(F
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......