[ASP Kodları] Directx ile Analog Saat

[ASP Kodları] Directx ile Analog Saat (tr) Web grafik uygulaması sgc-directx ile analog saatKodları .asp uzantılı sayfaya kayıt edip çalıştırmanız yeterlidir. CLASSID="CLSID:369303C2-D7AC-11d0-89D5-00A0C90833E6"> "yukarıdaki object tanımlaması zorunludur."HATIRLATMA!!!:  en önce çizilen en altta kalırDim resim, libsub ciz()Dim zamanzaman = Nowsaat = Hour(zaman)dak=minute(zaman)san=second(zaman)"saniye dakika ve saati değişkenlere attıkset lib = DRW.Library set resim=DRW.DrawSurface"directx kitaplığını ayarladıkresim.clear"yuzey her defasında temizleniyorcall resim.fillcolor(lib.ColorRGB255(150,150,50))call resim.linecolor(lib.ColorRGB255(0,0,0)) call resim.oval(-80,-80,160,160) " 100,100 "saatin en dış halkası cizildicall resim.fillcolor(lib.ColorRGB255(150,san*4,san*3)) call resim.linecolor(lib.ColorRGB255(120,141,255)) call resim.oval(-75,-75,150,150) " 100,100 "saatin ana çemberi cizildicall resim.linecolor(lib.ColorRGB255(0,0,0)) resim.ArcDegrees -55, -55, 0, 360, 110, 110"rakamların altındaki yay cizildicall resim.fillcolor(lib.ColorRGB255(100,0,255)) resim.Font "Arial", 12, 0, 0, 0, 0 for i=1 to 12yazy=66*Math.sin(-1.59719 + i*30*Math.PI/180)+5yazx=66*Math.cos(-1.59719 + i*30*Math.PI/180)-5resim.Text (i), yazx, yazynext"saate rakamlar yerleştiseconds = (saat * 60 * 60 + dak * 60 + san)saatacisi = (2 * Math.PI ) - (2 * Math.PI * (seconds - 3 * 60 * 60) / (12 *60 * 60))dakacisi = (2 * Math.PI) - (2 * Math.PI * (seconds - 15 * 60) / (60 * 60))sanacisi = (2 * Math.PI) - (2 * Math.PI * (seconds - 15) / 60)"saat, dakika ve saniye çizgileri için açılar hesaplandısaatx=40 * Math.cos(saatacisi*-1)saaty=40 * Math.sin(saatacisi*-1)dakx=60 * Math.cos(dakacisi*-1)daky=60 * Math.sin(dakacisi*-1)sanx=50 * Math.cos(sanacisi*-1)sany=50 * Math.sin(sanacisi*-1)"saat,dakika ve saniye çizgilerinin x2 ve y2 si hesaplandıdim saatyaz :if sanif saatif daksaatyaz=saatgec & ":" & dakgec & ":" & sangecresim.Font "Arial", 15, 0, -1, 0, 0 resim.fillcolor(lib.ColorRGB255(san*4,san*2,san*3)) resim.Text (saatyaz), -32, -15"yazıyla saat yazıldıresim.LineColor (lib.ColorRGB255(150,150,50))resim.LineWidth 4resim.Line 0,0, saatx, saaty"saat çizgisi çizildiresim.LineColor (lib.ColorRGB255(250,250,0))resim.LineWidth 3resim.Line 0,0, dakx, daky"dakika çizgisi çizildiresim.LineColor (lib.ColorRGB255(0,250,0))resim.LineWidth 2resim.Line 0,0, sanx, sany"saniye çizgisi çizildiresim.Fillstyle 1call resim.fillcolor(lib.ColorRGB255(80,180,55)) call resim.linecolor(lib.ColorRGB255(120,141,255)) call resim.oval(-5,-5,10,10) " 10,10 "saatin ortasındaki kesişme yerlerini kapatan daire çizildiresim.RestoreGraphicsState()DRW.DrawSurface=resim"resim objeye atandıend sub--> ns=(document.layers);ie=(document.all);document.onmousemove=hareket;var xmouse=0;var ymouse=0;if (ns||ie)window.onload=saatz;function saatz(){time = new Date ();san = time.getSeconds();timerID = setTimeout("saatz()",10)this.saatim.style.left=xmouse-80;//saat mouse x hizasının ortasına konumlandıthis.saatim.style.top=ymouse+30; //saat mouse y+30 hizasına konumlandıif (san==san){ciz();}// sabit dongu kurup devamlı saat çizimini yenilemesi sağlandı}function hareket(){ymouse = event.y;xmouse = event.x;}-->

Döküman Arama

Başlık :

Kapat