Posts from the ‘VB 6.0’ Category

Membuat Colormap Pada Visual Basic 6 (VB6)


Color map adalah salah satu cara penyajian sebaran data dalam bentuk sebaran visual. Dengan menggambarkan sebaran data dalam gradasi warna akan lebih mudah dalam menganalisis sebaran data dalam bentuk ruang. Sebaran data akan dapat dengan cepat diketahui dan dianalisa secara spasial.

Sebuah angka dapat dikonversikan ke dalam range data dengan mewakilkan kedalam sebuah warna yang diketahui nilai maksimum dan minimum range tersebut. Banyak sekali tipe color map, dengan menggunakan VB 6 dapat dibuat dengan memetakan nilai kedalam warna dengan kombinasi dari warna utama RGB.

contoh script yang dapat digunakan adalah sebagai berikut:

Dim clr As OLE_COLOR

‘ Map a value to a rainbow color.
Private Function MapRainbowColor(ByVal value As Single, ByVal red_value As Single, ByVal blue_value As Single) As OLE_COLOR
Dim int_value As Integer

‘ Convert into a value between 0 and 1023.
int_value = Int(1023 * (value – red_value) / (blue_value – red_value))

‘ Map different color bands.
If (int_value < 256) Then
‘ Red to yellow. (255, 0, 0) to (255, 255, 0).
MapRainbowColor = RGB(255, int_value, 0)
ElseIf (int_value < 512) Then
‘ Yellow to green. (255, 255, 0) to (0, 255, 0).
int_value = int_value – 256
MapRainbowColor = RGB(255 – int_value, 255, 0)
ElseIf (int_value < 768) Then
‘ Green to aqua. (0, 255, 0) to (0, 255, 255).
int_value = int_value – 512
MapRainbowColor = RGB(0, 255, int_value)
Else
‘ Aqua to blue. (0, 255, 255) to (0, 0, 255).
int_value = int_value – 768
MapRainbowColor = RGB(0, 255 – int_value, 255)
End If
End Function

Source code lengkap dapat didownload disini.

Untuk Sour Code Lengkap sebagai berikut:

Dim clr As OLE_COLOR

‘ Map a value to a rainbow color.
Private Function MapRainbowColor(ByVal value As Single, ByVal red_value As Single, ByVal blue_value As Single) As OLE_COLOR
Dim int_value As Integer

‘ Convert into a value between 0 and 1023.
int_value = Int(1023 * (value – red_value) / (blue_value – red_value))

‘ Map different color bands.
If (int_value < 256) Then
‘ Red to yellow. (255, 0, 0) to (255, 255, 0).
MapRainbowColor = RGB(255, int_value, 0)
ElseIf (int_value < 512) Then
‘ Yellow to green. (255, 255, 0) to (0, 255, 0).
int_value = int_value – 256
MapRainbowColor = RGB(255 – int_value, 255, 0)
ElseIf (int_value < 768) Then
‘ Green to aqua. (0, 255, 0) to (0, 255, 255).
int_value = int_value – 512
MapRainbowColor = RGB(0, 255, int_value)
Else
‘ Aqua to blue. (0, 255, 255) to (0, 0, 255).
int_value = int_value – 768
MapRainbowColor = RGB(0, 255 – int_value, 255)
End If
End Function

Private Sub Form_Load()
VScroll1.value = 0
VScroll1.Max = Val(Text1.Text)
VScroll1.Min = Val(Text2.Text)
VScroll1_Change
End Sub

Private Sub Text1_Change()
VScroll1.Max = Val(Text1.Text)

End Sub

Private Sub Text2_Change()
VScroll1.Min = Val(Text2.Text)
End Sub

Private Sub VScroll1_Change()
VScroll1.Max = Val(Text1.Text)
VScroll1.Min = Val(Text2.Text)

Label3.Caption = VScroll1.value
clr = MapRainbowColor(VScroll1.value, Val(Text2.Text), Val(Text1.Text))
Picture1.BackColor = clr
End Sub

Komunikasi Hantek 6022BE dengan VB6


Hantek6002BE Series

DSO6022BE

DSO 6022BE

DSO Hantek 6022BE merupakan salah satu DSO dengan bandwidth: 20MHz-200MHz dan Sample Rate: 250MSa/s; Produk ini sudah memiliki desain casing yang bagus dan ergonomis, tidak hanya kuat dan bagus tetapi juga memiliki nilai resistansi terhadap panas yang bagus.  Sudah menggunakan interface standar USBXI (TM) , sangat mudah dihubungkan dengan instrumen lain melalui port USB.

Di marketplace loka produk ini diharga mulai dari harga 1 jutaan. Dan cukup handal digunakan dalam proyek elektronika yang akan dilakukan.

Contoh SDK menggunakan VB 6 dapat diunduh disini.

Referensi:

Program Absensi Karyawan Windows 7


Cara mengatasi Error Database Program Absensi

 

Berikut adalah Screen Shot dari Program Absensi Karyawan dengan Visual Basic 6.0 dan Barcode: 1. Tampilan Awal Menu Utama – Menampilkan logo identitas instansi yang menggunakan program aplikasi 2. Tampilan Form Absensi dengan barcode –  Menampilkan data absensi karyawan dengan lengkap barupa jam masuk, nama, tanggal, jabatan, dan status absensi. – Kartu pengenal yang dilengkapi dengan kode barcode dari ID discanning menggunakan barcode reader – Secara otomatis, data dari karyawan akan tampil Download Source Code Program Absensi Windows 7

Troubleshooting Program Tabungan Sekolah


form nasabah

Pada tulisan sebelumnya terdapat beberapa bug yang mungkin beberapa pembaca mengalami kesulitan untuk memperbaikinya. Pada kesempatan ini akan disampaikan beberapa langkah-langkah yang dapat dilakukan untuk memperbaikinya. Bagi pembaca yang masih mengalami kesulitan dapat menambahkannya pada sesi  tanya jawab.

Pada prinsipnya, program yang dibuat ini belum menyertakan error trapping dan proses debuging secara sempurna, sehingga masih ada kemungkinan-kemungkinan bug yang dapat muncul.

Berikut adalah bug yang muncul dan cara mengatasinya:

1. Tidak dapat menampilkan gambar background pada Form Utama

error load gambar

2. Next.

Demikian semoga bermanfaat.

Error Software Tabungan: Tidak Dapat Menampilkan Gambar


Pada bagian ini error yang terjadi adalah tidak dapat menampilkan gambar background pada Form Utama:

error load gambarPenjelasan:

Error ini adalah program tidak dapat menemukan file yang telah ditunjuk pada baris perintah yang ada.

 

Solusi:

1. Klik Debug, akan tampil seperti berikut

error load gambar line2.Klik icon End

end icon

3. Ketikan tanda petik satu (‘) pada posisi sebelum Me. Sehingga baris code menjadi berikut

'Me.Picture = LoadPicture(Lokasi)

new syntax
Berikut adalah hasil perbaikannya.

form utama

Demikian, semoga bermanfaat.

 

Program Database Siswa Dengan VB


Databases siswa adalah salahs atu komponen penunjang sistem administrasi yang selayaknya setiap sekolah memiliki untuk menunjang proses administrasi. Database sekolah, dapat dikembangkan lebih lanjut untuk layanan berbasis IT untuk kemajuan sistem informasi pada sebuah sekolah. Untuk sebuah sekolah yang memiliki jumlah siswa yang banyak, maka kebutuhan akan adanya database siswa adalah sebuah keharusan. Dengan menggunakan program aplikasi yang sudah familiar, Visual Basic 6 dapat dibuat sendiri program aplikasi Database Siswa.

Pada bagian Ini kita dapat membuat sebuah database siswa secara sederhana. Database ini hanya terdiri dari:

db siswa acces

  • NIS = sebagai Primary Key

  • Nama Siswa

  • Jenis Kelamin

  • Nomer HP

selain data di atas, nantinya pembaca dapat menambahkan sesuai dengan kebutuhan. Disini dibuat sederhana agar lebih mudah dimengerti dan lebih mudah dimodifikasi sendiri.

  1. Menambahkan Data

add data

  • Isikan data secara lengkap

  • Klik tombol Tambah

  1. Mencari Data

cari data

  • Isikan nomor NIS

  • Tekan Enter

  1. Mengedit Data
  • Cari data

  • Klik tombol Edit

edit

  • Edit data seperlunya, kecuali NIS

  • Klik tombol Update

update

  1. Menghapus Data
  • Cari Data

  • Klik tombol Hapus

hapus

Demikian program sederhana Database Absensi Dengan Visual Basic 6.

Download Source Code (Menyusul).

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

Progressbar Dengan Visual Basic


bar 1

Progressbar biasanya dibutuhkan untuk memvisualisasikan sebuah data dengan range yang sudah diketahui. Progressbar dapat dengan mudah dijumpai pada beberapa aplikasi. Di windows sendiri bisa dijumpai saat kita memindah file dari sebuah directory ke directory lainnya.

Salah satu kegunaan progressbar adalah memberikan aspek psikologis kepada user tentang suatu proses yang sedang berlangsung. Dengan adanya progress bar, user bisa mengetahui berapa lama suatu proses telah berlangsung dan berapa waktu yang dibutuhkan selanjutnya.

bar 2

Selain itu, progressbar juga dapat digunakan untuk menampilkan suatu data pengukuran. Misalnya disini dicontohkan untuk menampilkan suatu nilai RPM. Dengan ditampilkan pada sebuah progressbar, user dengan mudah akan dapat mengetahui berapa persen (%) nilai aktual dibandingkan nilai maksimum yang ada.

Progressbar ini dapat dibuat dengan memanfaatkan komponen sebuah Shape yang nilai properties Width dapat dibuat sebagai variabelnya.

[sourcecode]

Function ShapeBar(ProgressBarValue As Integer, ProgressBarName As Shape)
ProgressBarName.Width = ProgressBarValue * 10 ' Write here the value for one percent
If ProgressBarName.Width > 9975 Then
ProgressBarName.Width = 9975
End If
End Function

[/sourcecode]Kemudian untuk membuat sebuah simulasi, ditambahkan komponen HScroll1 dengan nilai maksimum ditentukan sesuai keinginan. Kemudian pada fungsi Private Sub HScroll1_Change() ditambahkan code:


Private Sub HScroll1_Change()
MyFunctionProgressBar = ShapeBar(HScroll1.Value * 10, BarRPM)
End Sub

Berikut adalah beberapa contoh hasilnya.

bar 3

bar 2

bar 4

bar 5

bar 6

Source code.

Demikian, semoga bermanfaat.

Menyimpan Gambar Webcam Dengan Visual Basic


save webcam

Menanggapi pertanyaan dari beberap pengunjung pada tulisan sebelumnya, maka insya Alloh pada posting kali ini akan saya sampaikan sedikit contoh bagaimana menyimpan gambar yang diambil menggunakan webcam.

Dari template project sebelumnya, untuk menampilkan gambar kita menggunakan komponen PictureBox. Untuk menyimpan gambar dari sebuah PictureBox digunakan perintah berikut:


SavePicture PictureBox.Image, NamaFile

Sebelumnya tambahkan:

1. Buttom dengan Name= “btnSimpan”

2. Label dengan Caption= “Nama file:”

3. TextBox dengan Name= “txtNamaFile”; Text= “test1.jpg”

Maka untuk menyimpan image tinggal menambahkan perintah berikut:


SavePicture Picture1.Image, App.Path & "\" & txtName.Text

Demikian, semoga bermanfaat.

— Rohmadi —

Source code.

Membuat Grafik Dinamik Pada Visual Basic 6


grafik

Pada artikel sebelumnya telah dibahas tentang bagaimanakah membuat grafik pada visual basic, maka pada posting ini adalah membahas lebih lanjut bagaimana membuat sebuah grafik.

Perbedaan yang akan disampaikan pada tulisan ini diantaranya adalah: bagaimana membuat sebuah grafik dapat menampilkan data secara kontinyu. Data dapat ditampilkan terus menerus, ketika grafik telah menyentuh titik maksimum sumbu Y maka secara otomatis grafik akan ditampilkan mulai dari sumbu Y=0.

Hal ini sangat membantu ketika data yang ditampilkan sangat banyak dan membutuhkan waktu yang relatif lama. Jika pada posting sebelumnya grafik ketika sudah mencapai sumbu Y maksimum, grafik akan berhenti.

[baca selengkapnya disini]

%d blogger menyukai ini: