forumVatan

.......forumVatanHoşgeldiniz :
En son ziyaretiniz :
Mesaj Sayınız : 0


    WEBDE GRAFİK ÇİZME

    Paylaş
    avatar
    VaLKyRie
    Admin
    Admin

    <b>Mesaj Sayısı</b> Mesaj Sayısı : 1284
    <b>Ruh HaLi</b> Ruh HaLi : 3
    <b>Zodyak</b> Zodyak : Yengeç
    <b>Kayıt tarihi</b> Kayıt tarihi : 04/02/10
    <b>Nerden</b> Nerden : Tekirdağ
    <b>Yaş</b> Yaş : 23

    WEBDE GRAFİK ÇİZME

    Mesaj tarafından VaLKyRie Bir C.tesi Şub. 13, 2010 6:13 pm

    Kod:
    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>



    ''Zaman'' iyi mi gelirmiş herşeye
    ne " zaman " dan beri ???




      Forum Saati Salı Ekim 23, 2018 12:25 am