



下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
Java實驗報告實驗題目實驗五多線程彈球程序源代碼importjava.awt.Color;importjava.awt.FlowLayout;importjava.awt.Graphics;importjava.awt.Toolkit;importjava.awt.event.ActionEvent;importjava.awt.event.ActionListener;importjavax.swing.*;publicclassBall{ publicstaticvoidmain(String[]args){ //TODO自動生成的方法存根 showfm=newshow(); fm.setVisible(true); }}classshowextendsJFrame{ publicshow(){ setTitle("ball"); setSize(600,500); showballfm=newshowball(); add(fm); }}classshowballextendsJPanel{ publicint[][]a=newint[100][5]; intlen=420,vry=1; publicshowball(){ for(inti=0;i<100;i++){ a[i][0]=150; a[i][1]=10; a[i][2]=3; a[i][3]=3; a[i][4]=0; } Timertimer=newTimer(15,newMyListener(""));//1000毫秒觸發(fā)一次 timer.start(); JButtonstart=newJButton("開始"); JButtonstop=newJButton("結(jié)束"); setLayout(null); start.setBounds(100,400,80,40); stop.setBounds(200,400,80,40); start.addActionListener(newMyListener("begin")); stop.addActionListener(newMyListener("stop")); add(start); add(stop); } publicvoidpaintComponent(Graphicsg){ super.paintComponent(g); g.drawString(""+vry,500,500); g.drawLine(10,10,len,10); g.drawLine(10,10,10,len-100); g.drawLine(10,len-100,len,len-100); g.drawLine(len,10,len,len-100); intpp=0; for(inti=0;i<vry;i++){ a[i][0]+=a[i][2]; a[i][1]+=a[i][3]; if(a[i][0]>(len-20)||a[i][0]<10){ a[i][2]=-a[i][2]; a[i][4]++; } if(a[i][1]>(len-120)||a[i][1]<10){ a[i][3]=-a[i][3]; a[i][4]++; } if(a[i][4]>7){ pp=1; } g.setColor(Color.BLUE); g.fillOval(a[i][0],a[i][1],30,30); } if(pp==1){ for(inti=0;i<vry-1;i++){ a[i][0]=a[i+1][0]; a[i][1]=a[i+1][1]; a[i][2]=a[i+1][2]; a[i][3]=a[i+1][3]; a[i][4]=a[i+1][4]; } vry--; a[vry][0]=150; a[vry][1]=10; a[vry][2]=3; a[vry][3]=3; a[vry][4]=0; } } classMyListenerimplementsActionListener { Stringstr; publicMyListener(Stringst){ this.str=st; } publicvoidactionPerformed(ActionEventevent) { if(str.equals("begin")){ vry++; }
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 歷史古代文明演進(jìn)閱讀題集
- 遼寧省撫順市六校協(xié)作體2024-2025學(xué)年高二下學(xué)期期初檢測地理試卷(含答案)
- 河南省開封市杞縣2024-2025學(xué)年八年級上學(xué)期1月期末生物學(xué)試題(含答案)
- 英語口語強(qiáng)化訓(xùn)練教案
- 新一代超導(dǎo)材料產(chǎn)業(yè)投資合同
- 機(jī)關(guān)單位采購合同
- 計算機(jī)網(wǎng)絡(luò)安全技能實操題及答案解析
- 辦公室日常行為規(guī)范
- 項目財務(wù)數(shù)據(jù)統(tǒng)計表
- 教育培訓(xùn)項目成果展示表格化呈現(xiàn)
- 《機(jī)器人驅(qū)動與運(yùn)動控制》全套教學(xué)課件
- 2024年《315消費(fèi)者權(quán)益保護(hù)法》知識競賽題庫及答案
- 新能源汽車概論課件 2.1認(rèn)知新能源汽車動力電池技術(shù)
- 17.2 勾股定理逆定理(教學(xué)課件)-2024-2025學(xué)年人教版八年級數(shù)學(xué)下冊
- DB14T-水地冬小麥壯苗技術(shù)規(guī)程編制說明
- 頭腦特工隊-Inside-Out中英文字幕對照
- 空調(diào)移機(jī)合同范本
- 小學(xué)數(shù)學(xué)知識要點
- 中醫(yī)痛經(jīng)講解培訓(xùn)課件
- 《原來數(shù)學(xué)這么有趣》小學(xué)數(shù)學(xué)啟蒙課程
- 部編版六年級《道德與法治》下冊教學(xué)計劃及進(jìn)度表
評論
0/150
提交評論