Html Kodları Arşivi: WEBDE GRAFİK ÇİZME KODU

8 Mayıs 2010 Cumartesi

WEBDE GRAFİK ÇİZME 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>

Html Kodları Arşivi

8 Mayıs 2010 Cumartesi

WEBDE GRAFİK ÇİZME KODU

Hiç yorum yok:

Yorum Gönder

İzleyiciler

Blog Arşivi

Html Kodları Arşivi

8 Mayıs 2010 Cumartesi

WEBDE GRAFİK ÇİZME KODU

Hiç yorum yok:

Yorum Gönder

İzleyiciler

Blog Arşivi

Abone Ol: