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