Sekedar Promisi Gan

Blog ini sudah DoFollow
Peluang Bisnis Yang Luar Biasa…!
Anda pasti tahu, sekarang jutaan pengguna HP ada di sekeliling anda, ribuan orang pengguna HP ada di daerah anda, tentunya itu merupakan pangsa pasar anda ke depan. Bisa anda bayangkan, bila anda bisa menggaet 100 orang menjadi downline anda? dan dari tiap downline anda dapat melakukan 10 trx per hari, dari tiap trx anda mengambil keuntungan Rp. 100/trx. Berapa rupiah yang bisa anda dapatkan dalam 1 bulan?.
Mari kita hitung bersama :
100 x 10 trx = 1.000 trx/hari
1.000 x 30 hari = 30.000 trx/bulan
30.000 x Rp. 100 = Rp. 3.000.000 / bulan.
Itu perhitungan jika anda punya 100 Downline dengan trx rata-rata 10 trx/hari dengan markup Rp.100,- . Bagai mana jika lebih ??? jawabannya ya anda hitung saja sendiri, pasti penghasilan anda lebih dari pada itu.
3 Juta/bln, lumayankan buat tambahan uang saku, itu semua tanpa kerja keras, asal anda sudah mempunyai downline aktif yang produktif, otomatis bonus berjalan terus tanpa henti. Semua itu tidaklah sulit, malah sangatlah mudah.
hanya dengan mengalihkan pembelian pulsa mereka, yang tadinya suka beli pulsa ke konter sekarang tinggal ajak mereka supaya mereka gabung disini, menjadi downline anda.
Mudah bukan…????Cara mendaftarkan downline/ jaringan anda ada di menu …….Tidak ada masalah jika anda sudah terdaftar di dealer yang lain, sebab anda dapat menggunakan chip / nomor yang sama untuk didaftarkan menjadi Agen / Dealer DQCELL RELOAD, dan dapat digunakan bersama. DQCELL RELOAD berikan kecepatan dan kualitas dalam pengisian pulsa kepada anda dengan stok nasional, jadi walaupun anda berada di luar Jawa Timur juga bisa melakukan transaksi. Sebagai konsumen, Anda tidak perlu lagi harus pergi ke counter untuk pengisian pulsa Handphone dengan harga mahal. Pulsa yang Anda dapatkan dari DQCELL RELOAD adalah harga distributor. Untuk itu kami menawarkan suatu usaha penjualan voucher yang berbeda dan MUDAH DIPAHAMI semua kalangan para profesional MAUPUN AWAM. Anda tidak harus memiliki counter yang besar, bahkan Anda tidak memiliki counter pun bisa berjualan PULSA. Anda bisa menjual kepada teman kantor, kerabat, saudara, terutama untuk mengisi pulsa handphone sendiri dengan harga murah. Oke kan???

Untuk daftar caranya sangat mudah sekali, yaitu tinggal ketik sms:

DAFTAR.NO HP.NAMA
Contoh :
DAFTAR.085336000999.DQCELL

Langsung saja kirim ke :

085749350351

Tunggu beberapa saat hingga Anda mendapatkan sms REGISTRASI dari server DQCELL RELOAD yang berisi ID dan Pin anda untuk trx.
Setelah itu silahkan langsung melakukan deposit atau tambah saldo.

Cara Deposit/ Tambah Saldo :

MELALUI BCA

No Rek : 2000347305

a.n : Deky Arifin

MELALUI MANDIRI

No Rek : 143 001 096 4581

a.n : Deky Arifin

Setelah transfer berhasil langsung konfirmasi ke 081559574108 dengan Format:

C.Sdh tfr via BCA sbsr 500.000 a.n Aisa
tunggu beberapa saat, dan saldo anda otomatis bertambah sesuai transferan dari anda.

Mudah bukan…???
Sekarang anda bisa langsung berjualan Pulsa ataupun mengisi pulsa HP anda sendiri.

Untuk menjadi Dealer syarat deposit minimal 1jt dan ketik:

Upgrade.NoHP

contoh: Upgrade.085336000999

Langsung saja kirim ke :

081559574108

Selamat Ber trx dengan lancar dan kilat……!!!!

informasi lebih lengkap klik di sini Klik Tuk Baca Selengkapnya Brow...

Crystal Reports

Blog ini sudah DoFollow
Crystal Reports adalah piranti standar untuk pembuatan laporan pada sistem operasi Windows, dimana cetakan/templete laporan yang dihasilkan dapat disertakan pada banyak bahasa pemrograman, untuk memudahkan crystal report disingkat CR

Prestasi yang di rasih CR tidak lepas dari sejarah perjalanan produk yang panjang. CR versi 8.5 dilunjurkan pada tahun 2001 (tahun peluncuran didasarkan pada tahun file User’s Guiode, maka dapat diperkirakan versi pertama CR diluncurkan pada tahun 1990-1992 dengan pola hitungan setiap versi membutuhkan waktu 1 tahun. Pada saat ini versi CR sudah pada versi 11, tetapi pembahasan pada tutorial ini, kita hanya membahas CR versi 8.5 karena lebih mudah dipahami.

Pada tutorial ini sy tidak akan menjelaskan tatacara instalasi CR 8.5, tetapi lebih membahas bagaimana merancang/mendesain laporan CR 85. dengan menggunakan database MySQL. Untuk lebih jelasnya klik disini Klik Tuk Baca Selengkapnya Brow...

Tips and Triks Visual Basic 6.0

Blog ini sudah DoFollow
Kumpulan Source Code tuk Validasi Program dengan menggunakan Visual Basic 6.o, Jika anda tertatik dengan Tips dan Trik Visual Basic ini Silahkan Baca di...

--> Hanya Angka yang bisa di Input dalam TextBoxt

Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

--> Hanya Huruf

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) _
And KeyAscii <= Asc("z") & Chr(13) _
Or (KeyAscii >= Asc("A") & Chr(13) _
And KeyAscii <= Asc("Z") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace)) Then
Beep
KeyAscii = 0
End If

End Sub

--> membersihkan Seluruh Control TextBox dan Combo Box

Sub Clear()
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
If TypeOf Control Is ComboBox Then
Control.Text = ""
End If
Next Control
End Sub

NB: jika ada tombol yang lain tinggal di tambah kondisi IFnya aja, dan tuk menonaktifkan seluruh tombol tinggal ganti "Control.Text=Enabled" aja

--> Get Auto Number

Private Sub Auto()
Dim Urutan As String * 10
Dim Tgl As String
Dim Hitung
Set TMasuk = New ADODB.Recordset
TMasuk.Open "Select * from Masuk", Persediaan, adOpenDynamic, adLockPessimistic
'TMasuk.MoveFirst
Tgl = Format(Now, "yy/mm/dd")
With TMasuk
If .RecordCount = 0 Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
.MoveLast
If Left(![No Masuk], 6) <> Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
Hitung = (![No Masuk]) + 1
Urutan = (Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2)) + Right("0000" & Hitung, 4)
End If
End If
txtNomor = Urutan
End With
End Sub

--> Mengambil record ke dalam COmboBox

Sub DaftarPelanggan()
Me.MousePointer = 11
Pesan = "Select * from Pelanggan Order By kodePlg"
Set TPelanggan = New ADODB.Recordset
TPelanggan.Open Pesan, Persediaan, adOpenStatic
cmbPlg.Clear
If Not TPelanggan.EOF Then
TPelanggan.MoveFirst
While Not TPelanggan.EOF
cmbPlg.AddItem TPelanggan!KodePlg
TPelanggan.MoveNext
Wend
End If
TPelanggan.Close
Set TPelanggan = Nothing
Me.MousePointer = 1
End Sub

-- Laporan dengan Crystall Report

Sub CetakLap()
With CrtLaporan
.Reset
.DataFiles(0) = App.Path & "\Penduduk.mdb"
.ReportFileName = App.Path & "\Lap Lahir.rpt"
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.Action = 1
End With
end sub

--> terima kasih...
sumber amirmahmud2008.blogspot.com Klik Tuk Baca Selengkapnya Brow...

Mengenal Data dan Variabel

Blog ini sudah DoFollow

Ketika seorang user (pengguna) menggunakan sebuah program komputer, seringkali komputer
memintanya untuk memberikan informasi. Informasi ini kemudian disimpan atau diolah oleh komputer.
Informasi inilah yang disebut dengan DATA.
Visual Basic 6 mengenal beberapa type data, antara lain :
Ö String adalah type data untuk teks (huruf, angka dan tanda baca).
Ö Integer adalah type data untuk angka bulat.
Ö Single adalah type data untuk angka pecahan.
Ö Currency adalah type data untuk angka mata uang.
Ö Date adalah type data untuk tanggal dan jam.
Ö Boolean adalah type data yang bernilai TRUE atau FALSE.
Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah. Wadah inilah yang
disebut dengan VARIABEL. Setiap variabel untuk menyimpan data dengan type tertentu membutuhkan
alokasi jumlah memory (byte) yang berbeda.
Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program :
Dim As
Contoh : Dim nama_user As String
Aturan di dalam penamaan variabel :
Ö Harus diawali dengan huruf.
Ö Tidak boleh menggunakan spasi. Spasi bisa diganti dengan karakter underscore (_).
Ö Tidak boleh menggunakan karakter-karakter khusus (seperti : +, -, *, /, <, >, dll).
Ö Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh Visual Basic 6 (seperti : dim, as,
string, integer, dll).
Sebuah variabel hanya dapat menyimpan satu nilai data sesuai dengan type datanya. Cara mengisi nilai
data ke dalam sebuah variabel :
=
Contoh : nama_user = “krisna”
Untuk type data tertentu nilai_data harus diapit tanda pembatas. Type data string dibatasi tanda petikganda
: “nilai_data”. Type data date dibatasi tanda pagar : #nilai_data#. Type data lainnya tidak perlu
tanda pembatas.

Sebuah variabel mempunyai ruang-lingkup (scope) dan waktu-hidup (lifetime) :
Ö Variabel global adalah variabel yang dapat dikenali oleh seluruh bagian program. Nilai data yang
tersimpan didalamnya akan hidup terus selama program berjalan.
Ö Variabel lokal adalah variabel yang hanya dikenali oleh satu bagian program saja. Nilai data yang
tersimpan didalamnya hanya hidup selama bagian program tersebut dijalankan.
Variabel yang nilai datanya bersifat tetap dan tidak bisa diubah disebut KONSTANTA. Penulisan
deklarasi konstanta di dalam kode program :
Const As =
Contoh : Const tgl_gajian As Date = #25/09/2003#

Klik Tuk Baca Selengkapnya Brow...

:: Pengaturan Pembayaran dan Pemanggilan ::

Blog ini sudah DoFollow
nie program di buat sesudahnya prakerin, namanya "Aplikasi Pengaturan Pembayaran dan Pemanggilan" jelek sih tapi mungkin berguna...amien
Klik Tuk Baca Selengkapnya Brow...

Validasi Input...

Blog ini sudah DoFollow

Source Code dibawah ini untuk Validasi input Program dengan menggunakan Visual Basic 6.o:

Hanya Angka yang bisa di Input dalam TextBoxt

Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

Hanya Huruf yang bisa di Input dalam TextBoxt

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) _
And KeyAscii <= Asc("z") & Chr(13) _
Or (KeyAscii >= Asc("A") & Chr(13) _
And KeyAscii <= Asc("Z") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace)) Then
Beep
KeyAscii = 0
End If

End Sub

udah segitu aja dulu lainkali aku teruskan makasi...
Klik Tuk Baca Selengkapnya Brow...