Error saat install Gammu di Windows Service

Hari ini (terpaksa) dapat pengalaman baru ketika install aplikasi SMSBlast di Windows 7 Ultimate. Pada saat install gammu ke Windows Services selalu gagal, kira-kira errornya begini error installing gammusmsd

service error 5 access is denied bla..blaa.. bla..

Gammu adalah sebuah engine open source untuk mengirim dan menerima SMS. Saya membuat aplikasi SMS Blast dengan menggunakan engine ini karena open source sehingga dapat dimodifikasi sesuai dengan kebutuhan. Berdasarkan pengujian Gammu cukup handal dan cepat dalam mengirim SMS hingga ribuan data.

Kembali ke masalah tadi, setelah bertanya sana-sini di google, Alhamdulillah akhirnya dapat pencerahan juga, nah barangkali ada yang mengalami hal yang sama berikut saya share caranya..

1. Klik kanan file yang akan di jalankan di service yaitu gammu-smsd (file tersebut saya simpan di c:\gammu).

2. Pilih properties, kemudian klik tab Compatibility

3. Klik Change setting for all users

4. Cek di depan Run this program is an administrator

5. Klik Apply dan klik OK

Berikut gambar dan tahapannya…

Tahapan selanjutnya Anda tinggal menginstall gammu di Windows Service agar pengiriman SMS dapat dilakukan, caranya dari Command Prompt Dos masuk ke direktori gammu diinstall kemudian ketik :

C:\gammu\gammu-smsd -c smsdrc -i

Jika semua setting yang ada pada gammurc dan smsdrc sudah betul maka gammu sudah ada di windows service, tinggal di run secara otomatis sehingga pengiriman SMS dapat dilakukan kapan saja.

Ok, selamat bereksplorasi…

 

 

 

 

Membuat validasi email pada visual basic

Masih tentang Visual Basic 6.0, kali ini saya ingin  sharing tentang bagaimana membuat validasi untuk sebuah textbox untuk input email, kita dapat menggunakan fungsi sebagai berikut :

Buatlah fungsi seperti ini :

Public Function IsEmail(ByVal Str As String) As Boolean
Set r = CreateObject(“VBScript.RegExp”)
r.IgnoreCase = True
r.Pattern = “^[\w-\.]+@\w+\.\w+$”
IsEmail = r.test(Str)
End Function

Kemudian buatlah sebuah textbox dan beri nama txtEmail, masukkan kode berikut ini pada source code

Private Sub txtEmail_Keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
If KeyAscii = 13 Then
   If txtEmail = “” Then
      txtEmail.SetFocus
   ElseIf IsEmail(txtEmail) = False Then
      txtEmail.SelStart = Len(txtEmail)
      txtEmail.SetFocus
   Else
      SendKeys vbTab
   End If
End If
End Sub

Ok sobat, semoga bermanfaat..

 

Apakah Barcode Itu?

Barcode adalah suatu kode yang berbentuk sekumpulan garis berbentuk batang (bar) yang memiliki ketebalan yang berbeda. Setiap garis melambangkan angka atau huruf yang telah diatur sedemikian rupa, yang dapat dibaca menggunakan sebuah alat (barcode reader). Kode baris digambarkan dalam bentuk bar dan spasi berwarna hitam tebal dan tipis yang disusun berderet secara horisontal. Untuk membantu pembacaan manual biasanya dicantumkan juga angka-angka atau huruf di bawah kode baris tersebut.

Saat ini Barcode terdiri dari 2 jenis yaitu:  Linear Code (Barcode 1 Dimensi) dan Matrix Code ( Barcode 2 Dimensi). Barcode 1 Demensi bisa kita lihat di produk-produk yang biasa kita gunakan di supermarket atau swalayan. Kita dapat melihat manfaat dari Barcode dapat meningkatkan kecepatan dalam melayanai pelanggan dan meningkatkan akurasi data produk yang di input oleh kasir. Demikian juga untuk identifikasi penumpang di bandara, rumah sakit maupun pergudangan.

Barcode 1 Demensi (Linier barcode) terdiri dari :

• Code 39 (code 3 of 9), adalah sebuah barcode alphanumeric (Full ASCII) yang memiliki panjang baris yang bervariasi. Implementasi barcode jenis ini adalah untuk inventory, asset tracking dan tanda pengenal identitas.

Membuat Label Barcode Sederhana

Saat ini hampir semua produk yang dijual di warung atau minimarket telah menggunakan Barcode, dari mulai susu, makanan ringan bahkan sampai susu. Barcode menjadi hal penting bagi sebuah toko ritel untuk mengontrol setiap barang yang dijajakan akar dapat dimonitor, baik jenis, merk, stok maupun tanggal kedaluarsanya.

Barcode ada yang sudah dicetak pada kemasan produk, ada pula yang ditempel (biasanya berupa stiker), nah pada bagian berikut saya ingin menjelaskan bagaimana mencetak stiker barcode dengan cara yang sederhana, yaitu hanya menggunakan Ms Excel.

1. Install font barcode type 39 yaitu “IDAutomationHC39M”. Jika belum punya Anda dapat mendownloadnya disini.
2. Copykan file IDAutomationHC39M yg telah saya kirimkan sebelumnya ke direktori di komputer yaitu C:|WINDOWS|FONT
   Namun sebelumnya pastikan bahwa semua aplikasi sudah diclose.
3. Kemudian buka Microsoft Excel, dan buatlah tabel kode angka yg akan dicetak, kemudian rubahlah fontnya menjadi IDAutomationHC39M, untuk jelasnya lihat lihat gambar dibawah ini.
4. Perhatikan pada kolom C, menggunakan rumus =(“*” & B4 & “*”) —B4 adalah kolom disebelahnya yg berisi data Angka yang akan dijadikan Barcode. Jangan lupa untuk mengubah type font dengan IDAutomationHC39M

Untuk kebutuhan internal Anda dapat menentukan sendiri jumlah digit yang dibutuhkan, namun umumnya 9 digit tapi kalo kurang dari 9 digit juga bisa, silakan disesuaikan saja dengan kode yang diinginkan misalnya :

9 digit xxxxxxxxx
xx =tahun
xx=bulan
xx=kode barang
xxx=nomer urut

Selanjutnya Anda tinggal mencetak barcode yang telah dibuat pada kertas label. Gunakanlah printer barcode agar hasil cetaknya dapat dibaca dengan baik oleh scanner barcode.

Untuk labelnya Anda bisa mendapatkannya di KiosBarcode.Com. Sesuaikan jenis label maupun ukurannya dengan barang/ produknya sehingga tidak ada kesulitan ketika discan. KiosBarcode.Com juga menyediakan printer barcode aik untuk sekala kecil maupun  besar.

Shourtcut Form_KeyDown tidak berfungsi

Baru dapat pertanyaan dari seorang temen yang sama-sama programmer kira-kira begini…

“Mas aku ingin membuat shourtcut untuk menjalankan fungsi tombol tertentu, misalnya kalau pencet F1 muncul form A, kalau pencet F2 muncul form B, tolong ya cepetan bantuin…”

Cukup lama aku mencerna pertanyaannya, dan setelah mengingat bahwa temenku ini programmer VB baru mulai kebayang arah dari pertanyaan yang aneh ini… :d

Untuk temenku yang lagi sibuk coding –istilah untuk programmer yang sedang menyusin code-code program– biar ga panjang lebar langsung aku kasih contoh script saja ya, silakan disimak baik-baik..

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode ‘ Indicates the physical key pressed
Case vbKeyF1
MsgBox “F1 key was pressed.”
‘[statements]
Case vbKeyF2
MsgBox “F2 key was pressed.”
Form2.Show
Case vbKeyF3
MsgBox “F3 key was pressed.”
‘[statements]
End Select
End Sub

Nah pastikan juga bahwa properties KeyPreview telah bernilai True.

Ok, sobat selamat coding…