Posts tagged ‘VB 6’

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

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).

Source code Tabungan Sekolah


Karena banyaknya permintaan source code tabungan, berbagi maka pada sesi ini saya upload source code tabungan yang telah saya tampilkan pada posting sebelumnya.

Bagi pengunjung yang memiliki masukan dan saran, kami sangat terbuka untuk menampungnya.

Demikian, semogar bermanfaat.

Rohmadi

Source code.

Membuat Lingkaran Dengan Visual Basic 6


Lingkaran dalam Visual Basic dapat dibuat dengan menggunakan perintah:

Circle(x,y), Radius, Warna

Contoh 1:

Private Sub Form_Paint()
 Circle (1500, 1500), 1000, vbRed
 End Sub

circle 1

akan menghasilkan sebuah lingkaran dengan warna merah.

contoh 2:

Private Sub Form_Paint()
 Const PI = 3.141592
 FillStyle = vbFSSolid
 FillColor = vbBlue
 Circle (ScaleWidth / 2 + 200, ScaleHeight / 2 - 200), 1500, vbBlack, -(PI * 2), -(PI / 2)
 FillColor = vbCyan
 Circle (ScaleWidth / 2, ScaleHeight / 2), 1500, vbBlack, -(PI / 2), -(PI * 2)
 End Sub

akan menghasilkan gambar seperti dibawah ini.

circle 2

Demikian semoga bermanfaat.

— Rohmadi —

Sumber: Buku Panduan Bahasa Pemrograman Windows dan Internet Microsoft Visual Basic 6.0

karya Mico Pardosi

Visual Basic: Line


Red, green and blue lights showing secondary c...

Red, green and blue lights showing secondary colours. (Photo credit: Wikipedia)

Garis adalah fungsi untuk membuat garis atau kotak. Untuk membuat sebuah garis di VB kita bisa menggunakan perintah

Line(x1,y1)-(x2,y2), Warna, Mode

Mode dapat dipilih antara B dan BF. Jika ingin membuat sebuah kotak, maka sebaiknya menggunakan B, yaitu sebuah kotak tanpa warna isian. Sedangkan BF adalah digunakan untuk membuat sebuah kotak dengan isian warna.

Contoh 1:

Private Sub Form_Paint()
Line (500, 500)-(500, 2000), vbRed
End Sub

line1

perintah di atas digunakan untuk membuat sebuah garis vertikal berwarna merah.

 

contoh 2:

Private Sub Form_Paint()
Line (500, 500)-(500, 2000), vbBlue
End Sub

line2

perintah di atas digunakan untuk membuat sebuah garis horizontalberwarna biru.

 

contoh 3:

Private Sub Form_Paint()
‘garis horizontal
Line (500, 500)-(2500, 500), vbBlue
Line (500, 2500)-(2500, 2500), vbBlue

‘garis vertikal
Line (500, 500)-(500, 2500), vbBlue
Line (2500, 500)-(2500, 2500), vbBlue

End Sub

kotak1

perintah di atas membuat sebuah kotak tanpa warna isian dengan warna biru.

 

contoh 4:

Private Sub Form_Paint()
Line (450, 450)-Step(2000, 1000), vbBlue, BF

End Sub

kotak2

perintah di atas digunakan untuk membuat sebuah kotak dengan warna isian biru.

 

contoh 5:

Private Sub Form_Paint()
Line (500, 500)-Step(2000, 1000), RGB(64, 64, 64), BF
Line (450, 450)-Step(2000, 1000), vbYellow, BF
Line (450, 450)-Step(2000, 1000), vbBlue, BF

End Sub

kotak3

perintah di atas digunakan untuk membuat kotak dengan sebuah bayangan.

 

Demikian, semoga bermanfaat.

— Rohmadi —

Bermain Grafik Dengan Visual Basic 6


vb6logoDalam Visual Basic 6, kita disediakan beberapa fitur untuk dapat bermain dengan grafik. Fitur tersebut diantaranya adalah membuat garis, membuat lingkaran, mendapatkan komposisi warna pada koordinat tertentu dan sebagainya.

Agar kita bisa menggunakan fungsi-fungsi tersebut, kita harus menggunakan prosedur Activate atau Paint. Sedangkan toolbox sudah menyediakan 2 buah kontrol untuk membuat grafik pada form. Yaitu Line dan Shape. Dengan kontrol Shape kita dapat membuat lingkaran, segitiga dan lain-lain.

Pada posting berikutnya, insya Alloh akan diberikan contoh-contoh bagaimana menggunakan kontrol-kontrol tersebut.

1. Line

2. Cicle

3. Fill Color

4. Draw Width

5. PSET

6. CurrentX dan CurrentY

7. Move

Demikian, semoga bermanfaat.

— Rohmadi —-

Source: Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode


Cara mengatasi Error Database Program Absensi

Demo Program

Source Code

Jika link tersebut di atas tidak berjalan dengan baik, silakan merujuk pada artikel yang sama pada site http://rohmadi-rohmad.blogspot.com

NB:

untuk menggunakan software di atas, pada PC/Laptop harus ada port serial dengan konfigurasi Port Number 6, 9600,n,8,1. Untuk mempelajari melakukan setting port serial pada VB silakan cek posting disini.

Jika ada barcode reader serial, lebih diutamakan.

Insya Alloh pada posting berikutnya akan diberikan coding untuk absensi karyawan tanpa barcode.

Tutorial Video Penggunaan Program

– Mencari dan menghapus data karyawan. [15-12-2013]

SMS Gateway Database Tagihan Listrik [Simulasi]


sms gateway listrik

 

Source code= SMS gateway tagihan listrik

Tampilan

  1. Form Add Member

form add member

  1. Form Membuat Tagihan

add tagihan

  1. Form Cek Tagihan [SMS gateway]

form cek tagihan

Petunjuk=

untuk meregister file .ocx:
1. copy-kan file (gjfbus15.dll, MFBUS15.ocx, MFBUS15) ke c:\windows\system32\
2. buka Start–> Run
3. ketik “REGSVR32 MFBUS15.ocx”

untuk membuat koneksi data base:
1. buka Start–> Control Panel–> Administrative Tools–> Data Sources (ODBC)
2. pilih System DSN
3. pilih Add
4. pilih Microsoft Acces Driver (*.mdb)
5. Finish
6. ketik “PLN” pada Data Source Name
7. Pilih Select
8. Cari file database pada folder program
9. pilih OK
10.Pilih OK

format SMS
*nomer id#bulan/tahun#

contoh:
*523530198071#022007#

Hardware yang dipakai:

  1. Handphone Nokia seri 3310 dan kabel koneksi serial MFBUS

 

Demikian, semoga bermanfaat.

— Rohmadi —

Mengatur Setting Port Serial Pada Visual Basic


Untuk menjawab beberapa pertanyaan yang sudah saya terima, disini saya akan mencoba menjelaskan langkah-langkah untuk mengatur setting antara hardware dan software.

Peralatan yang disiapkan=

a. Device USB to Serial dan driver

b. Visuak basic

Setelah siap, makal langkah berikutnya adalah:

1. Memastikan bahwa USB to Serial terpasang dan terdeteksi oleh komputer/laptop

untuk memastikan ini, maka Anda harus memasang driver sesuai dengan chip yang digunakan dengan benar. Selanjutnya untuk mengetahui apakah device sudah terpasang dengan benar dan dikenali oleh komputer/laptop, cek dengan langkah membuka pada Windows (disini dicontohkan pada Windows XP).

device manager awal

Start –> My Computer –> (klik kanan), pilih Manage –> Pilih Device Manager, selanjutnya jika device sudah dikenali maka akan muncul tampilan berikut:

deteksi serial port

2.Pada visual basic, kita tambahkan komponen serial dengan menekan Ctrl + T, kemudian pilih Microsoft Comm Control 6.0, klik Apply kemudian Close.

tambah komponen serial pada VB

3. Berikutnya akan muncul icon seperti berikut pada group komponen di sebelah kiri

komponen serial VB

4. Drag icon MSComm ke bagian desain form.

drag komponen serial vb

5. Cek nomer port serial yang terdeteksi pada hardware berikut

port number hardware

6. Isikan nomer serial pada CommPort Properties, sama dengan nomer port serial yang terdeteksi pada hardware, isikan angka 9 seperti port hardware

setting CommPort

7. Kemudian atur nilai Settings yang menunjukkan Baudrate, parity, panjang bit data dan stop/start bit

Setting VB

Demikian, sehingga setting port serial pada VB dapat dilakukan dan siap digunakan untuk komunikasi serial dengan perangkat lain.

Demian semoga bermanfaat.

%d blogger menyukai ini: