.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Twitter Bot 1.0 - Tool Untuk Submit Produk Amazon Ke Twitter

0 komentar



Twitter Bot 1.0 adalah produk baru dari kami yang sangat berguna untuk mempostingkan produk - produk dari amazon atau apapun ke dalam Twitter. Karena twitter sampai saat ini masih menjadi favorit para netter dalam menjalin komunikasi.


Kunci sukses dalam mempromosikan produk amazon ke twitter adalah dengan adanya follower yang banyak. Twitter Bot juga kami sediakan group untuk saling
Suni

VB6 Source Code: Membuat Frame Dari OptionButton - CheckBox

0 komentar
Mengenai cara membuat Frame dari objek OptionButton atau ChekBox - Dikarenakan objek CheckBox, OptionButton, kemudian CommandButton
berasal dari kelas yang sama yaitu Class Button, maka ketiganya pun dapat kita rubah stylenya menjadi sebuah Frame dengan memanfaatkan konstanta BS_GROUPBOX dan BM_SETSTYLE melalui bantuan fungsi API SendMessage. Keuntungan membuat Frame dari OptionButton, CheckBox
Suni

Membuat visitor Counter sederhana dengan PHP dan MYSQL

0 komentar

  
Visitor counter adalah menghitung jumlah pengunjung pada website, dengan visitor counter kita akan tau berapa jumlah pengunjung terakhir beserta tanggal,bulan,tahun dan juga hari terakhir website anda di kunjungi ...
Ternyata untuk membuatnya tidak terlalu sulit jika menggunakan PHP dan MYSQL...
di bawah ini adalah potongan sourco code dari cara membuat visitor counter ..
cekidot gan...!!!

<?
//untuk membuat cookies namanya counter, nilainya visitor, disimpan di browser selama 1 jam
setcookie("counter","visitor",time()+3600);
 
//untuk koneksi
include "conn.php";
 
//lihat variable tanggal di file conn.php
$tanggal;
 
//untuk query mysql
$quey=mysql_db_query($db,"select * from counter",$koneksi);
 
//ambil nilai di database
while ($rows=mysql_fetch_array($quey))
{
    //ambil data jumlah pengunjung di field jml    
    $visit=$rows['jml'];
}
 
//jika pertama kali kosong, beri nilai 1
if ($visit=="")
{
    mysql_db_query($db,"insert into counter values('$tanggal',1)",$koneksi);
}
 
//apakah file cookies "counter" sudah ada di browser
if (!isset($_COOKIE['counter']))
{
    //jika belum ada penambahan satu pada variabel dan lakukan update ke database untuk nilai counter yang baru
    $visit=$visit+1;
    mysql_db_query($db,"update counter set jml='$visit'",$koneksi);
}
 
?>
<html>
<head>
<title>Counter</title>
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon">
</head>
<table width="30%" border="1" cellpadding="0" cellspacing="0" bordercolor="#99CC99" align=center>
<tr> 
<td align="center"><img src=ftiugp.jpg width="30%"></td></tr><tr><td bgcolor="black"><div align="center"><strong><font face="verdana" size="2" color="#FFFFFF">PENGUNJUNG</font></strong></div></td>
</tr>
<tr>
    <td height="29" colspan="3" align="center"><br>
    <font face="verdana" size="2" color="#FF9933"><b>
    <?  
     
    //untuk menampilkan jumlah pengunjung dengan file gambar angka 0,1,2,3,4..9
     
    //hitung panjang nilai jumlah pengunjung jika ada 23767 = berarti panjangnya 5
    $ulang=strlen($visit);
    echo "Jumlah Pengunjung : <br><br>";
     
    //lakukan perulangan sebanyak variabel $ulang untuk ubah tampilan angka biasa menjadi gambar 0 menjadi 0.gif, 2 menjadi 2.gif
    for ($i=0;$i<$ulang;$i++){
         //pisahkan serangkaian angka menjadi terpisah. misalnya, 23767 di pecah menjadi 2,3,7,6,dan 7 untuk masing2 di ubah manjadi angka gambar
         $angka=substr($visit,$i,1);
         echo "<img src='img/$angka.gif' />";
    }
     
    //jumlah asli angka biasa
    echo "<br>";
    echo $visit;
    ?>
     
    </b><br><br></font>    
    </td>
</tr>
 
<tr> 
    <td bgcolor="black" with="100%"><div align="center"><font face="verdana" size="2" color="#FFFFFF"><? echo $tanggal=date('D, d-M-Y');?></font></div></td>
</tr>
</table>
</html>

Nah bagaimana?
sepertinya mudah kan?
untuk mengakhiri pembahasan ini segera download saja script lengkapnya disini....
setelah download ekstrak file zip sehingga menghasilkan folder dengan nama counter ...
segera buka file petunjuk.txt ..
selamat menikmati..
script diatas masih banyak kekurangan, silakan kembangkan lagi..
penulis berniat hanya untuk menambah coding dari postingan ini...
Suni

Cara Cepat Menambah Follower Twitter

0 komentar

Software House Production - Cara Mudah Menambah Follower Twitter. Twitter merupakan situs jejaring social yang sampai sekarang masih keren dan digunakan banyak orang. Dengan menambah banyak follower maka target pasar kita akan cepat terpenuhi. Nah..bagaimana cara cepat menambah follower twitter ?








Saat ini banyak situs yang menyediakan jasa penambah follower dengan cepat. Mulai dari yang
Suni

VB6 Animasi: Menggunakan Fungsi API AnimateWindow

0 komentar
VB6 AnimateWindow - Dengan menggunakan fungsi API AnimateWindow, kita�dapat membuat�efek-efek animasi yang sangat halus. Fungsi API AnimateWindow sendiri tidak bisa digunakan begitu saja, tetapi ia membutuhkan bantuan fungsi API yang lain untuk melakukan SubClassing guna memproses Message WM_PRINT atau WM_PRINTCLIENT agar form yang sedang melakukan animasi terefresh dengan baik, dengan demikian
Suni

Error: File not found: "C:\Windows\system32\ieframe.dll\1"

0 komentar
Mengenai cara mengatasi File not found: "C:\Windows\system32\ieframe.dll\1" secara otomatis dan mudah, anggap saja sebuah trik. Bekerja dengan objek WebBrowser atau Microsoft Internet Control, terkadang kita sering berhadapan dengan error: File not found: "C:\Windows\system32\ieframe.dll\1" akibat perubahan nilai yang terdapat pada registry. Walaupun error tersebut bukanlah suatu hal yang serius
Suni

Samsung SIII Akan Terjual 10 Juta Dalam 2 Bulan

0 komentar
Software House Porduction - Perusahaan elektronik asal Korea Selatan, Samsung Electronics, pembuat smartphone terbesar di dunia, mengatakan pada Senin, bahwa pihaknya memperkirakan akan menjual 10 juta dari model Samsung Galaxy S3 terbaru hingga akhir Juli, dua bulan setelah peluncurannya.






J.K. Shin, kepala divisi komunikasi ponsel, mengatakan bahwa penjualan kuat dari model itu akan
Suni

Hacker Dapat Dana 7 Milyar Dari Dunia Maya

0 komentar
Software House Production - Hacker Dapat Dana 7 Milyar Dari Dunia Maya, Detasemen Khusus 88 Antiteror Markas Besar Kepolisian RI masih menelusuri keterlibatan tersangka kasus terorisme, Rizky Gunawan dengan jaringan teroris lain. Polisi baru menemukan bukti keterlibatan Rizky dalam jaringan bom di Solo dan pelatihan militer di Poso.





Dia pencari dana kegiatan terorisme, dari kegiatan
Suni

VB6 Animasi: Animasi Melayang Ala Google Talk

0 komentar
Mengenai animasi melayang pada saat tampil dan sembunyi di systray ala Google Talk menggunakan VB6. Const IDANI_OPEN = &H1Const IDANI_CLOSE = &H2Const IDANI_CAPTION = &H3Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function SetRect Lib "User32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As
Suni

theBatch Add-Ins, Mengatasi Beberapa Masalah Manifest Resour

0 komentar
Ini merupakan aplikasi VB6 Add-Ins, saya namakan dengan theBatch, karena ia dapat menyelesaikan masalah form yang disebabkan manifest resource secara bersamaan/sekaligus berapapun banyaknya form tersebut. Modul utamanya milik Eduardo A. Morcillo and Vlad Vissoultchev (pembuat Hook Menu). Beberapa masalah manifest tersebut, diantaranya:Flickering pada frameHilangnya mnemonic (shorcut underline),
Suni

Download Software Speech/Voice Recognition

0 komentar
Ini merupakan software pembelajaran untuk melatih mengucapkan frase-frase pendek dalam percakapan. Adapun yang menjadi lawan bicaranya adalah sebuah komputer.Cara menggunakan:Isi terlebih dahulu database percakapan yang terdapat pada C:\Program Files\Speech\dbase.mdb. Isi dari percakapan tersebut disesuaikan dengan kebutuhan Anda atau anak didik Anda.Siapkan mikrofon berkualitas baikAtur
Suni

Update: My Source Online 2.0 - Online MySQL Database

0 komentar
Rupanya pada versi yang sebelumnya terjadi beberapa kegagalan, diantaranya:Gagal dalam mengecek koneksi internet, modul yang digunakan adalah -[memeriksa keberadaan koneksi internet]- sehingga selalu terkadang menampilkan pesan error "Mohon maaf, tidak ada koneksi internet".Gagal dalam meregistrasikan COMDLG32.OCX (CommonDialog ActiveX), kemungkinan masalah versi.Kedua masalah tersebut telah saya
Suni

Software - Simple SQL Query Tester 2.0 Open Source

0 komentar
Ini merupakan software sederhana untuk menguji connection string beberapa database serta menguji sql query meliputi INSERT, UPDATE, SELECT, DELETE selanjutnya melalui software ini, Anda dapat merubahnya menjadi Visual Basic String dan mengcopy paste pada project yang sedang Anda buat.Selain yang telah dijelaskan, Anda pun dapat mempelajari pembuatan script installer untuk pembuatan file setup,
Suni

Aplikasi iImsyakiyah Dari http://www.diajar.com

0 komentar
Aplikasi iImsyakiyah ini dibuat oleh saudara Agung Novian pemiliki situs http://www.diajar.com. Aplikasi ini digunakan untuk memberitahukan jadwal sholat lima waktu.Keterangan mengenai Aplikasi iImsyakiyah:Dibuat menggunakan bahasa pemrograman Visual Basic 6.Portable, artinya tidak memerlukan penginstallan.GUI yang menarik dan serasi.Dilengkapi dengan tray icon.Alarm untuk memberitahukan waktu
Suni

Pinterest Bot 2.0 - Tool Untuk Mendapatkan Penjualan Amazon

0 komentar
Pinterest Bot adalah sebuah software handal yang mampu mendatangkan trafik baik ke situs anda maupun ke produk anda dengan cara yang mudah dan cepat.� Setiap content unik yang anda submitkan ke Pinterest akan menciptakan traffik yang melimpah.Jika anda mempunyai produk yang ingin anda pasarkan seperti produk Amazon maupun Clickbank, maka anda tidak memerlukan sama sekali kemampuan membuat blog,
Suni

Cara Yang Cerdik Untuk Mentrap On Error Resume Next - VB6

0 komentar
Mengenai cara men-trap (menjebak) objek error yang berada di bawah bari On Error Resume Next - Bagaimana kita dapat melakukan sebuah pengecualian dalam baris yang berada di bawah On Error Resume Next, di bawah adalah contoh kode VB6 beserta penjelasannya: Option ExplicitPrivate Sub Command1_Click() 'Baris pertama kita memasang On Error Resume Next, maksudnya 'kita memberitahukan pada
Suni

Download Mozilla Firefox 13 Terbaru

0 komentar
Software House Production - Mozilla Firefox 13 adalah versi terbaru dari browser terkemuka mozilla. Dalam versi mozilla firefox 13 sudah ditambahi beberapa kemampuan dan ditutup bug - bug nya. Selain itu mozilla firefox 13 juga sudah semakin meningkat kecepatannya.Download Mozilla Firefox 13 Terbaru bisa sobat temui dalam situs resmi mozilla. Oleh karena itu silakan sobat KLIK DISINI untuk
Suni

Web Traffic 4 - Tool Untuk Menaikkan Visitor

0 komentar
Software House Production - Setelah sekian lama libur dari aktifitas blogging, kini muncul kembali dengan membawa update tool Web Traffic 4. Tool untuk menaikkan visitor ini sudah masuk ke versi 4 yang tentunya lebih oke dan stabil. Jika dalam Web Traffic 3 masih ada sedikit bug, maka versi baru ini sudah ditutup bug nya.





Tampilan dalam Web Traffic 4 - Tool Untuk Menaikkan Visitor sudah
Suni

Contoh Menambahkan Attribut Pada Tag HTML - VB Code

0 komentar
Private Function AddPreWithClassName() Dim d As New MSHTML.HTMLDocument Dim l As HTMLMetaElement Dim x As HTMLHtmlElement d.body.innerHTML = txtPost.Text For Each l In d.All If l.tagName = "PRE" Then l.className = "code" ' End If Next txtPost.Text = d.body.innerHTMLEnd Function
Suni

CARA AMPUH MENINGKATKAN VISITOR HANYA DALAM WAKTU 7 HARI

0 komentar

1. Tahap awal "DANDANI BLOG" secantik mungkin, jgn hiraukan SEO,SERP dll (belakangan diurus kl udah tenar)..Ingat..mata pengunjung bukan mengarah ke isi postingan kita tapi pandangannya mengitari area blog terlebih dahulu
2. Manjakan pengunjung dengan fasilitas "MEWAH", mislnya e-book gratis, yg mungkin dibutuhkan visitor ANDA
3. Jangan membani blog anda dengan iklan, shortlink (adfly,bitly,dll)
Suni

VB6 Code - Memperoleh Control Yang Sedang Aktif - Focus

0 komentar
Option ExplicitPrivate Sub Timer1_Timer() Dim cControl As Control Set cControl = Me.ActiveControl If Not cControl Is Nothing Then Caption = cControl.Name End IfEnd Sub
Suni

VB6 Code - Menampilkan Dialog Page Setup

0 komentar
Option ExplicitPrivate Sub Command1_Click() With CommonDialog1 .Flags = CommonDialog1.Flags Or PrinterConstants.cdlPDPrintSetup .CancelError = True On Error Resume Next Call .ShowPrinter If Err.Number <> ErrorConstants.cdlCancel Then Call MsgBox("here, please implement the process after the end of the printer settings") End If End WithEnd
Suni

VB6 Code - Mencari seluruh Printer Port

0 komentar
Lebih tepatnya mencari port printer tertentu dari seluruh printer port yang ada menggunakan kode VB6. Adapun kode VB6 untuk mencari port tertentu dari seluruh printer port yang ada adalah sebagai berikut:Public Function FindPrinterPort(Port As String) As Boolean Dim P As Printer, Found As Boolean For Each P In Printers If Printer.Port = Port & ":" Then Found = True
Suni

URL Encode - Decode UTF8 Menggunakan Script Control

0 komentar
Mungkin bisa disebut sebagai cara termudah untuk melakukan Encoding dan Decoding URL UTF8 dalam VB6, dengan memanfaatkan OCX Microsoft Script Control. Adapun kode untuk Encode dan Decode URL UTF8 menggunakan Visual Basic 6.0 adalah sebagai berikut: '================================================================='UrlEncodeUtf8 menggunakan Script Control'==========================================
Suni

Mengkopi Gambar Ke Clipboard Melalui VB6

0 komentar
Private Sub CopyFromPictureBox(pic As PictureBox) With Clipboard .Clear .SetData pic.Picture End WithEnd SubPrivate Sub CopyFromFile(Path As String) With Clipboard .Clear .SetData LoadPicture(Path) End WithEnd Sub
Suni

Encode Decode Base64 Menggunakan MSXML

0 komentar
Public Function Base64Enc(ByRef vxbData() As Byte) As String With CreateObject("MSXML.DOMDocument").CreateElement(" Base64 ") .DataType = "bin.base64" .NodeTypedValue = vxbData Base64Enc = .Text End WithEnd FunctionPublic Function Base64Dec(ByRef vsData As String) As Byte() With CreateObject("MSXML.DOMDocument").CreateElement("Base64") .DataType = "bin.base64"
Suni

Memperoleh Informasi Time Zone Dari Local Time

0 komentar
Option ExplicitPrivate Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As IntegerEnd TypePrivate Type TIME_ZONE_INFORMATION Bias As Long StandardName(32) As Integer StandardDate As SYSTEMTIME StandardBias As Long DaylightName(32) As Integer
Suni

XML Tidy - Untuk Merapikan File XML

0 komentar
Public Function PrettyPrintXML(XML As String) As String Dim Reader As New SAXXMLReader60 Dim Writer As New MXXMLWriter60 Writer.Indent = True Writer.standalone = False Writer.omitXMLDeclaration = False Writer.encoding = "utf-8" Set Reader.contentHandler = Writer Set Reader.dtdHandler = Writer Set Reader.errorHandler = Writer Call Reader.putProperty("http://xml.org/
Suni

XML Pretty Print - Merapikan Format File XML

0 komentar
Private Sub PrettyPrint(Parent As IXMLDOMNode, Optional Level As Integer) Dim Node As IXMLDOMNode Dim Indent As IXMLDOMText If Not Parent.ParentNode Is Nothing And Parent.ChildNodes.Length > 0 Then For Each Node In Parent.ChildNodes Set Indent = Node.OwnerDocument.createTextNode(vbNewLine & String(Level, vbTab)) If Node.NodeType = NODE_TEXT Then
Suni

Membaca File Binary Dengan Visual Basic 6.0

0 komentar
Option ExplicitPrivate Sub Command1_Click() Open "C:\Documents and Settings\Admin\My Documents\Blogger VB6\Blogger\4basic-vb.xml" For Binary As #1 Dim strBuff As String strBuff = Space(LOF(1)) Get #1, , strBuff Close #1 Text1.Text = strBuffEnd Sub
Suni

Contoh Menggunakan CommonDialog Open Save As

0 komentar
'Contoh untuk CommonDialog OpenPrivate Sub Command1_Click() On Error GoTo ErrHandler Dim strPath As String With CommonDialog1 .CancelError = True .Flags = cdlOFNHideReadOnly .Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat" .FilterIndex = 2 .DialogTitle = "Open File" .ShowOpen strPath = .FileName End
Suni

Membaca File Binary atau Text Dengan Cepat

0 komentar
'Kode ini dibuat oleh plenderj salah satu member VBForums'http://www.vbforums.com/showthread.php?s=&threadid=132171' Return a specific line number from a file (note: first line = line number 0)Private Function getLine(ByVal strFile As String, ByVal lineNumber As Long) As String Dim strBuff As String Open strFile For Binary As #1 strBuff = Space(LOF(1)) Get #1, , strBuff
Suni

Mengakses Element WebBrowser Dari Visual Basic 6.0

0 komentar
Option ExplicitPrivate Sub cmdBack_Click() On Error Resume Next WebBrowser1.GoBackEnd SubPrivate Sub cmdForward_Click() On Error Resume Next WebBrowser1.GoForwardEnd SubPrivate Sub cmdGo_Click() WebBrowser1.Navigate txtAddressEnd SubPrivate Sub Form_Load() WebBrowser1.Navigate "http://www.microsoft.com"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As
Suni

Membaca File Dan Memasukannya Ke Dalam Array

0 komentar
Option ExplicitPrivate Sub Command1_Click() Dim L As Long Dim MyArray() As String ' Load file into string array FileToArray "C:\TEST.txt", MyArray ' Reverse array contents ReverseStrArray MyArray ' show result in immediate window For L = 0 To UBound(MyArray) Debug.Print MyArray(L) Next L End SubPrivate Sub FileToArray(ByVal sPath As String,
Suni

Tutorial File - Membaca, Menghapus Baris Tertentu, dsb

0 komentar
'Kode ini dibuat oleh plenderj salah satu member VBForums'http://www.vbforums.com/showthread.php?s=&threadid=132171' Clear the contents of a filePrivate Sub clearFile(ByVal strPath As String) If Not Len(Dir(strPath)) = 0 Then Open strPath For Output As #1 Close #1 End IfEnd Sub' Is a given string contained within a given file ?Private Function isStringInFile(ByVal strString As
Suni

Cara Mudah Baca File Dan Menyimpannya Dalam Array

0 komentar
Option ExplicitPrivate Sub Command1_Click() Dim strArray() As String Open "c:\autoexec.bat" For Input As #1 strArray = Split(Input(LOF(1), 1), vbCrLf) Close #1End Sub
Suni

Progress Bar dari PictureBox Seperti Pada VB Classic

0 komentar
Option ExplicitDim tenth As LongPrivate Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongSub UpdateStatus(FileBytes As Long) Static progress As Long Dim r As Long Const SRCCOPY = &HCC0020 Dim Txt$
Suni

Membuat Random Auto Number - DAO

0 komentar
Public Sub CreateRandomAutonumber() Dim db As DAO.Database Dim td As DAO.TableDef Dim f As DAO.field Set db = CurrentDb Set td = db.CreateTableDef("Table1") Set f = td.CreateField("MyAutoNumber") f.Type = dbLong f.Attributes = dbAutoIncrField td.Fields.Append f Set f = td.CreateField("MyTextField") f.Type = dbText td.Fields.Append f
Suni

Scroll Treeview Ketika Sedang Drag And Drop Sebuah Node

0 komentar
Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongDim mfX As SingleDim mfY As SingleDim moNode As nodeDim m_iScrollDir As IntegerDim mbFlag As BooleanPrivate Sub Form_DragOver(Source As Control, x As Single, y As Single, State As Integer) If Source.Name = "TreeView1" Then
Suni

Implementasi Pencarian Pada RichTextBox Control

0 komentar
Option ExplicitPrivate Sub Command1_Click() HighlightWords RichTextBox1, "text", vbRedEnd SubPrivate Function HighlightWords(rtb As RichTextBox, sFindString As String, lColor As Long) As Integer Dim lFoundPos As Long Dim lFindLength As Long Dim lOriginalSelStart As Long Dim lOriginalSelLength As Long Dim iMatchCount As Integer lOriginalSelStart = rtb.SelStart
Suni

TAB Karakter Pada RichTextBox Control

0 komentar
Private Sub RichTextBox1_GotFocus() ReDim arrTabStop(0 To Controls.Count - 1) As Boolean For I = 0 To Controls.Count - 1 arrTabStop(I) = Controls(I).TabStop Controls(I).TabStop = False NextEnd SubPrivate Sub RichTextBox1_LostFocus() For I = 0 To Controls.Count - 1 Controls(I).TabStop = arrTabStop(I) NextEnd Sub
Suni

Membaca dan Menampilkan Karakter Unicode

0 komentar
Option ExplicitPrivate Sub Command1_Click() Dim a(0 To 5) As Byte a(0) = &HFF a(1) = &HFE a(2) = &H39 a(3) = &H4E a(4) = &H44 a(5) = &H0 Open "unicode.txt" For Binary As #1 Put #1, , a Close #1End SubPrivate Sub Command2_Click() Dim txtline As String Open "unicode.txt" For Binary As #1 txtline = InputB(2, #1) txtline = InputB(4, #1) Close #1
Suni

Custom File Untuk Keperluan Import Database

0 komentar
''Gunakan editor terbaik dari Microsoft yakni Notepad''Tulis seperti di bawah ini'1, Description 1 ,1,100.00,3/1/1998'2, Description 2 ,2,200.00,3/2/1998'Simpan dengan nama c:\test.txt.Private Sub Command1_Click() Dim F As Long, sLine As String, A(0 To 4) As String Dim db As Database, rs As Recordset F = FreeFile Open "c:\test.txt" For Input As F Set db = CurrentDb Set db =
Suni

Pencarian Secara Recursive Pada RichTextBox

0 komentar
Private Sub Form_Load() RichTextBox1.LoadFile "license.txt"End SubPrivate Sub Command1_Click() Dim strval As String Dim nStrings As Long RichTextBox1.LoadFile "license.txt" strval = " " & InputBox("Enter the string to find.", "Findit", "the") & " " If strval <> "" Then nStrings = FindIt(RichTextBox1, strval) MsgBox (Str$(nStrings) & " instances found.") End
Suni

Bagaimana Cara Mem-Print RichTextBox Yang Memiliki Image

0 komentar
Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_PAINT = &HFPrivate Const WM_PRINT = &H317Private Const PRF_CLIENT = &H4&Private Const PRF_CHILDREN = &H10&Private Const PRF_OWNED = &H20&Private Sub Command1_Click() RichTextBox1.OLEObjects.Add , , "c:
Suni

Apakah ScrollBar Visible Pada Sebuah Control?

0 komentar
Option ExplicitPrivate Const GWL_STYLE = (-16)Private Const WS_HSCROLL = &H100000Private Const WS_VSCROLL = &H200000Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Sub Command1_Click() Dim wndStyle As Long wndStyle = GetWindowLong(TreeView1.hwnd, GWL_STYLE) If (wndStyle And WS_HSCROLL) <> 0 Then
Suni

Memperoleh Icon Asosiasi File Menggunakan SHFileInfo

0 komentar
Option ExplicitPrivate Const SHGFI_DISPLAYNAME = &H200Private Const SHGFI_EXETYPE = &H2000Private Const SHGFI_SYSICONINDEX = &H4000Private Const SHGFI_LARGEICON = &H0Private Const SHGFI_SMALLICON = &H1Private Const ILD_TRANSPARENT = &H1Private Const SHGFI_SHELLICONSIZE = &H4Private Const SHGFI_TYPENAME = &H400Private Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or
Suni

Mengubat BackGround TreeView Control

0 komentar
Option ExplicitPrivate Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As LongPrivate Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal
Suni

Rename Node TreeView Seperti Pada Explorer

0 komentar
Option ExplicitDim sNodeText As StringPrivate Sub Form_Load() TreeView1.Nodes.Add , , , "test" TreeView1.Nodes.Add , , , "test 1" TreeView1.Nodes.Add , , , "test 2"End SubPrivate Sub Timer1_Timer() TreeView1.StartLabelEdit Timer1.Enabled = FalseEnd SubPrivate Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String) If Len(NewString) < 1 Then MsgBox "Error! You
Suni

Contoh Mengisi ListView Secara Recursive

0 komentar
Function FirstFileMatch() Dim strFileName As String On Error Resume Next strFileName = Dir(InputBox("Enter a valid path and file name.")) If strFileName = "" Then FirstFileMatch = FirstFileMatch() Else FirstFileMatch = strFileName End IfEnd FunctionPrivate Sub Form_Load() Const strTableQueryName = "Employees" Dim db As DAO.Database, rst As DAO.Recordset
Suni

Contoh Mengisi ListView Dengan Database

0 komentar
Option ExplicitFunction FillList(strDomain As String, objListView As Object) As Boolean Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim intTotCount As Integer Dim intCount1 As Integer Dim intCount2 As Integer Dim colNew As ColumnHeader Dim itmNewLine As ListItem On Error GoTo Err_Handler objListView.ListItems.Clear objListView.ColumnHeaders.Clear Set dbs =
Suni

Contoh MRU - Most Recently Used

0 komentar
Option ExplicitPrivate Const MaxMRU = 4Private Const NotFound = -1Private Const NoMRUs = -1Private MRUCount As LongPrivate Sub Form_Load() MRUCount = NoMRUs GetMRUFileListEnd SubPrivate Sub Form_Unload(Cancel As Integer) SaveMRUFileListEnd SubPrivate Sub mnuMRU_Click(Index As Integer) ReorderMRUList mnuMRU(Index).Caption, CLng(Index)End SubPrivate Sub mnuOpen_Click()
Suni

Contoh CommonDialog - Print Dengan Range Tertentu

0 komentar
Option ExplicitPrivate Sub Command1_Click() Dim myDatabase As Database Dim rsMyTable As Recordset Dim i As Integer Dim j As Integer Dim startpage As Integer CommonDialog1.Max = 3 CommonDialog1.FromPage = 1 CommonDialog1.ToPage = 3 CommonDialog1.flags = 0 CommonDialog1.ShowPrinter startpage = CommonDialog1.FromPage Printer.FontSize = 18 Set myDatabase =
Suni

Bermain Dengan Horizontal Vertical Scroll TextBox

0 komentar
Option ExplicitConst EM_LINESCROLL = &HB6Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As LongPrivate Sub Form_Load() Dim intLineIndex As Integer, intWordIndex As Integer Text1.Font = "Courier New" Text1.Text = "" For intLineIndex = 1 To 25 Text1.Text = Text1.Text
Suni

Contoh Penggunaan Fungsi API SetCapture and WindowFromPoint

0 komentar
Option ExplicitPrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Type POINT X As Long Y As LongEnd TypePrivate Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetCapture Lib "user32" () As LongPrivate Declare Sub ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINT)Private Declare
Suni

Contoh Membuat Picture Yang Dapat DiScroll

0 komentar
Option ExplicitPrivate Sub Form_Load() Picture1.Move 0, 0, ScaleWidth - VScroll1.Width, ScaleHeight - HScroll1.Height With Picture2 .AutoSize = True .Picture = LoadPicture("splash.bmp") .Move 0, 0 End With With HScroll1 .Top = Picture1.Height .Left = 0 .Width = Picture1.Width End With With VScroll1 .Top = 0 .Left = Picture1
Suni

Membuat Aplikasi Console Dengan Visual Basic 6.0

0 komentar
Option ExplicitDeclare Function AllocConsole Lib "kernel32" () As LongDeclare Function FreeConsole Lib "kernel32" () As LongDeclare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongDeclare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As LongDeclare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal
Suni

Cara Membuat Generic Handler Error

0 komentar
Option ExplicitPrivate Sub Form_Load() On Error GoTo FormLoadErr Err.Raise 76 Err.Raise 70 Exit SubFormLoadErr: Select Case Err.Number Case 76 MsgBox "Form_Load Error Handler. Form Does Not Exist" Case Else AppWideErr (Err.Number) End SelectEnd SubPrivate Sub Command1_Click() On Error GoTo Cmd1Err Err.Raise 53 Err.Raise 70 Exit
Suni

Cara Menggunakan Error Object Yang Ada Pada Script Control

0 komentar
Option ExplicitPrivate Sub Command1_Click() On Error Resume Next With ScriptControl1 .Language = "VBScript" .AllowUI = True .AddCode Text1.Text .Run "Test" End With If Err Then MsgBox Err & " " & Error ListErrors ScriptControl1 End IfEnd SubPrivate Sub ListErrors(S As ScriptControl) With S.Error Debug.Print "Number:", .Number
Suni

Contoh Menjalankan Procedure Di dalam Script Control

0 komentar
Option ExplicitPrivate Sub Command1_Click() ScriptControl1.Modules.Add Text1.Text Form_ActivateEnd SubPrivate Sub Command2_Click() ScriptControl1.Modules(List1).AddCode Text1.Text List1_ClickEnd SubPrivate Sub Command3_Click() Dim RetVal As Variant, m As Variant Set m = ScriptControl1.Modules(List1.Text) With m.Procedures(List2.Text) Select Case .NumArgs
Suni

Form dan Control Yang Terbebas Resolusi Layar

0 komentar
'Kode Pada FormOption ExplicitDim MyForm As FRMSIZEDim DesignX As IntegerDim DesignY As IntegerPrivate Sub Form_Load() Dim ScaleFactorX As Single, ScaleFactorY As Single ' Scaling factors ' Size of Form in Pixels at design resolution DesignX = 800 DesignY = 600 RePosForm = True ' Flag for positioning Form DoResize = False ' Flag for Resize Event ' Set up the screen
Suni

Mengirim dan Menerima Email Menggunakan MAPI

0 komentar
Option ExplicitDim X As LongPrivate Sub Command1_Click() If X - 1 < 0 Then Else X = X - 1 MAPIMessages1.MsgIndex = X Text1.Text = MAPIMessages1.RecipDisplayName Text2.Text = MAPIMessages1.MsgSubject Text3.Text = MAPIMessages1.MsgOrigDisplayName Text4.Text = MAPIMessages1.MsgNoteText End IfEnd SubPrivate Sub Command2_Click() If X + 1 >
Suni

Memperoleh Array Dari Prosedur Fungsi

0 komentar
Option ExplicitPrivate aiLeftSide() As IntegerPrivate asLeftSide() As StringPrivate aiRightSide(1 To 10) As IntegerPrivate asRightSide(1 To 10) As StringPrivate obj As ObjectPublic Function ArrayFromClass() As String() Dim astr(1 To 10) As String Dim i As Integer For i = 1 To 10 astr(i) = "Class array element " & Str(i) Next i ArrayFromClass = astr()End FunctionPrivate Sub
Suni

Contoh Print Preeview Pada Visual Basic 6.0

0 komentar
Option ExplicitPrivate Sub Form_Load() CommonDialog1.CancelError = True Command1.Caption = "Load Picture" Command2.Caption = "Print Preview" Command3.Caption = "Print"End SubPrivate Sub Command1_Click() Dim sFileFilter As String On Error GoTo ErrHandler sFileFilter = "Bitmap Files (*.bmp)|*.bmp|" sFileFilter = sFileFilter & "GIF Files (*.gif)|*.gif|" sFileFilter =
Suni

Contoh Menggunakan Proxy Pada Internet Transfer Control

0 komentar
Private Sub Command1_Click() Inet1.AccessType = icNamedProxy Inet1.Proxy = "ftp=ftp://ftp-gw" Inet1.URL = "ftp://ftp.microsoft.com" Inet1.Execute , "DIR"End SubPrivate Sub Command2_Click() Inet2.AccessType = icNamedProxy Inet2.Proxy = "http://proxy:80" MsgBox Inet1.OpenURL("http://www.microsoft.com")End SubPrivate Sub Command3_Click() Inet3.AccessType = icNamedProxy
Suni

PrintWindow - Capture Form Beserta Seluruh Objeknya

0 komentar
Option ExplicitPrivate Declare Function PrintWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As LongPrivate Sub Command2_Click() Picture1.AutoRedraw = True Set Picture1.Picture = Nothing PrintWindow Me.hwnd, Picture1.hDC, 0 Picture1.RefreshEnd Sub
Suni

MSXML Encode Decode Base64

0 komentar
Private Function EncodeBase64(ByRef arrData() As Byte) As String Dim objXML As MSXML2.DOMDocument Dim objNode As MSXML2.IXMLDOMElement ' help from MSXML Set objXML = New MSXML2.DOMDocument ' byte array to base64 Set objNode = objXML.createElement("b64") objNode.dataType = "bin.base64" objNode.nodeTypedValue = arrData EncodeBase64 = objNode.Text ' thanks, bye Set
Suni

Konversi Detik Ke Hari, Jam, Menit, dan Detik

0 komentar
Public Function SecondsToDateTimeSerial(ByVal Sec As Long) As String Dim lngSecParam As Long Dim lngSeconds As Long Dim lngHours As Long Dim lngMinutes As Long Dim tempSecParam As Long lngSecParam = Sec lngSeconds = lngSecParam \ 86400 lngSecParam = lngSecParam - (lngSeconds * 86400) lngHours = lngSecParam \ 3600 lngSecParam = lngSecParam - (lngHours * 3600)
Suni

Contoh Memparsing XML Attributes

0 komentar
Private Sub Command1_Click() Dim fso As Object Dim sDir As String Dim doc As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject") sDir = "C:\work" Set doc = CreateObject("Msxml2.DOMDocument") doc.async = False For Each oFile In fso.GetFolder(sDir).Files Debug.Print "looking at", oFile.Name Debug.Print "will load", oFile.Path
Suni

Membuat Upload Download dengan PHP dan mysql

0 komentar
Jika sebelumnya kita telah membuat tutorial upload sederhana dengan PHP dan ajax, maka sekarang kita akan membuat tutorial tentang bagaimana membuat upload download menggunakan php dan mysql..

sekarang, cekidot cara membuat upload download menggunakan PHP dan mysql ..
pertama-tama baca bismillah dulu..
kemudian buka text editor dan copy kan script berikut untuk index.php

<?php
include ("koneksi.php");
 
$data = @mysql_query ("select * from upload");
?>
 
<html>
<head>
   <title>Daftar Foto</title>
</head>
 
<body>
<h1>Daftar Image</h1>
<table border="1">
   <tr>
      <th>ID</th>
      <th>Nama file</th>
      <th>Tipe</th>
      <th>Ukuran</th>
      <th>Deskripsi</th>
      <th>Download</th>
   </tr>
   <?php while ($row = @mysql_fetch_assoc($data)) { ?>
   <tr>
      <td><?=$row['id'] ?></td>
      <td><?=$row['filename'] ?></td>
      <td><?=$row['filetype'] ?></td>
      <td><?=$row['filesize'] ?></td>
      <td><?=$row['deskripsi'] ?></td>
      <td><a href="download.php?id=<?=$row['id'] ?>">Download</a></td>
   </tr>
   <?php } ?>
</table>
<p><a href="upload.php">Upload Image</a></p>
</body>
</html>

setelah itu, buka lagi text editor yang baru copy lagi untuk upload.php ..
cekidot mas broo!!!

<?php
include ("koneksi.php");
 
if ($_POST)
{
   $filedata = addslashes(fread(fopen($_FILES['imagefile']['tmp_name'], 'r'),
               $_FILES['imagefile']['size']));
   $filetype = $_FILES['imagefile']['type'];
   $filesize = $_FILES['imagefile']['size'];
   $filename = $_FILES['imagefile']['name'];
   $deskripsi = $_POST['deskripsi'];
 
   $result = mysql_query ("insert into upload (deskripsi,
             filetype, filedata, filename, filesize)
             values ('" . $deskripsi . "','" . $filetype .
             "','" . $filedata . "','" . $filename .
             "'," . $filesize . ")");
 
   if ($result) echo "Upload sukses";
}
?>
 
<html>
<head>
   <title>Form Upload File</title>
</head>
<body>
<h1>Upload New Image</h1>
<form enctype="multipart/form-data" method="post">
<table border="1">
   <tr>
      <td>File</td>
      <td><input type="file" name="imagefile"></td>
   </tr>
   <tr>
      <td>Deskripsi</td>
      <td><input type="text" name="deskripsi"></td>
   </tr>
   <tr>
      <td>&nbsp;</td>
      <td><input type="submit" value="Upload"></td>
   </tr>
</table>
</form>
<p><a href="index.php">Kembali ke Daftar Image</a></p>
</body>
</html>

udah kan???
next gan ...
buat lagi file dengan nama download.php

pastekan script berikut ..

<?php
include ("koneksi.php");
 
$data = @mysql_query ("select * from upload where
        id=" . $_REQUEST['id']);
 
if ($row = @mysql_fetch_assoc($data))
{
   $filedata = $row['filedata'];
   $deskripsi = $row['deskripsi'];
   $filename = $row['filename'];
   $filetype = $row['filetype'];
   $filesize = $row['filesize'];
}
 
header('Content-type: ' . $filetype);
header('Content-length: ' . $filesize);
header("Content-Transfer-Encoding: binarynn");
header("Pragma: no-cache");
header("Expires: 0");
header('Content-Disposition: attachment; filename="' . $filename . '"');
echo $filedata;
exit();
?>

selesai ........

oiya, untuk koneksikan semua buat lagi dengan nama koneksi.php
cekidot !!!

<?php
$error_message = "";
 
if (! @mysql_connect("localhost", "root", "1"))
{
   $error_message = "Koneksi database gagal!";
}
 
@mysql_select_db("uploadnew");
?>

Perhatikan pada @mysql_select_db("uploadnew");...
 itu artinya nama database dari script diatas adalah uploadnew, jika ingin mengganti ganti saja dengan nama database sesuai dengan keinginan anda hehe..

untuk memudahkan untuk memasukkan tabel setelah membuat nama databasenya ..
maka copy kan script berikut ini dan simpan dengan nama Miez De Hard.sql ..

CREATE TABLE upload (
  id INTEGER UNSIGNED NOT NULL AUTO_INCREMENT,
  deskripsi VARCHAR(200) NULL,
  filetype VARCHAR(200) NULL,
  filedata LONGBLOB NULL,
  filename VARCHAR(200) NULL,
  filesize BIGINT NULL,
  PRIMARY KEY(id)
);


 setelah di simpan buka localhost/phpmyadmin anda, buat nama databasenya terserah pada anda kemudian klik import dan browse, cari Miez De Hard.sql dan boommm!!!
jadilah tabel..

hehe..
sekian dan terima kasih..
semoga bermanfaat.. 
Suni

Download Script Sistem Informasi Penjualan Berbasis Web Dinamis

0 komentar
Sistem Informasi Penjualan Berbasis Web dinamis Pada CV. Empire Computer, itu adalah judul TA (Karya Tugas Akhir Saya) Script sistem penjualan berbasis web dinamis ini tergolong sangat sederhana, dimana masih banyak kekurangan yang akan Sobat dapatkan. System Informasi Penjualan Berbasis Web dinamis ini memerlukan perkembangan sehingga menjadi sebuah system informasi yang power full.

Berikut adalah beberapa fitur yang sobat bisa dapatkan atau sobat bisa pelajari lebih lanjut mengenai system informasi ini diantaranya adalah :

  • Pengelolaan Data Barang untuk tambah, edit dan hapus
  • Pengelolaan Data Admin untuk tambah, edit dan hapus
  • Laporan Inbox pemesanan barang, berdasarkan tanggal pemesanan, berdasarkan nama barang dan harga serta berdasarkan nama pemesan barang.
  • Untuk tampilannya, output.. adapun yang dapat sobat pelajrai adalah
  • Menampilkan barang yang ada di database, dengan gambar
  • Menampilkan barang yang ada di database secara full, atau perincian detail
  • Menampilkan fitur Add to Keranjang, Edit, Hapus, dan Update keranjang belanja dan yang terakhir yaitu cekout.. yaitu proses perekaman hasil yang didapatkan dari keranjang belanja.

Berikut adalah 5 database yang saya gunakan untuk mengenlola system informasi ini.

  1. admin
  2. custommers
  3. order
  4. order_detail
  5. tbiklan

Untuk databsenya bernama dbempire
Untuk login masuk ke http://localhost/www.opickamikom.t/loginadmin.php
Passwor admin opick dan password admin

Berikut beberapa screenshotnya .
List Produk

Keranjang Belanja

Produk Detail



Proses Cekout

Jika sobat ingin mengembangkan apa yang saya bangun.. saya sangat berterima kasih.. silahkan informasikan saya lebih lanjut mengenai perkembangan script system informasi penjualan berbasis web dinamis ini.

Thanks..


Silahkan download disini master sciptnya..

Lihat Demonya disini


Maaf sebelumnya jika link donwloadnya rusak.. silahkan download sekarang sejak tanggal 29 Maret 2015 Terima Kasih.

Suni

Dezbook Desain Buku Tulis Esklusif

0 komentar

Dezbook adalah nama dari sebuah buku yang mempunyai ciri khusu yaitu dimana desain buku tersebut menggunakan foto orang yang mempunyai buku itu sendiri, buku ini di desain secara esklusif untuk dijadikan buku pribadinya. Dezbook merupakan singkatan dari kata Dez yang berarti Dezain atau Desain dan Book adalah buku diambil dari bahasa Inggris. kalo diartikan secara ngawur yach.. buku yang didesain. hehe


Bagaimanakah bentuk desain Dezbook ?
Desain buku Dezbook sangat fariatif, dimana biasanya cover fotonya menggunakan foto dari orang yang memiliki buku tersebut. yang di desain dengan bagus sesuai keinginan dari orang yang memiliki buku tersebut. dan di setiap lembaran buku tersebut terdapat foto-foto miniatur dari orang yang memiliki buku tersebut. biasanya terletak di pojok kiri atau kanan bukunya. dimana disetiap foto akan dipercantik dengan sentuhan-sentuhan desain yang esklusif.

Siapa yang mempunyai buku Dezbook itu ?
Buku Dezbook ini hanya dimiliki oleh orang-orang yang merasa istimewa.. jadi kalo mereka tidak merasa dirinya istimewa, mereka tidak akan mau memiliki buku yang cantik ini. karna dezbook bukanlah buku biasa. melainkan buku istimewa dan khusus untuk orang yang merasa istimewa. jadi kalo Anda merasa diri Anda istimewa. silahkan Anda memiliki buku istimewa dan esklusif ini.

Bahan-Bahan Dezbook Bagus Gak ?
Kalo mengenai bahan, buku dezbook dalam setiap lembarannya menggunakan kertas merek SIDU atau Sinar Dunia. yang mempunyai ketebalan 80Gram. cukup tebal kan.. ? dan Cover Dezbook terbuat dari kertas yang tebal putih.. yang sudah di laminasi.. (Kayak model di Laminating akan tetapi menggunakan kertas yang lebih tipis) sehingga akan menjaga kualitas gambar atau foto menjadi tahan lama dan tidak mudah pudar atau luntur. untuk isi Dezbook berisi 32 dengan Cover.

Dimana saya bisa dapatkan Buku Dezbook ?
Buku Dezbook bisa kamu dapatkan dengan mudah karna saat ini kamu telah membaca artikel yang ditulis oleh orang yang membuat buku Dezbook tersebut. yach. kamu bisa hubungi saya sekarang juga ke No. Handphone 081936790008,  dan kamu juga bisa Email saya ke opick.mataram@gmail.com untuk mengirim foto yang kamu akan gunakan sebagai cover dan isi dari buku Dezbook kamu nantinya.

Berapa Harganya ?
Wah. kalo mengenai harga silahkan baca dulu rincian harga dibawah ini.

Biaya Print 500 Rupiah / Lembar untuk print warna x 16 = Rp. 8000
Beli Kertas Cover Rp. 600
Potong Kertas Rp. 3000 / Buku
Laminasi Rp. 1000 / Lembar
Biaya Desain Rp. 5000
Total harga Rp. 17.600
Seperti tabel diatas merupakah biaya yang paling rendah untuk kamu keluarkan jika ingin memiliki buku Dezbook. akan tetapi dalam masa promo ini, cukup dengan Rp. 15.000 kamu sudah dapatkan buku Esklusif milik kamu sendiri... yach. hanya milik kamu sendiri. dan tak ada orang lain yang mempunyai buku seperti apa yang kamu punya sekarang ini.. dan ingat buku ini hanya untuk orang-orang yang merasa istimewa. buka untuk kamu kamu yang tidak merasa Istimewa.

Jadi. jika kamu merasa istimewa saat ini. silahkan tinggal hubungi nomor Hp saya di 081-936-790-008 atau kirim gambar / foto kamu ke alamat email tersebut.  Ehm. masih penasaran dengan buku dezbook itu kayak gimana sich. Ok. disini saya akan tampilkan beberapa orang yang telah menyatakan dirinya sebgai golongan orang orang yang istimewa.















Suni

Pantai Pemenang Lombok NTB

0 komentar
Ini adalah foto foto saya waktu di pante Pemenang, pante ini memang tidak setenar pante pante lainnya yang ada di pulau Lombok NTB seperti pante Senggigi Contohnya..

Akan tetapi keindahan panorama pantenya tidak kalah jauh dengan pante senggigi.. Air lautnya yang masih jernih.. karna belum ada limbah-limbah dari sampah.. bisa dikatakan bahwa pantai ini masih jarang tersentuh oleh wisatawan lokal, domestik maupun asing.

Dan karena itulah belum terlalu banyak fasilitas yang kita dapatkan di pante ini. Hanya saja sebuah Kacamata menyelam dapat kita sewa di nelayan setempat.

Airnya yang jernih membuat penghuni lautan itu nampak jelas.. dan tak pernah ragu untuk menyilaukan mata kita dengan keindahan warnanya.. "Snokling" atau "Snopling" sihc.. gak tau ah. itu lho yang ngeliat panorama bawah laut dengan bermodalkan kacamata dan bantuan alat pernafasan kecil itu.. Cukup mengesankan.. dan itu adalah pertama kali saya menginjakkan kaki saya di pante itu.

Kerasa baru menemukan kehidupan baru.. hehehe.. beda banget.. ouh yach. pante ini bisa kita tempuh dengan jarak kurang lebih sekitar satu jam dari pante senggigi.. menuju ke arah Utara. dan cukup beberapa menit untuk menemukan daerah KLU.. Kabupaten Lombok Utara.

Ouh yach. ini di nich. foto-foto yang sempat saya rekam di pante pemenang NTB.. keren kan. ouh yach. maaf.. foto-foto ini hanya saya rekam untuk saya dan orang yang saya sayang.. buat foto foto bersama rombongan tidak saya posting. capek. lelet coznya.. hehehe..
Pose Tepi Karang
Bau Ketek
Sok Cakep
Mmmuaaach..
Pose Ala Bule
Artis Ku
Panorama Pante Pemenang
Asyik...

Suni

Louncing E-KTP Untuk Wilayah Lombok Barat NTB

0 komentar
Tanggal 6 Juni 2012 Kemaren, Sekitar jam 9 Pagi di kecamatan Labu Api Lombok Barat, Gubernur Lombok Barat DR. H. Zaini Arony Membuka louncing Pembuatan E-KTP untuk wilayah lombok barat dan sekitarnya. Pada pidatonya beliau menjelaskan kelebihan-kelebihan Masyarakat apabila memiliki KTP Elektronik.

Selain itu, beliau juga membicarakan mengenai jangka waktu yang sangat mepet yang diberikan oleh pemerintah pusat, yaitu sampai bulan Agustus mendatang. dimana pada saat itu semua data penduduk yang ada di wilayah lombok barat harus sudah rampung.

Akan tetapi sangat disesalkan bahwa pendistribusian Alat-alat dari pusat sangat lamban, sehingga untuk saat ini alat-alat yang digunakan merupakan alat-alat pinjaman dari daerah lain yang sudah melakukan pendataan E-KTP.

Dengan waktu yang begitu singkat. Gubernur NTB ini menghimbau kepada seluruh kepala Camat disetiap daerah untuk berikrar pada saat louncing Pembukaan E-KTP tersebut. dengan harapan disetiap kecamatan dapat menyelesaikan pendataan penduduk untuk membuat KTP Elektronik tersebut.

Setelah selesai louncing, Acara yang berlangsung sekitar 3jam tersebut diakhiri dengan perekaman data dari Bapak Gubernur NTB tersebut berserta Istri beliau. dan berikut adalah beberapa foto aktifitas louncing E-KTP untuk wilayah Lombok Barat NTB.
Pidato Gubernur dalam acara Louncing E KTP

Perekaman Sidik Jari Istri Gubernur NTB
Perekaman Sidik Jari Gubernur NTB

Pengambilan Ikrar Kepala Camat Lombar



Suni

Puisi Cinta Arti Kerinduan

0 komentar
Pernah kah kau mengeri apa artinya kerinduan ?
Ketika suara itu tetap terngiang di telinga ku�
Dan wajah itu terus membayangi setiap langakaku�
Ketika riuhnya kehidupan menjadi kuburan kesepian�

Pernahkah kau mengerti semua itu..?

Tidak !!!
 karna kau tak pernah mengerti apa yang kurasakan,�
bahkan kau tak pernah mengerti setiap bait kata yang ku lontarkan.

Kata cinta itu asing bagimu�
Empatimu tak ada� bahkan kau terus tersenyum..
Dan menusukkan belati-belati tajam mu..
Di hatiku�

Cepatlah dewasa cinta�
Demi orang-orang yang tersiksa dengan rindumu..
Dengan cintamu..
Dengan sejuta keindahan pribadimu�

Agar kau dapat rasakan asinnya tangis kerinduan
Yang mengalir lewat sudut matamu�
Dapat dengarkan gemuruh jiwa yang meronta
Dan sepinya kehidupan tanpa sang kerinduan�

Mungkin dengan itu..
Kau akan berjanji pada dirimu.. untuk meminta maaf
Pada sang pungguk�
Karna telah membuatnya merana dengan kerinduan.

Suni

Membuat laporan Ke format Excel dengan PHP

0 komentar
Hari ini hari Jum'at tanggal 08 Juni 2012 jam 14.39 wib di central kopi cafe tepatnya di takengon aceh tengah..
sambil menunggu jam kuliah masuk pada jam 16.00 wib nanti saya menuliskan tulisan ini karena menurut saya ini penting bagi saya...
hehhe...
ini ceritaku...

dengan membaca judul dari postingan kali ini berarti saya akan menulis tentang bagaimana cara konversi form ke excel dengan menggunakan script php..
konversi ini saya dapat dari blog tetangga yang katanya bisa di kembangkan lagi, makanya saya ambil dan kemudian saya bagikan lagi ke rekan-rekan sekalian..
nah untuk tidak memperpanjang tulisan ini ada baiknya saya mulai saja acara ini..
hehehe.....
untuk membuat konversi ke Excel menggunakan php adalah sebagai berikut :

1. buat lah sebuah form dengan index.php

Kemudian copy kan script berikut ini ..
cekidot scriptnya..

<?php

include "koneksi.php";

echo "<strong>Membuat Report format Excel dengan PHP</strong><br><br></CENTER>";
echo "<table border=1>
<tr bgcolor=#888888>
<td>No</td>
<td>Nama</td>
<td>NIM</td>
<td>Jenis Kelamin</td>
<td>Angkatan</td>
</tr>";
 
$tampil= mysql_query("SELECT * FROM mahasiswa");
$no=1;
$warna1 = "#777fff";   //menentukan warna 1
$warna2 = "#00aa99";   //menentukan warna 2
while ($r=mysql_fetch_array($tampil)){
  if ($no % 2 == 0) $warna = $warna1;
    else $warna = $warna2;
        echo "<tr bgcolor='$warna'>
            <td>$no.</td>
            <td>$r[nama]</td>
            <td>$r[nim]</td>
            <td>$r[kelamin]</td>
            <td>$r[angkatan]</td>
            </tr>";
      $no++;
    }
   
echo "</table>";
echo " Export Ke <a href=export.php><b>Excel</b></a>";
echo " <br><br><center><a href=http://miswanphp.blogspot.com><b>Miswanphp.blogspot.com</b></a><center>";
?>

sudah??
Pastekan di form index.php yang anda buat tadi ..

2. buat lah form lagi dengan nama export.php
sama seperti di atas ..
copy kan script ini ..

<?php
include "koneksi.php";

$sql = "select * from mahasiswa order by nama";  //membaca table
$export = mysql_query($sql);
$kolom = mysql_num_fields($export);

for ($i = 0; $i < $kolom; $i++) {
    $header .= mysql_field_name($export, $i) . "\t";
    }
   
while($row = mysql_fetch_row($export)) {
$line = '';
    foreach($row as $value) { 
    if ((!isset($value)) OR ($value == "")) {
    $value = "\t";
    } 
    else {
        $value = str_replace('"', '""', $value);
        $value = '"' . $value . '"' . "\t";
        }
        $line .= $value;
    }
    $data .= trim($line)."\n";
    }
        $data = str_replace("\r","",$data);
        if ($data == "") {
            $data = "n(0) ditemukan!\n"; 
            } 
    header("Content-type: application/x-msdownload");
    header("Content-Disposition: attachment; filename=mahasiswa.xls");
    header("Pragma: no-cache");
    header("Expires: 0");
    print "$header\n$data";
?>

Pastekan di export.php ya !!

3. Buat lagi form untuk koneksi ke databasenya dengan nama koneksi.php
copykan yang ini ni..

<?php
//koneksi
$dbHost = "localhost";  //nama server
$dbUser = "root";       // user
$dbPass = "1";           //password
$dbName = "exel";        // database yang akan dipake
 
// Koneksi dan memilih database di server
mysql_connect($dbHost,$dbUser,$dbPass) or die("Koneksi gagal");
mysql_select_db($dbName) or die("Database tidak bisa dibuka");
//----------------------------------
 
?>

Note : Untuk dbpass dan dbname bisa di rubah dan sesuaikan dengan password dan nama database anda..

4.nah, ini yang paling penting...
ini untuk database nya ..

copy ...


USE `exel`;

/*Table structure for table `mahasiswa` */

DROP TABLE IF EXISTS `mahasiswa`;

CREATE TABLE `mahasiswa` (
  `id_mhs` int(5) NOT NULL auto_increment,
  `nama` varchar(20) NOT NULL,
  `nim` int(10) NOT NULL,
  `kelamin` varchar(15) NOT NULL,
  `angkatan` int(4) NOT NULL,
  PRIMARY KEY  (`id_mhs`)
) ENGINE=MyISAM AUTO_INCREMENT=5 DEFAULT CHARSET=utf8;

/*Data for the table `mahasiswa` */

insert  into `mahasiswa`(`id_mhs`,`nama`,`nim`,`kelamin`,`angkatan`) values (1,'Bayu',4568,'Laki-Laki',2009),(2,'Maman',4589,'Laki-Laki',2009),(3,'Sulistiya',4589,'Perempuan',2009),(4,'Adnan Bayu Nugraha',4987,'Laki-Laki',2010);

Kemudian...
selesai !!!!!
bagaimana?
ga susah sangat kan..

daripada susah-susah copy pastenya mending download file yang sudah jadi saja..
tinggal di extract kemudian import databasenya dan panggil di browser..
ni dia scriptnya download here boz!!!

semoga berhasil......
Suni

Script konversi Text Ke PDF dengan PHP

0 komentar
PHP....
Ini adalah Cara mengkonversi kan Text menjadi file PDF dengan menggunakan script PHP...
mau?
cekidot gan....
Jadi...untuk mengkonversi text ke PDF menggunakan PHP adalah caranya sebagai berikut...
tanpa basa basi lagi silakan donlot scriptnya disini.....
gimana?
udah?

segera lakukan extract pada file zip yang telah di download tadi..
kemudian akan menghasilkan folder yang bernama "Miez De Hard text2pdf"<tanpa tanda petik>..
Setelah itu klik kanan pada foldernya, cut/copy, kemudian Paste kan di Tempat File web anda (htdocs atau localhost atau sebagainya lah)..
kemudian...
Buka Web browser..
ketikkan di url sbb:

Localhost/Miez De Hard text2pdf

gmn?
mudah-mudahan berhasil ya gan..
tu script saya dapat dari orang lain juga..
untuk nambah coding..
Semoga berhasil!!! dan tetap semangat dengan PHP
Suni

Ahir Kisah Cinta Sang Pecundang Sejati

0 komentar
Pesan singkat itu menyapa kerinduanku pada sosok dirimu yang tegas dan lembut, aliran kasih sayang itu kembali terbayang dari hatiku.

Dindaku�. Sosok wanita tangguh dengan imannya yang telah mampu kugetarkan dinding dinding hatinya lewat sejumput cinta yang ku persembahkan untuknya, dia yang dulu mengajarkan aku bahwa jika mencintai seseorang harus dengan membuka kedua mata kita karna sesungguhnya cinta itu bukanlah hayalan yang hadir di hati para pencinta.

Saat ia memejamkan mata tapi melainkan cinta itu harus dilihat dengan mata terbuka karna dengan itu cinta yang kita jalani harus mampu melihat orang di sekeliling cinta itu berada karna cinta itu adalah realistis dia tidak cukup dengan khayalan-khayalan belaka.

 Bercintalah dibawah teriknya mentari bukan hanya dibawah lembutnya sinar rembulan, karna jika bercinta dibawah rembulan cahaya lembutnya akan menghanyutkan kita dalam tidur lelap dengan sejuta mimpi yang membuat kita tak berdaya.

Malam itu kau mengajakku bertemu dipojok sekolah dimana dulu kau menimba ilmu.. sekolah yang tak jauh dari rumahku juga rumahmu, tempat itu sangat cocok sebagai arena pertemuan kedua belahan jiwa yang rentang jaraknya sama sebuah titik pertemuan yang adil untuk kita.

Tak lama setelah mendapat pesan singkat darimu, tak sabar rasanya ingin segera mengobati sekujur rindu yang membanjiri palung hatiku, saat itu aku tak peduli apa yang akan terucap dari bibir-bibir yang mungkin saat ini sudah kaku karna sudah cukup lama tak melafalkan alunan-alunan lagu kerinduan secara langsung dihadapanmu, gelisah itu tak aku pedulikan, yang aku tau� bahwa rindu ini akan segera terobati�

Tak lama sampai juga ku di titik pertemuan kita namun suasana itu mengingatkanku pada sebuah lagu yang dilantuntan oleh penyanyi senior Almarhum Crisye.. �Malu-aku malu pada semut merah� yang berbaris di dinding� menatap ku curiga, sedang apa disini�. Menanti pacar jawabku�

Yach� walaupun saat ini hubungan kami tidak menyandang setatus sebagai seorang pacar, melalinkan orang-orang yang pasrah pada keadaan, kami menyerah merajut pintalan-pintalan benang kusut dari hubungan kami.

Satu jam aku berdiam dalam sepi, dipojok warung-warung yang berjejer di belakang sekolahnya dulu itu, gerimis itu mencoba menguji kesetiaanku untuk menunggu.. sunyi.. sedup dan bimbang�

Menunggu adalah kata azimat yang ku titipkan di hatimu untuk kau jaga untukkku, karna kata itu adalah kata terahir yang terucap dari hubungan kita dulu� karna kata menunggu adalah satu-satunya kata yang akan menyelamatkan hubungan kita untuk bersatu.

Yach.. kenapa tidak !!! aku harus menunggumu pulang kerja hingga satu jam, kau menyuruhku menunggumu jam sembilan malam, dan ahirnya engkau pulang hingga jam 10 malam, bujuk kata-katamu membuatku bertahan untuk menunggumu.. hingga rindu itu beku oleh dinginnya malam.. tapi aku tak kesal jika aku harus menunggumu hingga semalamanpun, karna ku tau kau pasti akan datang, dan aku tau satu jam bukanlah waktu yang lama untuk menunggu..

Karna 4 tahun itu lebih lama dari satu jam, waktu 4 tahun adalah uluran tali yang kita bentangkan yang harus kita gilas dengan penantian agar kita bersatu kembali bertemu di sebuah titik pernikahan kita kelak. Itu impian termanis yang pernah kita ikrarkan dulu.

Satu jam itupun tiba, kau datang dengan ke erotisan senyummu yang dulu sering aku lihat, semagat-semangat hidup yang terpancar dari wajahmu mampu aku rasakan, keteguhan pendirianmu terukir jelas lewat kata-kata singkatmu� dan manjamu itu memeluk hatiku lagi�

Aku timpali senyum hangatmu dengan sapaan sederhanaku.. saat itu seakan terasa ada tembok penghalang di depan kita, tak banyak kata yang terucap� karna malam tak mengingikan kita untuk berlama-lama disudut tembok itu..

�kanda� dulu kanda pernah berkata, bahwa siapa yang lebih dahulu menikah itu adalah penghianat dari cinta kita, dan saat ini dinda datang untuk mengikrarkan diri sebagai seorang penghianat cinta kita� kata itu terucap dari bibirmu sebelum dahaga kerinduanku habis tersirami oleh mu.

Bibir ku mulai kelu.. seakan jarum jam berhenti berdetak saat itu, aku tak kuasa memekikkan lagu kehancuran, hatiku tak kuasa meronta dari jeratan kata-katamu yang mengikatku terlalu kuat, dan aku hanya bisa tersenyum kecewa� dan membuat lelucon seakan aku tak pernah mendengar apa yang kau ucapkan tadi, aku ingin menjadi orang yang tegar di hadapanmu.. orang yang selalu berbesar hati dan bijak menyikapi masalah� dewasa dalam segala hal, namun kau tau aku rapuh saat itu�..
Siapa orang yang akan menjadikanmu bidadari di Altar nanti.. ternyata adalah orang yang dulu ku tunjukkan untukmu untuk kau ketuk pintu hatinya lagi setelah istana cinta yang kita bangun kala itu telah runtuh� yach� orang yang dulu pernah kau tinggalkan karna hatimu lebih memilih sang pecundang sejati sepertiku..

Waktu yang tak lama namun meninggalkan sejarah yang panjang dari kehidupanku� kaupun pergi dengan langkah penuh keyakinan.. meninggalkan sang pecundang yang kini sedang meradang di sulut sembilu penyesalan�

�ANDAIKAN SAJA�� kata mimpi itu adalah satu-satunya sisa dari perjalanan kisah cinta yang selama ini pernah kita lakoni, yang harus ku bawa pulang dan ku kutip diatas kertas ini.. untuk aku jadikan coretan baru dari sejarah kehidupanku� �andaikan saja kita bisa mengulang waktu, mungkin kesalahan itu tidak akan terjdi, tapi sudahlah� sungguh indah recana kita, tapi sungguh rencana Allah itu jauh lebih indah..

Inilah ahir dari perjalanan cinta kita.. end of we love story�..

********* Tinggalkan aku karna aku mencintaimu *********
Suni

Tawk.to