Teknologi 3D pada Halaman WEB: Direct Animation 1

HAPUS KODE BR / pada script!

Ketik kode di bawah ini pada notepad, dan simpan dengan nama file (animasi.html) atau (animasi.hta) bila kita menggunakan ekstensi hta, kita dapat melihat letak kode error-nya.
Setelah disimpan, buka file (animasi.htm) pada Internet Explorer 5.0 pada windows XP. atau double klik pada file (animasi.hta)

<HTML>
 <HEAD>
 <TITLE>DirectAnimation SDK, Control sample</TITLE>
 <SCRIPT LANGUAGE="JScript">
 
 </SCRIPT>
 <SCRIPT LANGUAGE="VBScript">
 
 </SCRIPT>
 </HEAD>
 
 <BODY Bgcolor=black text=yellow LEFTMARGIN=0 TOPMARGIN=0>
 
 
 
 <OBJECT 
 	ID="OrbArcs"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:300; HEIGHT:300; TOP:0; LEFT:100; VISIBILITY:HIDDEN">
 	<PARAM NAME="Line0001" VALUE="SetLineColor(200,0,0)">
 	<PARAM NAME="Line0002" VALUE="SetLineStyle(1)">
 	<PARAM NAME="Line0003" VALUE="SetFillColor(200,0,0,0,0,200)">
 	<PARAM NAME="Line0004" VALUE="SetFillStyle(1)">
 	<PARAM NAME="Line0005" VALUE="Polygon(67,-358,79,-678,39,-998,-1,-678,-41,-358,-81,-582,-208,-806,-334,-558,-266,-309,-197,-508,-451,-706,-705,-452,-507,-197,-309,-265,-558,-333,-808,-206,-583,-79,-359,-78,-360,-39,-680,0,-1000
 ,40,-680,80,-360,206,-583,333,-807,264,-559,196,-310,450,-509,705,-707,506,-453,308,-198,557,-266,806,-334,582,-208,358,-81,678,-41,998,-1,678,38,358,78,582,206,806,334
 ,558,265,309,197,507,450,706,705,451,506,197,309,265,558,333,807,206,583,80,359,79,359,39,679,0,1000,-40,679,-80,359,-207,583,-333,807,-264,558,-196,310,-450,508
 ,-704,707,-507,452,-308,197,-558,265,-807,334,-582,206,-358,79)">
 </OBJECT>
 
 
 
 <OBJECT 
 	ID="Circ1"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:300; HEIGHT:300; TOP:0; LEFT:100; VISIBILITY:HIDDEN">
 	<PARAM NAME="Line0001" VALUE="SetLineColor(255,255,255)">
 	<PARAM NAME="Line0002" VALUE="SetLineStyle(1)">
 	<PARAM NAME="Line0003" VALUE="SetFillColor(255,255,255)">
 	<PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
 	<PARAM NAME="Line0005" VALUE="Polyline(2,0,400,0,-400,0)">
 	<PARAM NAME="Line0006" VALUE="Polyline(2,400,0,-400,0,0)">
 	<PARAM NAME="Line0007" VALUE="Oval(-25,-25,50,50,0)">
 	<PARAM NAME="Line0008" VALUE="Oval(-50,-50,100,100,0)">
 	<PARAM NAME="Line0009" VALUE="Oval(-75,-75,150,150,0)">
 	<PARAM NAME="Line0010" VALUE="Oval(-100,-100,200,200,0)">
 </OBJECT>
 
 
 
 <OBJECT 
 	ID="IE"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:1000; HEIGHT:200; TOP:50; LEFT:0; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 80, 650, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(0, 0, 255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(0, 0, 255)">
 <PARAM NAME="Line0004" VALUE="SetHatchStyle(0)">
 <PARAM NAME="Line0005" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0006" VALUE="Text('I E', 0, 0, 0)">
 <PARAM NAME="Line0007" VALUE="Text('5', 25, 50, 0)">
 </OBJECT>
 
 
 
 <OBJECT
 	ID="MM"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:1500; HEIGHT:200; TOP:50; LEFT:-775; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 50, 250, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255,255,255)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0005" VALUE="Text('DUDI', 0, 0, 0)">
 </OBJECT>
 
 
 
 <OBJECT
 	ID="Controls"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:1500; HEIGHT:250; TOP:85; LEFT:-773; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 80, 250, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255, 255, 255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0005" VALUE="Text('GUNAWAN', 0, 0, 0)">
 </OBJECT>
 
 
 
 <OBJECT ID="Crosshair"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:400; HEIGHT:400; TOP:0; LEFT:200; VISIBILITY:HIDDEN">
 	<PARAM NAME="Line0001" VALUE="SetLineColor(139,139,139)">
 	<PARAM NAME="Line0002" VALUE="SetLineStyle(1)">
 	<PARAM NAME="Line0003" VALUE="Polyline(2,0,400,0,-400,0)">
 	<PARAM NAME="Line0004" VALUE="Polyline(2,400,0,-400,0,0)">
 </OBJECT>
 
 
 
 <OBJECT ID="Num5"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:500; HEIGHT:500; TOP:40; LEFT:40; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 250, 550, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(0, 0, 0)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0005" VALUE="Text('5', 0, 0, 0)">
 </OBJECT>
 
 
 
 
 <OBJECT ID="Num4"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:500; HEIGHT:500; TOP:40; LEFT:40; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 250, 550, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(0, 0, 0)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0005" VALUE="Text('4', 0, 0, 0)">
 </OBJECT>
 
 
 
 
 <OBJECT ID="Num3"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:500; HEIGHT:500; TOP:40; LEFT:40; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 250, 550, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(0, 0, 0)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0005" VALUE="Text('3', 0, 0, 0)">
 </OBJECT>
 
 
 
 
 <OBJECT ID="Num2"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:500; HEIGHT:500; TOP:40; LEFT:40; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 250, 550, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(0,0,0)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0005" VALUE="Text('2', 0, 0, 0)">
 </OBJECT>
 
 
 
 <OBJECT id="Sweep"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:400; HEIGHT:400; TOP:0; LEFT:200; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0002" VALUE="SetFillColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetLineStyle(1)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0005" VALUE="Pie(-200,-200,400,400,0,30,0)">
 </OBJECT>
 
 
 
 <OBJECT id="DOT"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:800; HEIGHT:600; TOP:-100; LEFT:0; VISIBILITY:HIDDEN">
 	<PARAM NAME="Line0001" VALUE="SetFillStyle(0)">
 	<PARAM NAME="Line0002" VALUE="SetFillColor(255,255,255)">
 	<PARAM NAME="Line0003" VALUE="SetLineColor(255,255,255)">
 	<PARAM NAME="Line0004" VALUE="Pie(-50, -50, 100, 100, 0, 35, 0)">
 	<PARAM NAME="Line0005" VALUE="Pie(-50, -50, 100, 100, 0, 35, 60)">
 	<PARAM NAME="Line0006" VALUE="Pie(-50, -50, 100, 100, 0, 35, 120)">
 	<PARAM NAME="Line0007" VALUE="Pie(-50, -50, 100, 100, 0, 35, 180)">
 	<PARAM NAME="Line0008" VALUE="Pie(-50, -50, 100, 100, 0, 35, 240)">
 	<PARAM NAME="Line0009" VALUE="Pie(-50, -50, 100, 100, 0, 35, 300)">
 </OBJECT>
 
 
 
 <OBJECT id="CCFF"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:600; HEIGHT:450; TOP:0; LEFT:50; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 100, 650, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0005" VALUE="SetLineStyle(1)">
 <PARAM NAME="Line0006" VALUE="Text('C', -175, 150, 0)">
 <PARAM NAME="Line0007" VALUE="Text('C', 175, 150, 0)">
 <PARAM NAME="Line0008" VALUE="Text('F', -175, -150, 0)">
 <PARAM NAME="Line0009" VALUE="Text('F', 175, -150, 0)">
 </OBJECT>
 
 
 
 <OBJECT id="MM35"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:600; HEIGHT:450; TOP:0; LEFT:50; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 100, 650, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0005" VALUE="SetLineStyle(1)">
 <PARAM NAME="Line0006" VALUE="Text('M', -175, 150, 0)">
 <PARAM NAME="Line0007" VALUE="Text('M', 175, 150, 0)">
 <PARAM NAME="Line0008" VALUE="Text('35', -175, -150, 0)">
 <PARAM NAME="Line0009" VALUE="Text('35', 175, -150, 0)">
 </OBJECT>
 
 
 
 
 <OBJECT id="XXXX"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:200; HEIGHT:800; TOP:-50; LEFT:0; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana',100, 550, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0005" VALUE="SetLineStyle(1)">
 <PARAM NAME="Line0006" VALUE="Text('X', 0, -225, 0)">
 <PARAM NAME="Line0007" VALUE="Text('X', 0, -150, 0)">
 <PARAM NAME="Line0008" VALUE="Text('X', 0, -75, 0)">
 <PARAM NAME="Line0009" VALUE="Text('X', 0, 0, 0)">
 </OBJECT>
 
 
 
 <OBJECT id="PicStart"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:640; HEIGHT:280; TOP:5%; LEFT:13%;">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 58, 250, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0005" VALUE="SetLineStyle(1)">
 <PARAM NAME="Line0006" VALUE="Text('D U D I G U N A W A N', -290, -10, 0)">
 <PARAM NAME="Line0007" VALUE="SetFont('Verdana', 50, 250, 0, 0, 0)">
 <PARAM NAME="Line0008" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0009" VALUE="SetLineStyle(1)">
 <PARAM NAME="Line0010" VALUE="Text('WEBSITE', -200, 100, 0)">
 </OBJECT>
 
 
 
 <OBJECT id="Ratio"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:400; HEIGHT:300; TOP:0; LEFT:50; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 60, 550, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0005" VALUE="SetLineStyle(1)">
 <PARAM NAME="Line0006" VALUE="Text('Type:',-75, 0, 90)">
 <PARAM NAME="Line0007" VALUE="Text('Ratio:',0, 0, 90)">
 </OBJECT>
 
 
 
 <OBJECT id="SMPTE"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:1400; HEIGHT:600; TOP:0; LEFT:-630; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 100, 650, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,0,0)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255,0,0)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0005" VALUE="Text('DUDI GUNAWAN', -60, -150, 0)">
 <PARAM NAME="Line0006" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0007" VALUE="SetFillColor(255,255,255)">
 <PARAM NAME="Line0008" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0009" VALUE="Text('THE OFFICIAL', -60, -75, 0)">
 <PARAM NAME="Line0010" VALUE="Text('WEBSITE',0,0,0)">
 
 </OBJECT>
 
 
 
 <OBJECT id="HEAD"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:800; HEIGHT:400; TOP:50; LEFT:-200; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 150, 650, 0, 0, 0)">
 <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)">
 <PARAM NAME="Line0004" VALUE="SetFillStyle(1)">
 <PARAM NAME="Line0005" VALUE="Text('HEAD',0,0,0)">
 </OBJECT>
 
 
 
 
 <OBJECT ID="Circle"
 	CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
 	STYLE="POSITION:ABSOLUTE; WIDTH:800; HEIGHT:800; TOP:-350; LEFT:-150; VISIBILITY:HIDDEN">
 <PARAM NAME="Line0001" VALUE="SetLineColor(255,255,255)">
 <PARAM NAME="Line0002" VALUE="SetFillColor(0, 0, 0)">
 <PARAM NAME="Line0003" VALUE="SetFillStyle(0)">
 <PARAM NAME="Line0004" VALUE="SetLineStyle(1)">
 <PARAM NAME="Line0005" VALUE="Oval(0,0,300,300,0)">
 <PARAM NAME="Line0006" VALUE="Oval(-25,-25,350,350,0)">
 </OBJECT>
 
 <input type=button Id="StartBtn" value="Start" onClick="Start()"
 STYLE="Position:Absolute; Top:75%; LEFT:45%;Visibility:Hidden">
 
 
 
 <OBJECT ID="Seq"
 	CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96">
 </OBJECT>
 </BODY>
 </HTML>

Teknologi 3D pada Halaman WEB

Sabtu, 06 Februari 2010

Direct Animation 1

HAPUS KODE BR / pada script!

Tidak ada komentar:

Mengenai Saya