XPORTLETS 2009 - Webde Grafik Çizme Kodu

Bu programın doğru çalışması için bilgisayarınızda directx programının yüklü olması gerekir. <HTML> <HEAD> <TITLE>DIRECTX ile WEB Sayfasında Grafik Çizmek</TITLE> </HEAD> <BODY> <Table border="1"> <Tr><Td> <OBJECT ID="Form" STYLE="position:static; left:0; top:0; width:450; height:450" CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D"> </OBJECT> </Td></Tr> </BODY> <Script language="vbscript"> Sub window_OnLoad() Set Lib = Form.PixelLibrary Set Pencere = Lib.NewDrawingSurface() Pencere.Clear Pencere.FillColor Renk(250,0,0) Pencere.Rect -1,-1, 50, 50 Pencere.SecondaryFillColor Renk(250,250,0) Pencere.FillColor Renk(0,250,0) Pencere.Fillstyle 9 Pencere.Oval -50,-50, 50, 50 Pencere.Fillstyle 0 Pencere.LineColor Renk(0,0,255) Pencere.LineWidth 5 Pencere.Line -100,-100, 100, -110 Pencere.ArcDegrees 50, 50, 0, 270, 150, 150 Pencere.Font "Arial", 50, 0, 0, 0, -1 Pencere.Text "WEB & DirectX", -200, 150 Form.image = Pencere.image Form.Start End Sub Function Renk(K,Y,M) Set Renk = Form.PixelLibrary.ColorRGB255(K,Y,M) end Function </SCRIPT> </HTML>