Tuesday, October 13, 2009

Mendengarkan Lagu Baru di Internet

Bosan dengan koleksi lagu Anda? Mungkin, situs ini bisa menjadi salah satu alternative untuk mencari sekaligus mendengarkan lagu. Masalah kualitas suara, tentu saja sangat tergantung dari kecepatan koneksi internet.
StumbleAudio adalah salah satu situs penyedia layanan music streaming dengan koleksi
lebih dari 2 jt lagu. Anda bisa memilih berbagai alternative jenis music dari menu yang telah disediakan.

1. Ingin mencobanya, silakan buka http://www.stumbleaudio.com/.
2. Klik Channel yang Anda sukai, lalu tunggu proses streaming berjalan. Jika koneksi
internetnya cepat, kita bisa mendengarkan lagu dengan nyaman.
3. Jika tidak menyukai lagu yang didengar, klik Stumble untuk loncat ke album
berikutnya.
4. Jika ingin mencari sendiri lagu yang Anda sukai, masukkan nama lagu atau penyanyi
di kotak pencarian lalu tekan Enter atau klik tombol pencarian.
5. Tinggal di klik saja, hasil pencarian yang ditemukan.

Mau memanjakan telinga Anda dengan lagu-lagu yang baru? Silakan kunjungi
http://www.stumbleaudio.com/.

Selamat mendengarkan!

Tuesday, September 1, 2009

Aplikasi Gratis-Download Antivirus Gratis

Mengapa menghabiskan banyak uang untuk software antivirus kalau kita dapat men-downloadnya secara gratis di internet? Berkualitas tinggi dan software antivirus terkenal akan dikenakan biaya lebih dari $ 59,00 untuk mendapatkan lisensi satu tahun. Ada beberapa perusahaan terkemuka yang menawarkan program antivirus gratis, seperti AVG, avast! dan Norton. Bahkan, yang harus anda lakukan adalah hanya mengunjungi salah satu situs ini dan ikuti petunjuk untuk men-download perangkat lunak antivirus ke komputer anda. Selain itu, men-download software antivirus gratis online adalah hal yang cepat dan sangat mudah. Artikel ini akan menjelaskan langkah-langkah panduan untuk mendapatkan perlindungan bagi komputer anda yang pastinya tidak akan dikenakan biaya apapun (gratis).


Pertama, masuk ke internet dan cari download antivirus gratis melalui search engine google atau pergi ke website CNET. Cek dan teliti reputasi perusahaan pembuat software antivirus yang sedang anda pertimbangkan untuk mendapatkan produk antivirus-nya. Periksa setiap keluhan tentang perusahaan-perusahaan ini dengan mencari melalui search engine Google dan cek juga melalui Better Business Bureau. Cari melalui majalah komputer ternama untuk menemukan perusahaan-perusahaan yang menawarkan download antivirus gratis. Paling penting, baca forum, milis atau artikel sebagai masukan paling baik untuk mendapatkan antivirus gratis, karena dari inilah biasanya kita bisa mendapatkan informasi tentang keluhan atau kepuasan seseorang dalam menggunakan antivirus tertentu, sehingga dari informasi inilah kita bisa mendapatkan masukan kelebihan dan kekurangan masing-masing produk antivirus. Memilih perusahaan pembuat antivirus yang tepat, jangan langsung terpancing dengan produk antivirus yang menawarkan kualitas terbaik tanpa dipungut biaya untuk mendapatkannya, tetapi review dulu kredibilitas perusahan tersebut, karena banyak antivirus tertentu yang menawarkan fitur terbaik namun dibalik semua itu software yang kita pakai ternyata juga digunakan sebagai spyware yang tentunya sangat merugikan kita, karena tanpa kita sadari, bukannya mendapatkan perlindungan justru antivirus tersebut menjelma menjadi pencuri data-data kita .

Setelah anda mendapatkan pilihan terhadap antivirus yang akan dipakai, pergi ke website perusahaan penyedia antivirus tersebut untuk mendapatkan tentang persyaratan dan cara-cara mendownload antivirus tersebut. Pastikan juga bahwa 'free download' bukan sebuah gratis trial saja. Ada beberapa perusahaan akan menawarkan perangkat lunak gratis hanya untuk jangka waktu tertentu. Dimana ketika masa uji coba telah berakhir, mereka akan meminta kita melakukan order mendapatkan fitur-fitur yang mereka berikan sebelumnya.

Setelah anda mendapatkan antivirus yang dibutuhkan, baca dan ikuti petunjuk dengan hati-hati bagaimana cara menginstall pada komputer anda juga hardware dan software minimum yang dibutuhkan.

Agar software antivirus gratis anda bekerja secara efisien dalam melindungi komputer anda, Anda harus men-download update antivirus secara rutin. Biasanya software anivirus akan menampilkan pengingat untuk melakukan update jika perusaahan pembuat software telah mempublish update terbaru atau biasannya mengguanakan otomatis update setiap beberapa periode. Semoga artikel ini bermanfaat bagi yang hendak memilih antivirus buat sistem keamanan komputernya.

Saturday, August 29, 2009

Aplikasi Gratis di Internet

Mengapa kita harus membeli software atau aplikasi kalau kita bisa mendapatkannya secara gratis?

Berikut adalah beberapa perangkat lunak dan fungsi yang dapat anda miliki secara gratis :


1. μTorrent - Aplikasi ini sangat efisien, salah satu BitTorrent yang dikembangkan dengan semua fitur torrent, tidak seperti torrent lainnya, aplikasi ini tidak memerlukan resource yang terlalu besar.
2. Adobe Reader - Ini adalah salah satu program sederhana yang dikeluarkan Adobe. Program ini berfungsi untuk membaca file pdf, aplikasi ini banyak tersedia di internet yang dapat anda dapatkan secara gratis.
3. AOL Instant Messenger (AIM) - AIM adalah salah satu aplikasi yang sangat populer yang digunakan untuk keperluan chatting. Versi terbaru juga sudah banyak tersedia diinternet, aplikasi ini juga sudah mendukung twitter, sehingga dapat menambah pejelajahan anda dalam mencari teman diinternet.
4. CCleaner - Aplikasi ini pertama kali benama Crap Cleaner. Sesuai namanya, ia menawarkan fungsi untuk mebersihakan registry windows anda, aplikasi ini dapat menghapus file registry yang sudah tidak terpakai, sehingga kinerja sistem operasi anda menjadi lebih ringan.
5. Firefox - browser ini telah menjadi pesaing browser ternama yaitu Internet Explorer, bahkan browser ini lebih unggul karena prosesnya lebih cepat dan bisa mengurangi serangan berupa hacking dan serangan online berbahaya lainnya.
6. Free Download Manager - Aplikasi ini memiliki fitur lebih lengkap dari semua freeware download manager yang tersedia di internet. Aplikasi ini sudah mendukung download berbagai jenis, seperti HTTP, FTP, BitTorrent dan Flash Video download. Juga dapat melanjutkan proses download yang gagal maupun proses download yang di-"pause".
7. GNU Image Manipulation Program (GIMP) - GIMP adalah editor foto setara dengan Photoshop. Software ini dapat bersaing dengan Adobe Photoshop yang kita tahu dijual dengan harga yang tinggi.
8. Google Chrome - Chrome, dikembangkan oleh Google, lebih memfokuskan pada halaman browser. Aplikasi ini hanya tersedia untuk Windows, namun sebagian besar pengguna setuju bahwa aplikasi ini lebih cepat untuk berselancar di dunia maya dibanding browser lainnya.
9. OpenOffice.org - Perangkat lunak ini dianggap sebagai pengganti dari Microsoft Office. Sebagian besar fitur yang ada di Office sudah tersedia di aplikasi ini, OpenOffice sudah dapat diinstal pada Windows, Macintosh, dan Linux anda.
10. VLC Media Player - VLC Player hampir dapat memutar semua jenis file audio dan video codec, sehingga tidak perlu lagi direpotkan untuk mencari codec atau convert data.
11. Winamp - Perangkat lunak ini diproduksi oleh Nullsoft dan telah terbukti paling diminati sebagai aplikasi pemutar file audio maupun video. Versi-versi terbaru dari aplikasi ini telah meningkat jauh dari ketika pertama kali dirilis pada tahun 1997.

Ini hanya beberapa dari berbagai software gratis yang anda dapat dengan mudah men-download dan menggunakannya dengan fungsi yang sama dengan program-program yang berlisensi. Pastikan untuk mencari software gratis sebelum membeli lisensi software.Semoga bermanfaat...

Saturday, August 8, 2009

Nomor SMSC

Gunakan Aplikasi pencari nomor smsc gratis yang telah di posting sebelumnya untuk mendapakan sms gratis, dan berikut nomor smsc yang bisa discan.

Nomor SMSC dunia


Albania
AMC +355 3820
Andorra
+376-301004
Australia
One.Tel Australia +61 411 990 001
Vodafone Australia +61-415011501
Telstra Australia +61-418706700
Telstra Australia +61-418706800
Telstra Australia +61-418706900
Optus Australia +61-412025989
Optus Australia +61-411990000
Optus Australia +61-411990001
Optus Australia +61-411990003
Austria
A1 +43 664 0501
Connect ONE +43 699 0001999
max-mobil +43 676 021
tele.ring +43 650 09000000.
Azerbaijan
Azercell +994-50-910-3300
Bakcell +994557070707
Baharain
+973-9600179
Batelco +97392
Batelco +97394
Batelco +97396
Batelco+973973
Batelco +97398
Bangladesh
GrameenPhone +88017099999
GrameenPhone +88017500569
Belgium
Mobistar Belgium +32-95955205
Mobistar Belgium +32495002530
Proximus Belgium +32 475 161616
Orange Belgium +32-486000005
Bosnia and Herzegovina
PTT GSM BIH +387-66-125522
Botswana
Mascom Wireless +267-71010024
Vista Cellular +267 72000003.
Brunei Darussalam
+673879500
Bulgaria
MobilTel: +35988000301
Canada
Fido Canada +1-5149931123
Chile
Entel PCS +56-98890005
China
Telecom China +86-1390591500
Telecom China +86 13800100500
Croatia
Cronet +385-980501
VIPNET +385-910401
Cyprus
Cyprus +3579700000
Czech Republic
Eurotel Czech rep +420-602909909
Radiomobil Czech rep +420-603051
Denmark
Sonofon Denmark +45-40590000
TeleDanmark Denmark +45-40390999
Telia DK Denmark +45-28187000
Mobilix Denmark +45-26265151
Denmark
Free! +45 40590006
Egypt
Click GSM +20105996500
Mobinil +20122000020
Estonia
EMT Estonia +372-5099000
Ritabell Estonia +372-5509911
Radiolinja Estonia +372-568771010
Fiji
+679901400
Finland
Radiolinja Finland +358-508771010
Sonera Finland +358-405202000
France
SFR France +33-609001390
Bouygues France +33-660003000
Itineris France +33-689004000
Itineris France +33-689004431
Itineris France +33-68900458
Germany
D1 Germany +49-1710760000
D1 Germany +49-1715990000
D1 Talkline Germany +49-1710760900
D2 Germany +49-172227033
D2 Germany +49-1722270000 [to D2 only]
D2 Germany +49-1722270333
D2 Talkline Germany +49-1722270258
Debitel Germany +49-1722270222
IC3S Germany +49-1722270201
Dr Materna Germany +49-1722270111
E2 VIAG Germany +49-1760000443
E-Plus Germany +49-1770600000
E-Plus Germany +49-1770610000
E-Plus Germany +49-1770620000
Gibraltar
ANYONE HAVE THIS NUMBER?
Greece
Panafon Greece +30-94219000
Telestet Greece +30-93599000
Telestet Greece +30-93597000
Cosmote Greece +30-97100000
Holland
Libertel Netherlands +31-6540881000
PTT Netherlands +31-653131313
Telfort Netherlands +31-626000230
BEN Netherlands: +31-624000000
Dutchtone, Netherlands: +31628500561
Hong Kong
Hutchinson Hong Kong +852-94985795
HK Telecom Hong Kong +852-90288000
Smartone Hong Kong +852-90100000
Hong Kong +85292040032
Hungary
Pannon Hungary +36-209300099
Westel900 +36-30-9888-000
Vodafone +36709996500
Iceland
Landssimi Islands hf +354-8900100
Tal +354-6999099
Ireland
Eircell Ireland +35387699989
Esat Ireland +353-868002000
India [+91 - ]
AT&T Network of India
BPL Mobile India +91-9821000005
MAXtouch India +91-9820005446
Essar Cellphone +91-9811009998
Tata +919848001104
Command +919830099990
AirTel Delhi +91-98100-51914
Skycell Cellular +919840011003
Spice Karnataka +919844198441
Spicell +919831029222
Usha Martin Telekom ltd +919830099990
Indonesia
Satelindo Indonesia +62-81615
Satelindo : +62 816 124
Telkomsel Indonesia is +62-81100000
Exelcomindo Indonesia +62-818445009
Isle of Man
Pronto GSM +447624499955
Israel
Orange Israel +972-54-120032
Pele - ANYONE HAVE THIS NUMBER?
Italy
Omni Italy +39-3492000200
Omni Italy +39-3492000300
Omni Italy +39-3492000400
Omni Italy +39-3492000500
TIM Italy +39-3359609600
TIM Italy +39-3359608000
TIM Italy +39-338960960
TIM Italy +39-338980000
Wind Italy +39-3205858500
Kenya
Safaricom +25472500010
Kencell +254733000810
Kuwait
MTC +96596000303
Al-Wataniya +9656373717
Latvia
LMT Latvia +371-9202020
Baltcom GSM +371 9599994
Lebanon
FTML Cellis +61-3488888
Lesotho
Vodacom Lesotho [+266]
Lithuania
Bite GSM Lithuania +370-9950115
Omnitel Lithuania +370-9899992
Luxembourg
PTT Luxembourg +352-021100003
Tango Luxembourg +352-091000030
Macau
Macau CTM +85366
Macau CTM +85368
Macedonia
MobiMak [389 - 70]
+389 70 000501
Malaysia
ADAM Malaysia +60-173600010
Celcom Malaysia +60-193900000
Mutiara Malaysia +60-162999000
Maxis Malaysia +60-120000015
Malta
Vodafone +356-941816
goMobile +35679700003
Mauritius
EMTEL +230 7290999
cellplus +230 2500005
Mongolia
MobiCom +97699000030
Montenegro
Pro monte +38169200000
Monet +38167100100
Morocco
Maroc Telecom +212 61 00 00 21
Maroc Telecom +212 61 00 00 22
Maroc Telecom +212 61 00 00 23
Meditel +2123992000
Namibia
MTC [+264 - 81]
New Zealand
Vodafone New Zealand +64-21600600
Norway
NetCom Norway +47-92001000
NetCom Norway +47-9208977
TeleNor Norway +47-90002100
TeleNor Norway +47-90007777
Sense Mobil +47 90002100
PAKISTAN
Mobilink +92300000042
Portugal
Telecel is +351-911616161
TMN Portugal +351-936210000
OPTIMUS +35193121314
Philippines
Globe Philippines +63-91702
Globe Philippines +63-91703
Globe Philippines +63-91704
Globe Philippines +63-91709
Islacom Philippines +63-9150200003
Smart Philippines +63-9180000101
Poland
Era GSM Poland +48-602951111
Era GSM Poland +48-602951112
Polkomtel Poland +48-601000310
Polkomtel Poland +48-601000311
IDEA Centertel Poland +48-501200777
Qatar
QATARNET +974 5589955
Reunion
Reunion +33609001390
Romania
Connex Romania +40-92004000
Dialog Romania +40-94946000
Cosmorom (1800 MHz)
Russia
North West Russia +7-8129600096
MTS Russia +7-0957699100
BeeLine +7-90173100
Rwanda
+25008110333
Saudiarabia
Sauditel +966 5 503 1999
Serbia
MobTel +38163100100
MobTel +38163100200
MobTel +38163100300
MobTel +38163100400
MobTel +38163100300
PTT Telekom Serbia +381-650000900
Seychelles
Airtel: +248700000
Singapore
Mobile One Singapore +65-96845999
Mobile One Singapore +65-96845997
SingTel Singapore +65-96400001
SingTel Singapore +65-96500001
SingTel Singapore +65-98189999
SingTel Singapore +65-96197777
Starhub +6598540020
Slovakia
Eurotel Slovakia +421-903333000
Globtel Slovakia +421-905303303
Slovenia
Mobitel Slovenia +386-41001333
Si.Mobil Slovenia +386-40441000
South Africa
MTN +27-831000002
MTN (Prepaid) +27-831000113
Vodacom South Africa +27-829119
Vodacom South Africa +27-829129
Spain
Telefonica Spain +34-609090909
Airtel Spain +34-607133000
Airtel Spain +34-607003110
Amena Spain +34-656000311
Sweden
Comviq Sweden +46-707990001
Comviq Sweden +46-707990002
Comviq Sweden +46-707990003
Comviq Sweden +46-707773078
Europolitan Sweden +46-708000708
Telia Sweden +46-705008999
Switzerland [+41-79]
Swisscom Switzerland +41-794999000
diAX Switzerland +41-765980000
Orange +41-787777070
Tanzania
Tritel +255812904000
Taiwan
Chung Wa Tele Taiwan +886-932400821
Thailand
AIS Thailand +66-18110888
WP1800 Thailand +66-16110400
Turkey
Turkcell Turkey +90-5329010000
Turkcell Turkey +90-5329020000
Turkcell Turkey +905329030000
Turkcell Turkey +90-5329040000
Telsim Turkey +90-5429800033
Ukraine
UMC +38050000501
Kyivstar +380672021111
Golden Telecom +380444990000
(number@sms.gt.kiev.ua)
Wellcome +38044 251 7777
United Arab Emirates
PTT UAE +97150 6014994
United Kingdom
Isle of Man Pronto GSM +447624499955
Vodafone UK +44-7785016005
CellNet UK +44-7802000332
Virgin Mobile UK +447958879890
Orange UK +44-7973100973
Orange UK +44-7973100974 internal
One2One UK +44-7958879879
Guernsey Telecoms [+44-4481/7781]
Jersey +44-7781
USA
Aerial Comms USA +1-8132630025
Aerial Comms USA +1-2812350025
Voicestream USA +1-2063130004
Pacific Bell USA +1-2099042010
Pacific Bell USA +1-2099042020
Pacific Bell +1-2099042030.
Powertel USA +1-3343338200
DigiPH PCS USA +1-3342090307
Omnipoint USA +1-9179070004
Sprint USA +1-7044100000
Washington PCS USA +1-410258953
Venezuela
Digitel +58-12-8000000
INFONET
Infonet (Venezuela)
Digitel (Venezuela)
Mobilfone Vietnam +84 90700000
Vinaphone Vietnam +84 91020005
Vinaphone Vietnam +84 91020010
Yugolsavia
MobTel +381-63-100400
MobTel +381-63100300
MobTel +381-63100200
MobTel +381-63100100
MobTel +3816310030034
MobTel +3816310040034
PTT Telekom Serbia +381-650000900
Zimbabwe
Econet Wireless +263-91010030
zimbabwe net*one +26311191201

Free source code VB - Cara Set Printer

Berikut adalah skrip vb / source code vb untuk menampilkan printer pada windows.

Sebelumnya buat modul pada visual basic kemudian masukan skrip dibawah ini :
Public Const MAX_COMPUTERNAME_LENGTH As Long = 31
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal HKEY As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal HKEY As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal HKEY As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal HKEY As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal HKEY As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Const REG_SZ = 1&
Const KEY_QUERY_VALUE = &H1&
Const KEY_SET_VALUE = &H2&
Const KEY_CREATE_SUB_KEY = &H4&
Const KEY_ENUMERATE_SUB_KEYS = &H8&
Const KEY_NOTIFY = &H10&
Const READ_CONTROL = &H20000
Const STANDARD_RIGHTS_READ = READ_CONTROL
Const STANDARD_RIGHTS_WRITE = READ_CONTROL
Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
Dim HKEY As Long, MainKeyHandle As Long
Dim rtn As Long, lBuffer As Long, sBuffer As String
Dim lBufferSize As Long

Function GetStringValue(SubKey As String, Entry As String)
Call ParseKey(SubKey, MainKeyHandle)
If MainKeyHandle Then
rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, HKEY)
If rtn = ERROR_SUCCESS Then
sBuffer = Space(255)
lBufferSize = Len(sBuffer)
rtn = RegQueryValueEx(HKEY, Entry, 0, REG_SZ, sBuffer, lBufferSize)
If rtn = ERROR_SUCCESS Then
rtn = RegCloseKey(HKEY)
sBuffer = Trim(sBuffer)
GetStringValue = Left(sBuffer, Len(sBuffer) - 1)
End If
End If
End If
End Function

Private Sub ParseKey(Keyname As String, Keyhandle As Long)
rtn = InStr(Keyname, "\")
If rtn = 0 Then
Keyhandle = &H80000001
Keyname = ""
Else
Keyhandle = &H80000001
Keyname = Right(Keyname, Len(Keyname) - rtn)
End If
End Sub
Function CreateKey(SubKey As String)
Call ParseKey(SubKey, MainKeyHandle)
If MainKeyHandle Then
rtn = RegCreateKey(MainKeyHandle, SubKey, HKEY)
If rtn = ERROR_SUCCESS Then
rtn = RegCloseKey(HKEY)
End If
End If
End Function
Function SetStringValue(SubKey As String, Entry As String, Value As String)
Call ParseKey(SubKey, MainKeyHandle)
If MainKeyHandle Then
rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_WRITE, HKEY)
rtn = RegSetValueEx(HKEY, Entry, 0, REG_SZ, ByVal Value, Len(Value))
rtn = RegCloseKey(HKEY)
End If
End Function

Kemudian buat sebuah form baru dan 1 buah command kemudian masukan skrip viasl basic dibawah ini :

Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long

Private Sub Command1_Click()
SetStringValue "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", "Lord,winspool,Ne00:"
End Sub


Semoga Bermanfaat.

Friday, July 31, 2009

Script VB Membatasi Input Data

Ada saatnya seorang programmer membutuhkan suatu pembatasan input data untuk menghasilkan suatu aplikasi yang powerfull, disamping itu memberikan kenyamanan bagi pengguna aplikasi dalam mengoperasikan aplikasinya.
Salah satu contoh : misalkan ada data jumlah barang, tentunya aplikasi hanya menerima input data berupa angka. Tanpa pembatasan tersebut memungkinkan aplikasi tersebut akan mengalami crash, ketika data jumlah barang tersebut diproses.

Berikut adalah contoh script Visual Basic untuk membatasi input data.

Masukan script dibawah ini kedalam sebuah module :

Public Enum DataFormats
df_Huruf = 0
df_Angka = 1
df_HurufDanAngka = 2
End Enum

Public Function CekInput(df As DataFormats, idfText As Integer) As Integer
If idfText = 8 Then
CekInput = idfText
Exit Function
End If

Select Case df
Case 0 'huruf saja
Select Case Chr(idfText)
Case "A" To "Z", "a" To "z", Chr(8)
CekInput = idfText
Exit Function
End Select
Case 1 'angka saja
Select Case Chr(idfText)
Case "0" To "9", Chr(8)
CekInput = idfText
Exit Function
End Select
Case 2 'huruf dan angka
Select Case Chr(idfText)
Case "A" To "Z", "a" To "z", "0" To "9", Chr(8)
CekInput = idfText
Exit Function
End Select
End Select
End Function


Berikut salah satu contoh penggunaan untuk membatasi Text5 dari karakter selain angka :

Private Sub Text5_KeyPress(KeyAscii As Integer)
KeyAscii = CekInput(df_Angka, KeyAscii)

End Sub

Monday, July 27, 2009

PTC valuebux.com bangkrut?

Kemarin aku iseng browsing, kemudin melihat alamat website ini :
http://flippa.com/auctions/71437/Huge-PTC-Site-for-Sale---Valuebux-com---30KMonth
apakah ini pertanda pihak valuebux.com sudah bangkrut sehingga mau menjual websitenya??
Sebelum pihak valuebux.com tidak bisa membayar membernya dan masuk daftar PTC scam yang mengakibatkan harga websitenya turun drastis??
Padahal website ini PTC terpercaya saat ini,banyak member yang telah membeli refferal dan mengupgrade dengan biaya yang tidak sedikit.


Semoga info ini membantu rekan2 untuk lebih berhati-hati dan sebagai pertimbangan buat yang mau menginvestasikan uangnya lewat website ini.

Wednesday, July 1, 2009

Aplikasi counter HP

Aplikasi gratis ini dinamakan Aplikasi Counter HP, aplikasi ini sangat cocok untuk anda yang mempunyai conter HP maupun toko penjualan lainnya yang kami diberikan secara gratis.
Beberapa fitur yang ada dalam aplikasi ini antara lain:

1. Data transaksi penjualan dan pembelian.
2. Data Karyawan.
3. Data stok barang.
4. Form cetak laporan Transaksi.
5. Form laporan data karyawan.
6. Form laporan data barang.
7. Pembatasan akses aplikasi.
8. Database menggunakan MS. Access.

Dan masih banyak lagi fitur yang ada dalam aplikasi gratis ini.
Untuk mendapatkan source code aplikasi ini silahkan download disini

Aplikasi Pencari SMSC Gratis

Aplikasi ini berfungsi untuk mencari Nomor SMSC yang sedang trouble sehingga memungkinkan kita untuk mendapatkan SMS gratis.

Connect

Type HP yang Suport Dengan aplikasi ini :

Nokia :

1100, 2100, 3100, 3105, 3108, 3200, 3210, 3300, 3310, 3330, 3350, 3390, 3410,

3510, 3510i, 3560, 3570, 3585, 3585i, 3586, 3590, 3595, 3610, 5100, 5110, 5130,

5190, 5210, 5510, 6100, 6108, 6110, 6150, 6190, 6200, 6210, 6220, 6250, 6310,

6310i, 6340, 6340i, 6510, 6560, 6590, 6610, 6650, 6800, 7110, 7190, 7210, 7250,

7250i, 8210, 8250, 8290, 8310, 8390, 8810, 8850, 8855, 8890, 8910, 8910i

Penggunaan

Masukan No Port yang akan digunakan dan pilih salah satu mode koneksinya

  • Infrared

  • Bluetooth

  • DLR-3 cable

  • DAU-9P

Jika Connect asynchronously aktif maka koneksi akan mencari pada port serial

yang terkoneksi dengan HP.

Pilih tombol Connect untuk memulai mengkoneksi HP. Tunggu keterangan kurang

lebih 10 detik.


Coba ulangi jika koneksi gagal.


Koneksi Berhasil. Info HP akan ditampilkan, atau untuk menampilkan info HP tekan

tombol info. Untuk Memulai Men-scan tekan Scan SMSC.



Download aplikasi disini

Saturday, February 28, 2009

WASPADAI ANAK-ANAK MEMBUKA SITUS PORNO

WASPADAI ANAK-ANAK MEMBUKA SITUS PORNO

Jika anda sering mengakses internet dirumah, dikantor atau dimanapun Anda berada, yang harus diperhatikan terhadap faktor anak. Mungkin jika kita tidak mewaspadai besar kemungkinan anak kita akan mengakses internet / situs yang berbau porno. Memang hal ini sangat meresahkan orang tua, tetapi jika kita mengetahui perkembangan dunia teknologi informasi bahwa sekarang sudah banyak sekali perangkat lunak (software) yang dapat memproteksi jika anak Anda atau siapa saja yang ingin membuka situs yang berbau porno tidak dapat diakses.

Penulis ingin menyumbangkan beberapa cara agar nantinya kita dapat mengantisipasi terhadap situs-situs / website tersebut sehingga Anda dirumah tidak akan kepikiran bahwa anak Anda sedang membuka website porno.
Langkah-langkah dalam mengkonfigurasi untuk mem-blok situs porno antara lain sebagai berikut:
1. Download software hpHosts-Setup-Win32.exe (517K) dan hosts.zip (310K)
http://hosts-file.net/?s=Download

2. Instal software hpHosts-Setup-Win32.exe è next sampai selesai penginstalasiannya.
3. Hosts File Installation (Windows)

Ekstrak file (hosts.zip) dalam folder di hard disk. Lokasikan file dengan nama HOSTS.TXT (copy) kemudian letakkan file tersebut (paste). Lihat alamat direktorinya berdasarkan windows yang anda gunakan:
Windows XP/2003C:\Windows\System32\Drivers\Etc
Windows NT/2000C:\Winnt\System32\Drivers\Etc
Windows 95/98/MeC:\Windows
Jika semua sudah Anda lakukan kemudian coba anda cek masing-masing situs yang sudah di blok pada file HOST.TXT.
Perhatian !!! Anda harus terus mengupdate file HOST.TXT karena pertumbuhan website makin hari makin cepat berdatangan silih berganti.
Install K9 Web ProtectionDo the following to install K9 Web Protection:
Download K9 Web Protection
During the installation, you will be asked for your license. Your K9 Web Protection license is: K9D5Y32C32
kerusakan pada system komputer, mutlak bukan kesalahan pada saya.software ini sudah saya coba dan berjalan baik.
-------------------------------------------------------------------------------------
setup-en.exe ---> Naomi 3.2.90 (software proteksi situs porno)

Attachment: hosts.zip
Attachment: hpHosts-Setup-Win32.exe
Attachment: k9-webprotection.exe
Attachment: setup-en.exe