Absensi Barcode dengan Visual Basic

Apalikasi ini di gunakan untuk melakukan absensi menggunakan barcode, Barcode adalah salah satu alat yang biasanya di manfaatkan untuk jenis transaksi penjulan atau pun pembelian, nah ini salah satu pemanfaatan barcode di aplikasi lain yaitu untuk melakukan absensi karyawan. Berikut saya tampilkan menu utama setelah kita melakukan login masuk ke aplikasi:

Tampilan menu utama dimana terdapat menu master, administrasi, laporan dimana setiap menu memiliki sub menu masing masing contoh pada menu master/pendataang pegawai terdiri dari sub menu

- Data Jabatan

- Data Golongan

- Data Pegawai

Kemudian di menu berikutnya ada data absensi masuk dan absensi pulang, sedangan kan di laporan salah satu bentuk laporan bisa anda lihat di bawah ini

Pada gambar diatas di jelaskan bawah laporan yang terlihat adalah laporan harian dimana informasi yang di tampilkan ada informasi dari pegawai baik yang masuk kerja atau pun yang lain di tunjukan dengan angka satu, di setiap informasi yang di tampilkan sesuai dengan kondisi dari karyawannya sendiri.. akan lebih jelasnya silakan anda download aplikasinya di Absensi Pegaawai dengan Barcode. selamat mencoba

Read More

Function Angka Terbilang (Visual Basic)

Angka terbilang adalah salah satu proses perubahan angka menjadi huruf yang sesuai dengan apa yang kita tulis, proses ini memerlukan satu bentuk penulisan fungsi tersendiri dimana pemanggilan fungsi tersebut ketika ada proses pengisian data dalam satu objek yang dituju baru ada konfersi nilai angka rupiah menjadi huruf sesuai dengan objek yang ada, ssaya sedikit berbagai dengan anda bagaimana cara menulis sorce code nya dalam Visual basic, Begini critanya... :-)

Code :

'//-------------------------------------------------------------------------------------------------//

Public Function TerbilangBulat(strAngka As String, _

Optional MataUang As String = "rupiah") As String

Dim strJmlHuruf$, intPecahan As Integer

Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$

Dim x As Integer, Y As Integer, z As Integer

On Error GoTo Pesan

Dim strValid As String, huruf As String * 1

Dim i As Integer

'Periksa setiap karakter yg diketikkan ke kotak UserID

strValid = "1234567890"

For i% = 1 To Len(strAngka)

huruf = Chr(Asc(Mid(strAngka, i%, 1)))

If InStr(strValid, huruf) = 0 Then

Exit Function

End If

Next i%

If strAngka = "" Then Exit Function

If Len(Trim(strAngka)) > 15 Then GoTo Pesan

strJmlHuruf = LTrim(strAngka)

'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))

If (intPecahan = 0) Then

strPecahan = ""

Else

'strPecahan = LTrim(Str(intPecahan)) + "/100 "

strPecahan = ""

End If

x = 0

Y = 0

Urai = ""

While (x < x =" x" strtot =" Mid(strJmlHuruf," y =" Y" z =" Len(strJmlHuruf)" z =" 1" z =" 7" z =" 10" z =" 13)" bil1 = "Satu " z =" 4)" x =" 1)" bil1 = "se" bil1 = "satu " z =" 2" z =" 5" z =" 8" z =" 11" z =" 14)" x =" x" strtot =" Mid(strJmlHuruf," z =" Len(strJmlHuruf)" bil2 = "" bil1 = "sepuluh " bil1 = "sebelas " bil1 = "dua belas " bil1 = "tiga belas " bil1 = "empat belas " bil1 = "lima belas " bil1 = "enam belas " bil1 = "tujuh belas " bil1 = "delapan belas " bil1 = "sembilan belas " bil1 = "se" bil1 = "dua " bil1 = "tiga " bil1 = "empat " bil1 = "lima " bil1 = "enam " bil1 = "tujuh " bil1 = "delapan " bil1 = "sembilan " bil1 = ""> 0) Then

If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then

Bil2 = "puluh "

ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then

Bil2 = "ratus "

Else

Bil2 = ""

End If

Else

Bil2 = ""

End If

If (Y > 0) Then

Select Case z

Case 4: Bil2 = Bil2 + "ribu "

Y = 0

Case 7: Bil2 = Bil2 + "juta "

Y = 0

Case 10: Bil2 = Bil2 + "milyar "

Y = 0

Case 13: Bil2 = Bil2 + "trilyun "

Y = 0

End Select

End If

Urai = Urai + Bil1 + Bil2

Wend

Urai = Urai + strPecahan

TerbilangBulat = (Urai & MataUang)

Exit Function

Pesan:

TerbilangBulat = "(maksimal 15 digit)"

End Function

akan Lebih enaknya anda buat modul dalam VB dan letakan source diatas di dalam modul...

soo... lebih detailnya bisa download contoh implementasinya

Contoh Implementasinya di Download

Budayakan untuk meninggalkan jejak atau command anda jika telah membaca artikel ini... Terima Kasih 

Read More

Sistem Informasi Sekolah Dasar

Salah satu sarana untuk meningkatkan kinerja, efektifitas serta efesiensi waktu adalah penggunaan komputer. Setiap instansi atau pun sekolah dalam melakukan pengolahan data di era ini tidak lepas dari komputer, mungkin salah satu software yang anda pakai adalah ms office excell dimana banyak di gunakan untuk rekap data yang katagorinya memerlukan perhitungan dan rumus rumus matematikan lainnya. Mungkin dengan ini anda merasa cukup tapi apakah anda pernah membayangkan jika 2 atau 5  tahun yang akan datang sebanyak apa data yang telah anda buat? kemudian di simpan dimana dengan nama file apa? hal ini sering jadi kendala di satu instansi atau sekolah. untuk menghidari hal hal tersebut dan memudahkan ada ketika membutuhkan history data tinggal panggil aja maka bisa memanfaatkan sebuah aplikasi pemrograman dimana semua penyimpanan datanya terpusat dalam satu media database sehingga dengan memanfaatkan aplikasi pemrogram kita bisa memanggil data walau itu udh beberapa tahun sudah lewat. Salah satu hasil karya anak bangsa ini bisa anda gunakan untuk kegiatan pengolahan data di sekolah dasar. 

1. Menu Utama

    terdiri dari

Menu Administrasi Pendaftaran

- Input data prasyarat 

- Input data pendaftar

Menu Proses Seleksi

- Seleksi Pendaftaran

Menu Administrasi Akademik

- Input data Siswa

- input data pegawai dan guru

- input mata pelajaran

- input guru kelas

dan masih banyak lagi menu menu yang tidak mungkin saya tuliskan di sini, disamping komponen komponen tersebut ada juga laporan laporan yang salah satunya cetak nilai raport.

Tampilan menu utama

Tampilan salah satu Laporan Raport

Dengan memanfaatkan apalikasi seperti itu setidaknya anda bisa mengambil keuntungan keuntuang antara lain:

1. Hemat waktu 

2. Mudah untuk mencari data yang lampau

3. History data tersimpan dengan baik di dalam wadah dan terpusat

4. Hemat biaya hehehe

Aplikasi sementara belum bisa saya upload mudah2 dalam waktu dekat bisa saya upload dan bisa share dengan pembaca hehehe..

Read More

Sistem Informasi Apotek

Anda butuh kami siap membantu gabar versi trial

Read More

Aplikasi Penjualan dan Pembelian

Mempunyai Sebuah usaha adalah dambaan setiap orang, kecepatan dan keakuratan data sangat dibutuhkan dalam hal ini untuk mengetetahui omset penjualan, stok barang, keuntungan per barang dan retur jual serta retur beli salah satu solusi untuk mengatasi keruwetan pengolahan data yang masih manual maka kita membutuhan sebuah perangkat atau alat untuk menghitung penjualan dan keuntungan.
Ada beberapa solusi untuk mengatasi perhitungan penjualan dan laba, solusi pertama menggunakan kalkulator, namun kelemahan kalkulator ini hanya bisa melakukan transaksi sekali jadi, dan data yang telah di transaksikan langsung terhapus, solusi kedua adalah menggunakan media komputer yang telah terinstal sebuah software aplikasi Grosir dimana kita bisa menyimpan data dalam sebuah wadah yang kita kenal dengan nama database, cukup banyak fungsi database ini selai sebagai media untuk mengatasi duplikat data sekaligus medai untuk penyimpanan data transaksi di samping itu kita bisa memanggil data yang telah lampau ketika kita membutuhkan, begitu banyaknya fungsi dan manfaat yang di dapat dari penggunaan sebuat database sehingga saya tidak bisa menguraikan dengan komplit tapi anda bisa download Software untuk Penganan penjualan Grosir disini, emang masih belum lengkap dan masih perlu banyak di tambahkan cuma ini sebagai contoh :
Download aplikasi Penjulan & Pembelian

Read More