Testing Visual Basic 2010

PROGRAM PEMBELIAN LAGU SOEKAMTI MUSICA STUDIO

1. Langkah pertama buatlah design seperti ini :

DESIGN	NAME
GRUOPBOX	DAFTAR NSP (setting pada properties edit item inputkan nama kode nsp anda)
LABEL1	KODE NSP
LABEL2	NAMA LAGU
LABEL3	ARTIST
LABEL4	GENRE
LABEL5	HARGA NSP
LABEL6	JUMLAH BELI
LABEL7	HARGA
LABEL8	DISKON
LABEL9	TOTAL HARGA
COMBOBOX	COMBOBOX
TEXTBOX1	TEXTBOX1
TEXTBOX2	TEXTBOX2
TEXTBOX3	TEXTBOX3
TEXTBOX4	TEXTBOX4
TEXTBOX5	TEXTBOX5
TEXTBOX6	TEXTBOX6
TEXTBOX7	TEXTBOX7
TEXTBOX8	TEXTBOX8
LISTVIEW	Inputkan pada menu properties “edit item” : nama dari label1 – label9

   Maka akan muncul design seperti ini :

Note : untuk background bisa anda modif sesuai keinginan pada menu properties dan seacrh file.Untuk Listview sebelumnya setting properties untuk mengubah FullRowSelect menjadi True dan GriedLines menjadi True.

2.  klik pada “COMBOBOX” lalu inputkan coding berikut :

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "E01" Then

            TextBox1.Text = "ANGKA 8"

            TextBox2.Text = "ENDANK SOEKAMTI"

            TextBox3.Text = "PUNK ROCK"

            TextBox4.Text = "50000"

        ElseIf ComboBox1.Text = "E02" Then

            TextBox1.Text = "LONG LIVE FAMILY"

            TextBox2.Text = "ENDANK SOEKAMTI"

            TextBox3.Text = "PUNK ROCK"

            TextBox4.Text = "100000"

        End If

        TextBox5.Focus()

    End Sub

3. Untuk menentukan haga dari jumlah beli,diskon,dan total harga klik pada Textbox5 dan inputkan coding berikut :

Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

        If Asc(e.KeyChar) = 13 Then

            TextBox8.Focus()

        End If

        TextBox6.Text = Val(TextBox4.Text) * Val(TextBox5.Text)

        TextBox7.Text = Val(TextBox4.Text) * Val(TextBox5.Text) * 0.05

    End Sub

Note : ganti sub dengan KeyPress

4. Untuk menampilkan Lsitview dari hasil inputan program inputkan coding berikut pada textbox8 :

Private Sub TextBox8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox8.KeyPress

        If Asc(e.KeyChar) = 13 Then

            ListView1.Focus()

            TextBox8.Text = TextBox6.Text - TextBox7.Text

        End If

        Call ISITABLE()

    End Sub

                      Inputkan juga pada Public class from1 :

Sub BUATTABLE()

        ListView1.Columns.Add("KODE NSP", 25, HorizontalAlignment.Center)

        ListView1.Columns.Add("NAMA LAGU", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("ARTIST", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("GENRE", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("HARGA NSP", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("JUMLAH BELI", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("HARGA", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("DISKON", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("TOTAL HARGA", 50, HorizontalAlignment.Center)

    End Sub

    Sub ISITABLE()

        Dim IST As New ListViewItem

        IST.Text = ComboBox1.Text

        IST.SubItems.Add(TextBox1.Text)

        IST.SubItems.Add(TextBox2.Text)

        IST.SubItems.Add(TextBox3.Text)

        IST.SubItems.Add(TextBox4.Text)

        IST.SubItems.Add(TextBox5.Text)

        IST.SubItems.Add(TextBox6.Text)

        IST.SubItems.Add(TextBox7.Text)

        IST.SubItems.Add(TextBox8.Text)

        ListView1.Items.Add(IST)

    End Sub

5. maka hasilnya akan seperti ini :

THE POWER OF AKU ORA OPO-OPO

Belajar dari kata ihklas itulah yang mau coba kita bahas sahabat blogger."The Power Of Aku Ora Opo-Opo".Ora opo-opo adalah kata jawa yang berarti tidak apa-apa.Dari kehidupan sehari-hari sering kita jumpai makna ikhlas dan sifat ikhlas yang harus kita terapkan dan kita maknai.

Sebuah kata yang berfungsi luar biasa dan tanpa kita sadari menimbun makna yang mendalam dari kata ihklas.Percaya atau tidak kita sering melakukan hal tersebut yaang terdengar sepele.walaupun pele sekarang sudah kalah dengan messi.ketingggalan satu gol kemarin friends..hehehe sedikit celoteh ya friends.

Sering kita alami kejadian dimana situasi mendatangkan kita pasa posisi harus menerima walau tak sesuai hasil.Simplenya kalau seperti jaman sekarang friends , dimana kita harus menerima hasil dari kerja kerass kita dengan kata finish / cut.Terkadang entah untuk terlihat tegar kita mengucap "AKU GAG PAPA KOK" tidak jauh beda dalam artian bahasa jawa friends "ORA OPO-OPO".

Sebuah kata yang berkonotasi sangat luar biasa dimana mampu menghilangkan rasa kecewa diahadapan orang.Tak perlu mengusap dahi dan tak perlu mengusap keringat kata ini mampu menutupi semua rasa kecewa yanng dibelakangnya kita percaya bahwa akan ada harapan dan tantangan yang menjadikan sebuah pencapaian.

Penegasan kata ORA OPO-OPO yang menjadi makna dari kekuatan makna ihklas yang terkadang dianggap susah diwujudkan oleh setiap orang.Kata simple yang mempunyai makna penuh arti dan makna disetiap deringnya.Menjadi sebuah mendalam ketika kita mampu mengatakanya.Banyak makna banyak arti.Yups itulah simbolnya.

Hanya orang-orang yang tegaar dan kuat yang mampu mengucapkan kata tersebut ketika kita terdesak dalam masalah yang membuat kita benar-benar tercepit dan tak terduga.Kata simple yang tidak pernah kita sadari penuh kekuatan.

ORA OPO-OPO memiliki power yang kuat dari setiap katanya.So, mari kita resapi guys dan coba kita resapi dari setiap kejadian yang kita alami.

Contoh Coding C++ Untuk Program Bonus Harga

Salam Soekamtie Friends,
  Bertemu lagi bersama saya disini "ARIE SOEKAMTIE" yang akan berbagi ilmu sedikit yang gag banyak dan gag bayar..hehhehhe yang bertemakan rumus coding C++ untuk menghitung Bonus Harga DI perbelanjaan ( Supermarket ).
  Yups seperti kata bang "Rhoma" berbagilah ilmu waalaupun hanya sedikit..hehehhe 
  Langsung saja ke Pokok penjabaranya friends.
1.Langkah yang pertama pastikan anda sudah mempunyai app Borland C++ (karena kali ini kita akan membahas tentang Coding C++ dan bukan Puding X++..hehhehhe) lalu buka aplikasi C++ anda.Maka akan muncul tampilan seperti ini :

2. Langkah yang kedua pilih new -> Teks Edit lalu akan muncul :

3. Ketikan Coding berikut untuk menampilkan hasil bonus Harga yang kita inginkan :
#include <iostream>
#include <conio.h>
#include <stdio.h>

int main()
{

 char a[20],d[20] ;
 float b,c;
 double e,f,g,h,i,j,k;
 cout<<"                    TOKO SOEKAMTI FM";
 cout<<"\nNama Kasir           : ";cin>>a;
 cout<<"Kode kasir           : ";cin>>b;
 cout<<"%%%%%%%%%%%%%TRANSAKSI PEMBAYARAN%%%%%%%%% ";
 cout<<"\nKode Barang          : ";cin>>c;
 cout<<"Nama Barang          : ";cin>>d;
 cout<<"Harga Barang         : ";cin>>e;
 cout<<"Jumlah Barang        : ";cin>>f;
 g = e * f;
 cout<<"\nTotal Harga          : "<<g;
 if (e>=500000)
 {
 h = g * 0.1;
 cout<<"\nDiscount 10%";
 cout<<"\nTotal Potongan Harga : "<<h;
 }
 else if (e>=300000)
 {
 h = g * 0.05;
 cout<<"\nDiscount 5%";
 cout<<"\nTotal Potongan Harga    : "<<h;
 }
 else
 cout<<"\n";
 cout<<"\nDiskon 10% Untuk Pembelian Barang Seharga Rp.500000 ";
 cout<<"\nDiskon 5% Untuk Pembelian Barang Seharga Rp.300000 ";
 i = g - h;
 cout<<"\nTotal Harga          : "<<i;
 cout<<"\nUang Pembayaran      : ";cin>>j;
 k = j - i;
 cout<<"\nUang Kembalian       : "<<k;
 cout<<"\n######## Terima Kasih ###################";

 getch();
}
-->>Dengan Tampilan :

Catatan :
A. Rumus untuk Pembelian Harga sebesar Rp.500.000 akan berbonus 10%.
B. Rumus untuk Pembelian Harga sebesar Rp.300.000 akan berbonus 5%

3. Langkah terakhir coba me Run program dengan menekan F5 atau pilih Run :

CATATAN FRIENDS :
UNTUK FUNGSI DIGIT ANGKA YANG LEBIH BANYAK , KALIAN DAPAT MRNGGANTI FUNGSI DOUBLE DIUBAH MENJADI LONG. SEPERTI CONTOH BERIKUT :
#include <iostream>
#include <conio.h>
#include <stdio.h>

int main()
{

 char a[20],d[20] ;
 float b,c;
 long e,f,g,h,i,j,k;
 cout<<"                    TOKO SOEKAMTI FM";
 cout<<"\nNama Kasir           : ";cin>>a;
 cout<<"Kode kasir           : ";cin>>b;
 cout<<"%%%%%%%%%%%%%TRANSAKSI PEMBAYARAN%%%%%%%%% ";
 cout<<"\nKode Barang          : ";cin>>c;
 cout<<"Nama Barang          : ";cin>>d;
 cout<<"Harga Barang         : ";cin>>e;
 cout<<"Jumlah Barang        : ";cin>>f;
 g = e * f;
 cout<<"\nTotal Harga          : "<<g;
 if (e>=500000)
 {
 h = g * 0.1;
 cout<<"\nDiscount 10%";
 cout<<"\nTotal Potongan Harga : "<<h;
 }
 else if (e>=300000)
 {
 h = g * 0.05;
 cout<<"\nDiscount 5%";
 cout<<"\nTotal Potongan Harga    : "<<h;
 }
 else
 cout<<"\n";
 cout<<"\nDiskon 10% Untuk Pembelian Barang Seharga Rp.500000 ";
 cout<<"\nDiskon 5% Untuk Pembelian Barang Seharga Rp.300000 ";
 i = g - h;
 cout<<"\nTotal Harga          : "<<i;
 cout<<"\nUang Pembayaran      : ";cin>>j;
 k = j - i;
 cout<<"\nUang Kembalian       : "<<k;
 cout<<"\n######## Terima Kasih ###################";

 getch();
}
 ---------------------------->>>>SELAMAT MENCOBA FRIENDS<<<<------------------------------

Pengertian Internet , Intranet , dan Extranet.

PERBEDAAN INTERNET, INTRANET  & EKSTRANET …

                   INTERNET :

Arti Internet:

Arti harfiahnya mempunyai kependekan  ‘inter-network’ dimana rangkaian komputer yang berhubung menerusi beberapa rangkaian. Manakala Internet (huruf ‘I’ besar) ialah sistem komputer umum, yang berhubung secara global dan menggunakan TCP/IP sebagai protokol pertukaran paket (packet switching communication protocol). Rangkaian internet yang terbesar dinamakan Internet. Cara menghubungkan rangkaian dengan kaedah ini dinamakan internetworking.

Beberapa layanan populer di Internet yang menggunakan protokol di atas, ialah email/surat elektronik, Usenet, Newsgroup, berbagi berkas (File Sharing), WWW (World Wide Web), Gopher, akses sesi (Session Access), WAIS, finger, IRC, MUD, dan MUSH. Di antara semua ini, email/surat elektronik dan World Wide Web lebih kerap digunakan, dan lebih banyak servis yang dibangun berdasarkannya, seperti milis (Mailing List) dan Weblog. Internet memungkinkan adanya servis terkini (Real-time service), seperti web radio, dan webcast, yang dapat diakses di seluruh dunia. Selain itu melalui Internet dimungkinkan untuk berkomunikasi secara langsung antara dua pengguna atau lebih melalui program pengirim pesan instan seperti Camfrog, Pidgin (Gaim), Trilian, Kopete, Yahoo! Messenger, MSN Messenger dan Windows Live Messenger.

Beberapa servis Internet populer yang berdasarkan sistem tertutup (Proprietary System), adalah seperti IRC, ICQ, AIM, CDDB, dan Gnutella.

KEUNGGULAN DAN KELEMAHAN INTERNET

-      Keunggulan tersebut antara lain :
          Berbagai keunggulan yang dapat diperoleh dalam internet sebagai sarana pendukung
kebutuhan masyarakat, khususnya dalam riset dan bisnis. Keunggulan tersebut antara lain :

• Konektivitas dan jangkauan global

-                Dalam internet jaringan yang terjalin bersifat global tanpa mengenal ruang, waktu, dan birokrasi, dimana akses data dan informasi melampaui batas-batas negara dan protokoler. Misalnya anda membutuhkan referensi dan sumber informasi untuk kebutuhan riset, maka akan dijumpai berbagai sumber dan informasi dalam internet secara global tanpa harus mendatangi sumber dan informasi tersebut.

-      Akses 24 jam

Akses di internet tidak dibatasi dengan waktu, karena dimana pun dan kapan pun dunia maya (akses internet) tidak pernah terlelap tidur. Perbedaan zone waktu dan ruang tidak dikenal dalam menjelajah internet. Misalnya anda akses internet malam hari di P4TK Matematika maka di belahan dunia lain (misalnya Afrika dan Amerika) sedang giat-giatnya bekerja, demikian juga sebaliknya.

-      Kecepatan

Kecepatan untuk mendapatkan informasi dan berkomunikasi di internet menjadi salah satu pertimbangan pengguna dalam menggunakan internet. Pencarian informasi dengan internet jauh lebih cepat dibandingkan dengan pencarian secara manual. Anda tinggal klik pada salah satu icon dan tunggu beberapa saat, maka informasi tersebut sudah anda dapatkan.

Kelemahan tersebut antara lain :

• Ancaman virus

          Salah satu masalah dalam dunia internet adalah ancaman virus yang selalu berkembang seiring perkembangan dunia komputer maupun perkembangan internet itu sendiri. Berbagai virus telah berkembang dan penyebarannya pun bervariatif, khususnya menyebar lewat jaringan global internet, baik lewat e-mail maupun file-file yang di download.

• Ketergantungan pada jaringan telepon, satelit dan Internet Service Provider

-               Fasilitas jaringan telepon, bahkan satelit serta ISP menjadi sangat berpengaruh terhadap biaya pemakaian internet. Apabila anda akses internet dial-up, maka kenaikan tarif pulsa telepon dan ISP menjadi pengaruh yang cukup kuat terhadap akses internet. Selain itu saluran telepon di Indonesia masih relatif lambat, yang pada gilirannya akan berpengaruh terhadap waktu akses internet dan biaya akan lebih mahal.

Dampak Negatif Internet
Penggunaan internet saat ini sudah merasuk pada hampir semua aspek kehidupan. Internet sangat bermanfaat bagi semua kalangan karena memberikan informasi yang up to date setiap saat. Disamping internet mempunyai banyak manfaat, internet juga memiliki dampak negatif apabila tidak digunakan secara baik. Dampak negatif penggunaan internet seiring perkembangannya antara lain

• Adanya ancaman virus
• Carding atau pencurian nomor kartu kredit
• Adanya aktivitas cracking
• Pembajakan karya intelektual
• Penyebaran situs-situs yang tidak sesuai dengan moral (pornografi)

Untuk menanggulangi dampak negatif penggunaan internet, maka perlu adanya pengawasan khusus dan aturan yang jelas tentang pemakaian internet terutama dikalangan pendidikan.

                        INTRANET :

Pengertian Intranet
Intranet merupakan jaringan informasi intenal suatu perusahaan atau organisasi yang prinsip kerjanya sama dengan internet. Intranet dapat diartikan sebagai bentuk privat dari internet atau internet yang penggunaannya terbatas pada suatu organisasi/perusahaan. Akses intranet memerlukan identifikasi pengguna dan password sehingga hanya dapat diakses oleh anggota organisasi atau karyawan perusahaan tersebut. Intranet biasanya digunakan untuk membagi kalender/jadwal kegiatan, dokumen, dan sarana diskusi internal yang tertutup, sehingga tidak dapat diakses oleh pihak luar. Teknologi dan konsep internet seperti client-server dan protokol internet seperti HTTP dan FTP juga digunakan untuk membangun sebuah intranet.

Keuntungan penggunaan intranet bagi suatu organisasi atau perusahaan antara lain :

• Produktifitas kerja
• Efisiensi waktu
• Komunikasi
• Sistem publikasi web
• Efektifitas biaya
• Keseragaman informasi
• Meningkatkan kerjasama

Intranet juga memiliki beberapa kelemahan antara lain

• Informasi yang salah atau tidak sesuai sehingga mengurangi efektifitasnya
• Interaksi di intranet yang mungkin tidak bertanggung jawab
• Perlu pelatihan khusus untuk anggota dalam menggunakan intranet
• Perlu tenaga ahli untuk membangun dan mengembangkan intranet di sebuah organisasi atau perusahaan
• Bisa terjasi overload (data penuh) akibat pengiriman pesan antar pengguna yang tidak terkontril dengan baik.

                            EKSTRANET :

Extranet atau Ekstranet adalah jaringan pribadi yang menggunakan protokol internet dan sistem telekomunikasi publik untuk membagi sebagian informasi bisnis atau operasi secara aman kepada penyalur (supplier), penjual (vendor), mitra (partner), pelanggan dan lain-lain.

Ekstranet adalah sebuah tipe dari sistem informasi interorganisasi yang memungkinkan orang-orang dari luar perusahaan untuk bekerja bersama dengan pekerja yang berada di dalam perusahaan. Secara umum diartikan sebagai sebuah jaringan yang menghubungkan antara mitra-mitra bisnis melalui internet atau dapat diartikan sebagai jaringan yang menghubungkan jaringan-jaringan intranet antara perusahaan-perusahaan yang bekerjasama. Tujuan utama dari ekstranet adalah untuk menggalang terjadinya kolaborasi antara mitra-mitra bisnis, ekstranet dibuka untuk penyuplai, pelanggan, dan mitra bisnis lainnya, dan ditutup umtuk masyarakat umum

Tipe-tipe utama dari ekstranet adalah (berdasarkan rekan bisnis yang terlibat dan tujuannya) :

v  Perusahaan dan dealernya, pelanggannya, dan suppliernya. Ekstranet seperti ini dipusatkan pada satu perusahaan

v  Sebuah ekstranet industri. Beberapa industri bergabung membuat ekstranet yang berguna untuk mereka

v  Joint Venture dan kemitraan bisnis lainnya. Beberapa mitra bisnis bergabung untuk membentuk ekstranet yang digunakan sebagai alat untuk berkolaborasi dan berkomunikasi

Kesimpulan :

 Internet, Intranet dan Extranet, ketiganya merupakan hal yang idak bisa ditinggalkan di era modern saat ini. Kesemuanya memiliki fungsi sendiri-sendiri yang bermanfaat untuk kelangsungan hidup perusahaan, akses informasi maupun perkembangan dunia teknologi.
 Sekian kilas diskusi materi mengenai materi Internet , Intranet , dan Extranet dari saya. Salam hangat Keep Calm And Call Me SoeKamTie,