Posts tagged ‘vb’

Mencari Posisi Sebuah Karakter/String Dengan VB


Untuk mengetahui posisi sebuah karakter pada sebuah string, menggunakan Visual Basic 6, kita dapat menggunakan syntax:

Public Shared Function InStr(_
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As CompareMethod _
) As Integer
' -or-
Public Shared Function InStr(_
   ByVal Start As Integer, _
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod _
) As Integer

Parameter:

– Start= nilai posisi awal pencarian, jika tidak diberikan maka akan dimulai dari awal string. optional

– String1= String dimana karakter yang akan dicari. harus ada.

– String2= String/karakter yang akan dicari. harus ada.

– Compare= metode yang digunakan. Binary atau Text.

Contoh:

'String tujuan pencarian.
Dim SearchString As String = "XXpXXpXXPXXP"
'karakter yang akan dicari "p".
Dim SearchChar As String = "P"

Dim TestPos As Integer
' Pencarian dengan metode Text, dimulai dari posisi 4. akan didapatkan 6
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)

' Pencarian dengan metode binary, dimulai dari posisi 1. didapatkan 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)

' Jika opsi pencarian tidak ditentukan, akan didapatkan 9.
' Jika metode pencarian ditentukan Text, akan didapatkan 3
TestPos = InStr(SearchString, SearchChar)' Didapatkan 0
TestPos = InStr(1, SearchString, "W")

Demikian, semoga bermanfaat.

Sumber: http://msdn.microsoft.com/en-us/library/8460tsh1%28v=vs.80%29.aspx

Barcode Generator Dengan Visual Basic 6


desain

Source Code= Barcode Generator

Hasil dari barcode yang dicetak dapat di scan barcode reader 1D. Output adalah tipe EAN13 yang menjadi standar barcode pada kebanyakan kemasan dan produk.

Ukuran dapat disesuaikan dengan kebutuhan.

Demikian semoga bermanfaat.

— Rohmadi —

Berpindah TextBox Dengan Enter


tampilan

 

Source Code= Pindah TextBox

Project ini memberikan contoh untuk berpindah antara TextBox dengan menekan tombol Enter. Biasanya ini sangat bermanfaat pada form input data yang terdiri dari banyak TextBox.

Untuk dapat membaca tombol yang ditekan, maka pada masing-masing TextBox pada evetn KeyPress(KeyAscii As Integer) kita dapat mengetahui kode integer dari tombol yang ditekan. Sehingga dengan mudah kita dapat membaca tombol Enter sebagai 13.

Jika tombol Enter terdeteksi, maka kita buat coding untuk mengarahkan fokus pada TextBox berikutnya.

 

Demikian semoga bermanfaat.

 

— Rohmadi —

Simulasi Lampu Lalu Lintas Dengan Timer Pada Visual Basic 6


lampu lantas

Source code= timer1.rar

Pada project ini dicontohkan bagaimana menggunakan timer pada VB untuk mengatur sebuah interval proses. Proses yang di atur adalah lama waktu antara lampu hijau, kuning dan merah. Masing-masing lama waktu dapat di atur pada propertis interval.

interval pada timer

 

berikut adalah masing-masing timer yang mengatur proses.

masing-masing timer

 

Demikian semoga bermanfaat.

— Rohmadi —

Menampilkan Image Pada Visual Basic 6


Pengantar

Tentunya Anda tidak akan asing dengan image Lenna disamping, dimana image tersebut telah digunakan secara luas sebagai image standar untuk operasi image processing atau pengolahan citra digital.

Menurut beberapa sumber, ternyata Lena wanita yang ada pada image tersebut adalah salah satu model yang ada pada majalah Play Boy. Citra/image tersebut telah dijadikan sebagai standar bagi pemroresan citra dan kompresi citra. Wanita tersebut telah dinobatkan sebagai The First Lady Of The Internet.

Jika Anda menunjukkan Gambar di atas dan bertanya kepada seseorang yang bergerak di bidang pengolahan citra, dia pasti akan tahu bahwa itu adalah “Gambar Lena”, tapi mungkin dia tidak tahu siapa Lena. Lena adalah seorang gadis playmate majalah Playboy tahun 1972.
Pada tahun 70-an, seorang periset dari University of Southern Carolina sedang mengerjakan sebuah algoritma kompresi dan memindai gambar Lena, yang ada di lembaran tengah (centerspread) majalah Playboy. Sejak saat itu Gambar Lena telah menjadi standar industri sebagai bahan untuk menguji algoritma manipulasi dan transmisi citra elektronik. Selama lebih dari 25 tahun sejak Lena diperkenalkan, tidak ada gambar yang lebih penting daripada Lena dalam bidang manipulasi dan komunikasi citra digital. Lena telah dianggap sebagai Ibu Negara Internet.

Mengapa Lena?

[Baca Selengkapnya]

Membuat Billing Dengan Visual Basic 6


Billing secara sederhana adalah, alat bantu untuk menghitung jumlah tagihan. Billing biasanya digunakan pada warung internet, warung telepon, fax, rental komputer atau rental PS bisa juga digunakan untuk persewaan lain yang perhitungan tagihannya berdasarkan waktu yang digunakan.

Dengan menggunakan visual basic kita bisa membuat sebuah billing secara sederhana dan akurat. Komponen yang digunakan adalah Timer, Label dan Button. Ketiga komponen tersebut memiliki peran dan digunakan untuk membuat sebuah billing.

Timer digunakan sebagai counter waktu dan tagihan. Button digunakan untuk menerima perintah start, stop dan tutup program. Label digunakan untuk menampilkan informasi kepada user.

 

 

 

Bagaimanakah Prinsip Sebuah Billing?

Sebuah tagihan biasanya dibuat berdasarkan satuan jam, bisa satu jam atau setengah jam, atau mungkin kelipatannya. Dari sini, nilai tagihan dibagi menjadi pecahan terkecil yang memiliki KPK dengan satuan waktu. Jadi pertambahan tagihan ekuivalen dengan pertambahan waktu yang dijadikan acuan.

Misalnya, harga sewa selama satu jam adalah Rp. 3.000,- sementara waktu dalam satu jam adalah 60menit atau 3600detik, sehingga didapatkan harga persatuan waktu adalah Rp. 50,-/menit atau Rp. 5,-/ enam detik.

Dari sini kita bisa membuat counter up misalnya pertambahan tagihan adalah Rp 5 setiap 6 detik. Untuk mengatur counter tagihan setiap 6 detik, maka kita menggunakan timer dengan diatur intervalnya 6000. Pada setial 6 detik sekali, tagihan dijumlahkan antara tagihan awal dengan Rp. 5,-

Sementara untuk mengetahui durasi yang telah berlalu, kita gunakan perhitungan selang waktu. Selang waktu/durasi dapat dihitung dengan mengurangi waktu sekarang dengan waktu mulai.

Untuk lebih memahaminya, silakan mempelajari source code.

Semoga bermanfaat.

%d blogger menyukai ini: