Tips Membuat Fungsi Terbilang Dengan Visual Basic 6.0

Kristipstrick Blogspot – Tips Trcik Membuat Fungsi Terbilang Dengan Visual Basic 6.0

Pengertian dari Fungsi terbilang adalah fungsi yang melakukan konversi dari angka menjadi teks terbilangnya, misalnya 123,4567 menjadi seratus dua puluh tiga koma empat lima enam tujuh.

Mari kita membuat sebuah project baru dengan template Standard.EXE. Rancanglah sebuah form seperti terlihat pada gambar 1. Beberapa properti form tersebut harus diberi nilai sebagai berikut:

Kontrol	Properti	Nilai
Form	Caption	Terbilang
TextBox1	Name	txtAngka
TextBox2	Name	txtTerbilang
	Multiline	True
CommandButton1	Name	cmdTerbilang
	Caption	&Terbilang
CommandButton2	Name	cmdExit
	Caption	E&xit

Gambar 1

Kemudian tambahkan sebuah modul dengan cara klik kanan pada Project Explorer dan pada menu yang muncul pilih Add > Module. Bandingkan dengan gambar 2.

Gambar 2

Pada module baru tersebut tambahkan kode program seperti disajikan pada listing 1.

Listing 1. Fungsi terbilang Public Function Terbilang(x As Double) As String Dim tampung As Double Dim teks As String Dim bagian As String Dim i As Integer Dim tanda As Boolean Dim letak(5) letak(1) = "ribu " letak(2) = "juta " letak(3) = "milyar " letak(4) = "trilyun " If (x = 0) Then Terbilang = "nol" Exit Function End If If (x < 2000) Then tanda = True End If teks = "" If (x >= 1E+15) Then Terbilang = "Nilai terlalu besar" Exit Function End If For i = 4 To 1 Step -1 tampung = Int(x / (10 ^ (3 * i))) If (tampung > 0) Then bagian = ratusan(tampung, tanda) teks = teks & bagian & letak(i) End If x = x - tampung * (10 ^ (3 * i)) Next teks = teks & ratusan(x, False) Terbilang = teks End Function Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String Dim tmp As Double Dim bilang As String Dim bag As String Dim j As Integer Dim angka(9) angka(1) = "se" angka(2) = "dua " angka(3) = "tiga " angka(4) = "empat " angka(5) = "lima " angka(6) = "enam " angka(7) = "tujuh " angka(8) = "delapan " angka(9) = "sembilan " Dim posisi(2) posisi(1) = "puluh " posisi(2) = "ratus " bilang = "" For j = 2 To 1 Step -1 tmp = Int(y / (10 ^ j)) If (tmp > 0) Then bag = angka(tmp) If (j = 1 And tmp = 1) Then y = y - tmp * 10 ^ j If (y >= 1) Then posisi(j) = "belas " Else angka(y) = "se" End If bilang = bilang & angka(y) & posisi(j) ratusan = bilang Exit Function Else bilang = bilang & bag & posisi(j) End If End If y = y - tmp * 10 ^ j Next If (flag = False) Then angka(1) = "satu " End If bilang = bilang & angka(y) ratusan = bilang End Function

Kemudian klik ganda tombol Terbilang dan tambahkan kode program seperti disajikan pada listing 2.

Listing 2. Event click pada cmdTerbilang Private Sub cmdTerbilang_Click() Dim angka As Double Dim teks As String angka = Val(txtAngka.Text) teks = Terbilang(angka) txtTerbilang.Text = teks End Sub

Langkah terakhir, klik ganda tombol Exit dan tambahkan kode program seperti disajikan pada listing 3.

Listing 3. Event click pada cmdExit Private Sub cmdExit_Click() End End Sub

Hasil eksekusi program tersebut ditampilkan pada gambar 3. Masukkan suatu angka pada kotak teks Angka, klik tombol Terbilang, teks terbilang dari angka tersebut akan muncul pada kotak teks Terbilang.

Selamat Mencoba Tips Trcik Membuat Fungsi Terbilang Dengan Visual Basic 6.0

Tips Dan Trick Pemrograman Visual Basic

Kristipstrick Blogspot - Tips dan trick pemrograman visual yang biasa diterapkan di Visual Basic versi 6.0.

Karakter Password

Anda tentu sudah mengetahui bahwa pada aplikasi tertentu yang menggunakan password, text box yang digunakan untuk mengisi password selalu memunculkan karakter bintang (*) jika Anda mengetikkan sesuatu ke dalamnya. Hal ini tentu saja dimaksudkan agar orang lain tidak dapat membaca karakter sebenarnya yang Anda ketikkan. Untuk membuat sebuah text box agar mengeluarkan karakter * (atau bahkan karakter yang lain) caranya sangat mudah, yaitu mengisikan karakter yang Anda inginkan pada properti PasswordChar kontrol text box. Setelah itu jika Anda mengetikkan sesuatu ke dalam text box tersebut, maka karakter yang akan muncul adalah karakter yang Anda masukkan ke dalam properti PasswordChar tersebut.

Center Screen

Seringkali jika aplikasi Anda dijalankan, letak form aplikasi tersebut pada layar monitor tidak menetap. Kadang di kiri atas, kadang di tengah, kadang di bawah. Bagi Anda yang menyukai kerapian, mungkin hal ini akan terasa menjengkelkan. Ada suatu trik mudah agar form aplikasi tersebut selalu terletak di tengah layar monitor jika dieksekusi, yaitu dengan mengubah properti StartUpPosition menjadi 2 – CenterScreen, atau klik kanan gambar form pada Form Layout Window, pilih Startup Position®Center Screen.

Ukuran Default Kontrol

Untuk menambahkan sebuah kontrol ke dalam form, Anda menggunakan cara klik dan seret mouse untuk membentuk kontrol tersebut di dalam form. Jika Anda ingin menggunakan sebuah kontrol dengan ukuran defaultnya, maka ada cara yang lebih cepat, yaitu klik ganda ikon kontrol tersebut. Otomatis ke dalam form akan ditambahkan kontrol tersebut dengan ukuran default. Sedangkan posisinya tentu saja masih harus diatur secara manual.

Mengubah Tampilan IDE

Jika Anda adalah pengguna Visual Basic mulai dari versi-versi awal, Anda tentu tahu bahwa tampilan IDE (Integrated Development Environment) atau tampilan jendela Visual Basic 6.0 berbeda dengan versi-versi sebelumnya. Anda dapat mengubah tampilan IDE Microsoft Visual Basic 6.0 agar menyerupai versi-versi sebelumnya dengan klik menu Tools®Options. Pilih tab Advanced, aktifkan check box SDI Development Environment. Keluarlah dari Visual Basic 6.0, kemudian jalankan lagi. Tampilan IDE Visual Basic 6.0 akan berubah seperti gambar 1.

Gambar 1.

Menambahkan Gambar Pada Command Button

Selama ini Anda selalu menggunakan Caption pada Command Button. Anda juga dapat menambahkan gambar pada Command Button untuk menambah daya tarik aplikasi Anda. Untuk itu ada beberapa properti yang perlu diubah, yaitu:

Properti	Nilai
Style	2 - Graphical
Caption	[Anda boleh mengosongkan properti ini]
Picture	[Gambar yang hendak ditambahkan pada Command Button]
DownPicture	[Gambar pada Command Button ketika diklik]

Contoh:

Buatlah sebuah form, tambahkan sebuah Command Button dan ubahlah propertinya sebagai berikut:

Properti	Nilai
Style	2 - Graphical
Caption	[kosong]
Picture	C:\Windows\Cursors\No_l.cur
DownPicture	C:\Windows\Cursors\No_m.cur

Untuk properti Picture dan DownPicture, jika file-file kursor yang diberikan pada contoh tidak ada pada komputer Anda, Anda boleh menggantinya sendiri dengan file lain.

Jalankan aplikasi Anda, perhatikan apa yang terjadi jika Command Button tersebut diklik.

PopUp Menu

Kadang-kadang Anda ingin menampilkan sebuah menu dengan klik kanan pada sebuah objek. Menu seperti inilah yang disebut PopUp Menu. Caranya sangat mudah. Buatlah sebuah menu dengan menu editor, lalu nonaktifkan pilihan visible yang terdapat pada kotak dialog menu editor. Yang harus diperhatikan adalah, pilihan visible ini hanya non aktif untuk menutitle-nya saja, sedangkan untuk setiap menuitem, pilihan visible ini harus tetap aktif. Kemudian gunakan event mouse down pada objek yang Anda inginkan untuk menampilkan PopUp Menu, lalu tambahkan sintaks sebagai berikut:

PopUpMenu menutitle

Ingat, dengan menggunakan event mouse down, tombol mouse yang diklik bisa ditangkap dengan mengambil nilai tertentu dari parameter button. Untuk tombol kanan mouse, nilai parameter button adalah 2.

Contoh:

Buatlah sebuah form, tambahkan menu dan kontrol Picture Box ke dalamnya. Isi menu dan gambar terserah Anda. Jangan lupa untuk menonaktifkan check box visible pada menu editor untuk menutitle-nya. Pada kontrol picture box tambahkan kode seperti pada listing 1.

Listing 1. Event MouseDown pada Picture1 Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuFile End If End Sub

Jalankan aplikasi tersebut. Menu akan muncul jika Anda mengklik kanan kontrol Picture Box.

Mengedit Beberapa Kontrol Sekaligus

Untuk mengedit beberapa kontrol sekaligus, gunakan kombinasi shift+klik atau ctrl+klik untuk mengaktifkan pilihan terhadap beberapa kontrol.

Gambar 2

Sebagai contoh, perhatikan gambar 2. Pada gambar tersebut, ketiga Command Button yang ada pada form terletak terlalu ke kiri. Untuk memindahkan ketiganya sekaligus ke tengah, pilih ketiga Command Button tersebut dengan kombinasi shift+klik atau ctrl+klik. Setelah itu Anda dapat memindahkan ketiga kontrol tersebut sekaligus.

Tab Order

Kadang-kadang karena sesuatu hal kita tidak dapat menggunakan mouse dalam mengoperasikan suatu aplikasi, misalnya mouse sedang rusak. Maka terpaksa kita menggunakan keyboard dalam menjalankan suatu aplikasi. Atau mungkin aplikasi kita adalah aplikasi yang digunakan di kasir toko yang memang sengaja tidak diberi mouse. Pada keadaan dimana kita harus menggunakan keyboard, maka untuk berpindah dari satu kontrol ke kontrol yang lain kita menggunakan tombol tab. Untuk itu di dalam mendesain suatu form, kita juga perlu mengatur urut-urutan kontrol yang akan aktif jika tombol tab ditekan. Untuk mengatur urutan tersebut caranya sangat mudah, yaitu dengan mengatur properti TabIndex setiap kontrol. Kontrol yang langsung fokus jika aplikasi dijalankan akan memiliki TabIndex 0, kemudian jika kita menekan tombol tab, maka kontrol berikutnya yang aktif adalah yang memiliki TabIndex 1, dan seterusnya.

Untuk kasus tertentu, maka penggunaan tombol tab untuk berpindah dari satu kontrol ke kontrol lain tidak efisien, dan untuk menggantikan tombol tab diinginkan tombol enter. Untuk menggantikan tombol tab dengan enter, maka trik yang dapat dipakai adalah menggunakan event KeyPress. Nilai keyAscii untuk enter adalah 13. Jika nilai keyAscii 13 ini terpenuhi, maka kontrol berikutnya yang ingin dijadikan fokus harus dikenai metoda setfocus.

Menambahkan Kontrol Array Pada Saat Run-Time

Umumnya kita menambahkan kontrol ke dalam form pada saat mendesain form tersebut (pada saat design time), tetapi Visual Basic juga menyediakan fasilitas untuk menambah jumlah kontrol array pada saat run-time dengan menggunakan pernyataan Load.

Contoh:

Buatlah sebuah form dan tambahkan sebuah Command Button. Ubah properti Indexnya dengan angka 0.

Ke dalam Command Button tersebut tambahkan kode program seperti listing 2.

Listing 2. Event Click pada Command1 Private Sub Command1_Click(Index As Integer) Load Command1(1) Command1(1).Left = Command1(0).Left Command1(1).Top = Command1(0).Top + Command1(0).Height Command1(1).Caption = "Command Baru" Command1(1).Visible = True End Sub

Perhatikan bahwa pada prosedur Command1_Click terdapat parameter Index As Integer yang harus ditambahkan.

Jalankan aplikasi tersebut. Jika Command Button diklik, maka otomatis akan ditambahkan sebuah Command Button baru tepat di bawahnya.

Nah, mudah-mudahan Tips dan trick pemrograman visual yang biasa diterapkan di Visual Basic versi 6.0. di atas membantu Anda dalam membuat aplikasi-aplikasi dengan Visual Basic.

Andai aku menjadi Ketua KPK

Andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi) - Komisi Pemberantasan Korupsi atau disingkat menjadi  KPK didirikan berdasarkan Undang-Undang Republik Indonesia Nomor 30 Tahun 2002 mengenai Komisi Pemberantasan Tindak Pidana Korupsi. adalah komisi yang dibentuk pada untuk mengatasi, menanggulangi dan pemberantasan korupsi di Indonesia.

Berita berdirinya KPK (Komisi Pemberantasan Korupsi) sungguh sangat melegakan dan andaikan aku menjadi ketua KPK (Komisi Pemberantasan Korupsi) hal pertama-tama yang harus aku mengerti dan memahami adalah bahwa dalam perjalanan panjang kesuksesan pemberantasan korupsi di Indonesia tidaklah ada tips trick atau jaminan bahwa segala sesuatu selalu berjalan lancar, mulus, tanpa rintangan, tantangan, kesulitan, atau kesusahan.

Andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi) tentu akan ada banyak hal yang akan menghalangi atau menjegalku dalam perjalanan pemberantasan korupsi ini, terlebih lagi adanya “ranjau-ranjau” yang telah dipasang dan disebarluaskan oleh para koruptor untuk menjatuhkan siapa saja yang menghalangi atau membongkar korupsinya termasuk kepada diriku.

Andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi), aku harus berhati-hati dan waspada agar tidak terjebak dalam “ranjau-ranjau” koruptor  sehingga perjalanan sukses pemeberantasan korupsi tidak terhambat atau  tidak fokus atau menyimpang, atau terjatuh dan akhirnya gagal sama sekali.

 

Andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi), maka tips pemahaman di atas perlu aku sadari dan pahami dalam memberantas korupsi di Indonesia. Kemudian setelah memahami segala resiko dan ranjau-ranjau koruptor maka aku akan memulai dengan mempergunakan waktu selama menjabat sebaik mungkin, karena bila aku tidak bjaksana dalam mengatur waktu dan memiliki prioritas yang benar pastilah pemberantasan korupsi akan menjadi kacau, berantakan, stress, frustrasi, depresi, dan akhirnya gagal.Tentu ini berita yang buruk buat diri saya. 

Andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi) maka aku akan menerapkan 3  (tiga) tips trick sebagai landasan atau titik pijak dalam segala tindakan yang aku lakukan untuk pemberantasan korupsi di Indonesia yaitu :

Titik Pijak Pertama andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi) maka sejak hari pelantikan maka aku telah menjadi manusia indonesia yang mengalamai Kelahiran baru. Maksud Kelahiran baru ini memberikan kepada saya potensi untuk hidup seturut dengan Hukum dan itu berarti hidup saya mengikuti segala peraturan dan hukum yang dikehendaki oleh UU yang berlaku. Tuntutan tersebut sekaligus panggilan buat saya  untuk menjadi teladan di lingkungan KPK khususnya dan Indonesia umumnya.

Titik Pijak Kedua andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi), aku adalah Pengelola bukan pemilik KPK sehingga harus aku kelola dengantanggung jawab, bijaksana, menghindarkan diri dari praktek-praktek pengelolaan lembaga yang melawan hukum dan norma serta merugikan orang lain. dengan harapan untuk mendorong saya bersungguh-sungguh mempersembahkan pemberantasan korupsi ini buat Bangsa Indonesia. Sebagai seorang pengelola yang dipercayai mengelola KPK akan saya kelola dengan sepenuh pengabdian dan perasaan gembira.

 

Titik Pijak Ketiga andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi), aku akan tetap hidup dalam rasa takut kepada TUHAN sehingga saya dapat memiliki mata hati dan kepekaan untuk mengerti tujuan Hidup saya di dunia ini, terutama dalam situasi konkrit di mana saya harus mengambil keputusan setiap waktu dalam pemberantasan korupsi di Indonesia.

Akhirnya profesi dimana andai aku menjadi ketua KPK (Komisi Pemberantasan Korupsi) akan menjadi profesi luhur dan mulia yang membawa bukan saja kepada kewajiban hidup sebagai manusia yang harus bekerja guna mencari nafkah tetapi juga diperhitungkan oleh Tuhan Semesta Alam.

Ebook Trik Dan Cara Paling Jitu Menghasilkan Banyak Uang Dari Bisnis Adsense Di Kupas Tuntas Disini

Pada kesemptan yang sebelumnya saya sudah share ebook gratis tapi sangat bermanfaat tentang rahasia berbisnis Adsense untuk pemula, saya bagikan secara gratis, jika masih ada yang belum punya juga silahkan download DISINI.

Jika anda sudah mempunyai dan mempelajari Ebook yang saya kasih sebelumnya, untuk kesempatan kali ini saya akan share bagaimana Cara dan Trik Jitu meraup untung dari adsense.
Ebook ini akan mengupas Trik-Trik dan Cara paling jitu yang sangat jitu buat anda terapkan di bisnis adsense anda sehingga anda akan mendapatkan income terus menerus dari penyedia adsense tersebut.

Isi dari Ebook keren ini di antaranya :

• Membangun jaringan terbaik bisnis adsense kita
• Mulai merepkan trik trik jitu 
• Memilih format iklan terbaik
• Tracking script dan chanel

Masih banyak trik keren dan jitu yang akan di kupas disini, So.. langsung aja miliki Ebooknya disini.
DIJAMIN tidak akan nyesel belajar trik dan tipsnya.

Miliki Hanya..

Rp.55.000,-

Rp.20.000,- saja

Software Toko dan Restoran Termurah

Omega Stock, Software Toko & Restoran Termurah

Omega Stock V.2, merupakan software keuangan untuk usaha kecil hingga kecil menengah, lengkap, dan yang didukung oleh teknologi terbaru yang sebut sebagai Software Online. Dengan menggunakan Omega Stock, seluruh aktifitas bisnis anda, bisa anda kendalikan dengan mudah, karena semuanya di manajemen dengan baik dengan menggunakan Omega Stock.

Lebih dari 3.000 usaha di Indonesia, telah menggunakan Omega Stock untuk usaha mereka, mulai dari restoran, toko komputer, laundry, bengkel mobil dan motor, hotel, spa, toko handphone, salon, apotek, minimarket, dan masih banyak lagi. Jumlah sebesar itu terus meningkat setiap tahunnya, dan cukuplah itu sebagai bukti jika Omega Stock merupakan software termurah dan terbaik untuk segala jenis usaha.

Di dalam Omega Stock terdapat beberapa modul yang sangat penting dan sesuai dengan kebutuhan anda, yaitu sebagai berikut :

Manajemen Data Master Barang Promo Diskon Supplier Warehouse (Gudang) Sales Person Ingredients (Resep Resto) Periode	Kontrol Stok Transfer Stok Antar Gudang Stok Opname Konversi Stok
Pembelian Permintaan Pembelian (Purchase Order) Pembelian / Penerimaan Barang Retur Pembelian	Hutang Piutang Pembayaran Hutang Pembayaran Piutang
Penjualan Permintaan Penjualan (Sales Order) Transaksi Penjualan (Invoice) Point of Sales (POS / Penjualan Counter) Retur Penjualan

Kunci rahasia bisnis bagaimana Jaringan toko, mini market seperti Alfamart, Indomaret, McDonald, J.CO, Breadtalk, dll semakin untung dan semakin besar saja. Ya! karena bisnis mereka didukung sistem komputer dengan teknologi informasi terkini. Sudah menjadi trend dan kewajiban bagi para pebisnis untuk menerapkan teknologi dalam menjalankan bisnisnya.

Harga Omega Stock tergolong paling murah di Indonesia, hanya dengan :

Rp. 599 Ribu/Client

Anda sudah bisa mendapatkan Omega Stock melalui reseller <<< Omega Accounting<<<<, atau bisa membeli langsung sekarang juga via Buy Online >>>>>> »

Fungsi Explode Pada AutoCAD

Anda tau fungsi explode pada AutoCAD? Jika sudah tau fungsi explode pada autocad, mendingan nggak usah di terusin bacanya… Lhoh kok?! Lha iya ngapain baca hal yang udah anda ketahui, buang-buang waktu kan?!

Tapi bagi yang belum paham fungsi Explode pada AutoCAD boleh lah nerusin baca… Orang cuma gratis ini… Di sini AutoCAdel akan menerangkan tentang  toolbar khususnya fungsi Explode pada AutoCAD. Barangkali bisa membantu anda untuk lebih mengenal fungsi masing-masing tool yang akan membantu anda untuk proses belajar menggambar Autocad pemula.

Explode yang kalau di lihat gambar ikonnya mirip-mirip petasan,*AutoCADel biasa menyebutnya ‘bom’* Karena memang berfungsi untuk membubarkan obyek gambar yang masih jadi satu kesatuan. Pokok na Fungsi explode pada AutoCAD adalah untuk memisahkan obyek gambar menjadi potongan garis yang berdiri sendiri.

Langsung aja AutoCADel kasih contohnya (soal na kalo ga ada contoh, AutoCaDel juga bingung neranginnya) Maklumlah bukan penulis profesional… Mungkin bagi yang masih belajar autocad pemula kurang afdhol kalo belajar tanpa ada praktek.

Ah ngemeng terus kapan contoh na ni?!  Ojrenk!!!!,Lanjutt….

1. Pertama anda buka program aplikasi AutoCAd 
2. KLik Ikon rectangle, Buat sebuah obyek gambar,( persegi gitu aja), ga usah pake ukuran. (‘Kan Cuma contoh, buat praktek menjalankan fungsi explode pada autocad duank toh?!) jadi ya ga usah pake ukuran detail kelamaan. 
3. Kalo sudah..  ketik perintah pada command : Explode, tekan enter, atau klik ikon yang gambarnya mirip petasan. ( ga ada Gan?! cari dulu sampe ketemu ) kalo ga ketemu plototin tu gambar di atas.
4. Setelah itu klik obyek gambar yang berupa persegi panjang tadi, sampai berubah menjadi garis putus-putus.
5. Lalu tekan enter. Apa yang terjadi? ( Hehehe…sepertinya nggak ada perubahan….)

 Sekarang perhatikan baik-baik. Pada saat point nomor 2 anda kerjakan, tekan tuts Esp  keyboard 2 kali, lalu klik salah satu garis pada gambar persegi itu. Terlihat saat anda mengklik satu garis maka garis yang lain juga ikut berubah menjadi putus-putus. (Kalo nggak berhasil ulangi sampe berhasil...)

Bandingkan dengan setelah anda mengerjakan point nomor 5. Jika anda klik satu garis gambar maka yang lain tidak ikut ter…… *apa ya?!* Pokok na gitu lah, Garis na ga  ikut putus-putus.Cuma satu garis aja. ( Haduh gimana neranginnya euy!)

Udah fungsi explode pada AutoCAD ya kayak gitu, Memisahkan obyek gambar yang tadinya 1 kesatuan menjadi garis-garis yang berdiri sendiri sehingga dapat di edit.
Hehe… gitu aja ya, Kalo salah ya mohon di sory, kalo belum paham tulis di comment ya.

Trus jangan lupa belajar edit dengan mirror di sini

Wassalam…. eh nambah, pada ikutan kontes mobil toyota fortuner suv terbaik nggak, pas autocadel nulis ini pada rame tu kontes nya,dah mo berakhir kali sekarang. ngasi tau aja hiks,

162 Inspirasi Ide Usaha untuk anda

Bagi Para Entrepreneur yang ingin mencari ide usaha, Berikut ini 162 ide usaha yang bisa menjadi Inspirasi anda untuk membuka usaha.

A. USAHA PRODUKSI ATAU INDUSTRI

Pada usaha ini ada kegaiatan mengubah bahan atau barang menjadi barang lain yang berbeda serta mempunyai nilai tambah, meski nampaknya sederhana.

Yang termasuk dalam kelompok usaha ini antara lain:


Industri Makanan dan Minuman

Contoh usaha :
1. Prabik roti
2. Warung makan
3. Restoran
4. Kafe
5. Berjualan dengan mobil toko
6. Katering
7. Makanan kesehatan, untuk vegetarian, atau diet khusus
8. Es krim
9. Sirup
10. Manisan buah-buahan atau asinan sayuran

11. Air isi ulang dan air dalam kemasan
12. Masakan goreng-gorengan/bakar
13. Pabrik Kerupuk/keripik
14. Kue tradisional (serabi, dsb)
15. Makanan khas daerah (sate, pecel, dll)
16. Depot es
17. Kue kering, tart, roti, coklat, dll
18. Bumbu masak
19. Makanan instant (mie, soup, bubur, dll)
20. Minuman kesehatan (herbal, jamu, dll)
21. Minuman dalam kemasan (jus, susu, makanan bayi, biskuit)
22. Snack

Industri Rumahan

Adalah usaha yang dilakukan berbasis rumah. Umumnya usaha ini hanya
terbatas pada pemenuhan kebutuhan utama atau kepuasan menyalurkan
ide, hoby atau kreatifitas.

Contoh usaha :
23. Salon kecantikan
24. Penata dan Pemangkas rambut
25. Salon mobil
26. Penitipan anak,
27. Penitipan hewan
28. Penitipan barang
29. Layanan perawatan orang tua
30. Perhiasan, cendera mata, keramik, dll
31. Membuat dan menerbitkan buku masak
32. Bahan perawatan kesehatan atau kecantikan
33. Boneka, kandang burung, meja belajar, dan sebagainya
34. Sepatu
35. Bunga kering
36. Bunga segar
37. Bingkisan, kado, parcel
38. Perpustakaan anak
39. Barang anyaman
40. Balon

Industri pakaian

Adalah usaha-usaha yang berhubungan dengan pakaian. Secara makro industri pakaian merupakan industri terbesar setelah industri makanan.

Contoh usaha :
41. Butik
42. Kaos kaki, sarung tangan
43. Sapu tangan
44. Topi,
45. Baju Bayi
46. Jilbab
47. Asesoris pakaian: kancing, peniti, payer, dll
48. Keperluan menjahit : meter, kain kertas, kapur jahit, dll
49. Pembuat pola pakaian
50. Laundry pakaian dewasa dan anak
51. Bordir
52. Garmen
53. Pakaian dalam
54. Peralatan sholat, baju muslim, haji
55. Permak jins/jas
56. Pakaian pengantin
57. Kostum panggung
58. Perangkat hantaran/lamaran
59. Pakaian seragam khusus (ABRI, pramugari, perawat, baby siter,
dokter, karyawan, dll)
60. Pakaian tidur
61. Pemasar produk pakaian


Industri kosmetik

Contoh usaha :
62. Parfum
63. Penjualan aksesoris
64. Alat-alat kosmetik (sikat, spon, dll)
65. SPA/salon kecantikan
66. Perawatan sebelum dan sesudah melahirkan
67. Peralatan salon
68. Produksi toiletries : sabun, shampo, dll
69. Produk tata rias & kosmetik
70. Produk perawatan wajah dan tubuh (lulur, masker, krem wajah)

Bisnis percetakan

Contoh usaha :
60. Percetakan barang promosi (brosur, kalender, paying, dll)
61. Kartu lebaran, kartu nama, kartu undangan.
62. Foto copy dan jilid
63. Percetakan buku
64. Penjilidan dan penggandaan
65. Percetakan posterposter
66. Jasa print digital
67. Percetakan permainan
68. Percetakana label untuk packaging
69. Sablon
70. Sticker

Industri Handicraft

Contoh usaha:
71. Bahan daur ulang / antik
72. Sulaman
73. Kerajinan tangan etnik/tradisional/khas daerah
74. Asesoris/perhiasan dari manik-manik
75. Hiasan rumah
76. Frame/figura
77. Lampu pajang
78. Lukisan

Industri pembuatan kain tenun

Contoh usaha :
79. Produksi batik atau songket
80. Menjual kain kerajinan daerah
81. Sarung


B. USAHA JASA

Usaha jasa adalah usaha yang memberikan pelayanan dan atau menjual
jasa.

Jasa pendidikan

Contoh usaha :
82. Kursus mengemudi
83. Kursus mengetik
84. Kursus menjahit
85. Bimbingan belejar
86. TK dan Play Group
87. Event Organizer : seminar, training, workshop
88. Kursus wirausaha
89. Kursus bahasa : inggris, Jepang, Mandarin, Arab, dll
90. Kursus seni
91. Baby school
92. Klub kreativitas
93. Klub Petualangan
94. Privat
95. Kursus matematika
96. Pengembangan otak
97. Mengaji
98. Bimbingan belajar anak bermasalah
99. Out Bond

Jasa pengiriman

Contoh usaha :
100. Pengiriman surat
101. Jasa pengantaran barang
102. Jasa pengiriman makanan restoran

Jasa Kebugaran dan Olah Raga

Contoh usaha :
103. Senam/aerobik/fitness
104. Produksi peralatan olah raga
105. Penyedia tempat olah raga (lapangan tenis, kolam renang, lapangan basket, dll)
106. Konsultan olah raga dan kebugaran
107. Event organizer pertandingan olah raga
108. Membuat klub pecinta olah raga tertentu (klub basket, soft ball, dll)
109. Peralatan renang
110. Kursus/privat olah raga (renang , golf, dll)
111. Jasa reparasi / bengkel skate board, sepatu roda, dan peralatan olah raga lainnya
112. Panti pijat

Jasa penyewaan

Contoh usaha :
113. Warnet (Warung Internet)
114. Wartel (Warung Telekomunikasi)
115. Play Station
116. CD/VCD/DVD, dll
117. Komputer dan pengetikan
118. Mobil
119. Sepeda Motor
120. Alat pesta
121. Pakaian pengantin
122. Alat fotografi/kamera
123. Ruang usaha
124. Penyewaan alat-/alat olah raga (sepeda, septum roda, dll)
125. Penyewaan alat-alat bermain anak-anak
126. Buku/perpustakaan


C. USAHA INTELEKTUAL

Dalam usaha ini sebenarnya ada unsur jasa maupun pengubahan bentuk barang yang dijual, namun dalam usaha intelektual kebutuhan bahan baku atau material tidak terlalu menonjol sebagaimana halnya usaha lain. Yang terutama dikerjakan dan dibutuhkan adalah pemikiran dan pekerjaan kreatif.

Contoh usaha :
127. Biro periklanan dan public relation
128. Production House
129. Biro desain arsitektur dan landskap
130. Biro hukum
131. Biro penterjemah
132. Biro penulisan kreatif (skenario, skip, biografi, dll)
133. Perusahaan animasi
134. Jasa riset atau penelitian
135. Notaris
136. Balai pengobatan
137. Perencana dan konsultan perkimpoian
138. Konseling psikologi
139. Konsultan Manajement
140. Konsultan marketing
141. Designer packaging, interior rumah, dll
142. Konsultan teknik
143. Konsultan bisnis
144. Head hunter dan konsultan SDM
145. Konsultan pendidikan anak
146. Konsultan / perencana keuangan
147. Konsultan pengembangan diri
148. Konsultan diet/nutrisi
149. Rancang bunga
150. Konsultan perawatan kebun/taman
151. Bisnis informasi internet
152. Video editing, video production

D. USAHA PERDAGANGAN ATAU DISTRIBUSI

Inti kegiatan usaha ini adalah sebagai perantara produsen dan konsumen, antara pemilik dengan pembeli, untuk menyebarluaskan, memeratakan atau memperluas jangkauan pasar suatu barang atau penawaran barang.

Usaha perkulakan

Contoh usaha ;
153. Minimarket / supermarket
154. Toko grosir
155. Distributor/agen
156. Toko / kios / warung
157. Counter (HP, dll)
158. Pemasaran jaringan (MLM, MultiLevel Marketing)

Broker Properti

Contoh usaha :
159. Sewa rumah
160. Sewa tempat usaha
161. Sewa kantor bersama
162. Tempat kost pelajar/ mahasiswa