這個程式如何在BCB中執行??

發文回覆瀏覽次數：781

推到 Plurk!

推到 Facebook!

尚未結案

cls9215
一般會員

發表：18
回覆：28
積分：9
註冊：2004-12-21

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-01-09 12:36:01

IP:61.70.xxx.xxx 未訂閱

以下程式是在BBS站中找到的,好像是用TURBO C寫的,如何改成可以在 BCB中執行??我改了標頭檔也不行,在BCB的DOS.H中好像沒有像是SOUND,NOSOUND 的函式?? #include #include main() { int i; int s[65]={262, 700, 294, 700, 330, 700, 262, 700, 262, 700, 294, 700, 330, 700, 262, 700, 330, 700, 350, 700, 392, 1400, 330, 700, 350, 700, 392, 1400, 392, 350, 440, 350, 392, 350, 350, 350, 330, 700, 262, 700, 392, 350, 440, 350, 392, 350, 350, 350, 330, 700, 262, 700, 262, 700, 196, 700, 262, 1400, 262, 700, 196, 700, 262, 1400}; i=0; while (1) { if (s[i] == 0) break; sound(s[i]); delay(s[i 1]); i=i 2; } nosound(); getch(); }

Zard
尊榮會員

發表：24
回覆：396
積分：539
註冊：2003-11-26

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-01-09 13:55:34

IP:61.64.xxx.xxx 未訂閱

引言: 以下程式是在BBS站中找到的,好像是用TURBO C寫的,如何改成可以在 BCB中執行??我改了標頭檔也不行,在BCB的DOS.H中好像沒有像是SOUND,NOSOUND 的函式?? #include #include main() { int i; int s[65]={262, 700, 294, 700, 330, 700, 262, 700, 262, 700, 294, 700, 330, 700, 262, 700, 330, 700, 350, 700, 392, 1400, 330, 700, 350, 700, 392, 1400, 392, 350, 440, 350, 392, 350, 350, 350, 330, 700, 262, 700, 392, 350, 440, 350, 392, 350, 350, 350, 330, 700, 262, 700, 262, 700, 196, 700, 262, 1400, 262, 700, 196, 700, 262, 1400}; i=0; while (1) { if (s[i] == 0) break; sound(s[i]); delay(s[i 1]); i=i 2; } nosound(); getch(); }

幫你改了一下, 你可以拿到BCB裡直接用

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i;
  int s[65]={ 262, 700, 294, 700, 330, 700, 262, 700,
              262, 700, 294, 700, 330, 700, 262, 700,
              330, 700, 350, 700, 392, 1400,
              330, 700, 350, 700, 392, 1400,
              392, 350, 440, 350, 392, 350, 350, 350, 330, 700, 262, 700,
              392, 350, 440, 350, 392, 350, 350, 350, 330, 700, 262, 700,
              262, 700, 196, 700, 262, 1400,
              262, 700, 196, 700, 262, 1400 };
  i = 0;
  while (TRUE)
  {
    if (i == 64) break;
    Beep(s[i], s[i   1]);
    i  = 2;
  }
}

系統時間：2024-05-20 1:42:25

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！