Billing Rental 4 Unit Dengan Visual Basic 6

Sep24
by on September 24, 2011 at 2:04 PM
Posted In: VB 6.0

Jika sebelumnya telah dijelaskan bagaimana konsep membuat sebuah billing, maka pada kesempatan ini akan dijelaskan contoh membuat billing yang jumlahnya lebih dari satu unit. Billing yang akan dibuat, sejumlah empat dalam satu form. Billing yang akan dibuat bisa digunakan untuk billing PS, ataupun yang sejenisnya. Dimana billing disini tidak ditampilkan pada client/user, namun billing hanya terdapat pada PC Admin. Output dari PC dapat ditambahkan switch untuk memutuskan sumber listrik pada masing-masing user. Sebagai catatan, peralatan listrik user yang akan dimatikan tidak rentan terhadap mati/nyala, misalnya yang berupa TV atau yang lain.

Switch dapat berupa sebuah MCU (Microcontroller Centrol Unit) ataupun sebuah sirkuit logic yang lain. MCU kemudian mengendalikan sebuah relay ataupun model switch yang lain, misalnya solid state. Jika menggunakan sebuah MCU misalnya mikrokontroller ATMega8535 atau yang lain yang memiliki pin I/O 32 jalur, maka dapat digunakan untuk membuat billing sejumlah 30 unit peralatan rental.

Prinsip billing disini sama dengan billing yang telah dibahas sebelumnya, yang berbeda adalah jumlah unitnya. Masing-masing unit dapat dilihat durasi dan biaya sendiri-sendiri. Billing yang akan dibuat sangat sederhana dan mudah digunakan. Indikator billing sedang berjalan ditunjukkan oleh sebuah simbol lingkaran dengan kode warna merah mununjukkan billing sedang berhenti, sementara warna hijau menunjukkan billing sedang jalan.

Untuk membuatnya, siapkan tampilan seperti diatas yang terdiri dari komponen:

Komponen

Properties

Value
Frame1 Caption PS 1
Label1 Caption Pemakai: User 1
Label2 Caption Biaya
Label3 Caption Jam Mulai
Label4 Caption Jam Sekarang
lblDurasi1 Caption 00:00:00
lblBiaya1 Caption : Rp. 0,-
lblMulai1 Caption : 00:00
lblSkrg1 Caption : 00:00
Command1 Caption Mulai
Timer1 Interval 1000
Enabled False
Shape1 BackColor vbRed

Buatlah komponen di atas sejumlah empat kali sehingga akan menghasilkan tampilan seperti di atas.

Coding Billing

Pada bagian atas code, buatlah variabel berikut:

Dim Start1 As Date, Stop1 As Date
Dim Start2 As Date, Stop2 As Date
Dim Start3 As Date, Stop3 As Date
Dim Start4 As Date, Stop4 As Date
Dim Harga As Integer
Dim Biaya1 As Integer
Dim Biaya2 As Integer
Dim Biaya3 As Integer
Dim Biaya4 As Integer

kemudian tambahkan fungsi berikut untuk menghitung selisih dari dua buah waktu:

Function DateDiffX(dStart As Date, dEnd As Date, Optional bDetailed As Boolean) As Variant
    Dim TotalDays
    Dim Years, Months, Days, hours, minutes, seconds

    If bDetailed Then
        TotalDays = dEnd – dStart
        hours = Hour(dEnd – dStart)
        minutes = Minute(dEnd – dStart)
        seconds = Second(dEnd – dStart)

        If hours < 10 Then
            hours = “0” & hours
        ElseIf hours > 9 Then
            hours = hours
        End If
        If minutes < 10 Then
            minutes = “0” & minutes
        ElseIf minutes > 9 Then
            minutes = minutes
        End If
        If seconds < 10 Then
            seconds = “0” & seconds
        ElseIf seconds > 9 Then
            seconds = seconds
        End If
        DateDiffX = hours & “:” & minutes & “:” & seconds
        Exit Function
    End If

End Function

sub rutin di atas digunakan untuk menghitung selisih dari dua waktu. Selisih ini disebut sebagai durasi dan akan digunakan sebagai hasil penggunaan waktu sewa.

Kemudian pada Command1_Click() tambahkan code berikut:

Private Sub Command1_Click()
If Command1.Caption = “Mulai” Then
    Command1.Caption = “Stop”
    Timer1.Enabled = True
    lblMulai1 = “: ” & Format(Time, “hh:mm:ss”)
    Shape1.BackColor = vbGreen
    Start1 = Format(Time, “hh:mm:ss”)
ElseIf Command1.Caption = “Stop” Then
    Command1.Caption = “Mulai”
    Timer1.Enabled = False
    lblSkrg1 = “: ” & Format(Time, “hh:mm:ss”)
    Shape1.BackColor = vbRed
End If
End Sub

Pada Sub Timer1_Timer(), tambahkan code berikut:

Private Sub Timer1_Timer()
Stop1 = Format(Time, “hh:mm:ss”)
lblSkrg1 = “: ” & Format(Time, “hh:mm:ss”)
lblDurasi1 = DateDiffX(Start1, Stop1, True)
Timer1.Tag = Biaya1 + Harga
lblBiaya1 = “: Rp. ” & Timer1.Tag & “,-“
Biaya1 = Timer1.Tag
End Sub

Dan pada sub Form_Load(), tambahkan code berikut:

Private Sub Form_Load()
Harga = 10
End Sub

Ulangi langkah-langkah di atas untuk unit yang ke-2, 3 dan 4.

Download code.

Semoga bermanfaat.

└ Tags: , , ,
1 Comment

Membuat Billing Dengan Visual Basic 6

Sep23
by on September 23, 2011 at 11:14 PM
Posted In: VB 6.0

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.

└ Tags: , , , , ,
1,421 Comments

Bisnis Pulsa, Bisnis uang Receh….

Sep22
by on September 22, 2011 at 10:04 PM
Posted In: Artikel Umum

  Tentunya, di sekitar kita banyak orang yang memiliki lebih dari satu nomer Handphone. Bisa CDMA atau GSM, baik CDMA ataupun GSM sama-sama kelebihan yang bisa didapatkan. Terlebih sekarang ini, hampir semua operator berlomba-lomba memberikan bonus ataupun harga murah. Bisa berupa bonus SMS gratis, maupun panggilan gratis tentunya dengan syarat tertentu.

Disisi lain, dengan semakin banyaknya pengguna handphone baik CDMA maupun GSM semakin menjamur pula bisnis penjualan pulsa. Baik online maupun melalui kios/konter HP. Sebenarnya, untuk dari jual pulsa itu nggak besar kok. Tidak percaya?? Cuma maksimal Rp 1.500/transaksi untuk penjual ke konsumen. Bahkan untuk juragan margin yang didapat maksimal Rp. 200,-/transaksi. Namun jangan dilihat dari margin yang didapat dalam satu kali transaksi, tapi berapa total keseluruhan selama satu bulan??

Kemudahan yang ditawarkan juragan untuk menarik seller semakin menggiurkan bagi setiap orang yang memiliki keinginan untuk menambah uang saku. Ada yang cuma mensyaratkan deposit Rp. 50.000,- dan yang lainnya. Disini saya cuma akan menceritakan sedikit pengalaman sewaktu menjalani bisnis uang receh ini. Tentunya, yang lebih berhasil dan lebih menggiurkan juga banyak.

Bisnis jualan pulsa sangat mudah bagi setiap orang yang ingin mendapat uang tambahan. Kita tidak perlu banyak tenaga untuk menjaga dagangan, ataupun menyewa tempat jualan. Untuk berjualan pulsa, kita bisa mendaftar ke Agen yang ditunjuk oleh Operator, misalnya Agen dari Indosat, XL, Telkomsel dan yang lainnya. Biasanya, setiap operator telah menunjuk beberapa perusahaan atau CV untuk dipercaya menjadi agen distributor pulsa dan kartu perdananya.

Setiap agen memiliki syarat dan ketentuan dalam menerima seller baru. Misalnya, untuk Dompet XL (Dompul XL) kita harus mendaftar dan memiliki konter/kios. Selanjutnya pihak agen akan melakukan survei dan menilai apakah kita bisa menjadi seller resmi dari Dompul XL. Kemudian agen dari Telkomsel memiliki syarat yang berbeda, misalnya kita harus mendaftar dan jika diterima harus melakukan deposit sejumlah tertentu. Biasanya, agen dari Telkomsel membatasi jumlah seller yang dibawahinya, sehingga kita tidak bisa mendaftar langsung bisa jualan. Berbeda dengan Indosat, kita bisa mendaftar kemudian kita bisa langsung berjualan. Selain ketiga agen tersebut, kita bisa memilih alternatif All Operator, dimana kita cukup memiliki satu chip untuk didaftarkan dan bisa digunakan untuk mengisi semua jenis operator dan nominal yang berbeda.

Dari All operator, kita bisa mendapatkan keuntungan yaitu cukup sekali deposit dan bisa digunakan untuk semua transaksi. Kita juga bisa melakukan deposit tanpa batas maksimal dan minimal. Berbeda dengan chip lansung dari operator, misalnya kita mengambil Telkomsel, maka kita akan diberikan pilihan untuk deposit sesuai nominal. Dan masing-masing nominal yang kita ambil, tidak bisa digunakan untuk mengisi nominal lain.  Sementara untuk Indosat, kita bisa deposit berapa saja dan nanti bisa digunakan untuk mengisi semua nominal.

Untuk kekurangan dari All Operator adalah, kadang kita bisa mengalami kegagalan transaksi, tapi pulsa kita akan tetap terpotong biaya sms. Selain itu, jika server sedang melayani banyak transaksi, maka transaksi kita akan lambat bahkan gagal dengan selang waktu cukup lama. Kadangpula, kegagalan transaksi tidak jelas sebabnya, bisa pending, dalam antrian, tidak tersedia nominal atau gagal dari operator. Sementara jika chip langsung dari operator,  kita harus memiliki dana ekstra untuk deposit masing-masing operator.

Keuntungan dari jualan pulsa biasanya adalah selisih harga dari pembelian dan penjualan kita. Misalnya kita beli pulsa Simpat nominal 20 ribu, seharga Rp. 20.500,- maka biasanya dijual minimal harga Rp. 21.000,- dari sini kita mendapat untuk Rp. 500,-. Berbeda dari Telkomsel, Indosat pada waktu deposit, kadang kita masih mendapat cash back sebesar 5% tergantung agen tempat kita deposit. Sehingga selain selisih harga, kita masih mendapatkan cash back. Untuk masing-masing nominal keuntungan yang didapatkan tidak jauh berbeda, antara nominal 10 ribu dan 100 ribu, keuntungannya relatif sama, bahkan bisa saja nominal yang besar hanya memberikan keuntungan kecil. Bagi reseller biasanya lebih senang jika konsumen membeli pulsa dengan nominal kecil, karena keuntungan yang didapatkan dengan modal yang sama akan memberikan total untung yang lebih besar dibandingkan sekali menjual dalam nominal besar. Sebaliknya, bagi konsumen seharusnya pembelian nominal kecil akan merugikan karena akan merogoh kocek lebih besar.

Secara matematis, bisa diilustrasikan berikut:

1. Nominal 100rb, Harga beli Rp 98.000,- kita jual Rp. 99.000,- maka keuntungan kita adalah Rp. 1.000,-

2. Nominal 10rb, harga beli Rp. 10.500,- kita jual Rp. 11.000,- maka keuntungan kita adalah Rp. 500,-

dari keduannya, misalnya modal kita Rp. 100.000,- maka untuk nominal 10rb, kita mendapatkan untung minimal Rp. 2.000,-

 

Misalnya dalam sehari, kita bisa melakukan transaksi 50 kali, maka sehari kita bisa untung Rp. 25.000, untuk sebulan (30 x Rp. 25.000 = Rp. 750.000,-). Lumayan besar kan?? Tidak perlu sewa tempat jualan, tidak perlu bayar orang nungguin dagangan. Kita bisa gratis isi pulsa sendiri. he….he…he…

Selain itu, nominal besar biasanya lebih sedikit yang membeli dibandingkan dengan nominal kecil. Sebagai seorang seller kita bisa mendapatkan untung lebih besar dengan melakukan lebih transaksi, bukan banyaknya modal yang dikeluarkan. Sebagian seller ada yang mensiasati, untuk nominal yang paling laris, diambil keuntungan yang tidak terlalu tinggi untuk menjaga pelanggan tidak berpindah ke seller lain.

Kadang antar seller juga ada persaingan yang cukup ketat, misalnya hanya mengambil margin untung yang kecil dan meningkatkan frekuensi transaksi yang lebih banyak. Atau mungkin ada yang memberikan undian hadiah setiap pekannya. Hal ini semata-mata untuk menarik pelanggan. Dan yang menjadi kunci pelanggan tidak pindah adalah, transaksi yang cepat dan harga tidak tinggi.

Sekarang ini, semakin mudah untuk berbisnis jual pulsa. Bahkan secara online kita bisa deposit dan transaksi.

Ada yang tertarik?? Mungkin Anda memiliki banyak relasi, kenapa tidak dimanfaatkan saja??

└ Tags: , , , ,
1,385 Comments

Sarang Semut Obat Tumor dan Jantung?

Sep22
by on September 22, 2011 at 1:48 PM
Posted In: Artikel Umum

JAKARTA, KOMPAS.com – Tahukah Anda bahwa Sarang Semut atau Myrmecodia saat ini mulai dikenal luas sebagai obat untuk penyembuhan penyakit kanker dan tumor serta berbagai jenis penyakit lainnya seperti jantung? Obat jenis herbal yang semula banyak digunakan warga Papua, kini meluas pemakaiannya hingga ke Jawa dan pulau lainnya di Indonesia.

Menurut Mohammad Noer atau Nuno (33), warga Salemba, Jakarta Pusat, peredaran tumbuhan sarang semut masih terbatas. “Di Pulau Jawa paling tak kurang dari lima penjual. Saya dan agen lainnya seperti di Yogyakarta,” ujar Nuno, yang hampir dua tahun ini menjual Sarang Semut sebagai opsi pengobatan herbal bagi penyakit kanker dan tumor serta jantung.

Nuno menjelaskan, Sarang Semut adalah satu dari banyak tumbuhan obat yang banyak tumbuh di daerah Papua. Myrmecodia adalah keluarga tumbuhan semut yang banyak tumbuh di Asia Tenggara.

Tumbuhan sarang semut adalah jenis tumbuhan epifit, tumbuh di cabang dan batang pohon lain yang lebih besar. Akan tetapi, tidak hidup secara parasit yang menghisap makanan dari inangnya, melainkan hanya sebagai tempat menempel, menumpang untuk tumbuh. Ada beragam tumbuhan epifit lainnya seperti lumut kerak, alga, lumut, anggrek dan lainnya.

“Yang diminum adalah air rebusan dari Sarang Semut, yang masih berwarna merah. Kalau sudah bening, berarti potongan Sarang Semutnya tidak bisa digunakan lagi,” tambah Nuno yang menjual Sarang Semut seharga Rp 60.000 per kantong plastik.

Mengutip penelitian sejumlah pakar kesehatan dan obat-obatan, Nuno mengatakan Sarang Semut memiliki khasiat ampuh untuk mengobati kanker, tumor dan jantung.

“Majalah Nirmala, edisi Juli 2006 memuat komentar bahwa masyarakat daerah Wamena suka menggunakan sarang semut untuk menyembuhkan rematik dan asam urat,” ujar Nuno, yang membuat situs kajuali.com. untuk mengenalkan produknya.

Adapun, pakar bioteknologi Lembaga Ilmu Pengetahuan Indonesia (LIPI), lanjut Nuno, Sarang Semut disebutkan mengandung flavanoid, tannin dan polifenol. Ketiga zat ini adalah bagian dari antioksidan penghalang pertumbuhan sel kanker dan penyakit jantung.

Zat-zat ini adalah antioksidan kuat–beberapa kali lebih kuat dari vitamin C dan E sehingga memberikan efek menurunkan risiko beberapa jenis kanker dan penyakit kardiovaskuler.

Bahkan tanaman ini terbukti juga mengobati diare dan menghentikan pendarahan. Selain itu Sarang Semut bisa menghambat enzim xanthine oxidase yang berkhasiat menurunkan asam urat dan memperbaiki fungsi ginjal.

└ Tags: , , , , ,
1,415 Comments