Akhirnya saya explore folder instalasi XAMPP. Ketika itu saya install secara default, jadi XAMPP terinstall di folder C:\xampp. Cara yang akan kita lakukan yaitu mengganti server port number XAMPP sehingga service XAMPP dan IIS dapat berjalan bersamaan dalam 1 komputer. Berikut adalah langkah-langkahnya:

1. Stop service XAMPP server, jika service masih berjalan.

2. Buka file httpd.conf (file ini ada di C:\xampp\apache\conf\httpd.conf) dengan menggunakan Notepad ++ atau dengan notepad bawaan Windows.

3. Cari kata “Listen” (tekan Control+F), maka kita akan menemukan “Listen 80”, lalu ganti angka 80 dengan angka yang kita inginkan, misalnya angka 39 sehingga menjadi “Listen 39”.

4. Berikutnya cari kata “ServerName”, maka kita akan menemukan “ServerName Localhost:80” dan ganti angka 80 menjadi angka 39 sehingga menjadi “ServerName localhost:39”.

5. Simpan file, dan jalankan service Apache dan MySQL.

6. Ketik di address bar, http://127.0.0.1:39 atau http://localhost:39 (Angka 39 mengacu pada angka yang sudah kita ubah tadi)

Any questions? Just ask me by leaving a comment J

Random Posts

• How to Work with Combo Box (Visual Basic 6) and Database
• Ten common mistakes made by photographers using WordPress
• Antara CIAMIK WIS dan MAK NYUS
• Perancangan Teknik Industri Sistem Manufaktur #3
• Windows Multipoint Server 2010

Strict Standards: Accessing static property JCache::$_handler as non static in C:\xampp\htdocs\joomla171\libraries\joomla\cache\cache.php on line 420
Selidik punya selidik (*kayak detektif aja), ternyata ada sedikit error di file cache.php. Masalah awal dimulai dari baris 420. Berikut adalah kode php mulai dari baris 417:
public function _getStorage()
{
if (!isset($this->_handler)) {$this->_handler = JCacheStorage::getInstance($this->_options['storage'], $this->_options);
}
return $this->_handler;
}

Dan ini adalah “obat”nya. Cukup paste kode php dibawah ini mulai dari baris 417.
public function _getStorage()
{
if (isset(self::$_handler[$this->_options['storage']]) && self::$_handler[$this->_options['storage']] instanceof JCacheStorage) {return self::$_handler[$this->_options['storage']];
}
self::$_handler[$this->_options['storage']] = JCacheStorage::getInstance($this->_options['storage'], $this->_options);return self::$_handler[$this->_options['storage']];
}

Semoga artikel singkat ini bisa membantu permasalahan Anda. 

Herindra Veriawan
Blog: veriawan.blog.uns.ac.id

Random Posts

• Komisi Pemuda GKJ Manahan Goes to Silo
• New: Website Multimedia GKJ Manahan
• Hunting Foto #3
• Pedoman Laporan Perancangan Teknik Industri
• Supply Chain Management

Pertama, dalam mencetak barcode kita membutuhkan font barcode yang diinginkan. Kita dapat download font barcode secara gratis dari www.idautomation.com. Contoh kali ini kita download barcode tipe Code-39. Setelah didownload, kita tinggal membuat aplikasi pencetak untuk memudahkan dalam penggunaan font ini.

Buka Visual Basic 6 dan tambahkan 1 form lengkap dengan 1 Textbox, 2 CommandButton dan 1 Label. Textbox1 digunakan sebagai isian nomor barcode yang ingin diubah ke Code-39. Command1 sebagai button Ubah. Command2 sebagai button Cetak. Label1 sebagai hasil Code-39.

Doubel klik pada Command1 (Ubah) dan isikan kode program sebagai berikut:

Private Sub Command1_Click()

If Text1.Text = “” Then

MsgBox “Teks kosong, silakan diisi dahulu!”, vbCritical, “ERROR”

Else

Label1.Caption = “*” & Text1.Text & “*”

End If

End Sub

Statement IF digunakan untuk membatasi pencetakan yang kosong. Jadi ketika Textbox1 masih kosong dan pengguna menekan tombol Cetak maka akan muncul peringatan agar pengguna mengisikan nomor barcode dulu. Ini merupakan perintah untuk mengubah Label1 menjadi font Code-39. Tanda bintang “*” pada awal dan akhir teks digunakan sebagai tab start dan tab stop pembacaan barcode.  Ini merupakan tanda batasan barcode scanner dalam membaca barcode.

Label1.Caption = “*” & Text1.Text & “*”

Coba isikan nomor pada Textbox1 dan klik Ubah, jika Label1 sudah menunjukkan nomor yang sama dengan Textbox1 maka kodeprogram sudah berhasil. Langkah berikutnya ubah properti font Label1 menjadi font IDAutomationHC39M. Setelah itu coba lagi, jika Label1 sudah berubah maka kita tinggal membuat form untuk mencetak hasil barcode.

Langkah terakhir, tambahkan Form baru dengan nama frmCetakBarcode lengkap dengan 1 Label. Ubah properti Form - BorderStyle menjadi 0 - None. Hal ini akan membuat form menjadi borderless tanpa batas. Ubah properti Form - BackColor menjadi warna Putih - &H00FFFFFF& dan properti Label1 menjadi font IDAutomationHC39M dengan ukuran 16pt dan BackStyle menjadi 0 - Transparent. Kembali lagi ke Form awal dan doubel klik Command2 (Cetak) dan isikan kode program berikut:

Private Sub Command2_Click()

frmCetakBarcode.Label1.Caption = Label1.Caption

frmCetakBarcode.Show 1

End Sub

Kembali lagi ke frmCetakBarcode, doubel klik Label1 dan isikan kode program berikut:

Private Sub Label1_Click()

Me.PrintForm

Unload Me

End Sub

Kode program ini akan mencetak frmCetakBarcode jika Label1 di-klik oleh pengguna dan setelah itu frmCetakBarcode akan tertutup dan kembali ke Form awal.

Selamat mencoba J.

Herindra Veriawan

http://veriawan.blog.uns.ac.id

Next article is How to Connect RFID (Radio Frequency  Identification) with Visual Basic 6.

Baca Juga :

• How to Work with Combo Box (Visual Basic 6) and Database

Pertama, deklarasikan NMhs dan X sebagai string. Setelah itu beri nilai pada dua statement tadi.

Dim JmlMhs, X As String

JmlMhs = rsMhs.RecordCount

X = 1

Kedua, masukkan kode program dengan logika aplikasi akan memuat Nama Mahasiswa ke Combo1 sampai nilai X sama dengan nilai JmlMhs. Ketika nilai sudah sama maka akan berhenti.

While X <> JmlMhs

Combo1.AddItem (rsMhs.Fields(1))

X = X + 1

rsMhs.MoveNext

If X = JmlMhs Then Exit Sub

Wend

Ketiga, it’s done J.

Baca Juga :

• How to Print Barcode Code-39 with Microsoft Visual Basic 6.0

Short Message Service atau lebih dikenal dengan SMS merupakan media komunikasi yang sangat umum di kalangan masyarakat. Hampir semua lapisan masyarakat sudah memiliki handphone dan pastinya mereka sudah mengenal SMS. Karena faktor inilah SMS dijadikan media komunikasi yang hemat, cepat dan terjangkau.

SMS semakin berkembang penggunaanya bahkan SMS sudah dipakai sebagai media kampanye. Hehmm..ternyata SMS jika tepat penggunaanya akan sangat powerfull. Akhir-akhir ini juga banyak SMS Spam yang digunakan oleh kalangan tidak bertanggung jawab. Tetapi sekarang kita akan mengenal SMS lebih jauh.

Ternyata pengembangan SMS Gateway atau server SMS tidak sesulit yang dibayangkan. Kita hanya butuh komputer, modem support SMS (plus kartu provider yang ada pulsanya) dan sebuah aplikasi desktop. Kita akan belajar pengembangan aplikasi SMS Gateway menggunakan pemrograman Microsoft Visual Basic 6.0 dan tentunya menggunakan Gammu SMS Engine.  Gammu merupakan SMS Engine yang gratis untuk digunakan.

Kita langsung saja menuju coding VB 6.

1.  Buat satu modul sebagai koneksi ke tabel Outbox yang sudah ada di basis data. Kita namakan RSOutbox.

2.  Berikut adalah kode program koneksi untuk membuka basis data.

Sub dbSMS()

Dim konstring As String

Dim dbName As String

Dim dbServer As String

Dim dbPort As String

Dim dbUser As String

Dim dbPass As String

On Error GoTo konerror

dbName = “db_sms”

dbServer = “localhost”

dbPort = “3306″

dbUser = “root”

dbPass = “”

konstring = “driver={MySQL ODBC 3.51 Driver};SERVER=” & dbServer & “;DATABASE=” & dbName & “;UID=” & dbUser & “;PWD=” & dbPass & “;PORT=” & dbPort & “;OPTION=3″

With Koneksi

.ConnectionString = konstring

.Open

End With

End sub

3.  Berikut adalah kode program untuk membuka tabel Outbox yang ada di dalam basis data.

Sub dbOutbox()

With Koneksi

rsOutbox.CursorLocation = adUseClient

strsql = “SELECT outbox.NOTUJUAN, outbox.ISISMS FROM outbox”

rsOutbox.Open strsql, Koneksi, 1, 2

End With

End Sub

4.  Selanjutnya tambahkan 1 form dan tambahkan 2 text box dan 1 command button. Textbox1 sebagai ISI SMS, Textbox2 sebagai NOMOR HP TUJUAN dan Command1 sebagai tombol KIRIM. Berikut adalah contoh desain form.

SMS Gateway

5.  Selanjutnya doubel klik tombol KIRIM dan masukkan kode program sebagai berikut:

Private Sub Command1_Click()

With rsOutbox

.AddNew

.Fields(”nomortujuan”) = Text2.Text

.Fields(”isisms”) = Text1.Text

.UpdateBatch

End With

End sub

6.  It’s done J. Mudah kan… Untuk menggunakan tinggal masukkan ISI SMS ke Textbox1 dan NOMOR TUJUAN ke Textbox2, setelah itu pencet tombol KIRIM dan SMS akan dikirim.

Dapatkan modul tutorial versi lengkap dengan Rp 125.000,-. Anda akan mendapatkan tutorial lengkap untuk menjadi pengembang bisnis SMS Gateway. Isi modul terdiri dari:

a.  Panduan instalasi XAMPP (sebagai server lokal), MySQL Connector dan Gammu SMS.

b.  Panduan pemrograman aplikasi SMS Gateway menggunakan Visual Basic 6.

c.  Plus: Paket PHP sebagai kontrol panel Gammu SMS.

Aplikasi dapat dikembangkan ke arah SMS Massal Kampanye, Pemberitahuan program-program perusahaan, SMS auto-reply, SMS isi pulsa, SMS booking, SMS Reminder, dsb.

DOWNLOAD VERSI PDF >> CLICK ME <<

Random Posts

• PERANCANGAN PROTOTIPE SISTEM PENGADAAN DAN PERSEDIAAN MAKANAN SEGAR PADA PERUSAHAAN RETAIL MENGGUNAKAN RFID TAGGING #2
• Windows Multipoint Server 2010
• Pengin Foto Blog Contest lagi..
• Free!!! Jurnal Teknik Industri Gratis!!!
• Semut Tidak Pernah Tersesat Pulang ke Sarang