<?xml version="1.0" encoding="UTF-8" standalone="no"?><?xml-stylesheet href="http://www.blogger.com/styles/atom.css" type="text/css"?><rss xmlns:itunes="http://www.itunes.com/dtds/podcast-1.0.dtd" version="2.0"><channel><title>Ilmu Komputer</title><description></description><managingEditor>noreply@blogger.com (eghie)</managingEditor><pubDate>Thu, 5 Sep 2024 23:18:21 -0700</pubDate><generator>Blogger http://www.blogger.com</generator><openSearch:totalResults xmlns:openSearch="http://a9.com/-/spec/opensearchrss/1.0/">4</openSearch:totalResults><openSearch:startIndex xmlns:openSearch="http://a9.com/-/spec/opensearchrss/1.0/">1</openSearch:startIndex><openSearch:itemsPerPage xmlns:openSearch="http://a9.com/-/spec/opensearchrss/1.0/">25</openSearch:itemsPerPage><link>http://duenilmukomputer.blogspot.com/</link><language>en-us</language><itunes:explicit>no</itunes:explicit><itunes:subtitle/><itunes:owner><itunes:email>noreply@blogger.com</itunes:email></itunes:owner><item><title>membuat Program Animasi Bulan dan Bintang</title><link>http://duenilmukomputer.blogspot.com/2008/12/sekarang-kita-akan-membuat-sebuah-form.html</link><author>noreply@blogger.com (eghie)</author><pubDate>Mon, 1 Dec 2008 02:12:00 -0800</pubDate><guid isPermaLink="false">tag:blogger.com,1999:blog-707229089716934360.post-6282837573186418439</guid><description>&lt;span style=";font-family:Arial;font-size:85%;"  &gt;Sekarang kita akan membuat sebuah Form dengan Bul&lt;/span&gt;&lt;span style=";font-family:Arial;font-size:85%;"  &gt;an yang berjalan dan bintang berkelip sebagai latar belakang, seperti contoh hasil program Gbr. 3.1 dikanan.&lt;/span&gt;&lt;a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4GnrFf2O7FEvNQaHoNNAKNbvYvSuyO8bO3hcVva1enJaOkH2lre_eQg90BgocvX7atR5cEDAQnGgXR4sB89ib4qUdD0hXlFtf9GV68GW4g5Z5_7Lsoso8w0fQ9AV5g3h1HDFiIFlDomtp/s1600-h/Bulan+Bintang.jpg"&gt;&lt;img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 282px; height: 212px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4GnrFf2O7FEvNQaHoNNAKNbvYvSuyO8bO3hcVva1enJaOkH2lre_eQg90BgocvX7atR5cEDAQnGgXR4sB89ib4qUdD0hXlFtf9GV68GW4g5Z5_7Lsoso8w0fQ9AV5g3h1HDFiIFlDomtp/s200/Bulan+Bintang.jpg" alt="" id="BLOGGER_PHOTO_ID_5275769919317351618" border="0" /&gt;&lt;/a&gt;&lt;div class="Section1"&gt;&lt;p class="MsoNormal" style="line-height: 150%;"&gt;&lt;span style="font-size:85%;"&gt;&lt;b&gt;&lt;i&gt;&lt;span style="line-height: 150%;font-family:Arial;" &gt;Untuk prakteknya, langkahnya sebagai berikut…!&lt;/span&gt;&lt;/i&gt;&lt;/b&gt;&lt;/span&gt;&lt;/p&gt;&lt;p class="MsoNormal" style="line-height: 150%;"&gt;&lt;span style="font-size:85%;"&gt;&lt;b&gt;&lt;span style=""&gt;&lt;span style=""&gt;1.&lt;span style=""&gt;      &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/b&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;!--[if gte vml 1]&gt;&lt;v:group id="_x0000_s1047"  style="'position:absolute;left:0;text-align:left;margin-left:171pt;font-size:5801,3254;" coordorigin="5121,9428"&gt;  &lt;v:shape id="_x0000_s1048" type="#_x0000_t202" style="'position:absolute;" filled="f" stroked="f"&gt;   &lt;v:textbox style="'mso-next-textbox:#_x0000_s1048'"&gt;    &lt;![if !mso]&gt;    &lt;table cellpadding="0" cellspacing="0" width="100%"&gt;     &lt;tr&gt;      &lt;td&gt;&lt;![endif]&gt;      &lt;div&gt;      &lt;h4 align="center" style="'text-align:center'"&gt;&lt;span style="';font-size:9.0pt;"&gt;Gbr. 3.2 Merancang Form Bulan-Bintang&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/h4&gt;      &lt;/div&gt;      &lt;![if !mso]&gt;&lt;/td&gt;     &lt;/tr&gt;    &lt;/table&gt;    &lt;![endif]&gt;&lt;/v:textbox&gt;  &lt;/v:shape&gt;&lt;v:group id="_x0000_s1049" style="'position:absolute;left:5178;top:9464;" coordorigin="5178,9559" coordsize="5744,2745"&gt;   &lt;v:shape id="_x0000_s1050" type="#_x0000_t75" style="'position:absolute;"&gt;    &lt;v:imagedata src="file:///C:\DOCUME~1\RUANGA~1\LOCALS~1\Temp\msohtml1\01\clip_image003.png" title="" croptop="8929f" cropbottom="28275f" cropleft="4891f" cropright="28681f"&gt;   &lt;/v:shape&gt;&lt;v:shape id="_x0000_s1051" type="#_x0000_t202" style="'position:absolute;" filled="f" stroked="f"&gt;    &lt;v:textbox style="'mso-next-textbox:#_x0000_s1051'"&gt;     &lt;![if !mso]&gt;     &lt;table cellpadding="0" cellspacing="0" width="100%"&gt;      &lt;tr&gt;       &lt;td&gt;&lt;![endif]&gt;       &lt;div&gt;       &lt;h4 align="center" style="'text-align:center'"&gt;&lt;span style="';font-size:8.0pt;"&gt;Objek       Timer1 &amp;amp; 2&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/h4&gt;       &lt;/div&gt;       &lt;![if !mso]&gt;&lt;/td&gt;      &lt;/tr&gt;     &lt;/table&gt;     &lt;![endif]&gt;&lt;/v:textbox&gt;   &lt;/v:shape&gt;&lt;v:line id="_x0000_s1052" style="'position:absolute'" from="7370,10955" to="9517,10957"&gt;    &lt;v:stroke endarrow="block"&gt;   &lt;/v:line&gt;&lt;v:shape id="_x0000_s1053" type="#_x0000_t202" style="'position:absolute;" filled="f" stroked="f"&gt;    &lt;v:textbox style="'mso-next-textbox:#_x0000_s1053'"&gt;     &lt;![if !mso]&gt;     &lt;table cellpadding="0" cellspacing="0" width="100%"&gt;      &lt;tr&gt;       &lt;td&gt;&lt;![endif]&gt;       &lt;div&gt;       &lt;h4 align="center" style="'text-align:center'"&gt;&lt;span style="';font-size:8.0pt;"&gt;Picture       Box&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/h4&gt;       &lt;/div&gt;       &lt;![if !mso]&gt;&lt;/td&gt;      &lt;/tr&gt;     &lt;/table&gt;     &lt;![endif]&gt;&lt;/v:textbox&gt;   &lt;/v:shape&gt;&lt;v:line id="_x0000_s1054" style="'position:absolute'" from="8713,10325" to="9545,10326"&gt;    &lt;v:stroke endarrow="block"&gt;   &lt;/v:line&gt;&lt;v:shape id="_x0000_s1055" type="#_x0000_t75" style="'position:absolute;"&gt;    &lt;v:imagedata src="file:///C:\DOCUME~1\RUANGA~1\LOCALS~1\Temp\msohtml1\01\clip_image004.png" title="" croptop="11916f" cropbottom="51232f" cropleft="2331f" cropright="60973f" blacklevel="-1966f"&gt;   &lt;/v:shape&gt;&lt;/v:group&gt;&lt;v:rect id="_x0000_s1056" style="'position:absolute;" filled="f"&gt; &lt;/v:group&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="font-size:85%;"&gt;Pada Form1 yang sudah&lt;/span&gt;&lt;span style=";font-family:Arial;font-size:85%;"  &gt; ada di &lt;&lt;b&gt;&lt;i&gt;Proyek Grafis&lt;/i&gt;&lt;/b&gt;&gt; anda,&lt;span style=""&gt;  &lt;/span&gt;Pasanglah objek &lt;b&gt;Picture&lt;/b&gt;, dan &lt;/span&gt;&lt;span style=";font-family:Arial;font-size:85%;"  &gt;dua buah &lt;b&gt;Timer&lt;/b&gt; seperti rancangan Gbr. 3.2 dikanan.&lt;/span&gt;&lt;br /&gt;&lt;/p&gt;&lt;p class="MsoNormal" style="margin-left: 21.7pt; text-align: justify; text-indent: -21pt;"&gt;&lt;a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwj4KUHq9v3NOMxXjDJEsty4TcjZY9Pc2WBR3xNiWkaAuIzvqYcYKsZ1kMi_YjT-HW1WOdAWJsM-uz7nyjk7v4tBySLQP8N1VL8mnvfoBNfvxdBDlA3sHkzTB3JLccXrn96DW4BBdStBch/s1600-h/Bulan+Bintang+R.jpg"&gt;&lt;img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 240px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwj4KUHq9v3NOMxXjDJEsty4TcjZY9Pc2WBR3xNiWkaAuIzvqYcYKsZ1kMi_YjT-HW1WOdAWJsM-uz7nyjk7v4tBySLQP8N1VL8mnvfoBNfvxdBDlA3sHkzTB3JLccXrn96DW4BBdStBch/s320/Bulan+Bintang+R.jpg" alt="" id="BLOGGER_PHOTO_ID_5275767560082220754" border="0" /&gt;&lt;/a&gt;&lt;/p&gt;&lt;span style="font-size:85%;"&gt;&lt;b&gt;&lt;span style=""&gt;&lt;span style=""&gt;2.&lt;span style=""&gt;      &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/b&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style=";font-family:Arial;font-size:85%;"  &gt;Kemudian…, aturlah propertinya dengan mengikuti properti pada Tbl.3.1 dibawah ini ; klik pada gambar untuk pembesaran image...!!&lt;br /&gt;&lt;/span&gt;&lt;p class="MsoNormal" style="margin-left: 21.7pt; text-align: justify; text-indent: -21pt;"&gt;&lt;a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwlnTu5Biog9yYw7kvPjGAkkjfSeqa4lNK3y_FnYaQB8jwuG_7hdvQI8T8ZL5DkKVu-tJShwIBSCeG3nWzFn7AFxOs40AHG9pzDhth5SuSdJ3wjPu1coOSEs93zhtHOPebP8AiyqKkDLTS/s1600-h/Bulan+Bintang+R+P.jpg"&gt;&lt;img style="margin: 0pt 10px 10px 0pt; float: left; cursor: pointer; width: 200px; height: 150px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwlnTu5Biog9yYw7kvPjGAkkjfSeqa4lNK3y_FnYaQB8jwuG_7hdvQI8T8ZL5DkKVu-tJShwIBSCeG3nWzFn7AFxOs40AHG9pzDhth5SuSdJ3wjPu1coOSEs93zhtHOPebP8AiyqKkDLTS/s200/Bulan+Bintang+R+P.jpg" alt="" id="BLOGGER_PHOTO_ID_5275766200049033666" border="0" /&gt;&lt;/a&gt;&lt;/p&gt;&lt;p class="MsoNormal" style="margin-left: 21.7pt; text-align: justify; text-indent: -21pt;"&gt;&lt;br /&gt;&lt;/p&gt;&lt;p class="MsoNormal" style="margin-left: 21.7pt; text-align: justify; text-indent: -21pt;"&gt;&lt;span style=";font-family:Arial;font-size:85%;"  &gt;&lt;br /&gt;&lt;/span&gt;&lt;/p&gt;&lt;span style=";font-family:Arial;font-size:85%;"  &gt;&lt;b&gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/b&gt;&lt;/span&gt;  &lt;p class="MsoNormal" style="margin-left: 16.1pt; text-align: justify; text-indent: 19.9pt;"&gt;&lt;span style=";font-family:Arial;font-size:85%;"  &gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;p class="MsoNormal" style="margin-left: 16.1pt; text-align: justify; line-height: 150%;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_s1026" type="#_x0000_t202" style="'position:absolute;left:0;text-align:left;" filled="f" stroked="f"&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 1; left: 0px; margin-left: 154px; margin-top: 1px; width: 315px; height: 31px;font-size:85%;" &gt;  &lt;table cellpadding="0" cellspacing="0"&gt;  &lt;tbody&gt;&lt;tr&gt;   &lt;td style="vertical-align: top;" height="31" width="315"&gt;&lt;!--[endif]--&gt;&lt;!--[if !mso]--&gt;&lt;!--[endif]--&gt;&lt;!--[if !mso &amp; !vml]--&gt; &lt;!--[endif]--&gt;&lt;!--[if !vml]--&gt;&lt;br /&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;&lt;/span&gt;&lt;/p&gt;&lt;span style="font-size:85%;"&gt;&lt;b&gt;&lt;span style=""&gt;&lt;span style=""&gt;3.&lt;span style=""&gt;       &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/b&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style=";font-family:Arial;font-size:85%;"  &gt;Setelah selesai mengatur properti diatas, Ketik kode-kode program dihalaman belakang berikut ini ;&lt;b&gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/b&gt;&lt;/span&gt;  &lt;p class="MsoNormal" style="margin-left: -106.8pt; text-align: justify; text-indent: 21.7pt; line-height: 150%;"&gt;&lt;span style="line-height: 150%;font-family:Arial;font-size:85%;"  &gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;/div&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;a.&lt;span style=""&gt;     &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style="font-size:85%;"&gt;&lt;b&gt;&lt;u&gt;&lt;span style="font-family:Arial;"&gt;General&lt;/span&gt;&lt;/u&gt;&lt;/b&gt;&lt;u&gt;&lt;span style="font-family:Arial;"&gt; Prosedur &lt;b&gt;Declarations&lt;/b&gt;&lt;/span&gt;&lt;/u&gt;&lt;b&gt;&lt;span style="font-family:Arial;"&gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/b&gt;&lt;/span&gt;&lt;div class="Section2"&gt;  &lt;p class="MsoNormal" style="margin-left: 17.5pt; text-indent: -0.7pt;"&gt;&lt;span style="font-size:85%;"&gt;Dim x(100), y(100), z(100) As Integer&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 17.5pt; text-indent: -0.7pt;"&gt;&lt;span style="font-size:85%;"&gt;Dim tmpx(100), tmpy(100), tmpz(100) As Integer&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 17.5pt; text-indent: -0.7pt;"&gt;&lt;span style="font-size:85%;"&gt;Dim k As Integer&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 17.5pt; text-indent: -0.7pt;"&gt;&lt;span style="font-size:85%;"&gt;Dim zoom As Integer&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 17.5pt; text-indent: -0.7pt; line-height: 150%;"&gt;&lt;span style="line-height: 150%;font-size:85%;" &gt;Dim kecepatan As Integer&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 54pt; text-align: justify; text-indent: -54pt; line-height: 150%;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="line-height: 150%;font-size:85%;" &gt;&lt;span style=""&gt;b.&lt;span style=""&gt;    &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style="font-size:85%;"&gt;&lt;u&gt;&lt;span style="line-height: 150%;font-family:Arial;" &gt;Objek &lt;b&gt;Timer2&lt;/b&gt; Prosedur &lt;b&gt;Timer&lt;/b&gt;&lt;/span&gt;&lt;/u&gt;&lt;b&gt;&lt;span style="line-height: 150%;font-family:Arial;" &gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/b&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 10.5pt;"&gt;&lt;span style="font-size:85%;"&gt;Private Sub Timer2_Timer( )&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 10.5pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;  &lt;/span&gt;If Picture1.Left &gt; 5 Then&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 10.5pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;     &lt;/span&gt;Picture1.Move Picture1.Left-100, Picture1.Top-10&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 10.5pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;  &lt;/span&gt;End If&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 10.5pt; text-align: justify; line-height: 200%;"&gt;&lt;span style="line-height: 200%;font-size:85%;" &gt;End Sub&lt;span style=""&gt;   &lt;/span&gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;c.&lt;span style=""&gt;      &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style="font-size:85%;"&gt;&lt;u&gt;&lt;span style="font-family:Arial;"&gt;Objek &lt;b&gt;Form&lt;/b&gt; Prosedur &lt;b&gt;Activate&lt;/b&gt;&lt;/span&gt;&lt;/u&gt;&lt;b&gt;&lt;span style="font-family:Arial;"&gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/b&gt;&lt;/span&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt; text-indent: -0.2pt;"&gt;&lt;span style="font-size:85%;"&gt;Private Sub Form_Activate( )&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;    &lt;/span&gt;BackColor = &amp;amp;H0&amp;amp;&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;    &lt;/span&gt;kecepatan = -1&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;    &lt;/span&gt;k = 2038&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;    &lt;/span&gt;zoom = 256&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt; line-height: 150%;"&gt;&lt;span style="line-height: 150%;font-size:85%;" &gt;&lt;span style=""&gt;    &lt;/span&gt;Timer1.Interval = 1&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;    &lt;/span&gt;For i = 0 To 100&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;       &lt;/span&gt;x(i) = Int(Rnd * 1024) - 512&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;       &lt;/span&gt;y(i) = Int(Rnd * 1024) - 512&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;       &lt;/span&gt;z(i) = Int(Rnd * 512) - 256&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;    &lt;/span&gt;Next i&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.9pt; line-height: 150%;"&gt;&lt;span style="line-height: 150%;font-size:85%;" &gt;End Sub&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;/div&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;d.&lt;span style=""&gt;    &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style="font-size:85%;"&gt;&lt;u&gt;&lt;span style="font-family:Arial;"&gt;Objek &lt;b&gt;Timer1&lt;/b&gt; Prosedur &lt;b&gt;Timer&lt;/b&gt;&lt;/span&gt;&lt;/u&gt;&lt;b&gt;&lt;span style="font-family:Arial;"&gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/b&gt;&lt;/span&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;Private Sub Timer1_Timer( )&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;    &lt;/span&gt;For i = 0 To 100&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;Circle (tmpx(i), tmpy(i)), 5, BackColor&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;z(i) = z(i) + kecepatan&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;If z(i) &gt; 255 Then z(i) = -255&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;If z(i) &lt; -255 Then z(i) = 255&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;tmpz(i) = z(i) + zoom&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;tmpx(i) = (x(i) * k / tmpz(i)) + (Form1.Width / 2)&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;tmpy(i) = (y(i) * k / tmpz(i)) + (Form1.Height / 2)&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;radius = 1&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;bintang = 256 - z(i)&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;        &lt;/span&gt;Circle (tmpx(i), tmpy(i)), 5, RGB(bintang, bintang, bintang)&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt;"&gt;&lt;span style="font-size:85%;"&gt;&lt;span style=""&gt;    &lt;/span&gt;Next i&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 18.2pt; text-indent: -2.8pt; line-height: 150%;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:line id="_x0000_s1046" style="'position:absolute;left:0;text-align:left;z-index:3'" from="0,15.95pt" to="459pt,15.95pt" strokeweight="3pt"&gt;  &lt;v:stroke dashstyle="longDash" linestyle="thinThin"&gt; &lt;/v:line&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 3; left: 0px; margin-left: -2px; margin-top: 19px; width: 616px; height: 5px;font-size:85%;" &gt;&lt;img src="file:///C:/DOCUME%7E1/RUANGA%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image006.gif" shapes="_x0000_s1046" height="5" width="616" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style="line-height: 150%;font-size:85%;" &gt;End Sub&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;</description><media:thumbnail xmlns:media="http://search.yahoo.com/mrss/" height="72" url="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4GnrFf2O7FEvNQaHoNNAKNbvYvSuyO8bO3hcVva1enJaOkH2lre_eQg90BgocvX7atR5cEDAQnGgXR4sB89ib4qUdD0hXlFtf9GV68GW4g5Z5_7Lsoso8w0fQ9AV5g3h1HDFiIFlDomtp/s72-c/Bulan+Bintang.jpg" width="72"/><thr:total xmlns:thr="http://purl.org/syndication/thread/1.0">0</thr:total></item><item><title>Personal Computer</title><link>http://duenilmukomputer.blogspot.com/2008/12/personal-computer.html</link><author>noreply@blogger.com (eghie)</author><pubDate>Mon, 1 Dec 2008 01:55:00 -0800</pubDate><guid isPermaLink="false">tag:blogger.com,1999:blog-707229089716934360.post-4054178823862385529</guid><description>&lt;p&gt;A personal computer (PC) is any computer whose original sales price, size, and capabilities make it useful for individuals, and which is intended to be operated directly by an end user, with no intervening computer operator.&lt;/p&gt; &lt;p&gt;Today a PC may be a desktop, a laptop computer or a tablet computer. The most common  operating system are microsoft Windows, Mac OS X and Linux, while the most common microprocessors are x-86 -compatible CPUs, ARM architecture CPUs and Power PC CPUs. Software applications for personal computers include word Processing, spreadsheets, databases&lt;span style="text-decoration: underline;"&gt;&lt;/span&gt;, games, and a myriad of personal productivity and special-purpose software. Modern personal computers often have high-speed or dial-up connections to the Internet, allowing access to the  Word Wide Web and a wide range of other resources.&lt;/p&gt; &lt;p&gt;A PC may be a home computer, or may be found in an office, often connected to a local area network. The distinguishing characteristics are that the computer is primarily used, interactively, by one person at a time. This is in contrast to the batch processing or time-sharing models which allowed large expensive systems to be used by many people, usually at the same time, or large data processing systems which required a full-time staff to operate efficiently.&lt;/p&gt;</description><thr:total xmlns:thr="http://purl.org/syndication/thread/1.0">0</thr:total></item><item><title>Computer Generation</title><link>http://duenilmukomputer.blogspot.com/2008/11/computer-generation.html</link><author>noreply@blogger.com (eghie)</author><pubDate>Wed, 26 Nov 2008 23:27:00 -0800</pubDate><guid isPermaLink="false">tag:blogger.com,1999:blog-707229089716934360.post-2000533210176612818</guid><description>&lt;p&gt; The the late 1960s and early 70s, there was much talk about "generations" of computer technology.  This photo illustrates what were commonly known as the three generations: &lt;/p&gt;&lt;p&gt; &lt;/p&gt;&lt;ol&gt;&lt;li&gt;First generation: Vacuum tubes (left).  Mid 1940s.  IBM pioneered the arrangment of vacuum tubes in pluggable modules such as the one shown here on the left.  The &lt;a href="http://www.columbia.edu/acis/history/650.html"&gt;IBM 650&lt;/a&gt; was a first-generation computer.  &lt;p&gt;  &lt;/p&gt;&lt;/li&gt;&lt;li&gt;Second generation: Transistors (right).  1956.  The era of miniaturization begins.  Transistors are much smaller than vacuum tubes, draw less power, and generate less heat.  Discrete transistors are soldered to circuit boards like the one shown, with intereconnections accomplished by stencil-screened conductive patterns on the reverse side.  The &lt;a href="http://www.columbia.edu/acis/history/7090.html"&gt;IBM 7090&lt;/a&gt; was a second-generation computer.  &lt;p&gt;  &lt;/p&gt;&lt;/li&gt;&lt;li&gt;Third generation: Integrated circuits (foreground), silicon chips contain multiple transistors.  1964.  A pioneering example is the ACPX module used in the &lt;a href="http://www.columbia.edu/acis/history/36091.html"&gt;IBM 360/91&lt;/a&gt;, which, by stacking layers of silicon over a ceramic substrate, accommodated over 20 transistors per chip; the chips could be packed together onto a circuit board to achieve unheard-of logic densities.  The IBM 360/91 was a hybrid second- and third-generation computer.  &lt;/li&gt;&lt;/ol&gt; &lt;p&gt;  Omitted from this taxonomy is the "zeroth" generation computer based on metal gears (such as the &lt;a href="http://www.columbia.edu/acis/history/407.html"&gt;IBM 407&lt;/a&gt;) or mechanical relays (such as the &lt;a href="http://www.columbia.edu/acis/history/mark1.html"&gt;Mark I&lt;/a&gt;), and the post-3rd generation computers based on Very Large Scale Integrated (VLSI) circuits.  &lt;/p&gt;</description><thr:total xmlns:thr="http://purl.org/syndication/thread/1.0">0</thr:total></item><item><title>The History of Computers</title><link>http://duenilmukomputer.blogspot.com/2008/11/history-of-computers.html</link><author>noreply@blogger.com (eghie)</author><pubDate>Wed, 26 Nov 2008 23:24:00 -0800</pubDate><guid isPermaLink="false">tag:blogger.com,1999:blog-707229089716934360.post-1441450796985568774</guid><description>history of computers&lt;br /&gt;"Who invented the computer?" is not a question with a simple answer. The real answer is that many inventors contributed to the history of computers and that a computer is a complex piece of machinery made up of many parts, each of which can be considered a separate invention.&lt;br /&gt;&lt;br /&gt;This series covers many of the major milestones in computer history (but not all of them) with a concentration on the history of personal home computers.</description><thr:total xmlns:thr="http://purl.org/syndication/thread/1.0">0</thr:total></item></channel></rss>