tag:blogger.com,1999:blog-84841452339373084192024-02-20T18:14:39.952-08:00Arif Widodo's BlogPunya Kuhttp://www.blogger.com/profile/16951664971012195689noreply@blogger.comBlogger6125tag:blogger.com,1999:blog-8484145233937308419.post-1413780227073131272017-04-07T02:56:00.001-07:002017-04-07T18:26:36.151-07:00Presentasi Perangkat Penyusun Komputer<iframe src='https://onedrive.live.com/embed?cid=3A87C8FE7F22381A&resid=3A87C8FE7F22381A%21104&authkey=AL9dliP9BJ-l4Fo&em=2&wdAr=1.3333333333333333' width='610px' height='481px' frameborder='0'>Ini adalah Presentasi <a target='_blank' href='https://office.com'>Microsoft Office</a> yang disematkan, didukung oleh <a target='_blank' href='https://office.com/webapps'>Office Online</a>.</iframe>Punya Kuhttp://www.blogger.com/profile/16951664971012195689noreply@blogger.com0tag:blogger.com,1999:blog-8484145233937308419.post-75630543605280567672010-11-01T04:26:00.000-07:002010-11-01T05:51:37.203-07:00Membuat Text Berjalan Pada Title Bar Form di VB 6Pertama siapkan 1 form kemudian tambahkan 1 Timer ubah intervalnya jadi 500.<br /><span class="fullpost"><br />Kemudian ketikan rumus berikut<br /><i><br />Dim teks As String<br /><br />Private Sub Form_Load()<br />teks = "ANIMASI TEXT BERJALAN "<br />End Sub<br /><br />Private Sub Timer1_Timer()<br />a = Left(teks, 1)<br />c = Len(teks)<br />b = Right(teks, c - 1)<br />teks = b + a<br />form1.Caption = teks<br />End Sub<br /></i><br />Kemudian <i>run</i><br /><br /></span>Punya Kuhttp://www.blogger.com/profile/16951664971012195689noreply@blogger.com0tag:blogger.com,1999:blog-8484145233937308419.post-17463281616990770282009-09-23T08:41:00.000-07:002009-09-23T08:52:14.047-07:00Membuat efek pada saat form di tutup pada vb6<div class="post_message">Buat temen-temen yang masih pengen memperdalam vb ini ada sedikit tutorial tentang bagaimana membuat efek form saat ditutup<br /><br />Pertama buat dulu project baru kemudian tambahkan 1 timer dan 3 command, ganti properties interval timer jadi 500. Kemudian, masing-masing command ganti caption-nya jadi "Jatuh Kesamping", "Jatuh Kebawah" dan "Efek Mengecil".<br /><span class="fullpost"><br />Ketikan code dibawah ini :<br /><br />Private Sub Command1_Click()<br />Do<br />Me.Left = Me.Left + 2<br />Me.Move Me.Left + 2<br />DoEvents<br />Loop Until Me.Left > Screen.Width<br />Unload Me<br />End Sub<br /><br />Private Sub Command2_Click()<br />Do<br />Me.Top = Me.Top + 20<br />Me.Move Me.Left, Me.Top<br />DoEvents<br />Loop Until Me.Top > Screen.Height - 500<br />Unload Me<br />End Sub<br /><br />Private Sub Command3_Click()<br />GotoVal = Me.Height / 2<br />For Gointo = 1 To GotoVal<br />DoEvents<br /> Me.Height = Me.Height - 10<br /> If Me.Height <= 11 Then GoTo horiz Next Gointo horiz: Me.Height = 30 GotoVal = Me.Width / 2 For Gointo = 1 To GotoVal DoEvents Me.Width = Me.Width - 10 If Me.Width <= 11 Then End Next Gointo End End Sub Semoga bermanfaat.</span></div> <ul class="actionspro"><a href="http://www.facebook.com/edittopic.php?uid=125760846724&topic=10664&action=256" class="actionspro_a" rel="nofollow"><br /></a></ul>Punya Kuhttp://www.blogger.com/profile/16951664971012195689noreply@blogger.com0tag:blogger.com,1999:blog-8484145233937308419.post-53838651738076578922009-04-17T20:44:00.001-07:002009-04-17T20:45:22.200-07:00Manusia<span class="fullpost"><br /><br /></span>Punya Kuhttp://www.blogger.com/profile/16951664971012195689noreply@blogger.com0tag:blogger.com,1999:blog-8484145233937308419.post-32787131549251295952009-04-17T19:46:00.000-07:002009-04-17T20:09:52.345-07:00Tugas 1 ArifTugas Teknik Informasi pertama oleh Arif Widodo<br /><span class="fullpost"><br />Download lengkap di <a href="http://www.ziddu.com/download/4344954/TUGASTIdodo.doc.html">sini</a><br /></span>Punya Kuhttp://www.blogger.com/profile/16951664971012195689noreply@blogger.com0tag:blogger.com,1999:blog-8484145233937308419.post-39121011267740027042009-04-16T02:04:00.000-07:002009-04-17T20:42:59.998-07:00Sejarah Dan Perkembangan KomputerKomputer, sekarang ini bukan lagi hal baru buat kita. Tetapi mungkin kita tak pernah tahu bagaimana sejarah dan perkembangan komputer. <br /><span class="fullpost"><br />Klik di <a href="http://www.ziddu.com/download/4319760/sejarah.pdf.html">sini</a> untuk dapat tahu sejarah dan perkembangan komputer.<br /></span>Punya Kuhttp://www.blogger.com/profile/16951664971012195689noreply@blogger.com0