KOD AMBARIM - Webde Grafik Çizme

Webde Grafik Çizme

WEBDE GRAFİK ÇİZME

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>