tag:blogger.com,1999:blog-65927803241216473412026-05-05T02:57:59.570+07:00Unknownnoreply@blogger.comBlogger41125tag:blogger.com,1999:blog-6592780324121647341.post-32937122619189356772010-11-03T08:04:00.011+07:002012-05-29T10:21:47.283+07:00<span style="font-weight: bold;">JQuery UI merupakan library JavaScript untuk membangun user interface web dengan lebih mudah dan cepat. Salah satu widget user interface yang ada di JQuery UI adalah Slider.</span><br /> Tip kali ini adalah memanfaatkan widget slider pada JQuery UI untuk membuat Color Slider (simulasi pencampuran warna RGB). Untuk menampilkan widget slider menggunakan JQuery UI kita dapat menggunakan kode berikut:<br /> <br /> <br /> <pre>&lt;html&gt; &lt;head&gt; &lt;link rel="stylesheet" type="text/css" href="development-bundle/themes/smoothness/ui.all.css"&gt; &lt;meta http-equiv="Content-Type" content="text/html; charset=utf-8"&gt; &lt;title&gt;jQuery UI Slider Example&lt;/title&gt; &lt;/head&gt; &lt;body&gt; &lt;div id="mySlider"&gt;&lt;/div&gt; &lt;script type="text/javascript" src="development-bundle/jquery-1.3.2.js"&gt;&lt;/script&gt; &lt;script type="text/javascript" src="development-bundle/ui/ui.core.js"&gt;&lt;/script&gt; &lt;script type="text/javascript" src="development-bundle/ui/ui.slider.js"&gt;&lt;/script&gt; &lt;script type="text/javascript"&gt; $(function(){ $("#mySlider").slider(); }); &lt;/script&gt; &lt;/body&gt; &lt;/html&gt;</pre> <br /> <br /> Hasil yang didapatkan ketika ditampilkan di layar adalah sebuah slider seperti pada gambar.<br /> <br /> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioQq7VyC4HPPZGJzYh-0ioAKZc8r8PrgBUqn4XJCe0JMjDBByvy5PYmbRpra3vrWx7W1pu59MaOx9k1ImjussmaL6lquQV6wBEo60Tiz72moRx-Jc5eGkrQaCUxyqsSuh1nuOUJSTNrs8/s1600/02.tif"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5612350718089562658" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioQq7VyC4HPPZGJzYh-0ioAKZc8r8PrgBUqn4XJCe0JMjDBByvy5PYmbRpra3vrWx7W1pu59MaOx9k1ImjussmaL6lquQV6wBEo60Tiz72moRx-Jc5eGkrQaCUxyqsSuh1nuOUJSTNrs8/s320/02.tif" style="cursor: hand; cursor: pointer; float: left; height: 119px; margin: 0 10px 10px 0; width: 320px;" /></a><br /> <br /> Slider tersebut telah memiliki fungsi-fungsi dasar seperti digeser dengan menggunakan mouse atau keyboard. Untuk pembuatan color slider dibutuhkan 3 buah slider yang mewakili warna merah, hijau dan biru. Langkah-langkah pembuatannya adalah sebagai berikut:<br /> <div class="separator" style="clear: both; text-align: -webkit-auto;"> <br /></div> <ol> <li>Buat terlebih dulu style sheet yang nanti akan dibutuhkan.</li> <pre>&lt;html&gt; &lt;head&gt; &lt;style type="text/css"&gt; #container { width:426px; height:150px; position:relative; font:bold 13px Georgia; padding:20px 20px 0; background:#eeeeee; } #container label { float:left; text-align:right; margin:0 30px 26px 0; clear:left; } .ui-slider { width:240px; float:left; } .ui-slider-handle { width:15px; height:27px; } #colorBox { width:104px; height:94px; float:right; margin:-83px 0 0 0; background:#ffffff; } #container #outputLabel { float:right; margin:-14px 10px 0 0; } #output { width:100px; text-align:center; float:right; clear:both; margin-top:-17px; } &lt;/style&gt; &lt;link rel="stylesheet" type="text/css" href="development-bundle/themes/smoothness/ui.all.css"&gt; &lt;meta http-equiv="Content-Type" content="text/html; charset=utf-8"&gt; &lt;title&gt;jQuery UI Color Slider Example&lt;/title&gt; &lt;/head&gt;</pre> <br /> <li>Untuk interface utamanya, kita menggunakan tiga buah slider yang mewakili merah, hijau dan biru. Untuk menampilkan widget slider ini dibutuhkan beberapa library, yaitu ui.all.css, jquery-1.3.2.js, ui.core.css, dan ui.slider.js. (File-file tambahan jquery dapat diunduh di <a href="http://docs.jquery.com/Release:jQuery_1.3.2">http://docs.jquery.com/Release:jQuery_1.3.2</a>)</li> <br /><pre>&lt;body&gt; &lt;div id="container" class="ui-corner-all ui-widget-content ui-helper-clearfix"&gt; &lt;label&gt;R:&lt;/label&gt;&lt;div id="rSlider"&gt;&lt;/div&gt;&lt;br&gt; &lt;label&gt;G:&lt;/label&gt;&lt;div id="gSlider"&gt;&lt;/div&gt;&lt;br&gt; &lt;label&gt;B:&lt;/label&gt;&lt;div id="bSlider"&gt;&lt;/div&gt; &lt;div id="colorBox" class="ui-corner-all ui-widget- content"&gt;&lt;/div&gt; &lt;input id="output" type="text" value="rgb(255,255,255)"&gt; &lt;label id="outputLabel"&gt;Color value:&lt;/label&gt; &lt;/div&gt; &lt;script type="text/javascript" src="development-bundle/jquery-1.3.2.js"&gt;&lt;/script&gt; &lt;script type="text/javascript" src="development-bundle/ui/ui.core.js"&gt;&lt;/script&gt; &lt;script type="text/javascript" src="development-bundle/ui/ui.slider.js"&gt;&lt;/script&gt; &lt;script type="text/javascript"&gt; $(function(){ var r = 255, g = 255, b = 255, rgbString; var sliderOpts = { min:0, max: 255, value: 255, slide: function(e, ui) { r = $("#rSlider").slider("value"); g = $("#gSlider").slider("value"); b = $("#bSlider").slider("value"); rgbString = "rgb(" + r + "," + g + "," + b + ")"; $("#colorBox").css({ backgroundColor: rgbString }); $("#output").val(rgbString); } }; $("#rSlider, #gSlider, #bSlider").slider(sliderOpts); }); &lt;/script&gt; &lt;/body&gt; &lt;/html&gt;</pre> <br /> <li>Tampilan yang didapatkan ketika program dijalankan adalah sebagai berikut:</li> <br /><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIo_RUfLA9tn0_gRmTFJkPv5RxNKlCu_TTM6KO-NBR3updcx-vvFXeKeu06PZ-sIA338thM7rZFoiEYWJCgZcDvRvtfXYCtqhuvChs7dHYrKn_IMXkiq1kv5qEDer5ewRP838jEWIJ1M4/s1600/01.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5612350608844705602" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIo_RUfLA9tn0_gRmTFJkPv5RxNKlCu_TTM6KO-NBR3updcx-vvFXeKeu06PZ-sIA338thM7rZFoiEYWJCgZcDvRvtfXYCtqhuvChs7dHYrKn_IMXkiq1kv5qEDer5ewRP838jEWIJ1M4/s320/01.jpg" style="cursor: hand; cursor: pointer; float: left; height: 187px; margin: 0 10px 10px 0; width: 320px;" /></a></ol>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-5686615749179884792010-02-03T18:58:00.002+07:002010-02-03T19:03:49.501+07:00<p class="abstract">Ingin tahu bagaimana mendeteksi CD Rom dan Removable Drive di Visual Basic? Tips kali ini akan membahas bagaimana mendeteksi CD Rom dan Removable Drive termasuk USB Flash Disc yang tertancap pada komputer saat itu.</p><br /><p>Untuk mendeteksi keseluruhan drive yang ada di sebuah komputer, ada dua pemanggilan API (Application Programming Interface) yang dibutuhkan, yaitu Function GetdriveType dan Function GetLogicalDriveStrings. Function GetLogicalDriveStrings akan menghasilkan seluruh drive yang terpasang pada komputer, sedangakan function GetDriveType akan menghasilkan tipe drive. Jenis-jenis drive yang dapat dideteksi adalah Removable, Fixed, Remote, CD Rom dan RAM Drive.</p><br /><p>Langkah-langkah untuk membuat programnya adalah:</p><br /><ol><br /><li>Rancang sebuah form dengan sebuah button bernama command1, dua buah label, masing-masing bernama lblCDRom dan lblRemovable.</li><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJQGFXeBgvi8l3wxrC3B8QPFwO1krQg7HhpZnV-53NBlkPvIeVk0rB84Qvu3zyeESw__643GMX8RBbF7M_JTm38vD7y3AqcHNz8EsumS7opC9582I9WM2PTb-T38fhBo4vOgMgfjuUPg0/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 159px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJQGFXeBgvi8l3wxrC3B8QPFwO1krQg7HhpZnV-53NBlkPvIeVk0rB84Qvu3zyeESw__643GMX8RBbF7M_JTm38vD7y3AqcHNz8EsumS7opC9582I9WM2PTb-T38fhBo4vOgMgfjuUPg0/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5433986548275068498" /></a><br /><li>Bagian deklarasi untuk pemanggilan fungsi API adalah sebagai berikut:</li><br /><pre>Private Declare Function GetDriveType Lib "kernel32" _<br /> Alias "GetDriveTypeA" (ByVal nDrive As String) As Long<br />Private Declare Function GetLogicalDriveStrings Lib "kernel32" _ <br /> Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _ <br /> ByVal lpBuffer As String) As Long<br /><br />Private Const DRIVE_REMOVABLE = 2<br />Private Const DRIVE_CDROM = 5</pre><br /><li>Dan event penekanan button:</li><br /><pre>Private Sub Command1_Click()<br /><br />Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&<br />Dim RemovableDrive$, CDRomDrive$<br />Dim Removable As Integer, CDRom As Integer<br /><br />allDrives$ = Space$(64)<br />r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)<br />allDrives$ = Left$(allDrives$, r&)<br />Do<br />pos% = InStr(allDrives$, Chr$(0))<br />If pos% Then<br /> JustOneDrive$ = Left$(allDrives$, pos%)<br /> allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))<br /> DriveType& = GetDriveType(JustOneDrive$)<br /> If DriveType& = DRIVE_REMOVABLE Then<br /> Removable% = True<br /> RemovableDrive$ = RemovableDrive$ & " " & JustOneDrive$<br /> End If<br /> If DriveType& = DRIVE_CDROM Then<br /> CDRom% = True<br /> CDRomDrive$ = CDRomDrive$ & " " & JustOneDrive$<br /> End If<br /> End If<br /> Loop Until allDrives$ = ""<br /> <br /> If Removable% Then<br /> LblRemovable = "Drive Removable ditemukan pada drive " & UCase$(RemovableDrive$)<br /> Else<br /> LblRemovable = "Tidak ada Drive Removable."<br /> End If<br /> <br /> If CDRom% Then<br /> lblCDRom = "CD Rom Drive ditemukan pada drive " & UCase$(CDRomDrive$)<br /> Else<br /> lblCDRom = "Tidak ada CD Rom."<br /> End If<br /> <br />End Sub</pre><br /><li>Simpan form dengan nama detek.frm. Jalankan program, Anda akan mendapatkan tampilan seperti pada gambar.</li><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzM0BwXjqX2_GzNSZ4tkWWNHIIII9jJr3-Nk6gj07K3e1PS_TMl029X0g0Q3_M_DXsC5Lwvig9uE21W5r-cCY4ZSm3h8Sg01z-Qav-Ge98YjMBdw5dLd_ufimaea5wz3yMVKmMeH_EdzY/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 157px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzM0BwXjqX2_GzNSZ4tkWWNHIIII9jJr3-Nk6gj07K3e1PS_TMl029X0g0Q3_M_DXsC5Lwvig9uE21W5r-cCY4ZSm3h8Sg01z-Qav-Ge98YjMBdw5dLd_ufimaea5wz3yMVKmMeH_EdzY/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5433986667541286418" /></a><br /></ol>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-80337487080784463772010-01-23T07:32:00.004+07:002010-01-23T07:37:46.611+07:00<span style="font-weight:bold;">Java menyediakan berbagai macam objek untuk keperluan grafik 2D yang dapat diakses pada library awt dan swing. Beberapa objek seperti Font, Color dan Graphics dapat dimanfaatkan untuk membuat tampilan grafik yang menarik.</span><br /><br />Objek Color adalah objek yang berhubungan dengan pewarnaan. Ketika kita menggambar suatu objek atau menuliskan teks tertentu, Java menerima parameter berupa objek color yang dipanggil melalui method setcolor (pada objek graphics) untuk menentukan warna dari objek tersebut. Objek lain yang dapat diterima adalah objek Font untuk menentukan jenis huruf yang muncul ketika dilakukan penulisan (menggunakan method drawstring) pada Canvas/frame.<br /><br />Langkah-langkahnya adalah:<br /><ol><br /><li>Karena aplikasi ini merupakan aplikasi grafik, maka beberapa library perlu di-import terlebih dulu.<br /><pre><br />import java.awt.Color;<br />import java.awt.Dimension;<br />import java.awt.Font;<br />import java.awt.FontMetrics;<br />import java.awt.Graphics;<br /><br />import javax.swing.ImageIcon;<br />import javax.swing.JComponent;<br />import javax.swing.JFrame;<br /></pre><br /><li>Beberapa warna yang perlu didefinisikan menjadi objek terlebih dulu adalah warna m_tRed (untuk menghasilkan efek transparansi warna merah), m_tGreen (untuk menghasilkan efek transparansi warna hijau), m_tBlue (untuk menghasilkan efek transparansi warna biru). Begitu pula untuk font yang hendak digunakan, perlu diinisialisasi terlebih dulu hingga menjadi objek yang nantinya dapat digunakan. Karena nama class adalah MyCanvas, maka penyimpanan file menggunakan nama MyCanvas.java<br /><pre><br />public class MyCanvas extends JComponent {<br /> private static Color m_tRed = new Color(255, 0, 0, 150);<br /><br /> private static Color m_tGreen = new Color(0, 255, 0, 150);<br /><br /> private static Color m_tBlue = new Color(0, 0, 255, 150);<br /><br /> private static Font monoFont = new Font("Monospaced", Font.BOLD<br /> | Font.ITALIC, 36);<br /><br /> private static Font sanSerifFont = new Font("SanSerif", Font.PLAIN, 12);<br /><br /> private static Font serifFont = new Font("Serif", Font.BOLD, 24);<br /></pre><br /><li>Berikutnya adalah meletakkan proses penggambaran pada method paintComponent (melakukan override). Method ini akan dipanggil secara otomatis ketika sebuah frame (window) menjadi visible atau di-resize.<br /><pre><br />public void paintComponent(Graphics g) {<br /> super.paintComponent(g);<br /><br /> // draw entire component white<br /> g.setColor(Color.white);<br /> g.fillRect(0, 0, getWidth(), getHeight());<br /><br /> // yellow circle<br /> g.setColor(Color.yellow);<br /> g.fillOval(0, 0, 240, 240);<br /><br /> // magenta circle<br /> g.setColor(Color.magenta);<br /> g.fillOval(160, 160, 240, 240);<br /><br /> // paint the icon below blue sqaure<br /> int w = java2sLogo.getIconWidth();<br /> int h = java2sLogo.getIconHeight();<br /> java2sLogo.paintIcon(this, g, 280 - (w / 2), 120 - (h / 2));<br /><br /> // paint the icon below red sqaure<br /> java2sLogo.paintIcon(this, g, 120 - (w / 2), 280 - (h / 2));<br /><br /> // transparent red square<br /> g.setColor(m_tRed);<br /> g.fillRect(60, 220, 120, 120);<br /><br /> // transparent green circle<br /> g.setColor(m_tGreen);<br /> g.fillOval(140, 140, 120, 120);<br /><br /> // transparent blue square<br /> g.setColor(m_tBlue);<br /> g.fillRect(220, 60, 120, 120);<br /><br /> g.setColor(Color.black);<br /><br /> g.setFont(monoFont);<br /> FontMetrics fm = g.getFontMetrics();<br /> w = fm.stringWidth("Java Source");<br /> h = fm.getAscent();<br /> g.drawString("Java Source", 120 - (w / 2), 120 + (h / 4));<br /><br /> g.setFont(sanSerifFont);<br /> fm = g.getFontMetrics();<br /> w = fm.stringWidth("and");<br /> h = fm.getAscent();<br /> g.drawString("and", 200 - (w / 2), 200 + (h / 4));<br /><br /> g.setFont(serifFont);<br /> fm = g.getFontMetrics();<br /> w = fm.stringWidth("Support.");<br /> h = fm.getAscent();<br /> g.drawString("Support.", 280 - (w / 2), 280 + (h / 4));<br /> }<br /><br /></pre><br /><li>Method lain yang diperlukan adalah method untuk menentukan dimensi dari frame.<br /><pre><br />public Dimension getPreferredSize() {<br /> return new Dimension(400, 400);<br /> }<br /><br /> public Dimension getMinimumSize() {<br /> return getPreferredSize();<br /> }<br /></pre><br /><li>Terakhir adalah implementasi class MyCanvas menjadi objek yang nyata pada void main.<br /><pre><br /> public static void main(String args[]) {<br /> JFrame mainFrame = new JFrame("Graphics demo");<br /> mainFrame.getContentPane().add(new MyCanvas());<br /> mainFrame.pack();<br /> mainFrame.setVisible(true);<br /> }<br />}<br /></pre><br /><li>Untuk menjalankan program Java ini, kita dapat mengompilasi dengan javac.exe serta menjalankan menggunakan java.exe<br /><pre><br />> javac MyCanvas.java<br />> java MyCanvas<br /></pre><br /><br /><li>Tampilan yang didapatkan adalah seperti berikut:<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi35ZjzPadM-VxYgOAiFaoFvOP_rJh7wa2EjJRoZIHiRMl4qcdyX7luPt_FnBiQVD67EIcHorC8GZVNo4lSa2EXUcDbgkYnmRpwCcQ0eyx8rY3-f3IiI_rQgFVgLpmXwP7a-RErN8p1ml0/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 304px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi35ZjzPadM-VxYgOAiFaoFvOP_rJh7wa2EjJRoZIHiRMl4qcdyX7luPt_FnBiQVD67EIcHorC8GZVNo4lSa2EXUcDbgkYnmRpwCcQ0eyx8rY3-f3IiI_rQgFVgLpmXwP7a-RErN8p1ml0/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5429727809573182258" /></a><br /><br /></ol>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-54177064480596391062010-01-23T07:20:00.002+07:002010-01-23T07:26:00.053+07:00<span style="font-weight:bold;">Situs dengan layout 2 kolom sering digunakan untuk memberikan ruang penambahan untuk komponen tertentu, misalnya clock, kalender, shoutbox, dan sebagainya. Layout 2 kolom ini, dapat dibuat dengan mendefinisikan style menggunakan Cascading Style Sheet (CSS).</span><br /><br />Tip kali ini adalah menerapkan layout 2 kolom dengan menambahkan komponen kalender di sisi kanan. Komponen kalender dibuat dengan menggunakan JavaScript.Langkah-langkah untuk membuatnya adalah:<br /><ol><br /><li>Kita buat kode awal untuk HTML dan mendefinisikan style untuk layout 2 kolom ini.<br /><pre><br />&lt;html lang="en"&gt; <br />&lt;head&gt; <br /> &lt;meta http-equiv="Content-Type" content="text/html; charset=utf-8"&gt; <br /> &lt;title&gt;Kalender&lt;/title&gt; <br /> &lt;style type="text/css"&gt; <br /> body { background: #bfadad; }<br /> #container {<br /> width: 755px;<br /> margin: 0 0 0 auto; } <br /> #header { height: 70px; }<br /> #footer {<br /> height: 68px;<br /> clear: both; }<br />#content {<br /> width: 470px;<br /> float: left;<br /> margin-top: -80px;<br /> padding-left: 46px; }<br />#navigation {<br /> width: 190px;<br /> float: left;<br /> margin-top: -20px;<br /> padding-left: 30px; } <br />&lt;/style&gt; <br />&lt;/head&gt; <br />&lt;body&gt;<br /><br /></pre><br /><li>Layout dapat dibagi menjadi beberapa bagian, yaitu header (yang diletakkan di atas), content (sebagai bagian utama/isi) dan navigation (tempat meletakkan kalender). <br /><pre><br />&lt;div id="container"&gt;<br />&lt;div id="header"&gt;<br />&lt;/div&gt;<br />&lt;div id="content"&gt;<br />&lt;h1&gt;Lorem Ipsum&lt;/h1&gt;<br />&lt;p&gt;Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut...&lt;/p&gt;<br />&lt;/div&gt;<br /></pre><br /><li>Untuk bagian navigation, kita akan langsung letakkan kode JavaScript untuk menampilkan kalender.<br /><pre><br />&lt;div id="navigation"&gt;<br />&lt;SCRIPT LANGUAGE="JavaScript"&gt; <br />&lt;!-- Begin <br />monthnames = new Array( "January", "Februrary", "March", "April", "May", "June", "July", <br />"August", "September", "October", "November", "Decemeber"); <br />var linkcount=0; <br /><br />function addlink(month, day, href) { <br /> var entry = new Array(3); <br /> entry[0] = month; <br /> entry[1] = day; <br /> entry[2] = href; <br /> this[linkcount++] = entry; <br />} <br /> Array.prototype.addlink = addlink; <br /> linkdays = new Array(); <br /> monthdays = new Array(12); <br /> monthdays[0]=31; monthdays[1]=28; monthdays[2]=31; <br /> monthdays[3]=30; monthdays[4]=31; monthdays[5]=30; <br /> monthdays[6]=31; monthdays[7]=31; monthdays[8]=30; <br /> monthdays[9]=31; monthdays[10]=30; monthdays[11]=31; <br /> <br /> todayDate=new Date(); <br /> thisday=todayDate.getDay(); <br /> thismonth=todayDate.getMonth(); <br /> thisdate=todayDate.getDate(); <br /> thisyear=todayDate.getYear(); <br /><br /> thisyear = thisyear % 100; <br /> thisyear = ((thisyear &lt; 50) ? (2000 + thisyear) : (1900 + thisyear)); <br /> if (((thisyear % 4 == 0) && !(thisyear % 100 == 0)) ||(thisyear % 400 == 0)) <br /> monthdays[1]++; <br /> <br /> startspaces=thisdate; <br /> while (startspaces &gt; 7) startspaces-=7; <br /> startspaces = thisday - startspaces + 1; <br /> if (startspaces &lt; 0) startspaces+=7; <br /><br /> document.write("&lt;table border=2 bgcolor=white "); <br /> document.write("bordercolor=black&gt;&lt;font color=black&gt;"); <br /> document.write("&lt;tr&gt;&lt;td colspan=7&gt;&lt;center&gt;&lt;strong&gt;" + monthnames[thismonth] + " " + thisyear + "&lt;/strong&gt;&lt;/center&gt;&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"); <br /><br /> document.write("&lt;tr&gt;"); <br /> document.write("&lt;td align=center&gt;Su&lt;/td&gt;"); <br /> document.write("&lt;td align=center&gt;M&lt;/td&gt;"); <br /> document.write("&lt;td align=center&gt;Tu&lt;/td&gt;"); <br /> document.write("&lt;td align=center&gt;W&lt;/td&gt;"); <br /> document.write("&lt;td align=center&gt;Th&lt;/td&gt;"); <br /> document.write("&lt;td align=center&gt;F&lt;/td&gt;"); <br /> document.write("&lt;td align=center&gt;Sa&lt;/td&gt;"); <br /> document.write("&lt;/tr&gt;"); <br /> document.write("&lt;tr&gt;"); <br /><br /> for (s=0;s&lt;startspaces;s++) { <br /> document.write("&lt;td&gt; &lt;/td&gt;"); } <br /> <br /> count=1; <br /> while (count &lt;= monthdays[thismonth]) { <br /> for (b = startspaces;b&lt;7;b++) { <br /> linktrue=false; <br /> document.write("&lt;td&gt;"); <br /> for (c=0;c&lt;linkdays.length;c++) { <br /> if (linkdays[c] != null) { <br /> if ((linkdays[c][0]==thismonth + 1) && (linkdays[c][1]==count)) { <br /> document.write("&lt;a href=\"" + linkdays[c][2] + "\"&gt;"); <br /> linktrue=true; <br /> } <br /> } <br /> } <br /><br /> if (count==thisdate) { <br /> document.write("&lt;font color='FF0000'&gt;&lt;strong&gt;"); } <br /> <br /> if (count &lt;= monthdays[thismonth]) { <br /> document.write(count); <br /> } else { <br /> document.write(" "); } <br /> <br /> if (count==thisdate) { <br /> document.write("&lt;/strong&gt;&lt;/font&gt;"); <br /> } <br /> <br /> if (linktrue) <br /> document.write("&lt;/a&gt;"); <br /> document.write("&lt;/td&gt;"); <br /> count++; <br /> } <br /> document.write("&lt;/tr&gt;"); <br /> document.write("&lt;tr&gt;"); <br /> startspaces=0; <br /> } <br /> document.write("&lt;/table&gt;&lt;/p&gt;"); // End <br />--&gt; &lt;/SCRIPT&gt; <br />&lt;/div&gt;<br />&lt;div id="footer"&gt;<br />Copyright &copy; &lt;a href="mailto:your@address.here"&gt;Your Name&lt;/a&gt;.<br />&lt;/div&gt;<br />&lt;/div&gt;&lt;!--container end--&gt;<br /></pre><br /><li>Berikut adalah contoh tampilan yang didapatkan:<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhO2M3cKGNVzBe4bnUa2A09ny1LW7jvO4C177vk6IsEJtQ5H1fACrDa9Xev_NT1-KoJUCw0EFXWdmPJf6ksIAEDJ_HZXNOa3gVMTsM4GRrzkHY4iMaT2-w-f_yqXvTl1rrmrhbwTwdYwrg/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 223px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhO2M3cKGNVzBe4bnUa2A09ny1LW7jvO4C177vk6IsEJtQ5H1fACrDa9Xev_NT1-KoJUCw0EFXWdmPJf6ksIAEDJ_HZXNOa3gVMTsM4GRrzkHY4iMaT2-w-f_yqXvTl1rrmrhbwTwdYwrg/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5429724869542776882" /></a><br /><br /></ol>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-2904820722221017942010-01-18T15:44:00.003+07:002010-01-18T15:53:07.311+07:00<div><br /></div>CAPTCHA merupakan singkatan dari Completely Automated Public Turing test to tell Computers and Humans. Digunakan untuk melakukan tes dalam menentukan apakah data diisi oleh bot (komputer) atau manusia. CAPTCHA berisikan sebuah atau lebih tulisan yang tidak memiliki arti khusus dengan kumpulan karakter yang didistorsi sedemikian rupa serta background warna tertentu namun masih dalam batas yang wajar untuk dikenali oleh mata manusia. Sedangkan bagi komputer, karakter tersebut tidak dapat terbaca.<br /><br />RECAPTCHA tidak jauh berbeda dengan CAPTCHA dan memiliki tujuan utama yang sama. Yang berbeda adalah tulisan yang diminta dimasukkan biasanya minimal dua kata, salah satu merupakan CAPTCHA biasa dan yang lain adalah kata dari sebuah buku atau media cetak yang akan di-digitalisasikan.<br /><br />Proses digitalisasi sering kali menghadapi masalah pada karakter yang kurang tajam/banyak noise. Bagi mesin untuk mengenali karakter semacam itu amatlah sulit, namun bagi mata manusia, hal tersebut tidaklah terlalu sulit. Dari permasalahan digitalisasi tersebut, muncullah ide reCaptcha. Kata dari suatu buku yang sulit didigitalisasi (karena kurang baiknya kualitas scan), ditampilkan sebagai Captcha untuk meminta “bantuan” dari manusia agar mengetikkan kata apa sebenarnya yang dimaksud.<br /><br />Untuk menggunakan re-Captcha, kita memerlukan library yang dapat diunduh di situs re-CAPTCHA, yaitu http://www.recaptcha.net. Tip kali ini adalah membuat halaman login dengan validasi menggunakan re-Captcha<br /><br />Langkah-langkah untuk membuatnya adalah:<br /><ol><br /><li><br />Kode PHP awal untuk aplikasi ini adalah mendefinisikan publickey dan privatekey. Kedua kunci ini bisa didapatkan dengan gratis melalui registrasi pada recaptcha.net.<br /><pre><br />&lt;?php<br />$publickey = "6LeSGAkAAAAAAGHNAavz-_-DsdYdIfV_HoIuam67";<br />$privatekey = "6LeSGAkAAAAAAGuMfcuG9A0_740-qQ4auCon5piv ";<br /><br />require_once('recaptchalib.php');<br />?&gt;<br /><br /></pre><br /></li><li>Kita siapkan style untuk memperbaiki tampilan form login ini.<br /><pre><br />&lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"<br />"http://www.w3.org/TR/html4/loose.dtd"&gt;<br />&lt;html xmlns="http://www.w3.org/1999/xhtml"&gt;<br />&lt;head&gt;<br />&lt;meta http-equiv="Content-Type" content="text/html; charset=utf-8" /&gt;<br /><br />&lt;style&gt;<br /><br />.label{<br /> font-family:Verdana, Arial, Helvetica, sans-serif;<br /> font-size:11px;<br /> color:#0066FF;<br />}<br />.tableBorder{<br /> border:solid 1px #0066FF;<br /> margin-top:100px;<br />}<br />.message{<br /> font-family:Verdana, Arial, Helvetica, sans-serif;<br /> font-size:14px;<br /> font-weight:bold;<br /> color:#0066FF;<br />}<br /><br />&lt;/style&gt;<br />&lt;title&gt;PHP Recaptcha&lt;/title&gt;<br />&lt;/head&gt;<br />&lt;body&gt;<br />&lt;div&gt;<br /><br /></pre><br /></li><li>Proses berikutnya adalah menampilkan form yang terdiri dari masukan nama, email, telepon, dan password.<br /><pre><br />&lt;?php<br /> if(!$_POST)<br /> {<br /> echo "&lt;form action=\"\" method=\"POST\"&gt;";<br /> echo '&lt;table cellpadding="2px" cellspacing="1px" bgcolor="#F4F5F7" width="400px" class="tableBorder" align="center"&gt;';<br /> echo '&lt;tr&gt;';<br /> echo '&lt;td colspan="2" bgcolor="#0066FF" align="center" &gt; &lt;/td&gt;';<br /> echo '&lt;/tr&gt;';<br /> echo '&lt;tr&gt;';<br /> echo '&lt;td colspan="2" class="label"&gt; &lt;/td&gt;';<br /> echo '&lt;/tr&gt;';<br /> echo "&lt;tr&gt;";<br /> echo '&lt;td class="label" align="right" width="40%"&gt;Nama:&lt;/td&gt;';<br /> echo '&lt;td&gt;&lt;input type="text" name="newname"&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;';<br /> echo '&lt;td class="label" align="right" width="40%"&gt;Email:&lt;/td&gt;';<br /> echo '&lt;td&gt;&lt;input type="text" name="email"&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;';<br /> echo '&lt;td class="label" align="right" width="40%"&gt;Telp:&lt;/td&gt;';<br /> echo '&lt;td&gt;&lt;input type="text" name="telp"&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;';<br /> echo '&lt;td class="label" align="right" width="40%"&gt;Password:&lt;/td&gt;';<br /> echo '&lt;td&gt;&lt;input type="password" name="newsandi1"&gt;&lt;/td&gt;&lt;/tr&gt;';<br /> echo '&lt;td class="label" align="right" width="40%"&gt;Re-type Password:&lt;/td&gt;';<br /> echo '&lt;td&gt;&lt;input type="password" name="newsandi2"&gt;&lt;/td&gt;&lt;/tr&gt;';<br /> echo '&lt;td colspan=2 align="center" class="label" &gt;';<br /> echo recaptcha_get_html($publickey);<br /> echo '&lt;/td&gt;';<br /> echo '&lt;tr&gt;';<br /> echo '&lt;td colspan=2 align="right"&gt;&lt;input type="submit" value="Submit" /&gt;&lt;/td&gt;&lt;/tr&gt;';<br /> echo "&lt;/table&gt;";<br /> <br /> echo "&lt;/form&gt;";<br /> <br /> }<br /></pre><br /></li><li>Proses pengujian dilakukan dengan memanfaatkan fungsi recaptch_check_answer yang ada di library recaptcha. Jika respon benar, maka ditampilkan di layara "Respon re-captcha BENAR".<br /><pre><br /> else<br /> {<br /> $response = recaptcha_check_answer(<br /> $privatekey,<br /> $_SERVER['REMOTE_ADDR'],<br /> $_POST['recaptcha_challenge_field'],<br /> $_POST['recaptcha_response_field']);<br /> <br /> echo "Nama : " . $_POST['newname'] . "&lt;br&gt;";<br /> echo "Email : " . $_POST['email'] . "&lt;br&gt;";<br /> echo "Telp : " . $_POST['telp'] . "&lt;br&gt;";<br /> echo "Password : " . $_POST['newsandi1'] . "&lt;br&gt;";<br /> if ( $response-&gt;is_valid )<br /> {<br /> echo "&lt;h3&gt;Respon re-captcha BENAR&lt;/h3&gt;";<br /> <br /> }<br /> else<br /> {<br /> echo "&lt;h3&gt;Respon re-captcha SALAH&lt;/h3&gt;.";<br /> }<br /> }<br /><br /> ?&gt;<br /> &lt;/div&gt;<br />&lt;/body&gt;<br />&lt;/html&gt;<br /></pre><br /><br /></li><li>5. Berikut adalah beberapa contoh tampilan yang didapatkan:<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiUvwbeqgOOtjLRnesEUbdXd70qHUqTDlq_gUO5uFbwlSss8ezFcFQlVqvIZ4RxKiun6qMkUXoMrCeipYcDyuo_TP9RyMxhwGxuJXQyhDNDd7kRq4m8q9l_wMj6AETA1XOBCE3zRrHr5X8/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 307px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiUvwbeqgOOtjLRnesEUbdXd70qHUqTDlq_gUO5uFbwlSss8ezFcFQlVqvIZ4RxKiun6qMkUXoMrCeipYcDyuo_TP9RyMxhwGxuJXQyhDNDd7kRq4m8q9l_wMj6AETA1XOBCE3zRrHr5X8/s320/01.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5428000069725807906" /></a><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWphAgB-KIkTjosNBHBkq_4C0Ob5ol-M2Gq4mq4p5y0rm8aBXQQamjFrcV8l2olGz1Bi9MO_Pae0k56td1g9csRiHHkVGTgC4ZHWlRPKual33dITTf1wucbc4mf5R-ec3VZKTzoVblYm4/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 215px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWphAgB-KIkTjosNBHBkq_4C0Ob5ol-M2Gq4mq4p5y0rm8aBXQQamjFrcV8l2olGz1Bi9MO_Pae0k56td1g9csRiHHkVGTgC4ZHWlRPKual33dITTf1wucbc4mf5R-ec3VZKTzoVblYm4/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5428000187729844402" /></a><br /><br /></li></ol>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-39379696986196890532010-01-18T07:53:00.000+07:002010-01-18T07:54:09.015+07:00<div><br /></div>Java merupakan salah satu bahasa pemrograman yang cukup populer baik di kalangan mahasiswa IT maupun programmer/developer. Java mengusung konsep “Write once run anywhere”, yang artinya sekali programmer menuliskan kode untuk membuat suatu aplikasi, maka aplikasi tersebut dapat dijalankan di berbagai macam platform. Sebagai hasilnya, muncullah aplikasi-aplikasi Java pada berbagai platform, mulai dari Windows, Linux, Web, Mobile Phone, Peripheral dan banyak lagi.<br /><br />Sebagai tip awal untuk Java, kita akan membuat aplikasi sederhana, yaitu kalkulator. Aplikasi kalkulator ini menggunakan mode GUI (Graphical User Interface) yang dilengkapi dengan button-button seperti halnya aplikasi Calculator pada Windows.<br />Langkah-langkahnya adalah:<br /><ol><br /><li>Karena aplikasi ini merupakan aplikasi grafik, maka beberapa library perlu di-import terlebih dulu.<br /><pre><br />import java.awt.BorderLayout;<br />import java.awt.Button;<br />import java.awt.Container;<br />import java.awt.GridLayout;<br />import java.awt.event.ActionEvent;<br />import java.awt.event.ActionListener;<br /><br />import javax.swing.JApplet;<br />import javax.swing.JButton;<br />import javax.swing.JFrame;<br />import javax.swing.JPanel;<br />import javax.swing.JTextField;<br /></pre><br /></li><li>Aplikasi Calculator merupakan turunan dari class JFrame yang ada di library Java.swing. Kita mendefisinikan terlebih dulu class utamanya, yaitu class Calculator, yang sekaligus menunjukkan nama file untuk aplikasi ini, yaitu Calculator.java.<br /><pre><br />public class Calculator extends JFrame {<br />private JTextField display;<br />private double arg = 0;<br />private String op = "=";<br />private boolean start = true;<br />TextFieldHandler handler = new TextFieldHandler();<br /></pre><br /></li><li>Kita siapkan sebuah konstruktor (yang pertama dieksekusi oleh aplikasi) untuk aplikasi calculator ini.<br /><pre><br /> public Calculator() {<br /> setLayout(new BorderLayout());<br /><br /> display = new JTextField("0");<br /> display.setEditable(false);<br /> add(display, "North");<br /><br /> JPanel p = new JPanel();<br /> p.setLayout(new GridLayout(4, 4));<br /> String buttons = "789/456*123-0.=+";<br /> for (int i = 0; i &lt; buttons.length(); i++)<br /> addButton(p, buttons.substring(i, i + 1));<br /> add(p, "Center");<br /> }<br /></pre><br /><br /></li><li>Pada setiap button, kita perlu memanggil method addActionListener untuk "mendengar" setiap event yang terjadi pada button yang ada.<br /><pre><br />private void addButton(Container c, String s) {<br /> JButton b = new JButton(s);<br /> c.add(b);<br /> b.addActionListener(handler);<br />}<br /></pre><br /></li><li>Event click yang terjadi pada setiap button, akan ditangkap oleh method ActionPerformed. Pada method inilah proses kalkulasi dilakukan.<br /><pre><br />private class TextFieldHandler implements ActionListener {<br />public void actionPerformed( ActionEvent event ) {<br /> String s = event.getActionCommand();<br /> if ('0' <= s.charAt(0) &amp;&amp; s.charAt(0) <= '9' || s.equals(".")) { <br /> if (start) //pertama kali user menekan button <br /> display.setText(s); <br /> else<br /> display.setText(display.getText() + s); <br /> start = false; <br /> } else {<br /> if (start) { <br /> if (s.equals("-")) { <br /> display.setText(s); <br /> start = false; <br /> } else <br /> op = s; <br /> } else { //text pada display diubah menjadi double <br /> calculate(Double.parseDouble(display.getText())); <br /> op = s; <br /> start = true;<br /> } <br /> } <br />} } </pre><br /></li><li>Setelah database sukses dibuat, kita dapat menjalankan program VB.Net untuk menguji apakah koneksi dapat dibuat atau tidak. Konfigurasi standard yang kita masukkan adalah: Server: localhost, Username: root, Password: [kosong], Database: testkoneksi<br /><pre><br /> public void calculate(double n) {<br /> if (op.equals("+"))<br /> arg += n;<br /> else if (op.equals("-"))<br /> arg -= n;<br /> else if (op.equals("*"))<br /> arg *= n;<br /> else if (op.equals("/"))<br /> arg /= n;<br /> else if (op.equals("="))<br /> arg = n;<br /> //hasil ditampilkan<br /> display.setText("" + arg);<br />}<br /></pre><br /></li><li>Terakhir adalah membuat void main yang merupakan penerapan class Calculator yang telah dibuat.<br /><pre><br />public static void main(String[] args) {<br /> Calculator calc = new Calculator();<br /> calc.setTitle("Calculator");<br /> calc.setSize(200, 200);<br /> calc.setVisible(true);<br />}<br /><br />}<br /></pre><br /></li><li>Untuk menjalankan program Java ini, kita dapat mengompilasi dengan javac.exe serta menjalankan menggunakan java.exe<br /><pre><br />> javac Calculator.java<br /><br />> java Calculator<br /></pre><br /></li><li>Tampilan yang didapatkan adalah seperti berikut:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoPjxZ-LzI4kXcR6EFAww19LeZ5aZ1yff5hEBacc4LabMy89tsivLUaXgD9jZlLhzygTLsLnsMmFQwXdQT6nHzwuaKqImW-tn6m-ymZugWK-PdrqfrkHbDGxN5QsV8aEanYU4jXtZ_e_g/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 303px; height: 306px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoPjxZ-LzI4kXcR6EFAww19LeZ5aZ1yff5hEBacc4LabMy89tsivLUaXgD9jZlLhzygTLsLnsMmFQwXdQT6nHzwuaKqImW-tn6m-ymZugWK-PdrqfrkHbDGxN5QsV8aEanYU4jXtZ_e_g/s320/01.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5427875325516094018" /></a><br /><br /><br /></li></ol>Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-6592780324121647341.post-1431897717328781232010-01-05T20:16:00.001+07:002010-01-05T20:21:32.985+07:00<p class="abstract">Teks berjalan seringkali digunakan pada display di toko untuk menarik perhatian. Dengan program yang pendek, kita dapat membuat teks berjalan seperti itu.</p><br /><p>Langkah-langkah pembuatannya:</p><br /><ol><br /><li>Buat form baru dengan 2 buah label yang bernama lblteks1 dan lblteks2. Sebuah timer yang bernama timer1 serta sebuah command button yang bernama cmdExit.</li><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjThylNubME1lbMsF8jxBeypVEkx2wsCq3pQzwWoSQveY75kAPCO55X7YMAJ2kS-2bQ2MTr_hc7hOpGOWTk0xp1_tus28BMnx9aLHZ066GnXoijb9h2__1aZr7kQYyXLUNV_EUSBVed6yg/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 300px; height: 167px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjThylNubME1lbMsF8jxBeypVEkx2wsCq3pQzwWoSQveY75kAPCO55X7YMAJ2kS-2bQ2MTr_hc7hOpGOWTk0xp1_tus28BMnx9aLHZ066GnXoijb9h2__1aZr7kQYyXLUNV_EUSBVed6yg/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5423245000231681746" /></a><br /><li>Interval untuk timer diubah menjadi 100. Logika programnya adalah meletakkan huruf terakhir pada posisi pertama setiap 0.1 detik (100 milisekon). Efek yang dihasilkan adalah teks berjalan dari kiri ke kanan. Sedangkan untuk teks yang berjalan dari kanan ke kiri, dilakukan dengan meletakkan huruf pertama pada posisi terakhir.</li><br /><pre>Private Sub cmdExit_Click()<br /> End<br />End Sub<br /><br />Private Sub Form_Load()<br /> lblTeks1.Caption = "If you think you can win, you can win. "<br /> lblTeks2.Caption = "Faith is necessary to victory. "<br />End Sub<br /><br />Private Sub Timer1_Timer()<br /> s$ = lblTeks1.Caption<br /> s$ = Right$(s$, 1) & Mid$(s$, 1, Len(s$) - 1)<br /> lblTeks1.Caption = s$<br /> <br /> s$ = lblTeks2.Caption<br /> s$ = Mid$(s$, 2, Len(s$)) & Left$(s$, 1)<br /> lblTeks2.Caption = s$<br />End Sub</pre><br /><li>Simpan form dengan nama FrmScroll. Lalu jalankan program dengan menekan tombol F5. Anda akan mendapatkan tampilan:</li><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikOfnyxh7QvloJmvrJlO13hRViq1LUTFi4vdDmpPSl9s6u6o-Kkg_ER4lpMxBQi29YwyNse3W715YKeM731iAw4pljf0b-aIU7H7SKKGWrlZWNzSqYKSvrD-xqcxqo2iOCulVI1U47CTo/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 300px; height: 167px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikOfnyxh7QvloJmvrJlO13hRViq1LUTFi4vdDmpPSl9s6u6o-Kkg_ER4lpMxBQi29YwyNse3W715YKeM731iAw4pljf0b-aIU7H7SKKGWrlZWNzSqYKSvrD-xqcxqo2iOCulVI1U47CTo/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5423244993120046642" /></a><br /></ol>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com3tag:blogger.com,1999:blog-6592780324121647341.post-31109511237907946862009-12-29T23:34:00.003+07:002009-12-29T23:41:57.795+07:00<b>Di posting lalu, kita mempelajari tentan dasar-dasar pembuatan situs jejaring sosial, khususnya pembuatan fungsi untuk membuat tabel user dan membuat tabel untuk menyimpan koneksi teman. Pada posting ini, akan didemokan bagaimana membuat aplikasi kecil berupa statistik teman, seperti berapa jumlah teman pria, wanita, single, in relationship, usia dan sebagainya.</b><br /><br />Langkah-langkah untuk membuatnya adalah:<br /><ol><li>Dengan memanfaatkan function.php yang telah dibuat, kita membuat tabel user dan teman. Struktur untuk tabel user adalah ID, Nama, Password, Tahun lahir, Status, Sex, DateEntry dan TimeEntry. Status mempunyai jenis field angka yang mewakili Single (1), In Relationship (2), It’s Complicated (3), Married (4). Sedangkan Sex diwakili oleh karakter M (Male) dan F (Female).<br /><pre><br />&lt;?php<br />require_once('function.php');<br /><br />createTable("user",array("ID","Nama","Password","TahunLahir","Status","Sex","DateEntry","TimeEntry"),<br />array("int(2)","char(40)","char(40)","char(5)","int(2)","char(2)","DATE","TIME"));<br /><br />createTable("Teman",array("ID","Teman","DateEntry","TimeEntry"),<br />array("char(4)","char(4)","DATE","TIME"));<br /></pre><br /></li><li>Berikutnya kita mencoba untuk mengisikan data dummy dengan memanggil perintah insert yang ada pada function.php. Pada data dummy ini, kita mensimulasikan ada 10 user yang terdaftar (disimpan pada tabel user). Koneksi teman disimpan pada tabel teman.<br /><pre><br />insert("user",array("001","Duck 1",sha1('001'),"1986","2","M"));<br />insert("user",array("002"," Duck 2",sha1('002'),"1981","4","M"));<br />insert("user",array("003"," Duck 3",sha1('003'),"1988","2","F"));<br />insert("user",array("004"," Duck 4",sha1('004'),"1989","1","M"));<br />insert("user",array("005"," Duck 5",sha1('005'),"1991","1","F"));<br />insert("user",array("006"," Duck 6",sha1('006'),"1977","3","M"));<br />insert("user",array("007"," Duck 7",sha1('007'),"1990","2","M"));<br />insert("user",array("008"," Duck 8",sha1('008'),"1975","1","M"));<br />insert("user",array("009"," Duck 9",sha1('009'),"1979","3","M"));<br />insert("user",array("010"," Duck 10",sha1('010'),"1984","2","F"));<br /><br /><br />insert("Teman",array("001","002"));<br />insert("Teman",array("001","005"));<br />insert("Teman",array("001","007"));<br />insert("Teman",array("002","001"));<br />insert("Teman",array("002","003"));<br />insert("Teman",array("002","004"));<br />insert("Teman",array("002","005"));<br />insert("Teman",array("002","006"));<br />insert("Teman",array("002","007"));<br />insert("Teman",array("002","008"));<br />insert("Teman",array("002","009"));<br />insert("Teman",array("002","010"));<br />?&gt;<br /></pre><br />Dari data teman di atas, kita dapat membaca bahwa ID 001 berteman dengan ID 002, 005, dan 007. Sedangkan 002 berteman dengan semua yang ada di table user.<br /><br /></li><li>Untuk menampilkan statistik, kita bisa mencegat dengan menambahkan beberapa perintah SQL untuk mengolah datanya. Pencegatan ini kita lakukan pada function login2 (di function.php). Mula-mula kita melakukan pengujian apakah password telah dimasukkan dengan benar. Jika benar, browser akan menampilkan selamat datang serta menghitung jumlah teman yang dipunyai.<br /><pre><br />function login2($userInput, $pass) {<br /> mysql_connect("localhost", "root", "");<br /> mysql_select_db('faceduuk'); <br /><br /> $query = "SELECT * FROM user WHERE ID = '".$userInput."';"; <br /><br /> $res = mysql_query($query); <br /> if (mysql_numrows($res) &lt;= 0) {<br /> echo "User ID is not available.&lt;br /&gt;";<br /> } else<br /> {<br /> $pass2=sha1($pass);<br /> $row = mysql_fetch_assoc($res); <br /> if ($row['Password']==$pass2) {<br /> echo "&lt;h1&gt;Selamat datang, ". $row['Nama'] . "&lt;/h1&gt;";<br /> <br /> $id=$row['ID']; <br /><br /> $teman = mysql_query("SELECT * FROM teman where id='$id'");<br /> $jumlahTeman = mysql_num_rows($teman);<br /> echo "&lt;br&gt;Jumlah teman Anda : $jumlahTeman";<br /></pre><br /></li><li>Kemudian proses perhitungan statistik dimulai dengan menghitung jumlah teman pria, wanita, single, in relationship, dan merried.<br /><pre><br /> $tteman = mysql_query("SELECT * FROM teman where id='$id'");<br /> $jumlahTemanPria = 0;<br /> for ($i=1; $i&lt;=$jumlahTeman; $i++) {<br /> $rows=mysql_fetch_array($tteman);<br /> $jumlahTemanPria += mysql_num_rows(mysql_query("SELECT * FROM USER where id='$rows[1]' and sex='M'"));<br /> }<br /> echo "&lt;br&gt;Teman pria : $jumlahTemanPria - ".floor($jumlahTemanPria/$jumlahTeman*100)."%";<br /> <br /> $jumlahTemanWanita = $jumlahTeman-$jumlahTemanPria;<br /> echo "&lt;br&gt;Teman wanita : $jumlahTemanWanita - ".floor($jumlahTemanWanita/$jumlahTeman*100)."%&lt;br&gt;";<br /> <br /> $tteman = mysql_query("SELECT * FROM teman where id='$id'");<br /> $jumlahTemanSingle = 0;<br /> for ($i=1; $i&lt;=$jumlahTeman; $i++) {<br /> $rows=mysql_fetch_array($tteman);<br /> $jumlahTemanSingle += mysql_num_rows(mysql_query("SELECT * FROM USER where id='$rows[1]' and status='1'"));<br /> }<br /> echo "&lt;br&gt;Single : $jumlahTemanSingle - ".floor($jumlahTemanSingle/$jumlahTeman*100)."%";<br /> <br /> $tteman = mysql_query("SELECT * FROM teman where id='$id'");<br /> $jumlahTemanInR = 0;<br /> for ($i=1; $i&lt;=$jumlahTeman; $i++) {<br /> $rows=mysql_fetch_array($tteman);<br /> $jumlahTemanInR += mysql_num_rows(mysql_query("SELECT * FROM USER where id='$rows[1]' and status='2'"));<br /> }<br /> echo "&lt;br&gt;In Relationship : $jumlahTemanInR - ".floor($jumlahTemanInR/$jumlahTeman*100)."%"; <br /> <br /> $tteman = mysql_query("SELECT * FROM teman where id='$id'");<br /> $jumlahTemanMerried = 0;<br /> for ($i=1; $i&lt;=$jumlahTeman; $i++) {<br /> $rows=mysql_fetch_array($tteman);<br /> $jumlahTemanMerried += mysql_num_rows(mysql_query("SELECT * FROM USER where id='$rows[1]' and status='4'"));<br /> } <br /> echo "&lt;br&gt;Married : $jumlahTemanMerried - ".floor($jumlahTemanMerried/$jumlahTeman*100)."%";<br /> <br /> $tteman = mysql_query("SELECT * FROM teman where id='$id'");<br /> $jumlahUmurTeman = 0;<br /> for ($i=1; $i&lt;=$jumlahTeman; $i++) {<br /> $rows=mysql_fetch_array($tteman);<br /> $rows=mysql_fetch_array(mysql_query("SELECT TahunLahir FROM USER where id='$rows[1]'"));<br /> $jumlahUmurTeman += 2009-$rows[0];<br /> }<br /> <br /> echo "&lt;br&gt;";<br /> echo "&lt;br&gt;Rata-rata usia : ".floor($jumlahUmurTeman/$jumlahTeman);<br /> } // = password<br /><br /><br /> } // user exist<br />} // function login<br />?&gt;<br /></pre><br /></li><li>Untuk melakukan fungsi pemanggilan login2, kita dapat membuat aplikasi kecil berikut:<br /><pre>&lt;?php<br />require_once('function.php');<br />login2("001","001");<br />?&gt;<br /></pre><br /></li><li>Tampilan berikut merupakan tampilan yang didapatkan untuk pemanggilan login 001. Gambar berikutnya menunjukkan jika pemanggilan fungsi login diubah menjadi login2("002","002");<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg55eJfrAHh82mFpVJREga0f5BArR3dO7ZeP5n6CQ9ZZk2HlgSBrnVtRAQoBlwaeiw21BaFjj4CDL7vSWLilgzsnF4-EVPZwcp39uqth3efhwwOptYfgC2oBVLkAkIOt4Y5C_cMw2cFuT4/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 265px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg55eJfrAHh82mFpVJREga0f5BArR3dO7ZeP5n6CQ9ZZk2HlgSBrnVtRAQoBlwaeiw21BaFjj4CDL7vSWLilgzsnF4-EVPZwcp39uqth3efhwwOptYfgC2oBVLkAkIOt4Y5C_cMw2cFuT4/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5420698754672096642" /></a><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeiT06gBLqnGDLXMUz_I4BfiMzP3c7DJ0U6iZe2Ui-ub64DUgkQArr2HORPAJI2gzaRhKGCOkq1rucelBqioU9iFLGdiYCh5HV00kirX7QNb7P4tf6bq27ABLDx87xBuHY8l2aEdkmzGo/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 265px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeiT06gBLqnGDLXMUz_I4BfiMzP3c7DJ0U6iZe2Ui-ub64DUgkQArr2HORPAJI2gzaRhKGCOkq1rucelBqioU9iFLGdiYCh5HV00kirX7QNb7P4tf6bq27ABLDx87xBuHY8l2aEdkmzGo/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5420698862293080818" /></a><br /></li></ol>Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-6592780324121647341.post-83722151312749240572009-12-29T23:25:00.004+07:002009-12-29T23:40:57.132+07:00<b>Situs jejaring sosial seperti Facebook, MySpace ataupun Twitter sepertinya telah menjadi candu tersendiri bagi penggunanya. Beberapa tidak dapat memulai rutinitas hariannya sebelum membuat situs jejaring sosial untuk membaca kabar-kabar terbaru dari teman-temannya.</b><br /><br />Kesuksesan dari situs jejaring sosial, membuat banyak pengembang web membuat situs serupa. Namun tentu saja pioneer dan mereka yang punya diferensiasilah yang akan lebih digemari.<br /><br />Sulitkah membuat situs jejaring sosial? Dengan menggunakan PHP (bahasa pemrograman yang juga digunakan oleh Facebook) dan MySQL, kita akan menerapkan konsep sederhana dari suatu situs jejaring sosial, di mana user dapat mendaftar, login dan menampilkan jumlah serta nama teman.<br /><br />Langkah-langkah untuk membuatnya adalah:<br /><ol><br /><li>Kita buat suatu fungsi bernama createTable untuk membuat tabel pada database MySQL faceduuk. <br /><pre><br />&lt;?php<br />function createTable($table_name, $field_name, $field_type) {<br /> $query = "CREATE TABLE IF NOT EXISTS ".$table_name." (";<br /> for ($i = 0; $i &lt; count($field_name); $i++) {<br /> $query .= $field_name[$i]." ".$field_type[$i];<br /> if ($i != count($field_name)-1) $query .= ", ";<br /> }<br /> $query .= ")";<br /> mysql_connect("localhost", "root", "");<br /> mysql_select_db('faceduuk');<br /> mysql_query($query);<br /> echo $query;<br />}<br /><br />createTable("user", array("UserID", "Password", "Nama", "TanggalEntry", "JamEntry"), array("char(10)", "char(40)", "char(40)", "date", "time"));<br /><br />?&gt;<br /></pre><br /><br /><li>Fungsi kedua yang akan kita buat adalah fungsi insert. Tujuan dari fungsi insert adalah memasukkan data pada tabel. Pada saat proses pendaftaran, fungsi ini akan dipanggil untuk menyimpan data yang telah dientry user ke dalam tabel.<br /><pre><br />function insert($tabel, $ins) {<br /> mysql_connect("localhost", "root", "");<br /> mysql_select_db('faceduuk'); <br /><br /> $tanggal = date("Y-m-d");<br /> $jam = date("G:i:s");<br /> $data = "";<br /> for ($i=0; $i&lt;count($ins); $i++) {<br /> $data .= "'".$ins[$i]."',";<br /> }<br /> <br /> $query = "INSERT INTO ". $tabel . <br /> " VALUES (".$data." '".$tanggal."', '".$jam."');";<br /> mysql_query($query); <br />}<br /></pre><br /><br /><li>Fungsi ketiga adalah fungsi saat user melakukan login. Simpan kumpulan fungsi ini dengan function.php.<br /><br /><pre><br />function login2($userInput, $pass) {<br /> mysql_connect("localhost", "root", "");<br /> mysql_select_db('faceduuk'); <br /> <br /> $query = "SELECT * FROM user WHERE userID = '".$userInput."';"; <br /><br /> $res = mysql_query($query); <br /> if (mysql_numrows($res) &lt;= 0) {<br /> echo "UserID is not available.&lt;br /&gt;";<br /> } else<br /> {<br /> $pass2=md5($pass);<br /> $row = mysql_fetch_assoc($res);<br /> if ($row['Password']==$pass2) {<br /> echo "&lt;h1&gt;Selamat datang, ". $row['Nama'] . "&lt;/h1&gt;";<br /> echo "&lt;br&gt;Teman Anda:&lt;br&gt;";<br /> <br /> //cari teman<br /> $query = "SELECT * FROM teman WHERE userID = '".$userInput."';"; <br /> $res = mysql_query($query); <br /> $tot = mysql_numrows($res);<br /> echo "&lt;strong&gt;&lt;ul&gt;";<br /> for ($i = 0; $i &lt; mysql_numrows($res); $i++) {<br /> $row = mysql_fetch_assoc($res);<br /> echo "&lt;li&gt;".$row['teman']."&lt;/li&gt;";<br /> } <br /> <br /> $query = "SELECT * FROM teman WHERE teman = '".$userInput."';"; <br /> $res = mysql_query($query); <br /> $tot += mysql_numrows($res);<br /> for ($i = 0; $i &lt; mysql_numrows($res); $i++) {<br /> $row = mysql_fetch_assoc($res);<br /> echo "&lt;li&gt;".$row['userID']."&lt;/li&gt;";<br /> } <br /> echo "&lt;/ul&gt;&lt;/strong&gt;&lt;br&gt;";<br /> echo "Jumlah teman: ".$tot;<br /> } <br /> }<br />}<br /></pre><br /><br /><li>Dengan memanfaatkan fungsi createTable, kita akan membuat dua buah tabel. Tabel pertama adalah tabel yang berisi data user (dengan field UserID, Password, Nama, TanggalEntry dan JamEntry) dan tabel kedua merupakan tabel teman (dengan field UserID, Teman, TanggalEntry dan JamEntry). Tabel teman ini menunjukkan siapa berteman dengan siapa. Setelah membuat tabel, kita isikan data teman secara manual. Tentu pada penerapannya, kita perlu membuat sebuah form untuk melakukan registrasi. Simpan file ini dengan nama data.php.<br /><br /><pre><br />&lt;?php<br /> require("function.php");<br /> createTable("user", array("UserID", "Password", "Nama", "TanggalEntry", "JamEntry"), array("char(10)", "char(40)", "char(40)", "date", "time"));<br /> <br /> insert("user", array("kwek",md5("kwek"),"Kwek Bebek")); <br /> insert("user", array("kwak",md5("kwak"),"Kwak Bebek")); <br /> insert("user", array("kwik",md5("kwik"),"Kwik Bebek")); <br /> insert("user", array("kwok",md5("kwok"),"Kwok Bebek")); <br /><br /> createTable("teman", array("userID","teman", "tanggal", "jam"), <br /> array("char(10)","char(10)", "date", "time"));<br /> insert("teman",array("kwak","kwek"));<br /> insert("teman",array("kwak","kwik"));<br /> insert("teman",array("kwak","kwok"));<br /> insert("teman",array("kwek","kwok"));<br />?&gt;<br /></pre><br /><br />Dari data di atas, tabel user akan berisi 4 buah record, yaitu kwek, kwak, kwok dan kwik. Lalu dari tabel teman, kita menyisipkan 4 buah record, yaitu kwak berteman dengan kwek, kwak berteman dengan kwik, kwak berteman dengan kwok dan kwek berteman dengan kwok.<br /><li>Fungsi terakhir, yaitu fungsi login dapat kita gunakan untuk mensimulasikan saat user melakukan login. Agar praktis, kita akan panggil langsung fungsi login ke dalam sebuah file php. Simpan file php dengan nama testlogin.php. <br /><pre><br />&lt;html&gt;<br />&lt;head&gt;<br />&lt;title&gt;Faceduuk&lt;/title&gt;<br />&lt;/head&gt;<br />&lt;body&gt;<br />&lt;?php<br /> require("function.php");<br /> login2("kwak", "kwak");<br />?&gt;<br />&lt;/body&gt;<br />&lt;/html&gt; <br /></pre><br /><li>Tampilan berikut merupakan tampilan yang didapatkan untuk pemanggilan login kwak. Gambar berikutnya menunjukkan jika pemanggilan fungsi login diubah menjadi login2("kwek","kwek");<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiooeKDDO3WxftOC4KKBCrQ_r7aSPdMQ9e0ipwZBB72pk_g2TYYKXErDO4w7vTsC9lLX6kTyaGo0yT90KutttEyleaN03tG2BRqDk75kcwW0bhycl22FM9zXj6uwsABwh7INpFEPRnR-wc/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 294px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiooeKDDO3WxftOC4KKBCrQ_r7aSPdMQ9e0ipwZBB72pk_g2TYYKXErDO4w7vTsC9lLX6kTyaGo0yT90KutttEyleaN03tG2BRqDk75kcwW0bhycl22FM9zXj6uwsABwh7INpFEPRnR-wc/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5420697021460551138" /></a><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_zlhEGm3PXlpXh5FUPcdb2htgcfwpymCoJeGSR8NI43jQ48WZlUpsU32_yGdN-fNqt_Ri4eMJ66hEmZ33AXyaa2XN8Pf4MP4J-cgDxPqf04eCDbn-kjYltPvW8znGoKNKLLP1jb_S-q8/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 294px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_zlhEGm3PXlpXh5FUPcdb2htgcfwpymCoJeGSR8NI43jQ48WZlUpsU32_yGdN-fNqt_Ri4eMJ66hEmZ33AXyaa2XN8Pf4MP4J-cgDxPqf04eCDbn-kjYltPvW8znGoKNKLLP1jb_S-q8/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5420697140099636306" /></a><br /><br /></ol>Unknownnoreply@blogger.com2tag:blogger.com,1999:blog-6592780324121647341.post-27708281704026887272009-12-27T20:29:00.002+07:002009-12-27T20:38:41.807+07:00<p class="abstract">Windows menyediakan fasilitas pemotretan layar dengan menggunakan tombol print-screen. Program yang menyediakan fasilitas pemotretan layar ini adalah Hypersnap dan AcdSee. Sulitkah membuat program pemotretan layar?</p><br /><p>Dengan menggunakan VB, kita bisa mensimulasikan penekanan tombol Print-Screen ini, dan meletakkan ke dalam sebuah picture box. Langkah-langkah pembuatannya:</p><br /><ol><br /><li>Buat form baru dengan 2 buah picture box yang bernama picOuter dan picInner, sebuah Scroll bar vertikal yang bernama VBar, sebuah scroll bar horisontal bernama Hbar dan dua buah command button, masing-masing bernama cmdCapture dan cmdExit.</li><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6nGwuhKDB8p4BuUK-uO449vajVbAZjPLr-emPwB_PVPoXvpKm-SHKFQv5yZmwX0csMiWLni_LbY2zel2bnS_GwHXCICs4LEeWfBju92GMapQklTkEc98UhblfpldCDXH04-7JVuH6hBQ/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 294px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6nGwuhKDB8p4BuUK-uO449vajVbAZjPLr-emPwB_PVPoXvpKm-SHKFQv5yZmwX0csMiWLni_LbY2zel2bnS_GwHXCICs4LEeWfBju92GMapQklTkEc98UhblfpldCDXH04-7JVuH6hBQ/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5419909519950980002" /></a><br /><li>Modul yang diperlukan yaitu: Sub PrintScreen untuk mensimulasikan penekanan tombol Print Screen dan menampilkan pada picture box serta Sub ArrangeScrollsBars untuk mengatur scroll bar vertikal dan horisontal.</li><br /><pre>Private Function PrintScreen(PictureBox As PictureBox) As Boolean<br /> On Error GoTo ErrorTrap<br /> Clipboard.Clear<br /> DoEvents<br /> <br /> '0 = layar, 1 = form<br /> keybd_event vbKeySnapshot, 0, 0&, 0&<br /> <br /> DoEvents<br /> Set PictureBox.Picture = Clipboard.GetData(0)<br /> DoEvents<br /> 'Clipboard.Clear<br /> PrintScreen = True<br /><br />ErrorTrap:<br />End Function<br /><br />Private Sub ArrangeScrollBars()<br /> Dim have_wid As Single, have_hgt As Single<br /> Dim need_wid As Single, need_hgt As Single<br /> Dim need_hbar As Boolean, need_vbar As Boolean<br /><br /> On Error Resume Next<br /> If WindowState = vbMinimized Then Exit Sub<br /><br /> need_wid = picInner.Width + (picOuter.Width - picOuter.ScaleWidth)<br /> need_hgt = picInner.Height + (picOuter.Height - picOuter.ScaleHeight)<br /> have_wid = picOuter.Width<br /> have_hgt = picOuter.Height<br /> need_hbar = (need_wid > have_wid)<br /> If need_hbar Then have_hgt = have_hgt - HBar.Height<br /><br /> need_vbar = (need_hgt > have_hgt)<br /> If need_vbar Then<br /> have_wid = have_wid - VBar.Width<br /> If Not need_hbar Then<br /> need_hbar = (need_wid > have_wid)<br /> If need_hbar Then have_hgt = have_hgt - HBar.Height<br /> End If<br /> End If<br /><br /> picOuter.Move picOuter.Left, picOuter.Top, have_wid, have_hgt<br /><br /> If need_hbar Then<br /> HBar.Move picOuter.Left, have_hgt, have_wid<br /> HBar.Min = 0<br /> HBar.Max = picOuter.ScaleWidth - picInner.Width<br /> HBar.LargeChange = picOuter.ScaleWidth<br /> HBar.SmallChange = picOuter.ScaleWidth / 5<br /> HBar.Visible = True<br /> Else<br /> HBar.Visible = False<br /> End If<br /><br /> If need_vbar Then<br /> VBar.Move picOuter.Left + picOuter.Width, picOuter.Top, VBar.Width, have_hgt<br /> VBar.Min = 0<br /> VBar.Max = picOuter.ScaleHeight - picInner.Height<br /> VBar.LargeChange = picOuter.ScaleHeight<br /> VBar.SmallChange = picOuter.ScaleHeight / 5<br /> VBar.Visible = True<br /> Else<br /> VBar.Visible = False<br /> End If<br />End Sub</pre><br /><li>Berikutnya adalah mengatur event untuk pergeseran scroll bar, form load serta penekanan button.</li><br /><pre>Option Explicit<br /><br />Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)<br /><br />Private Sub cmdCapture_Click()<br /> On Error Resume Next<br /><br /> picInner.Picture = LoadPicture("")<br /> Me.WindowState = vbMinimized<br /> PrintScreen picInner<br /> Me.WindowState = vbNormal<br /> ArrangeScrollBars<br />End Sub<br /><br />Private Sub cmdExit_Click()<br /> End<br />End Sub<br /><br />Private Sub Form_Load()<br /> Dim Counter As Integer<br /> Dim TempString() As String<br /><br /> On Error Resume Next<br /> picInner.Move picOuter.ScaleLeft, picOuter.ScaleTop, picOuter.ScaleWidth, picOuter.ScaleHeight<br /> <br />End Sub</pre><br />4. Simpan program, lalu jalankan. Tampilan yang Anda dapatkan seperti pada gambar.<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5uljJ-0BzvDNftu9vFxw3Pn-elEDUXMv3BBm8i4SrLmFeoAjIqp-WHlLO9Gx7fZoVquQ930yOCkI1HVrx_SmUy4CveMrEUEckTmybiQl94OYJDWTX9yeYlaD51R8lak72m70z1asrOUg/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 294px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5uljJ-0BzvDNftu9vFxw3Pn-elEDUXMv3BBm8i4SrLmFeoAjIqp-WHlLO9Gx7fZoVquQ930yOCkI1HVrx_SmUy4CveMrEUEckTmybiQl94OYJDWTX9yeYlaD51R8lak72m70z1asrOUg/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5419909532227042994" /></a><br /></ol>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-73604034927817264152009-11-29T12:10:00.003+07:002009-11-29T12:21:43.030+07:00<p class="abstract">Salah satu mode warna yang dikenal dalam pengolahan grafis adalah mode RGB. Mode RGB merupakan mode untuk membentuk suatu warna lewat intensitas merah (Red), hijau (Green) dan biru (Biru). Dengan menggunakan VB, kita dapat membuat simulasi pencampuran warna mode RGB ini.</p><br /><br /><p>Masing-masing intensitas berkisar antara 0 sampai dengan 255 (dalam heksa FF). Angka 0 adalah yang paling rendah dan 255 adalah yang paling tinggi. Pencampuran warna dengan intesitas 0 semua akan menghasilkan warna hitam, sedangkan pencampuran warna dengan intensitas 255 semua akan menghasilkan warna putih. Untuk membuat simulasi pencampuran warna ini, langkahnya:</p><br /><ol><br /><li>Buat form baru dengan 3 buah frame untuk mengatur intensitas merah, hijau dan biru. Masing-masing frame berisi sebuah shape (berbentuk lingkaran dengan nama shape1), slider (yang bernama slider) dan textbox. Shape1 dan slider merupakan array dengan index 0 untuk shape1 dan slide di frame biru, 1 untuk shape1 dan slider di frame hijau dan 2 untuk shape1 dan slider di frame merah. Sedangkan textbox pada masing-masing frame bernama txtblue, txtgreen dan txtred.<br />Tambahkan sebuah button dengan nama cmdExit dan frame lagi untuk menampilkan hasil pencampuran dengan sebuah shape yang bernama shape2 serta label2 untuk menampilkan nilai dari warna pencampuran.</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1RFCpX5JTzkFKxb9H1DCdbgnqMxkZpC32oTObnhIYbCAixCnvIPg_ePHSuUaFrg3_XwkX519VfFZZtJ7sedb0KUdNXS3_QzdCbWKKGHvKl9lRedEPMijU-fggVPsplChC9MMx8pKlrv0/s1600/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 242px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1RFCpX5JTzkFKxb9H1DCdbgnqMxkZpC32oTObnhIYbCAixCnvIPg_ePHSuUaFrg3_XwkX519VfFZZtJ7sedb0KUdNXS3_QzdCbWKKGHvKl9lRedEPMijU-fggVPsplChC9MMx8pKlrv0/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5409391270452777362" /></a><br /><br /><li>Fungsi-fungsi yang diperlukan yaitu: getinten untuk mendapatkan intensitas warna serta setcolor untuk menampilkan hasil dari pencampuran warna pada shape2.</li><br /><br /><pre>Private Sub getinten()<br /><br /> Dim tmp As Long<br /> tmp = Shape2.BackColor<br /> While tmp > &HFF<br /> tmp = tmp - &H100<br /> Wend<br /> redvalue = tmp<br /> <br /> tmp = (Shape2.BackColor - redvalue) / &H100<br /> While tmp > &HFF<br /> tmp = tmp - &H100<br /> Wend<br /> greenvalue = tmp<br /> <br /> bluevalue = Shape2.BackColor \ &H10000<br /> <br /> 'jangan lupa ngeset slidernya...<br /> Dim persentase As Integer<br /> slider(2).Value = redvalue<br /> persentase = redvalue * 100 / 255<br /> txtRed.Text = Str(persentase) + " %"<br /><br /> slider(1).Value = greenvalue<br /> persentase = greenvalue * 100 / 255<br /> txtGreen.Text = Str(persentase) + " %"<br /> <br /> slider(0).Value = bluevalue<br /> persentase = bluevalue * 100 / 255<br /> txtBlue.Text = Str(persentase) + " %"<br /> <br /> 'sekarang taruh intensitasnya di tempatnya<br /> setcolor<br />End Sub<br /><br />Private Sub setcolor()<br /> Shape1(0).BackColor = bluevalue * 256 ^ 2<br /> Shape1(1).BackColor = greenvalue * 256<br /> Shape1(2).BackColor = redvalue <br /> Shape2.BackColor = Shape1(0).BackColor + Shape1(1).BackColor + Shape1(2).BackColor<br />End Sub</pre><br /><br /><br /><li>Berikutnya adalah mengatur event untuk pergeseran slider serta form load.</li><br /><br /><pre>Private Sub cmdExit_Click()<br /> End<br />End Sub<br /><br />Private Sub Form_Load()<br /> Dim Index, persentase As Integer<br /> redvalue = 0<br /> greenvalue = 0<br /> bluevalue = 0<br /><br /> setcolor<br /> <br />End Sub<br /><br />Private Sub Slider_Scroll(Index As Integer)<br /> Dim persentase As Integer<br /> persentase = slider(Index).Value * 100 / 256<br /> <br /> Select Case Index<br /> Case 0<br /> bluevalue = slider(0).Value<br /> txtBlue.Text = Str(persentase) + " %"<br /> Shape1(0).BackColor = bluevalue * 256 ^ 2<br /> Case 1<br /> greenvalue = slider(1).Value<br /> txtGreen.Text = Str(persentase) + " %"<br /> Shape1(1).BackColor = greenvalue * 256<br /> Case 2<br /> redvalue = slider(2).Value<br /> txtRed.Text = Str(persentase) + " %"<br /> Shape1(2).BackColor = redvalue<br /> End Select<br /> Shape2.BackColor = Shape1(0).BackColor + Shape1(1).BackColor + Shape1(2).BackColor<br /> lblINtensitas.Caption = Shape2.BackColor & " (" & Hex$(Shape2.BackColor) & ")"<br />End Sub</pre><br /><br /><br /><li>Simpan program, lalu jalankan. Tampilan yang Anda dapatkan seperti pada gambar.</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAlYklLQJn-oXMfLRFs1nT9R4PVcW-JW-m4EoXkFwNXfHqeTXvIKswx8UxsftAaLe0Z_rWURbZvavebHCTLEBqpdi79gXwn9L55EJh67taIRdhyphenhyphenC1zmeDUXo8cJXhQd3yrDkPfXF7vRVY/s1600/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 225px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAlYklLQJn-oXMfLRFs1nT9R4PVcW-JW-m4EoXkFwNXfHqeTXvIKswx8UxsftAaLe0Z_rWURbZvavebHCTLEBqpdi79gXwn9L55EJh67taIRdhyphenhyphenC1zmeDUXo8cJXhQd3yrDkPfXF7vRVY/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5409391412371789186" /></a><br /></ol>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-42678627350364913572009-11-20T20:15:00.002+07:002009-11-20T20:20:04.694+07:00<p class="abstract">Angka romawi termasuk salah satu sistem penghitungan tertua yang diperkenalkan oleh bangsa Romawi. Walaupun sistem perhitungan modern saat ini menggunakan angka latin, tapi angka romawi ini ternyata masih sering kita temui. Trik VB kali ini adalah mengonversi angka latin menjadi angka romawi.</p><br /><br /><p>VB memang tidak menyediakan secara khusus fungsi untuk mengubah angka latin ke romawi atau sebaliknya. Tapi dengan melihat pola angka romawi, kita dapat membuat sebuah fungsi yang mengonversi angka latin menjadi romawi. </p><br /><br /><p>Langkah-langkahnya adalah:</p><br /><ol><br /><li>Buat form baru dengan dua buat text box yang bernama txtnumber (untuk memasukkan angka latin) dan txthasil untuk menampilkan hasil konversi. Tambahkan juga sebuah command button yang bernama cmdconvert.</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmwtX096dHhSieJ02NIKVnfDck9B5tTHZ51uOeXLe1WwRvp_hrisWZ9Gafq7tT-BCcrCsK7D03hR6C9nhd2kwftEl7Q9OdLTiGuVXmcwHQgsAtn8EmEUyfa2DbodbJg3wNG9zCGeYgkdM/s1600/01.jpg"><img style="cursor:pointer; cursor:hand;width: 266px; height: 308px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmwtX096dHhSieJ02NIKVnfDck9B5tTHZ51uOeXLe1WwRvp_hrisWZ9Gafq7tT-BCcrCsK7D03hR6C9nhd2kwftEl7Q9OdLTiGuVXmcwHQgsAtn8EmEUyfa2DbodbJg3wNG9zCGeYgkdM/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5406174580651780562" /></a><br /><br /><li>Ketikan fungsi untuk mengonversi.</li><br /><br /><pre>Function Latin2Roman(number As Long) As String<br /> Dim n As Long<br /> Dim j As Integer, i As Integer<br /> Dim Rom, Latin<br /> Dim Romawi As String<br /> <br /> Rom = Array("i", "iv", "v", "ix", _<br /> "x", "xl", "l", "xc", _<br /> "c", "cd", "d", "cm", _<br /> "m")<br /> <br /> Latin = Array(1, 4, 5, 9, _<br /> 10, 40, 50, 90, _<br /> 100, 400, 500, 900, _<br /> 1000)<br /> <br /> Romawi = ""<br /> <br /> For j = 12 To 0 Step -1<br /> n = Int(number / Latin(j))<br /> If n <> 0 Then<br /> For i = 1 To n<br /> Romawi = Romawi & Rom(j)<br /> Next i<br /> End If<br /> number = number Mod Latin(j)<br /> Next<br /> Latin2Roman = Romawi<br /><br />End Function</pre><br /><br /><br /><li>Berikutnya adalah mengatur event untuk penekanan button koversi.</li><br /><br /><pre>Private Sub cmdConvert_Click()<br /> If Val(txtNumber.Text) = 0 Then Exit Sub<br /> txthasil.Text = Latin2Roman(Val(txtNumber.Text))<br />End Sub</pre><br /><br /><br /><li>Simpan program, lalu jalankan. Tampilan yang Anda dapatkan seperti pada gambar.</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEju8OMM2YzRRMetghqxgbuchRuDAec3PaWoSAAJRXGI0P5i113TiiF_1Pb_BxH8HNbMrnU_9pu2fZHv1rWLWG9Vc6Tgc_sy005y_iH1PmnJbu6GxCokjuROCQ1YviLXl1fGJfOc3H1dXcQ/s1600/02.jpg"><img style="cursor:pointer; cursor:hand;width: 224px; height: 240px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEju8OMM2YzRRMetghqxgbuchRuDAec3PaWoSAAJRXGI0P5i113TiiF_1Pb_BxH8HNbMrnU_9pu2fZHv1rWLWG9Vc6Tgc_sy005y_iH1PmnJbu6GxCokjuROCQ1YviLXl1fGJfOc3H1dXcQ/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5406174893237806258" /></a><br /><br /></ol>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-80963895649536411922009-11-11T04:57:00.004+07:002009-11-11T05:05:38.671+07:00<span style="font-weight:bold;">Pada situs sebuah perusahaan umumnya diberikan informasi singkat tentang lokasi atau alamat perusahaan tersebut. Dengan menggunakan Google Maps API, Anda dapat memberikan sentuhan dengan menggambarkan lokasi perusahaan.</span><br /><br />Masih mengupas kemampuan Google Web API, kali ini kita akan bermain-main dengan menggunakan Google Maps. Seperti namanya, Google Maps akan memetakan jalan, rute atau lokasi tertentu dari suatu wilayah dan menampilkannya secara visual, lengkap dengan fasilitas zoom dan foto satelit.<br /><br />Langkah-langkah untuk membuatnya adalah:<br /><ol><br /><li>Membuat header utama untuk kode HTML<br /><pre><br />&lt;script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=your gmap api key here"<br />type="text/javascript"&gt;<br />&lt;/script&gt;<br />&lt;html&gt;<br />&lt;head&gt;<br />&lt;title&gt; Google Map &lt;/title&gt;<br />&lt;/head&gt;<br /><br />&lt;body&gt;<br /></pre><br /></li><br /><li>Berikutnya adalah meng-generate map dengan menggunakan JavaScript. Namun untuk inisialisasi data, kita dapat lakukan dengan menggunakan PHP.<br /><pre><br />&lt;?php<br /><br /> $KEY = "Google Key Here";<br /> $MAPS_HOST = "maps.google.com";<br /> $delay = 0;<br /> $base_url = "http://" . $MAPS_HOST .<br /> "/maps/geo?output=xml" . "&amp;key=" . $KEY;<br /> $geocode_pending = true; <br /> $address = "Malang, Indonesia";<br /><br /> $latlonArr = array();<br /></pre><br /></li><li><br />Setelah mendefinisikan area yang hendak dipetakan, perlu ditentukan lokasi garis bujur dan garis lintang. Lokasi garis bujur dan garis lintang inilah yang akan menjadi parameter bagi Google Maps untuk menggambarkan peta.<br /><pre><br />while($geocode_pending)<br /> {<br /> $request_url = $base_url . "&amp;q=" . urlencode($address);<br /> $xml = simplexml_load_file($request_url) or die("url not loading");<br /> $status = $xml->Response->Status->code;<br /> if (strcmp($status, "200") == 0) {<br /> // Successful geocode<br /> $geocode_pending = false;<br /> $coordinates = $xml->Response->Placemark->Point->coordinates;<br /> $coordinatesSplit = split(",", $coordinates);<br /> // Format: Longitude, Latitude, Altitude<br /> $lat = $coordinatesSplit[1];<br /> $lng = $coordinatesSplit[0];<br /> $latlonArr['lat'] = $lat;<br /> $latlonArr['lon'] = $lng;<br /> <br /> } else if (strcmp($status, "620") == 0) {<br /> // sent geocodes too fast<br /> $delay += 100000;<br /> } else {<br /> // failure to geocode<br /> $geocode_pending = false;<br /> }<br /> usleep($delay);<br /> break;<br /> }<br /></pre><br /></li><li>Lalu kita memanggil Google Maps API dengan cara menyimpan ke dalam suatu variabel.<br /><pre><br /> //plot map<br /> $str = '&lt;script&gt;<br /> var map = new GMap2(document.getElementById("map"));<br /> map.addControl(new GLargeMapControl());<br /> map.addControl(new GMapTypeControl());<br /> map.addControl(new GScaleControl());<br /> map.setCenter(new GLatLng('.$latlonArr['lat'].', '.$latlonArr['lon'].'), 6);<br /> <br /> // Creates a default marker whose info window displays the given number<br /> function createMarker(point, number)<br /> {<br /> var marker = new GMarker(point);<br /> // Show this markers index in the info window when it is clicked<br /> var html = number;<br /> GEvent.addListener(marker, "click", function() {marker.openInfoWindowHtml(html);});<br /> return marker;<br /> };';<br /> $str .= "var point = new GLatLng(" . $latlonArr['lat'] . "," . $latlonArr['lon'] . ");\n";<br /> $str .= "var marker = createMarker(point, '" . addslashes($address)."');\n";<br /> $str .= "map.addOverlay(marker);\n";<br /> $str .= "&lt;/script&gt;\n";<br />?&gt;<br /></pre><br /></li><li>Proses penggambaran peta adalah sebagai berikut:<br /><pre><br />&lt;div id="map" style="width: 500px;height:400px"&gt;&lt;/div&gt;<br /> &lt;?php<br /> // plot the map with default marker icon<br /> echo $str;<br /> ?&gt;<br />&lt;/body&gt;<br />&lt;/html&gt;<br /></pre><br /></li><br /><li>Berikut adalah contoh tampilan yang didapatkan:<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJSWcHBCE8xRL4ScHoM_4TgikQWchJ973GPFhF61hiEeyIcTHWa-YwRu4yWkYpMBD0ySWnSM8spnZ4w-tEozUj5Wz-DtYkugluve7s7zQFU9irsMiqhChqYsrGW9GOYgSMLljnb3eDo24/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 316px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJSWcHBCE8xRL4ScHoM_4TgikQWchJ973GPFhF61hiEeyIcTHWa-YwRu4yWkYpMBD0ySWnSM8spnZ4w-tEozUj5Wz-DtYkugluve7s7zQFU9irsMiqhChqYsrGW9GOYgSMLljnb3eDo24/s320/01.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5402599477892896530" /></a><br /><br /></li></ol>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-86787251655760245512009-11-06T14:28:00.004+07:002009-11-11T05:08:48.051+07:00<strong>Typographical error atau sering disingkat dengan typo merupakan kesalahan ketik yang terjadi selama proses pengetikkan. Terjadinya kesalahan bisa jadi karena selip pada jari saat mengetik sehingga ada karakter yang kurang atau bertambah. Sebagai contoh, mengetikkan kata “Computer” bisa selip menjadi “Compiter” – yang dikarenakan huruf “u” dan “i” bersebelahan pada keyboard. </strong><br /><br />Typo ini sempat dimanfaatkan untuk mencuri account user dan password beberapa web-based email atau situs e-banking. Dengan mengamati typo yang sering terjadi saat pengetikan alamat web-based email atau e-banking, beberapa oknum memanfaatkan untuk membuat situs yang serupa. Alih-alih masuk pada situs yang benar, user malah masuk pada situs tiruan tersebut.<br /><br />Tidak kalah dengan Google API, Yahoo! juga mempunyai Application Programming Interface (API) yang dapat digunakan untuk memberikan saran perbaikan dari Typo. <br />Pada aplikasi sederhana ini kita akan membuat sebuah class untuk memanfaatkan Yahoo! API dalam memberikan saran perbaikan dari suatu kata kunci pencarian.<br /><br />Langkah-langkah untuk membuatnya adalah:<br /><br /><ol><br /><li>Kita buat terlebih dulu atribut-atribut yang dibutuhkan. Beberapa atribut penting yang akan digunakan adalah $title (judul dari chart), $data (berisi data dari chart yang hendak digambar), dan $size (menentukan ukuran dari chart)</li><br /><pre><br />&lt?php<br /><br />class spellingSuggestion {<br /> var $query;<br /> <br /> var <br /> // Alamat Spelling Suggestion dari Yahoo!<br /> $request_url = 'http://search.yahooapis.com/WebSearchService/V1/spellingSuggestion', <br /> // xml, json or php (serialized PHP format)<br /> $output = 'php', <br /> $appid = '', <br /> $response = '', <br /> $result = '';<br /><br /> function search( $query ) {<br /> $this->query = $query;<br /> if ( $this->response = file_get_contents( $this->request_url . "?appid=" . urlencode( $this->appid ) . "&output=" . urlencode( $this->output ) . "&query=" . urlencode( $this->query ) ) ) <br /> return true;<br /> else<br /> return false;<br /> } <br /><br /> function getSuggestedWord( $query ) {<br /> $this->query = $query;<br /> $this->setOutput( 'php' );<br /> if( $this->search( $query ) ) {<br /> $this->result = unserialize( $this->response );<br /> if ( isset( $this->result['ResultSet']['Result'] ) )<br /> return $this->result['ResultSet']['Result'];<br /> else<br /> return "";<br /> }<br /> else {<br /> return "";<br /> }<br /> }<br /> <br /> function setOutput( $output ) {<br /> $this->output = $output;<br /> }<br />}<br />?&gt<br /></pre><br /><li>Setelah class selesai, kita akan buat terlebih dulu form untuk meminta masukkan dari user. Masukan dari user tersebut akan menjadi parameter sebagai teks yang hendak diperbaiki dengan memanggil file suggest.php.<br /><pre><br />&lt;html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"&gt;&lt;head&gt; <br />&lt;meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/&gt;<br />&lt;title&gt;Yahoo! API Spelling Suggestion&lt;/title&gt; <br />&lt;link href="style.css" rel="stylesheet" type="text/css"&gt;<br /><br />&lt;/head&gt; <br />&lt;body&gt; <br /> &lt;div class="clear"&gt;&lt;/div&gt; <br /> &lt;form method="POST" action="suggest.php"&gt;<br /> &lt;div id="content"&gt; <br /> &lt;p&gt;Masukkan teks: &lt;/p&gt;<br /> &lt;p&gt;&lt;form action="" methos="get"&gt;<br /> &lt;input type="text" name="q" value="" /&gt; <br /> &lt;input type="submit" name="s" value="Cek" /&gt;&lt;/form&gt;<br /> &lt;/p&gt;<br /> &lt;/div&gt;<br /> &lt;/form&gt;<br /><br /> &lt;/body&gt;<br /><br />&lt;/html&gt;<br /><br /></pre><br /><li>File suggest.php akan menggunakan class yang telah dan mendapatkan outputnya untuk ditampilkan.<br /><pre><br />&lt;html&gt;<br />&lt;head&gt;<br />&lt;title&gt;Saran Perbaikan&lt;/title&gt;<br />&lt;link href="style.css" rel="stylesheet" type="text/css"&gt;<br />&lt;/body&gt;<br />&lt;?php<br />require_once( 'YahooSpell.php' );<br />if ( isset( $_POST['q'] ) && $_POST['q'] != '' ) {<br /> $query = strip_tags( $_POST['q'] );<br /> // buat objek<br /> $spellingSuggestion = new spellingSuggestion();<br /> // Set the application id<br /> $spellingSuggestion-&gt;appid = 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';<br /> // Get the suggested word<br /> $result = $spellingSuggestion-&gt;getSuggestedWord( $query );<br /> // Respon XML<br /> $spellingSuggestion-&gt;setOutput( 'xml' );<br /> $spellingSuggestion-&gt;search( $query );<br /> $xmlResponse = $spellingSuggestion-&gt;response; <br /> <br /> // Respon PHP<br /> $spellingSuggestion-&gt;setOutput( 'php' );<br /> $spellingSuggestion-&gt;search( $query );<br /> $phpResponse = $spellingSuggestion-&gt;response; <br /> <br /> // Respon XML - JSON<br /> $spellingSuggestion-&gt;setOutput( 'json' );<br /> $spellingSuggestion-&gt;search( $query );<br /> $jsonResponse = $spellingSuggestion-&gt;response;<br /> <br />}<br /> <br /> echo '&lt;h2&gt;Hasil Pemanggilan API&lt;/h2&gt; ';<br /> echo '&lt;p&gt;&lt;strong&gt;Saran perbaikan:&lt;/strong&gt;';<br /> echo '&lt;h3&gt;';<br /> if( $result != '' ) <br /> echo $result; <br /> else <br /> echo " Tidak ada perbaikan &lt;/p&gt;";<br /> echo '&lt;/h3&gt;'; <br /> echo "&lt;p&gt;&lt;strong&gt;Respon XML:&lt;/strong&gt;&lt;/p&gt; ";<br /> echo "&lt;p&gt;&lt;pre&gt;&lt;code&gt;";<br /> echo htmlentities( $xmlResponse ) . "; &lt;/code&gt;&lt;/pre&gt; ";<br /> echo "&lt;/p&gt; ";<br /> echo "&lt;p&gt;&lt;strong&gt;Respon PHP:&lt;/strong&gt;&lt;/p&gt; ";<br /> echo "&lt;p&gt;&lt;pre&gt;&lt;code&gt;" . htmlentities( $phpResponse ) . "&lt;/code&gt;&lt;/pre&gt; ";<br /> echo "&lt;/p&gt; ";<br /> echo "&lt;p&gt;&lt;strong&gt;Respon JSON:&lt;/strong&gt;&lt;/p&gt; ";<br /> echo "&lt;p&gt;&lt;pre&gt;&lt;code&gt;" . htmlentities( $jsonResponse ) . "&lt;/code&gt;&lt;/pre&gt; ";<br /> echo "&lt;/p&gt; ";<br /> echo "&lt;/div&gt;&lt;/div&gt; ";<br /> echo "&lt;br /&gt;&lt;br /&gt; ";<br /> echo "&lt;/body&gt;&lt;/html&gt; "<br /><br />?&gt;<br /><br /></pre><br /><li>Langkah terakhir adalah membuat style untuk memperbaiki tampilan. File style ini disimpan dengan nama style.css yang akan digunakan pada 2 file sebelumnya yaitu test.html dan suggest.php.<br /><pre><br />body {<br /> font-family: Verdana, Arial, Helvetica, sans-serif;<br /> font-size: 11px;<br /> background-color: #FFFFFF;}<br /> <br />pre {<br /> color:#ff6666;<br /> padding:10px;<br /> border:1px solid #666;<br /> margin: 5px 0;} <br /> <br />.clear {<br /> display:block;<br /> clear:both;}<br /><br /></pre><br /><li>Contoh tampilan yang didapatkan adalah sebagai berikut:<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsdVFTFDo1iZf6-MnRl4X-qDgMqWBpeZdpPgRTjaxAWUGKYvsvTx85j09R8Jo2sWpPCEdO0sGCc8tjrNCohfFaI0RHhyphenhyphenFSv5aF7HYFy-r24m9s-GSFv-KC1kD2wneof9ZbnY4MUCv__aE/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 166px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsdVFTFDo1iZf6-MnRl4X-qDgMqWBpeZdpPgRTjaxAWUGKYvsvTx85j09R8Jo2sWpPCEdO0sGCc8tjrNCohfFaI0RHhyphenhyphenFSv5aF7HYFy-r24m9s-GSFv-KC1kD2wneof9ZbnY4MUCv__aE/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5402600150891124898" /></a><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHVxk_0sBUC3K_zq5bob5hx27BYxYxJf7K4NVOTl6ZsSu30Yx9rLSABa8R0I_7qdoqykUxL8oQFxomkqGsEvfaEbfrFzveGQmjh3o8e6wq5AAb938qe09dqITbZ8pErnNvNazA0q2p-us/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 269px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHVxk_0sBUC3K_zq5bob5hx27BYxYxJf7K4NVOTl6ZsSu30Yx9rLSABa8R0I_7qdoqykUxL8oQFxomkqGsEvfaEbfrFzveGQmjh3o8e6wq5AAb938qe09dqITbZ8pErnNvNazA0q2p-us/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5402600318152181186" /></a><br /><br /></ol>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-61934007345056221202009-11-05T22:11:00.000+07:002009-11-05T22:12:01.679+07:00<p class="abstract">Array termasuk struktur data yang penting dalam bahasa pemrograman terstruktur. Sebuah array mampu menampung banyak data sejenis sekaligus. Pada tip kali ini, diberikan contoh pengolahan data di dalam array untuk melakukan perhitungan total, rata-rata, nilai minimum dan nilai maksimum.</p><br /><br /><p>Salah satu keuntungan bahasa Basic dalam mengolah array adalah ukuran array dapat diubah pada saat runtime. Jika pada awal program array disiapkan untuk menampung 100 data misalnya, maka jika sewaktu-waktu pada saat program dijalankan, diperlukan jumlah data lebih dari 100, maka ada perintah REDIM yang dapat dimanfaatkan untuk mengubah ukuran array. Program di bawah ini menunjukkan bagaimana pemanfaatan array untuk menghitung total, rata-rata, nilai minimum dan nilai maksimum.</p><br /><br /><p>Langkah-langkahnya adalah:</p><br /><ol><br /><li>Buat form baru, tambahkan 2 buah textbox (dengan nama txtData sebagai textbox untuk entry data dan txtHasil sebagai textbox yang menampilkan hasil pengolahan array), 7 buah command button (cmdInsert, cmdRemove, cmdClear, cmdTotal, cmdRata, cmdMaks, dan cmdMin), sebuah list box (lstData untuk menampung data) serta sebuah label (lblNData untuk menampilkan jumlah data yang telah dimasukkan saat ini). </li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL7SOcS-xIWAuhNbNvd4wJXZF-l1309l-VM0eEB1xaNyTfNkyBJstsw7ljM_v59pg6ti1JsxNhEpcLgWuD6BeiRi0RH8caLnqs_hux6RZ5KIk3v_40yUKq74OqQL6f8l4S_liL_u3O5VHT/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 305px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL7SOcS-xIWAuhNbNvd4wJXZF-l1309l-VM0eEB1xaNyTfNkyBJstsw7ljM_v59pg6ti1JsxNhEpcLgWuD6BeiRi0RH8caLnqs_hux6RZ5KIk3v_40yUKq74OqQL6f8l4S_liL_u3O5VHT/s320/01.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5400636811790599330" /></a><br /><br /><li>Fungsi pengolahan arraynya ada 3, yaitu: ArraySum untuk menghitung total jumlah (Sigma), ArrayMin untuk menghasilkan nilai terkecil dari array, ArrayMaks untuk menghasilkan nilai terbesar dari array, dan RemoveItem untuk menghapus data ke N di dalam array.</li><br /><br /><pre>Option Explicit<br />Dim arr() As Double<br /><br />Function ArraySum() As Variant<br /> Dim i As Long, result As Variant<br /> For i = LBound(arr) To UBound(arr)<br /> result = result + arr(i)<br /> Next<br /> ArraySum = result<br />End Function<br />Function ArrayMin() As Variant<br /> Dim i As Long, Min As Variant<br /> Min = arr(0)<br /> For i = 1 To lstData.ListCount - 1<br /> If Min > arr(i) Then Min = arr(i)<br /> Next<br /> ArrayMin = Min<br />End Function<br />Function ArrayMaks() As Variant<br /> Dim i As Long, Maks As Variant<br /> Maks = arr(0)<br /> For i = 1 To lstData.ListCount - 1<br /> If Maks < arr(i) Then Maks = arr(i)<br /> Next<br /> ArrayMaks = Maks<br />End Function<br /><br />Private Sub RemoveItem(n As Long)<br /> Dim i As Long<br /> For i = n To lstData.ListCount - 1<br /> arr(i) = arr(i + 1)<br /> Next i<br /> arr(lstData.ListCount - 1) = 0<br />End Sub</pre><br /><br /><br /><li>Berikutnya adalah mengatur event untuk penekanan button serta.</li><br /><br /><pre>Option Explicit<br /><br />Dim arr() As Double<br />Private Sub cmdClear_Click()<br /> lstData.Clear<br /> lblNData.Caption = "Jumlah data : " & lstData.ListCount<br /> ReDim arr(0)<br />End Sub<br /><br />Private Sub cmdInsert_Click()<br /> lstData.AddItem Val(txtData.Text)<br /> ReDim Preserve arr(lstData.ListCount)<br /> arr(lstData.ListCount - 1) = Val(txtData.Text)<br /> txtData.Text = ""<br /> txtData.SetFocus<br /> lblNData.Caption = "Jumlah data : " & lstData.ListCount<br />End Sub<br /><br />Private Sub cmdMaks_Click()<br /> txtHasil.Text = Format(ArrayMaks, "##,##0.00")<br />End Sub<br /><br />Private Sub cmdMin_Click()<br /> txtHasil.Text = Format(ArrayMin, "##,##0.00")<br />End Sub<br /><br />Private Sub cmdRata_Click()<br /> Dim hasil As Double<br /> hasil = ArraySum<br /> txtHasil.Text = Format(hasil / lstData.ListCount, "##,##0.00")<br />End Sub<br /><br />Private Sub cmdRemove_Click()<br /> If lstData.ListIndex >= 0 Then RemoveItem lstData.ListIndex<br /> lstData.RemoveItem lstData.ListIndex<br /> lblNData.Caption = "Jumlah data : " & lstData.ListCount <br />End Sub<br /><br />Private Sub cmdTotal_Click()<br /> Dim hasil As Double<br /> hasil = ArraySum<br /> txtHasil.Text = Format(hasil, "##,##0.00")<br />End Sub<br /><br />Private Sub Form_Load()<br /> lstData.Clear<br />End Sub</pre><br /><br /><li>Simpan program, lalu jalankan. Tampilan yang Anda dapatkan seperti pada gambar.</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSF7A6IfLCZOiAE7G11dGAka3r8dO1sc6pCbkHy3eLRMecI3V2HPGjNzv8AR5oVFn5aK_mH2yCf8vc8Eg25GZIZjHgY2C9AwOAuVhAWNJg44Gu4033Pp6NvGxNE51KrhbpL75phfWzrowG/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 309px; height: 270px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSF7A6IfLCZOiAE7G11dGAka3r8dO1sc6pCbkHy3eLRMecI3V2HPGjNzv8AR5oVFn5aK_mH2yCf8vc8Eg25GZIZjHgY2C9AwOAuVhAWNJg44Gu4033Pp6NvGxNE51KrhbpL75phfWzrowG/s320/02.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5400636817469793506" /></a><br /></ol>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-5570878753298263502009-10-31T09:39:00.004+07:002009-10-31T09:53:29.325+07:00<p class="abstract">Sebuah form merupakan tempat meletakkan kontrol seperti text box, command button, dan label. Form mempunyai properti warna latar belakang yang standardnya adalah warna dari button face.</p><br /><br /><p>Anda bisa dengan mudah mengganti warna latar belakang dari sebuah form lewat properti backcolor dengan format &amp;HRRGGBB, di mana &amp;H merupakan notasi untuk bilangan heksa, RR adalah intensitas warna merah, GG adalah intensitas warna hijau dan BB adalah intensitas warna biru (ketiganya dalam notasi bilangan heksa). Tapi bisakah warna latar belakang dari form dibuat transparan? Bisa. Dengan memanfaatkan fungsi API (Application Programming Interface) yang memang disediakan oleh Windows untuk mengatasi keterbatasan perintah-perintah pada VB.</p><br /><br /><p>Langkah-langkah membuat form transparan adalah:</p><br /><ol><br /><li>Buat form baru, tambahkan 3 command button (cmdTransparan untuk mengubah form menjadi transparan dan sebaliknya, cmdFrame untuk menghilangkan border dari from dan cmdExit untuk keluar dari program) dan satu text box.</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8QmGRnJhfs7C4t5J3ZHtphJdpnpGLP1yW8iCSjHSeJCu2x-v6N4210A0IpsNA3Ov0zbaw2aWRQGFp5T2Nn1EfwTwr4lLUElXpJffHFDBphMrypLqN7j2pgNMWntq1hezRb8p8LjsirmE/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 189px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8QmGRnJhfs7C4t5J3ZHtphJdpnpGLP1yW8iCSjHSeJCu2x-v6N4210A0IpsNA3Ov0zbaw2aWRQGFp5T2Nn1EfwTwr4lLUElXpJffHFDBphMrypLqN7j2pgNMWntq1hezRb8p8LjsirmE/s320/01.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5398590706021108050" /></a><br /><br /><li>Buat sebuah modul baru lewat menu Project|Add Module. Pada module inilah deklarasi untuk fungsi-fungsi API diketikkan.</li><br /><br /><br /><pre>Option Explicit<br /><br />Public Declare Function SendMessage _<br /> Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _<br /> ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br />Public Declare Function CreateRectRgn _<br /> Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _<br /> ByVal X2 As Long, ByVal Y2 As Long) As Long<br />Public Declare Function CombineRgn _<br /> Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, _<br /> ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long<br />Public Declare Function SetWindowRgn _<br /> Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, _<br /> ByVal bRedraw As Boolean) As Long<br />Public Declare Function DeleteObject _<br /> Lib "gdi32" (ByVal hObject As Long) As Long<br />Public Declare Function ReleaseCapture Lib "user32" () As Long<br />Public Const RGN_OR = 2<br />Public Const RGN_DIFF = 4<br />Public Const WM_NCLBUTTONDOWN = &amp;HA1<br />Public Const HTCAPTION = 2</pre><br /><br /><li>Subrutin utamanya adalah Sub changeFormEffect(inEffect As Integer). Untuk membuat sebuah form transparan, sub ini dipanggil dengan menggunakan parameter 1. Untuk menormalkan form, sub ini dipanggil lagi dengan menggunakan parameter 0.</li><br /><br /><pre>Private Sub changeFormEffect(inEffect As Integer)<br /> Dim w As Single, h As Single<br /> Dim edge As Single, topEdge As Single<br /> Dim mLeft, mTop<br /> Dim i As Integer<br /> Dim r As Long<br /> Dim outer As Long, inner As Long<br /> <br /> w = ScaleX(Width, vbTwips, vbPixels)<br /> h = ScaleY(Height, vbTwips, vbPixels)<br /> <br /> If inEffect = 0 Then<br /> mFormRegion = CreateRectRgn(0, 0, w, h)<br /> SetWindowRgn hwnd, mFormRegion, True<br /> Exit Sub<br /> End If<br /> <br /> mFormRegion = CreateRectRgn(0, 0, 0, 0)<br /> edge = (w - ScaleWidth) / 2<br /> topEdge = h - edge - ScaleHeight<br /> If inEffect = 1 Then<br /> outer = CreateRectRgn(0, 0, w, h)<br /> inner = CreateRectRgn(edge, topEdge, w - edge, h - edge)<br /> CombineRgn mFormRegion, outer, inner, RGN_DIFF<br /> End If<br /> <br /> For i = 0 To Me.Controls.Count - 1<br /> If Me.Controls(i).Visible = True Then<br /> mLeft = ScaleX(Me.Controls(i).Left, Me.ScaleMode, vbPixels) + edge<br /> mTop = ScaleX(Me.Controls(i).Top, Me.ScaleMode, vbPixels) + topEdge<br /> r = CreateRectRgn(mLeft, mTop, _<br /> mLeft + ScaleX(Me.Controls(i).Width, Me.ScaleMode, vbPixels), _<br /> mTop + ScaleY(Me.Controls(i).Height, Me.ScaleMode, vbPixels))<br /> CombineRgn mFormRegion, r, mFormRegion, RGN_OR<br /> End If<br /> Next<br /> SetWindowRgn hwnd, mFormRegion, True<br />End Sub</pre><br /><br /><li>Berikutnya adalah mengatur event untuk penekanan tombol serta mempersiapkan form pada event form_load.</li><br /><br /><pre>Option Explicit<br /><br />Dim formEffectIndex As Integer<br />Dim mFormRegion As Long<br />Dim msg1 As String, msg2 As String<br /><br />Private Sub cmdExit_Click()<br /> End<br />End Sub<br /><br />Private Sub cmdFrame_Click()<br /> If formEffectIndex = 1 Then<br /> formEffectIndex = 2<br /> Else<br /> formEffectIndex = 1<br /> End If<br /> changeFormEffect formEffectIndex<br />End Sub<br /><br />Private Sub cmdTransparan_Click()<br /> If formEffectIndex <> 0 Then<br /> formEffectIndex = 0<br /> cmdFrame.Enabled = False<br /> Else<br /> formEffectIndex = 1<br /> cmdFrame.Enabled = True<br /> End If<br /> changeFormEffect formEffectIndex<br />End Sub<br /><br />Private Sub Form_Load()<br /> Me.ScaleMode = vbPixels<br /> formEffectIndex = 0<br /> cmdFrame.Enabled = False<br /> changeFormEffect formEffectIndex<br />End Sub<br /><br />Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)<br /> SetWindowRgn hwnd, 0, False<br /> DeleteObject mFormRegion<br />End Sub<br /><br />Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br /> If Button <> vbLeftButton Then<br /> Exit Sub<br /> End If<br /> ReleaseCapture<br /> SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&amp;<br />End Sub</pre><br /><br /><li>Simpan program, lalu jalankan. Tampilan awal form adalah form normal (tidak transparan).</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIIdjXZZoAsLRCknoSDz4-PFf8k69KXOX9Gs4HCllxCt7ixN-HpeWo2UZwJlPODgk_paJYNNR2wk0TV7BHQlKSUGjDl0ALVYwZ5ltqb1E8m9eCkgMBh2X1jSNiuRIQC7Vm5LiRqjL1SKQ/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 258px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIIdjXZZoAsLRCknoSDz4-PFf8k69KXOX9Gs4HCllxCt7ixN-HpeWo2UZwJlPODgk_paJYNNR2wk0TV7BHQlKSUGjDl0ALVYwZ5ltqb1E8m9eCkgMBh2X1jSNiuRIQC7Vm5LiRqjL1SKQ/s320/02.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5398590709007401874" /></a><br /><br /><li>Jika Anda mengklik button Transparan, maka Anda akan mendapatkan tampilan seperti pada gambar:</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiofoLVIbbXHb4ML0Qlj3ohbpC5tgz8DQvay6hCbaug1Jt2crN7vur8Zyc8NyGIFPE67q4qX8-ZYMS5aGrvCVytaO3X4PbteiyL_7Pm87cw3KIvhSaP8NLDSWZscIBtnU-umiUhilhwpfc/s1600-h/03.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 258px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiofoLVIbbXHb4ML0Qlj3ohbpC5tgz8DQvay6hCbaug1Jt2crN7vur8Zyc8NyGIFPE67q4qX8-ZYMS5aGrvCVytaO3X4PbteiyL_7Pm87cw3KIvhSaP8NLDSWZscIBtnU-umiUhilhwpfc/s320/03.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5398590712266345986" /></a><br /><br /><li>Button Frame digunakan untuk menghilangkan frame dari form sehingga form benar-benar transparan.</li><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMJ2ZThk_kx_9a4QrTMEmMSjnkWZtPIsC7wxa3Imx__XD7YrC7r25Ec_ZiDyQ27ilPxwxCq65rF6vGcJKppi-qKml0Du-nQiMqanpLd7EkzodPwuWYIYUnJ3c0fhEoALkaA9GM9tkC36A/s1600-h/04.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 258px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMJ2ZThk_kx_9a4QrTMEmMSjnkWZtPIsC7wxa3Imx__XD7YrC7r25Ec_ZiDyQ27ilPxwxCq65rF6vGcJKppi-qKml0Du-nQiMqanpLd7EkzodPwuWYIYUnJ3c0fhEoALkaA9GM9tkC36A/s320/04.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5398590717070179346" /></a><br /><br /></ol>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-80301553827422798592009-10-17T11:10:00.004+07:002009-10-17T11:20:51.860+07:00<p class="abstract">Animation Control adalah cara termudah untuk menambahkan animasi pada program VB Anda. Dengan Animation Control ini, Anda dapat mem-play file AVI hanya dengan beberapa baris program.</p><br /><br /><p>Control ini hanya mendukung file AVI yang tidak ”bersuara” atau file AVI yang telah dikompres dengan menggunakan Run-Length Encoding (RLE). Selain file AVI jenis tersebut, maka akan muncul errror yaitu error 35752 (Unable to open AVI file).</p><br /><br /><p>Komponen Animation control harus ditambahkan terlebih dulu lewat menu Project|Component atau dengan shortcut Ctrl+T. Beri tanda check untuk Microsoft Windows Common Control-2 6.0 atau dengan memilih file MSCOMCT2.OCX lewat button Browse.</p><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEib3nRfjzxowwpOmBiRv73aD84ZP6Pm5AvRZ_NzirsSDlnP8pzydczX0fx-HvlRWlQQlOj6i0k-jb52XayFOrP5ehvALT65jENtrVYtXvQ2HfEhrRa2upaYe1QJOCj_lwRKqkG12f81E8Q/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 289px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEib3nRfjzxowwpOmBiRv73aD84ZP6Pm5AvRZ_NzirsSDlnP8pzydczX0fx-HvlRWlQQlOj6i0k-jb52XayFOrP5ehvALT65jENtrVYtXvQ2HfEhrRa2upaYe1QJOCj_lwRKqkG12f81E8Q/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5393418774363889714" /></a><br /><br /><p>Sedangkan untuk form, siapkan 4 buah text box dengan nama txtFileName (digunakan untuk mengisikan nama file AVI yang hendak dijalankan), txtTimes (digunakan untuk mengatur berapa kali animasi dijalankan), txtFrom (digunakan untuk mengisi mulai dari frame ke berapa animasi dijalankan) dan txtTo (digunakan untuk mengisi sampai frame ke berapa animasi dijalankan). Tiga buah command button (dengan nama cmdBrowse, cmdPlay dan cmdStop) serta sebuah animation control (dengan nama animation1).</p><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVIOSNdKRqDAlBi0Ag49u-of3O2VsHp4velek9qo0jVxHaBs-UeLZTZ4VZkEG_Y4wV2u9lgqGjggJLDmsTrHaD9GR0hBTYfhB10etGDRO03eeK-aGJJa00wINnZbtfYYlV_2GfUakY2d0/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 112px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVIOSNdKRqDAlBi0Ag49u-of3O2VsHp4velek9qo0jVxHaBs-UeLZTZ4VZkEG_Y4wV2u9lgqGjggJLDmsTrHaD9GR0hBTYfhB10etGDRO03eeK-aGJJa00wINnZbtfYYlV_2GfUakY2d0/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5393418930317246898" /></a><br /><br /><p>Untuk keperluan browse (membuka file AVI), kita akan membutuhkan control Common Dialog. Control Common Dialog ini harus ditambahkan dengan cara yang sama seperti menambahkan Animation Control, yaitu lewat menu Project|Component atau dengan shortcut Ctrl+T. Component yang dipilih adalah Microsoft Common Dialog Control 6.0 atau dengan memilih file COMDLG32.OCX.</p><br /><br /><p>Untuk menjalankan file AVI, perintah yang digunakan adalah perintah PLAY. Sintaks penulisan untuk perintah PLAY ini adalah:</p><br /><pre>Play [RepeatCount], [StartFrame], [EndFrame]</pre><br /><br /><p>RepeatCount adalah jumlah pengulangan yang dilakukan. StartFrame adalah frame awal untuk memulai animasi dan EndFrame adalah frame terakhir yang dijalankan. Ketiga perintah tersebut adalah opsional (boleh ditulis, boleh tidak). Jika RepeatCount tidak diisi apa-apa, artinya animasi akan dijalankan terus menerus sampai animasi dihentikan dengan perintah stop.</p><br /><p>Program selengkapnya adalah:</p><br /><br /><pre>Private Sub cmdBrowse_Click()<br /> CommonDialog1.ShowOpen<br /> txtFileName.Text = CommonDialog1.FileName<br />End Sub<br /><br />Private Sub cmdPlay_Click()<br /> Dim times, fromf, tof<br /> Animation1.Open txtFileName.Text<br /> If txtTimes.Text <> "" Then times = Val(txtTimes.Text) Else times = -1<br /> If txtFrom.Text <> "" Then fromf = Val(txtFrom.Text) Else fromf = 0<br /> If txtTo.Text <> "" Then tof = Val(txtTo.Text) Else tof = -1<br /> Animation1.Play times, fromf, tof<br />End Sub<br /><br />Private Sub cmdStop_Click()<br /> Animation1.Stop<br /> Animation1.Close<br />End Sub</pre><br /><br /><p>Simpan program ini, lalu jalankan. Jika Anda memilih file filecopy.AVI, Anda akan mendapatkan tampilan seperti pada gambar:</p><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2FClAd0Yx25HFVVy3AKohqDByn0-N-0Zk4IRBnLaNJdj8UDhEGW71jdhKV46OJJfYegOyTtIniDhMcWbhT1sON7gywFrXVVhcaNg6vqxxejd_Oz98RY-gt6aZjC7hfCBVd6ug_tEB6HQ/s1600-h/03.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 112px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2FClAd0Yx25HFVVy3AKohqDByn0-N-0Zk4IRBnLaNJdj8UDhEGW71jdhKV46OJJfYegOyTtIniDhMcWbhT1sON7gywFrXVVhcaNg6vqxxejd_Oz98RY-gt6aZjC7hfCBVd6ug_tEB6HQ/s320/03.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5393419028987692562" /></a><br /><br /><p><strong>Catatan:</strong> Contoh file-file AVI yang bisa dijalankan ada pada folder \Common\Graphics\AVIs yang ada di dalam folder instalasi Visual Studio Anda.</p>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-46124651310491163432009-10-01T23:21:00.004+07:002009-10-01T23:32:11.249+07:00<p><b>Pada posting yang lalu, ada program kamus yang dibuat dengan menggunakan PHP dan XML. Keakuratan aplikasi tersebut dalam menerjemahkan akan tergantung dari isi file XML yang ada. Semakin file XML tersebut lengkap, tentunya aplikasi kamus akan nampak semakin canggih.</b></p><p>Pada tip kali ini, kita akan membuat membuat aplikasi untuk menerjemahkan kalimat Bahasa Indonesia ke dalam empat bahasa dunia, yaitu Inggris, Italia, Spanyol dan Perancis. Tentunya kita tidak akan menyimpan data vocab masing-masing bahasa ataupun mengkodekan struktur grammar dari bahasa-bahasa tersebut. Google Translate API akan dapat kita gunakan untuk membantu dalam melakukan penerjemahan. </p><p>Langkah-langkah untuk membuatnya adalah:</p><ol><li>Kita buat terlebih dulu halaman awal untuk menerima teks Bahasa Indonesia serta memilih bahasa tujuan. Kita simpan file ini dengan nama index.php sebagai halaman awal yang nanti dipanggil.</li><br /><br /><pre><br />&lt;html&gt;<br />&lt;head&gt;<br />&lt;title&gt;Menerjemahkan dengan Google Translate API&lt;/title&gt;<br />&lt;/head&gt;<br />&lt;body&gt;<br />&lt;h2&gt;Masukkan teks dalam Bahasa Indonesia&lt;/h2&gt;<br />&lt;form method="post" action="translate.php"&gt;&lt;br&gt;<br />&lt;input type="text" size=50 name="teks"&gt;&lt;br&gt;<br />&lt;select name="tujuan"&gt;<br /> &lt;option value="en"&gt;Inggris&lt;/option&gt;<br /> &lt;option value="it"&gt;Italia&lt;/option&gt;<br /> &lt;option value="es"&gt;Spanyol&lt;/option&gt;<br /> &lt;option value="fr"&gt;Perancis&lt;/option&gt; <br />&lt;/select&gt;<br />&lt;input type="submit" value="Terjemahkan" name="oke"&gt;<br />&lt;/form&gt;<br /><br />&lt;/body&gt;<br />&lt;/html&gt;<br /></pre><br /><br /><li>Kita siapkan modul untuk melakukan proses penerjemahan dalam file PHP yang bernama translate.php. Kita buat terlebih dulu header HTML-nya.</li><br /><pre><br />&lt;html&gt;<br />&lt;head&gt;<br />&lt;title&gt;Hasil terjemahan&lt;/title&gt;<br />&lt;style type="text/css"&gt;<br />body {<br /> background-color : #FFFFFF;<br /> font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;<br /> color : #000088;<br /> margin: 5px; <br /> }<br />&lt;/style&gt;<br />&lt;/head&gt;<br /><br />&lt;body&gt;<br /></pre><br /><br /><li>Berikutnya kita akan membuat sebuah class PHP yang bertugas untuk memanggil Google Translate API dan menampilkan hasil terjemahan dari bahasa yang telah dipilih. Ada beberapa atribut yang perlu dideklarasikan di awal class ini.<br /><pre><br />&lt;?php<br />class GoogleTranslateApi{ <br /><br /> var $BaseUrl = 'http://ajax.googleapis.com/ajax/services/language/translate'; <br /> var $FromLang = 'id'; <br /> var $ToLang = ''; <br /> var $Version = '1.0'; <br /> <br /> var $CallUrl; <br /> <br /> var $Text = ''; <br /> <br /> var $TranslatedText; <br /> var $DebugMsg; <br /> var $DebugStatus; <br /> <br /> function GoogleTranslateApi(){ <br /> $this-&gt;CallUrl = $this-&gt;BaseUrl . "?v=" . <br /> $this-&gt;Version . "&q=" . urlencode($this-&gt;Text) . <br /> "&langpair=" . $this-&gt;FromLang . "%7C" . $this-&gt;ToLang; <br /> } <br /> <br /> function makeCallUrl(){ <br /> $this-&gt;CallUrl = $this-&gt;BaseUrl . "?v=" . <br /> $this-&gt;Version . "&q=" . urlencode($this-&gt;Text) . <br /> "&langpair=" . $this-&gt;FromLang . "%7C" . $this-&gt;ToLang; <br /> } <br /> <br /> function translate($text = ''){ <br /> if($text != ''){ <br /> $this-&gt;Text = $text; <br /> } <br /> $this-&gt;makeCallUrl(); <br /> if($this-&gt;Text != '' && $this-&gt;CallUrl != ''){ <br /> $handle = fopen($this-&gt;CallUrl, "rb"); <br /> $contents = ''; <br /> while (!feof($handle)) { <br /> $contents .= fread($handle, 8192); <br /> } <br /> fclose($handle); <br /> <br /> $json = json_decode($contents, true); <br /> <br /> if($json['responseStatus'] == 200){ //Request berhasil<br /> $this-&gt;TranslatedText = $json['responseData']['translatedText']; <br /> $this-&gt;DebugMsg = $json['responseDetails']; <br /> $this-&gt;DebugStatus = $json['responseStatus']; <br /> return $this-&gt;TranslatedText; <br /> } else { //Ada kesalahan<br /> return false; <br /> $this-&gt;DebugMsg = $json['responseDetails']; <br /> $this-&gt;DebugStatus = $json['responseStatus']; <br /> } <br /> } else { <br /> return false; <br /> } <br /> } <br />} <br />$translate = new GoogleTranslateApi; <br />$to=$_POST['tujuan'];<br /><br />$translate-&gt;FromLang = 'id'; <br />$translate-&gt;ToLang = $to; <br />switch ($to)<br />{<br /> case 'en':$tolang="Inggris";break;<br /> case 'it':$tolang="Italia";break;<br /> case 'es':$tolang="Spanyol";break;<br /> case 'fr':$tolang="Perancis";break;<br />} <br />$teks=$_POST['teks'];<br />echo '&lt;center&gt;Google menerjemahkan &lt;br&gt; <br /> &lt;b&gt;"'.$teks.'"&lt;/b&gt;&lt;br&gt;&lt;br&gt;<br /> ke dalam bahasa '.$tolang.' menjadi: &lt;br&gt;&lt;b&gt;"';<br />echo $translate-&gt;translate($teks).'"&lt;/b&gt;'; <br /><br />?&gt;<br /><br />&lt;/body&gt;<br /><br />&lt;/html&gt;<br /></pre><br /><li>Berikut adalah beberapa contoh tampilan yang didapatkan:<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj_teaUq6e3TvC0xeJ5qr7CA6fNEIb0KdtPJ19fXCChIw3obFlVTvcTOmPh7NfIdPy39Qwj6z9aJD5vCxux12ymTV_CGmeZx8n3FE6TBWrXAWWIGRhgHepQ0F_Mlp1z-1PQ8Qwn-kEBYa8/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 211px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj_teaUq6e3TvC0xeJ5qr7CA6fNEIb0KdtPJ19fXCChIw3obFlVTvcTOmPh7NfIdPy39Qwj6z9aJD5vCxux12ymTV_CGmeZx8n3FE6TBWrXAWWIGRhgHepQ0F_Mlp1z-1PQ8Qwn-kEBYa8/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5387670020365760610" /></a><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2L3xsaf3oQY07hq118hs-5IF6UPublPhtngC0OltIDcitAqDjLnhPSjrXRIC45PycoPq-t_HPawAFrTy6gi0Bd2sZApMa3o5LKjR9StFxLdsGAuV6aPTqo_WHdHKLDySb52JYEZRgWzE/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 211px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2L3xsaf3oQY07hq118hs-5IF6UPublPhtngC0OltIDcitAqDjLnhPSjrXRIC45PycoPq-t_HPawAFrTy6gi0Bd2sZApMa3o5LKjR9StFxLdsGAuV6aPTqo_WHdHKLDySb52JYEZRgWzE/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5387670173167723794" /></a><br /></ol>Unknownnoreply@blogger.com2tag:blogger.com,1999:blog-6592780324121647341.post-73029248875186227172009-09-28T21:21:00.002+07:002009-09-28T21:23:29.294+07:00<p class="abstract">Pada edisi lalu, kita membuat program File Text Viewer yang digunakan untuk menampilkan file teks. Dengan menggunakan fungsi Replace yang ada di VB, kita dapat menambahkan fasilitas Find & Replace pada program File Text Viewer tersebut.</p><br /><br /><p>Fungsi Replace di VB digunakan untuk mencari sebuah string dan menggantinya dengan string yang lain. Keistimewaan fungsi Replace ini adalah dapat melakukan pencarian dengan dimulai pada posisi tertentu serta membatasi penggantian dalam jumlah tertentu.</p><br /><br /><p>Sintaks penulisan dari fungsi Replace ini adalah<br /><br /><pre>Replace(expression, find, replace[, start[, count[, compare]]])</pre></p><br /><br /><p>Expression merupakan sumber dari teks atau string yang hendak dicari. Find merupakan substring yang hendak dicari. Replace merupakan substring pengganti. Start adalah posisi awal pencarian. Count adalah banyaknya penggantian yang dilakukan dan compare menunjukkan cara pembandingan yang dilakukan. Tiga parameter terakhir bersifat optional, bisa ditulis, bisa tidak.</p><br /><br /><p>Untuk membuat fasilitas find & replace ini, buka program file text viewer yang lalu. Tambahkan 3 buah text box (txtfind, txtReplace dan txtCount) serta dua buah command button (cmdReplace dan cmdSave).</p><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBmG3UuGlbnTSHfhyoSrtkFHyjrlTfLuB5aWegAL3BPMVzjSVA17rMXcptpNq6mMqRGmmsyJ3eQDGSAiRiIDvPR5M4J3wFMqt81LhrS24ZhC_F6ilgJ_t8fjR7oTruXNyuajd1XK_zntI/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 189px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBmG3UuGlbnTSHfhyoSrtkFHyjrlTfLuB5aWegAL3BPMVzjSVA17rMXcptpNq6mMqRGmmsyJ3eQDGSAiRiIDvPR5M4J3wFMqt81LhrS24ZhC_F6ilgJ_t8fjR7oTruXNyuajd1XK_zntI/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5386523598083403026" /></a><br /><br /><p>Tambahkan kode program untuk event cmdReplace_click dan cmdSave_click.</p><br /><p>Untuk event cmdReplace_click:<br /><pre>Private Sub cmdReplace_Click()<br /> Dim count As Long<br /> count = Val(txtCount.Text)<br /> If txtCount.Text = "" Then count = -1<br /> Text1.Text = Replace(Text1.Text, txtFind.Text, txtReplace.Text, 1, count)<br />End Sub</pre><br /></p><br /><p><br />Untuk event cmdSave_Click:<br /><pre>Sub FileSave(filename As String)<br /> Dim fnum As Integer, isOpen As Boolean<br /> On Error GoTo Error_Handler<br /> fnum = FreeFile()<br /> Open filename For Output As #fnum<br /> isOpen = True<br /> Print #fnum, Text1.Text<br /> <br />Error_Handler:<br /> If isOpen Then Close #fnum<br /> If Err Then Err.Raise Err.Number, , Err.Description<br />End Sub<br /><br />Private Sub cmdSave_Click()<br /> FileSave File1.Path & "\" & File1.filename<br />End Sub</pre><br />Untuk event-event yang lain, sama dengan pada program file text viewer.</p><br /><br /><p>Simpan program di atas, lalu jalankan. Anda akan mendapatkan hasil seperti pada gambar.</p><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjakUmLSY3DlllJgB67BB-u-E7PuEdWVtwDGuR8Ze0-iLQarYumHjG_2Pj0qo56GjOlueZ6Z497C3Dc2Xoa9VRzQzNeGq-NEPUY-MpeIVKYIF2cxxZKnIJ25SLy-1P2Iy3dAgV4Eq8vKog/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 186px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjakUmLSY3DlllJgB67BB-u-E7PuEdWVtwDGuR8Ze0-iLQarYumHjG_2Pj0qo56GjOlueZ6Z497C3Dc2Xoa9VRzQzNeGq-NEPUY-MpeIVKYIF2cxxZKnIJ25SLy-1P2Iy3dAgV4Eq8vKog/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5386523753199615938" /></a>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-1522616345381299712009-09-21T13:00:00.002+07:002009-09-21T13:02:48.138+07:00<p class="abstract">Berbeda dengan file executable, file teks adalah file yang hanya terdiri dari karakter-karakter biasa seperti angka, huruf, atau tanda baca (plain text). Dengan menggunakan fungsi file pada VB, Anda dapat dengan mudah menampilkan isi suatu file text.</p><br /><br /><p>Untuk membuka sebuah file teks, VB mempunyai perintah OPEN. Sintaks penulisannya adalah:</p><br /><pre>Open "namafile.txt" For Input As #1</pre><br /><br /><p>Tambahan perintah setelah nama file dapat terdiri dari 3 macam, yaitu For Input (file dibuka hanya untuk dibaca), For Output (membuat file) dan For Appending (file dibuka dan siap untuk ditambah). Angka di belakang perintah Open menunjukkan file handle. Artinya, operasi file yang dilakukan, bukan lagi mengacu pada nama file, tapi langsung ke file handle.</p><br /><br /><p>Di bawah ini adalah fungsi untuk membaca sebuah file teks. Parameternya yaitu nama filenya.</p><br /><br /><pre>Function ReadTextFileContents(filename As String) As String<br /> Dim fnum As Integer, isOpen As Boolean<br /> On Error GoTo Error_Handler<br /> fnum = FreeFile()<br /> Open filename For Input As #fnum<br /> isOpen = True<br /> ReadTextFileContents = Input(LOF(fnum), fnum)<br /> <br />Error_Handler:<br /> If isOpen Then Close #fnum<br /> If Err Then Err.Raise Err.Number, , Err.Description<br />End Function</pre><br /><br /><p>Untuk membuat program selengkapnya, siapkan form dengan komponen: drivelistbox (dengan nama drive1), dirlistbox (dengan nama dir1), filelistbox (dengan nama file1), command button (dengan nama cmdView) dan text box (dengan nama text1).</p><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCVWAKGTGPO6N2zwrJ06kcacfIfedr4IOrjSyYJz_vqFFs6LIj7RN4gkLLPUjGl2gd9Mu1e1eCdZvB7rUueM461MSiBv5D-pzklxIG6x8h3k6eQVQlnhgMdHX3zCDNjD6L70QRULGQyP0/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 203px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCVWAKGTGPO6N2zwrJ06kcacfIfedr4IOrjSyYJz_vqFFs6LIj7RN4gkLLPUjGl2gd9Mu1e1eCdZvB7rUueM461MSiBv5D-pzklxIG6x8h3k6eQVQlnhgMdHX3zCDNjD6L70QRULGQyP0/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5383796953087359762" /></a><br /><br /><p>Untuk text1, Anda harus mengubah properti Multiline (pada window properti) menjadi True agar teks dapat ditampilkan per baris (bukan ke samping) serta properti Scrollbars menjadi 3 - Both.<br /><br />Untuk event-event-nya:</p><br /><br /><pre>Private Sub cmdView_Click()<br /> Text1.Text = ReadTextFileContents(File1.Path & "\" & File1.filename)<br />End Sub<br /><br />Private Sub Dir1_Change()<br /> File1.Path = Dir1.Path<br />End Sub<br /><br />Private Sub Drive1_Change()<br /> Dir1.Path = Drive1.Drive<br />End Sub<br /><br />Private Sub File1_DblClick()<br /> Text1.Text = ReadTextFileContents(File1.Path & "\" & File1.filename)<br />End Sub<br /><br />Private Sub Form_Load()<br /> File1.Pattern = "*.txt"<br /> Text1.MultiLine = True<br />End Sub</pre><br /><br /><p>Simpan program di atas, lalu jalankan. Anda akan mendapatkan hasil seperti pada gambar.</p><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0Tc39kJIcktJQ1qPN3jexIT4iuKfLNCkW3KiScal_LwxWtvVn3DFseUiOCQDbY-TxIi-IiCoIhyn4JAbZxA2Xo5i1E9iDQPbuPROOsV61cI4xbJTqsUNn_Q1kFzkW5Y-q7lg2NI7cl8M/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 170px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0Tc39kJIcktJQ1qPN3jexIT4iuKfLNCkW3KiScal_LwxWtvVn3DFseUiOCQDbY-TxIi-IiCoIhyn4JAbZxA2Xo5i1E9iDQPbuPROOsV61cI4xbJTqsUNn_Q1kFzkW5Y-q7lg2NI7cl8M/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5383797120621702114" /></a>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com1tag:blogger.com,1999:blog-6592780324121647341.post-83022290678128084132009-09-19T19:01:00.001+07:002009-09-19T19:05:21.113+07:00<p class="abstract">Menghitung umur adalah salah satu perhitungan yang sering dilakukan dalam pengolahan database. Tips kali ini adalah menghitung umur dengan menggunakan VB.</p><br /><br /><p>VB memang menyediakan fungsi untuk menghitung umur dengan menggunakan fungsi DateDiff. Format penulisannya adalah:</p><br /><pre>Umur = DateDiff("yyyy", TanggalLahir, HariIni)</pre><br /><br /><p>Namun, fungsi DateDiff mempunyai kekurangan, yaitu jika jika tanggal lahir masih belum dilewati, maka umur akan berkurang setahun. Misalnya jika Anda lahir pada tanggal 25 September 1984, dan tanggal hari ini adalah 24 September 2005, maka umur yang dihasilkan dari fungsi DateDiff adalah 21 tahun. Dalam standard perhitungan umur, umur yang benar adalah 20 tahun (baru keesokan harinya umur menjadi 21 tahun).</p><br /><br /><p>Untuk mengatasi hal tersebut, dibuat fungsi khusus yang menghitung umur dengan tepat. Jika tanggal hari ini masih belum melewati tanggal ulang tahun, maka hasil dari fungsi DateDiff akan dikurangi dengan 1.</p><br /><br /><pre>Function HitungUmur(Ultah As Date, Optional Sekarang As Date = 0) _<br /> As Integer<br /> Dim intAge As Integer<br /> If Sekarang = 0 Then<br /> Sekarang = Date<br /> End If<br /> intAge = DateDiff("yyyy", Ultah, Sekarang)<br /> If Sekarang < DateSerial(Year(Sekarang), Month(Ultah), _<br /> Day(ultah)) Then<br /> intAge = intAge - 1<br /> End If<br /> HitungUmur = intAge<br />End Function</pre><br /><br /><p>Fungsi di atas mempunyai dua parameter yang berjenis tanggal. Parameter pertama adalah tanggal ulang tahun dan parameter kedua adalah tanggal sekarang yang bersifat opsional (boleh diisi boleh tidak). Bila diisi, maka fungsi hitungumur ini adalah hasil pengurangan dari parameter kedua dikurangi parameter kedua.</p><br /><br /><p>Contoh penggunaannya:</p><br /><pre>Private Sub Form_Load()<br />Dim TglUltah As Date<br /> TglUltah = #10/25/1984# 'tanggal 25 September 1985<br /> MsgBox "Umur saat ini: " & HitungUmur(TglUltah)<br /> End<br />End Sub</pre><br /><br /><p>Tampilan yang dihasilkan:</p><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhP05TYCB7bS7pJfFZu671Muo9yINLLJu3qvgBzOlQNSrImC7_ggCYZJIbqhdSET-9R2NTGgiogDyFPKFyjQuAFhDoBauvZx0dBM0Y1RNTd9MptJzyryamjbsQ3KVW7SWHo7ADyKVP90iw/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 104px; height: 107px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhP05TYCB7bS7pJfFZu671Muo9yINLLJu3qvgBzOlQNSrImC7_ggCYZJIbqhdSET-9R2NTGgiogDyFPKFyjQuAFhDoBauvZx0dBM0Y1RNTd9MptJzyryamjbsQ3KVW7SWHo7ADyKVP90iw/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5383148363102247634" /></a>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com1tag:blogger.com,1999:blog-6592780324121647341.post-13014622190758007762009-09-12T09:15:00.003+07:002009-09-12T09:26:42.925+07:00<p class="abstract">Jika dalam satu form ada banyak text box yang harus diisi, maka melakukan validasi untuk satu persatu text box tersebut dapat menjadi sangat membosankan. Apakah validasi harus dilakukan satu-persatu? Tidak juga, kita dapat membuat sebuah fungsi validasi yang dapat digunakan untuk semua textbox yang ada dalam sebuah form.</p><br /><br /><p>Validasi yang dilakukan adalah melakukan pengujian apakah text box tersebut masih kosong atau sudah terisi. Jika sudah terisi maka validasi berhasil. Jika belum terisi, kedipkan text box tersebut (untuk “menarik” perhatian dari user) dan setfocus ke text box tersebut.</p><br /><ol><br /> <li>Langkah pertama buat sebuah form dengan banyak text box. Lihat gambar.</li><br /><br /> <a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDvhI14YvyP9CPlon8xCqFWTPppcKUds0ZIx04CuAsc9DglWD9Sv1IMlU4F-tmYZgR6DD6k4AxnIYr_x15kEHatGunQUlzBvkmt15kJ3v1XBLDox0l0CjFf6fGSPPI01oTvSPNy32P-UI/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 229px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDvhI14YvyP9CPlon8xCqFWTPppcKUds0ZIx04CuAsc9DglWD9Sv1IMlU4F-tmYZgR6DD6k4AxnIYr_x15kEHatGunQUlzBvkmt15kJ3v1XBLDox0l0CjFf6fGSPPI01oTvSPNy32P-UI/s320/01.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5380401230556569954" /></a><br /><br />Untuk form tersebut, nama untuk masing-masing textbox adalah text1, text2, text3, text4, text5 dan text6. Sedangkan nama untuk button simpan adalah command1.<br /><br /> <li>Sebelum membuat proses validasinya, kita akan terlebih membuat modul untuk mengedipkan (blink) suatu objek. Proses blinking suatu objek dapat dengan mengubah properti backcolor. Lama untuk blinking dapat diatur pada perintah For.</li><br /><br /><pre>Public Sub Blink(ByVal c As Object)<br /> Dim OldColor As Double<br /> Dim Delay As Double<br /> Dim x As Integer<br /> <br /> On Error Resume Next<br /> OldColor = c.BackColor<br /> <br /> For x = 1 To 3 'tiga kali berkedip<br /> c.BackColor = QBColor(12)<br /> Delay = Timer<br /> While Timer - Delay < 0.2<br /> DoEvents<br /> Wend<br /> c.BackColor = OldColor<br /> Delay = Timer<br /> While Timer - Delay < 0.2<br /> DoEvents<br /> Wend<br /> Next x<br /><br /> If c.Enabled Then<br /> c.SetFocus<br /> End If<br />End Sub</pre><br /><br />Sub blink ini dapat diletakkan pada sebuah modul baru atau pada form utama.<br /><br /> <li>Langkah ke tiga adalah membuat sub untuk melakukan validasi. Sub ini mempunyai parameter berupa objek. Nantinya, sub ini dipanggil dengan parameter sebuah array yang berisi semua nama text box yang hendak divalidasi.</li><br /><br /><pre>Public Function ValidateTextBox(obj As Variant) As Boolean<br />Dim i As Long<br /> ValidateTextBox = True<br /> For i = 0 To UBound(obj)<br /> If obj(i).Text = "" Then<br /> If obj(i).Enabled Then<br /> obj(i).SetFocus<br /> End If<br /> FlashControl obj(i)<br /> ValidateTextBox = False<br /> Exit Function<br /> End If<br /> Next i<br />End Function</pre><br /><br /> <li>Function Validatetextbox, dapat dipanggil ketika event penekanan button Simpan. Di sinilah proses validasi dilakukan.</li><br /><br /><pre>Private Sub Command1_Click()<br /> If Not ValidateTextBox(Array(Text1, Text2, Text3, Text4, Text5, Text6)) Then<br /> Else<br /> MsgBox "Data sudah lengkap!"<br /> 'lakukan proses penyimpanan<br /> End If<br />End Sub</pre><br /><br /> <li>Simpan Form di atas dengan nama FrmValidate. Jalankan program dengan menekan tombol F5. Jika form masih kosong, dan tombol simpan di-klik, maka text box yang kosong akan berkedip dan kursor akan diarahkan pada textbox yang kosong tersebut.</li><br /> <a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGBV64AZGX6MNK9oz0gsYRCv4ZJTEOI2CKLcDNAA9ZB6vLW0xIauhQ6phh5GO80gwqZd8FaSaz9kuzZhAjhe9x7gQXzSlO0KzhGqFDW5NdJeBqz_3ZlyPaLlA50cgGUggbXzD_1-o9HDo/s1600-h/02.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 221px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGBV64AZGX6MNK9oz0gsYRCv4ZJTEOI2CKLcDNAA9ZB6vLW0xIauhQ6phh5GO80gwqZd8FaSaz9kuzZhAjhe9x7gQXzSlO0KzhGqFDW5NdJeBqz_3ZlyPaLlA50cgGUggbXzD_1-o9HDo/s320/02.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5380401635111657730" /></a><br /></ol>R†http://www.blogger.com/profile/06404935452790331980noreply@blogger.com1tag:blogger.com,1999:blog-6592780324121647341.post-66797761042874509622009-09-09T07:45:00.000+07:002009-09-09T07:55:22.640+07:00Tooltip dapat membantu user untuk dapat memberikan keterangan. Pada Microsoft Office, Tooltip telah menjadi standard. Ketika mouse berhenti sejenak di atas sebuah button, maka tooltip ditampilkan. Komponen web pun juga bisa diberi tooltip.<br /><br />Tip kali ini adalah membuat multiline tooltip. Dalam sebuah komponen web (gambar misalnya), kita bisa memunculkan tooltip lebih dari satu baris.<br /><br />Langkah-langkahnya adalah:<br /><ol><li>Buat header HTML beserta dengan style sheet-nya<br /><pre>&lt;html&gt;<br />&lt;head&gt;<br />&lt;title&gt;Multiline tooltip&lt;/title&gt;<br />&lt;style type="text/css"&gt;<br />.xstooltip<br />{<br />visibility: hidden;<br />position: absolute;<br />top: 0;<br />left: 0;<br />z-index: 2;<br /><br />font: normal 8pt sans-serif;<br />padding: 3px;<br />border: solid 1px;<br /><br />background-repeat: repeat;<br />background-image: url(blue.png);<br />}<br /><br />&lt;/style&gt;<br />&lt;script type="text/javascript" src="tooltip.js"&gt;&lt;/script&gt;<br />&lt;/head&gt;<br /></pre></li><li>Untuk tampilan utamanya adalah:<br /><pre>&lt;body&gt;<br /><br />&lt;div id="tooltip_123" class="xstooltip"&gt;<br />Gunung Bromo&lt;br/&gt;<br />&lt;br/&gt;<br />Location: Probolinggo, Jawa Timur&lt;br/&gt;<br />Ketinggian 2392 meter dari permukaan laut&lt;br/&gt;<br />Panorama lanskap pengunungan yang sangat spektakuler<br />&lt;/div&gt;<br /><br />&lt;div id="tooltip_123b" class="xstooltip"&gt;<br />Gunung Everest&lt;br/&gt;<br />&lt;br/&gt;<br />Location: Nepal&lt;br/&gt;<br />Ketinggian 8850 meter dari permukaan laut&lt;br/&gt;<br />Merupakan gunung tertinggi di dunia<br />&lt;/div&gt;<br /><br /><br />&lt;img id="the_image"<br /> src="images.jpg"<br /> onmouseover="xstooltip_show('tooltip_123', 'the_image', 289, 49);"<br /> onmouseout="xstooltip_hide('tooltip_123');"<br />/&gt;<br /><br />&lt;img id="the_image2"<br /> src="everest.jpg"<br /> onmouseover="xstooltip_show('tooltip_123b', 'the_image2', 289, 49);"<br /> onmouseout="xstooltip_hide('tooltip_123b');"<br />/&gt;<br /><br />&lt;/body&gt;<br />&lt;/html&gt;<br /></pre></li><li>Sebelum menjalankan, buat sebuah file Javascript bernama tooltip.js.<br /><pre>function xstooltip_findPosX(obj)<br />{<br />var curleft = 0;<br />if (obj.offsetParent)<br />{<br /> while (obj.offsetParent)<br /> {<br /> curleft += obj.offsetLeft<br /> obj = obj.offsetParent;<br /> }<br /> }<br /> else if (obj.x)<br /> curleft += obj.x;<br /> return curleft;<br />}<br /><br />function xstooltip_findPosY(obj)<br />{<br /> var curtop = 0;<br /> if (obj.offsetParent)<br /> {<br /> while (obj.offsetParent)<br /> {<br /> curtop += obj.offsetTop<br /> obj = obj.offsetParent;<br /> }<br /> }<br /> else if (obj.y)<br /> curtop += obj.y;<br /> return curtop;<br />}<br /><br />function xstooltip_show(tooltipId, parentId, posX, posY)<br />{<br /> it = document.getElementById(tooltipId);<br /><br /> if ((it.style.top == '' || it.style.top == 0)<br /> &amp;&amp; (it.style.left == '' || it.style.left == 0))<br /> {<br /> // need to fixate default size (MSIE problem)<br /> it.style.width = it.offsetWidth + 'px';<br /> it.style.height = it.offsetHeight + 'px';<br /> <br /> img = document.getElementById(parentId);<br /><br /> // if tooltip is too wide, shift left to be within parent<br /> if (posX + it.offsetWidth &gt; img.offsetWidth) posX = img.offsetWidth -<br />it.offsetWidth;<br /> if (posX &lt; 0 ) posX = 0;<br /> <br /> x = xstooltip_findPosX(img) + posX;<br /> y = xstooltip_findPosY(img) + posY;<br /> <br /> it.style.top = y + 'px';<br /> it.style.left = x + 'px';<br /> }<br /><br /> it.style.visibility = 'visible';<br />}<br /><br />function xstooltip_hide(id)<br />{<br /> it = document.getElementById(id);<br /> it.style.visibility = 'hidden';<br />}<br /></pre></li><li>Simpan dan load pada browser, tampilan yang didapatkan adalah:<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKDtQnkHS9UUjgBAOCtHUqgoyEHDppIxrUw_FzmQtbZRxvYDjYuJmnlqsBtmeZi0Ozt0BPhkOiF_h7WcdTOLfhXdCFS1gi-gW1S60IOWInDD4gmXoBZEvPsv99QCTsBYv_OWcF4rq4NL0/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 214px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKDtQnkHS9UUjgBAOCtHUqgoyEHDppIxrUw_FzmQtbZRxvYDjYuJmnlqsBtmeZi0Ozt0BPhkOiF_h7WcdTOLfhXdCFS1gi-gW1S60IOWInDD4gmXoBZEvPsv99QCTsBYv_OWcF4rq4NL0/s320/01.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5379264735021803138" /></a><br /></li></ol>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-47858870275497064322009-09-05T09:08:00.000+07:002009-09-04T09:20:17.449+07:00<b>Menggambar chart di sebuah website dapat berguna untuk memvisualisasikan serangkaian data agar lebih mudah terbaca. Ada banyak cara untuk melakukan penyimpanan data, bisa melalui database, bisa juga melalui XML.</b><br /><div><br /><div>Pada tip kali ini, kita akan membuat chart dengan PHP menggunakan data yang disimpan pada sebuah file XML. Menggambar chart di PHP adalah dengan memanfaatkan GD Library yang mempunyai banyak method untuk melakukan pengolahan citra.</div><br /><div>Langkah-langkah untuk menggambar Chart dengan memanfaatkan data yang ada di XML adalah sebagai berikut:</div><div><ol> <li>Buat sebuah file XML yang berisi data yang hendak digambarkan. Simpan file ini dengan nama chart.xml. </li><pre>&lt;?xml version="1.0" encoding="utf-8"?&gt;<br />&lt;chart&gt;<br />&lt;bar&gt;<br />&lt;name&gt;Budi&lt;/name&gt;<br />&lt;score&gt;90&lt;/score&gt;<br />&lt;/bar&gt;<br />&lt;bar&gt;<br />&lt;name&gt;Ahmad S&lt;/name&gt;<br />&lt;score&gt;100&lt;/score&gt;<br />&lt;/bar&gt;<br />&lt;bar&gt;<br />&lt;name&gt;Fabiani&lt;/name&gt;<br />&lt;score&gt;85&lt;/score&gt;<br />&lt;/bar&gt;<br />&lt;bar&gt;<br />&lt;name&gt;Martin P&lt;/name&gt;<br />&lt;score&gt;25&lt;/score&gt;<br />&lt;/bar&gt;<br />&lt;bar&gt;<br />&lt;name&gt;Brandon M&lt;/name&gt;<br />&lt;score&gt;75&lt;/score&gt;<br />&lt;/bar&gt;<br />&lt;bar&gt;<br />&lt;name&gt;Venti A&lt;/name&gt;<br />&lt;score&gt;5&lt;/score&gt;<br />&lt;/bar&gt;<br />&lt;bar&gt;<br />&lt;name&gt;Natan C&lt;/name&gt;<br />&lt;score&gt;50&lt;/score&gt;<br />&lt;/bar&gt;<br />&lt;/chart&gt;<br /></pre></ol></div><div><ol start="2"><li>Untuk file PHP yang bertugas mengambil data pada file XML ini dan menampilkan dalam bentuk chart adalah sebagai berikut:<br /></li><pre>&lt;?php<br />header("Content-type: image/jpeg");<br /><br />$filename = "chart.xml";<br />$chart = simplexml_load_file($filename);<br /><br />$iCh = imagecreatetruecolor(750,550);<br />$dark = imagecolorallocate($iCh,85,85,85);<br />imagefill($iCh,0,0,$dark);<br />$bright = imagecolorallocate($iCh,222,222,222);<br />imageline($iCh,25,500,725,500,$bright);<br />$gold = imagecolorallocate($iCh,255,240,0);<br />$x = 50;<br />$y = 525;<br />foreach($chart as $bar){<br /><br />$name = $bar-&gt;name;<br />$score = $bar-&gt;score;<br />$width = 50;<br />if($score&gt;100) $score = 100;<br />$height = $score*3;<br /><br />imagestring($iCh,3,$x,$y,$name,$gold);<br />imagefilledrectangle($iCh,$x,$y-26,$x+$width,$y-26-$height,$gold);<br /><br />$x += 100;<br />}<br /><br />imagejpeg($iCh);<br />?&gt;<br /></pre>File PHP ini dapat disimpan dengan nama chart.php<br /></ol></div><div><ol start="3"><li>Tampilan yang dihasilkan adalah sebagai berikut:</li><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQvDZP7Aab_YLA9WtdeRIFaa4d6LPOiypBFXq4tFxuUFt-n2uoHAG3oTrXw3Shg1BMKqv4iXzCAhRAtmrtePuPWz8IeMcYO32DJFxg_nt-D3ks111npoHMYKhu-6BHVxpIuLi0lnZElNw/s1600-h/01.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 290px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQvDZP7Aab_YLA9WtdeRIFaa4d6LPOiypBFXq4tFxuUFt-n2uoHAG3oTrXw3Shg1BMKqv4iXzCAhRAtmrtePuPWz8IeMcYO32DJFxg_nt-D3ks111npoHMYKhu-6BHVxpIuLi0lnZElNw/s320/01.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5377429765983163314" /></a><br /></ol><div><br /></div></div></div>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-6592780324121647341.post-660744006493417462009-09-04T08:51:00.000+07:002009-09-04T09:19:11.838+07:00<b>Mencerminkan citra adalah salah satu fasilitas penting dalam proses pengolahan citra. Pencerminan dapat dilakukan secara horisontal atau secara vertikal. </b><div><div><br /></div><div>Pada tip kali ini, kita akan membuat sebuah aplikasi PHP sederhana dengan memanfaatkan library GD untuk melakukan pencerminan terhadap suatu citra. Ada 2 macam proses pencerminan yang dibuat di sini, yaitu pencerminan secara horisontal dan pencerminan secara vertikal.</div><div><br /></div><br /><div>Langkah-langkah untuk membuat proses pencerminan citra ini adalah sebagai berikut:</div><div><ol> <li>Buat terlebih dulu header untuk file PHP utama dengan style yang diperlukan.</li><pre>&lt;html&gt;<br />&lt;head&gt;<br />&lt;meta http-equiv="Content-Type" content="text/html; charset=utf-8" /&gt;<br />&lt;title&gt;Flip Image&lt;/title&gt;<br />&lt;style type="text/css"&gt;<br /><br />#original {<br />display:inline;<br />border:5px solid #555;<br />float:left;<br />padding:10px;<br />}<br />&lt;/style&gt;<br />&lt;/head&gt;<br /></pre></ol></div><div><ol start="2"><li>Tampilkan citra yang hendak dicerminkan dengan dilengkapi link untuk melakukan proses pencerminan.<br /></li><pre>&lt;body&gt;<br />&lt;h1&gt;&lt;/h1&gt;<br />&lt;div id="original"&gt;<br />&lt;img src="pic2.jpg"/&gt;<br />&lt;br&gt;<br />&lt;a href="flipH.php?image=pic2.jpg&amp;tipe=1"&gt;Horizontal Flip&lt;/a&gt;<br />&lt;br&gt;<br />&lt;a href="flipH.php?image=pic2.jpg&amp;tipe=2"&gt;Vertical Flip&lt;/a&gt;<br />&lt;/div&gt;<br /><br />&lt;/body&gt;<br />&lt;/html&gt;<br /></pre></ol></div><div><ol start="3"><li>Tampilkan citra yang hendak dicerminkan dengan dilengkapi link untuk melakukan proses pencerminan.<br /></li><pre>&lt;?php<br /><br />$image = $_GET['image'];<br />$tipe = $_GET['tipe'];<br />flipH($image, $tipe);<br /><br />function flipH($image, $tipe) {<br /><br />$xandy = getimagesize($image);<br />$x = $xandy[0];<br />$y = $xandy[1];<br />$type = $xandy[2];<br />$type = image_type_to_mime_type($type);<br />header("Content-type: $type");<br />$r = imagecreatefromjpeg($image);<br />$i = imagecreatetruecolor($x,$y);<br />$dark = imagecolorallocate($i,100,100,100);<br />imagefill($i,0,0,$dark);<br /><br />$width = $x;<br />$height = $y;<br /><br />for($cntOne = 0;$cntOne &lt; $width;$cntOne++) {<br />for($cntTwo = 0;$cntTwo &lt; $height;$cntTwo++) {<br />if ($tipe == 1)<br />imagecopy($i,$r,$width-$cntOne,$cntTwo,$cntOne,$cntTwo,1,1);<br />else<br />imagecopy($i,$r,$cntOne,$height-$cntTwo,$cntOne,$cntTwo,1,1);<br />}<br />}<br />imagejpeg($i);<br /><br />}<br /><br />?&gt;</pre></ol></div><div><ol start="4"><li>Tampilan yang dihasilkan adalah sebagai berikut:</li><br />Gambar asli / Flip Horisontal / Flip Vertical</ol><ol start="4"><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi10mYc31DD_o9GURVdG24mqtoXX015QhGx3Fq2ZWPhJ-rbXTUcs-lAmhzWcQlOi3DUu8tL2iq5dGpyYTLe5rcSHRu3iRzaKm7S0fReawzNSDo7kxL1GarTl3Wdeh3BOUeGalorwcY4x_g/s1600-h/01.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 234px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi10mYc31DD_o9GURVdG24mqtoXX015QhGx3Fq2ZWPhJ-rbXTUcs-lAmhzWcQlOi3DUu8tL2iq5dGpyYTLe5rcSHRu3iRzaKm7S0fReawzNSDo7kxL1GarTl3Wdeh3BOUeGalorwcY4x_g/s320/01.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5377430578484962354" /></a><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdQ04WH094kHLn2WjZCFZSHYVtS8HsDVNiZEvVGLWdG7DnTs74h-9aivoBKE59n0KgoJY8aZcKhoFKI3FP0PJ0dnGjnZO-Fqp80Wd8LA6kL_rUOq4hy66NBI-bFxnZTmGyUy2mlva328c/s1600-h/02.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 234px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdQ04WH094kHLn2WjZCFZSHYVtS8HsDVNiZEvVGLWdG7DnTs74h-9aivoBKE59n0KgoJY8aZcKhoFKI3FP0PJ0dnGjnZO-Fqp80Wd8LA6kL_rUOq4hy66NBI-bFxnZTmGyUy2mlva328c/s320/02.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5377430697574404738" /></a><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifCmeicVrrk5i76pTVVaiV4rFcbVrU-Q5jjRJph51DdUKUdtVtmo7SHZDhojtZoFvaMsvXlBaMLvVNm9JY3HrrCjIvhO9dgHnX257zEuHTlPqTo74Dx3GajojnotW1TtbvG07s2unvv50/s1600-h/03.jpg"><img style="cursor:pointer; cursor:hand;width: 234px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifCmeicVrrk5i76pTVVaiV4rFcbVrU-Q5jjRJph51DdUKUdtVtmo7SHZDhojtZoFvaMsvXlBaMLvVNm9JY3HrrCjIvhO9dgHnX257zEuHTlPqTo74Dx3GajojnotW1TtbvG07s2unvv50/s320/03.jpg" border="0" alt="" id="BLOGGER_PHOTO_ID_5377430974198657986" /></a><br /></ol><div><br /></div></div></div>Unknownnoreply@blogger.com0