Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To 5
            no.Items.Add(i)
        Next
        kode.Items.Add("1")
        kode.Items.Add("2")
        kode.Items.Add("3")
        lv.Columns.Add("NO", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Kode", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Produk", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Total", 150, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "1"
                produk.Text = "TV"
                harga.Text = 2000000
            Case "2"
                produk.Text = "DVD"
                harga.Text = 650000
            Case "3"
                produk.Text = "CD-ROOM"
                harga.Text = 450000
        End Select
    End Sub

    Private Sub total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles total.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Call proses()
        End If
    End Sub
    Sub proses()
        total.Text = Val(harga.Text) * Val(jumlah.Text)
    End Sub
    Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Dim list As New ListViewItem
        list.Text = no.Text
        list.SubItems.Add(kode.Text)
        list.SubItems.Add(produk.Text)
        list.SubItems.Add(harga.Text)
        list.SubItems.Add(jumlah.Text)
        list.SubItems.Add(total.Text)
        lv.Items.Add(list)
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        no.Text = ""
        kode.Text = ""
        produk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        lv.Items.Clear()
    End Sub
End Class

Program Sewa CD dengan Array Pascal

Kali ini saya akan memposting buat kalian tentang pemrograman Pascal. Yaitu tentang program sewa CD. Program ini merupakan program yang memakai array,
untuk lebih jelasnya maka kita langsung lihat kodingnya.


PROGRAM COBA; USES CRT; VAR NO, NAMA : ARRAY[1..100] OF STRING[15]; LAMA, JUMLAH : ARRAY[1..100] OF INTEGER; HARGA, DENDA, DISK, BYR : REAL; I,JD : INTEGER; TANYA : CHAR; BEGIN I:=0; REPEAT CLRSCR; I:=I+1; WRITE('NO REKENING : ');READLN(NO[I]); WRITE('NAMA PELANGGAN : ');READLN(NAMA[I]); WRITE('JUMLAH KASET : ');READLN(JUMLAH[I]); WRITE('LAMA PINJAM : ');READLN(LAMA[I]); WRITE('MASIH ADA LAGI ? Y/T : ');READLN(TANYA); UNTIL TANYA='T'; JD:=I; I:=0; CLRSCR; WRITELN(' DAFTAR PENERIMAAN BIAYA SEWA CASSET '); WRITELN(' ROMEO VIDEO RENTAL'); WRITELN(''); WRITELN('__________________________________________________________________________'); WRITELN('| NO REK | NAMA | JML | LAMA | BIAYA | DENDA | DISKON | BAYAR |'); WRITELN('| | PELANGGAN | CASSET | SEWA | | | | |'); WRITELN('=========================================================================='); REPEAT I:=I+1; HARGA:=JUMLAH[I]*2500; DENDA:=1000; IF LAMA[I]>2 THEN DENDA:=1000*(LAMA[I]-2) ELSE DENDA:=0; DISK:=10/100*(HARGA+DENDA); BYR:=(HARGA+DENDA)-DISK; WRITELN('|',NO[I]:8,'|',NAMA[I]:12,'|',JUMLAH[I]:8,'|',LAMA[I]:7,'|',HARGA:8:0,'|',DENDA:7:0,'|',DISK:8:0,'|',BYR:7:0,'|'); WRITELN('__________________________________________________________________________'); UNTIL I=JD; WRITELN('=========================================================================='); READLN; END.

Program Input dan Hitung Nilai Siswa dengan Turbo Pascal

     Saya akan sampaikan apa saya pahami dengan array pascal. Karena saya sebenarnya juga masih tahap belajar. Jadi nanti jika ada kesalahan dan kekurangan mohon maklumi dan untuk yang punya kesulitan boleh coret - coret di komen yaa.
Saya kira tidak-lah baik jika saya panjang lebarkan lagi pembukaan ini, maka kita langsung saja coba scriptnya ini.

PROGRAM COBA;
USES CRT;
VAR 
NM  : ARRAY[1..100] OF STRING[15];
NL : ARRAY[1..100] OF INTEGER;
X, JD,JML,NMIN,NMAX  : INTEGER;
TANYA  : CHAR;
RATA    : REAL;

BEGIN 
X:=0;
REPEAT
X:=X+1;
CLRSCR;
WRITELN('DATA KE                : ', X:3);
WRITE('NAMA SISWA             :');READLN(NM[X]);
WRITE('NILAI                  :');READLN(NL[X]);
WRITELN;
WRITE('MASIH ADA DATA Y/T: ');READLN(TANYA);
UNTIL TANYA='T';
JD:=X;
X:=0;
CLRSCR;
WRITELN('            DAFTAR NILAI');
WRITELN('========================================');
WRITELN(' NO      NAMA SISWA           NILAI');
WRITELN('----------------------------------------');
JML:=0;
NMIN:=NL[1];
NMAX:=NL[1];
REPEAT
X:=X+1;
IF NL[X]<nmin THEN NMIN:=NL[X];
IF NL[X]>NMAX THEN NMAX:=NL[X];
WRITELN(X:3,NM[X]:15,NL[X]:15);
JML:=JML+NL[X];
UNTIL X=JD;
WRITELN('========================================');
RATA:=JML/JD;
WRITELN('RATA-RATA           : ', RATA:5:2);
WRITELN('NILAI TERTINGGI     : ', NMAX:3);
WRITELN('NILAI TERENDAH      : ', NMIN:3);


READLN;


END.

Membuat Program Pascal untuk Perkalian, Pengurangan, Penambahan, atau Pembagian Bilangan

     Pada kesempatan kali ini saya akan memberikan sebuah tutorial mengenai cara membuat program pascal.
     Okey, berbicara mengenai pemrograman pascal maka tidak akan jauh dari alogaritma. Alogaritma bisa dikatakan sebagai system pemecahan atau penyelesaian masalah. Contohnya jika kita merasa terbebani jika harus mengitung perkalian/ penjumlahan/ pengurangan/ pembagian, maka kita akan membuat sebuah progam perkalian/ penjumlahan/ pengurangan/ pembagian,  pada bilangan. Jika kita bisa membuat program sendiri meskipun sangat sederhana tapi itu dapat membuat kita bangga.

Pada pembuatan program kali ini software yang kita gunakan adalah Turbo Pascal 1.5/ TPW 1.5 . Jika laptop/ PC yang anda gunakan tidak bisa diinstall maka anda perlu mengganti PC/ Laptop anda mengganti 64 bit menjadi 32 bit.

Selanjutnya, adalah script program perkalian :

program Perkalian_Bilangan;

uses wincrt;

var

y, x, z : longint;

begin

   writeln(' -------------------------- ');

   writeln('     Program Perkalian ');

   writeln(' -------------------------- ');

   write  (' Bilangan 1 : ');read(x);

   write  (' Bilangan 2 : ');read(y);

   writeln(' -------------------------- ');

            z:=x*y;

   writeln(' Hasil      : ',z);

end. 

Untuk menyalinnya blok dan pencet tombol Ctrl+C kemudian pastekan pada lembar kerja TPW 1.5 dengan memencet tombol Ctrl+Ins/ Ctrl+Insert. Untuk menyimpannya klik Menu File => Save =>Pilih direktori/ tempat penyimpanan =>tentukan nama disertai ”.pas” sebagai type penyimpanan pascal.

Jika anda ingin merubahnya menjadi Program Pertambahan/ Pengurangan/ Pembagian, Anda cukup mengganti tulisan “Perkalian” menjadi “Pertambahan/ Pengurangan/ Pembagian” kemudian mengganti

Rumus “ z:=x*y; ” menjadi “ z:=x+y; ”

Jika Pengurangan maka  Rumus “ z:=x*y; ” menjadi “ z:=x-y; ”

Jika Pembagian maka Rumus “ z:=x*y; ” menjadi “ z:=x/y; ”

Membuat Program Kalkulasi pada Pascal

 Sepintas mengenai Pascal menurut yang saya pelajari, adalah salah satu program selain C++, Java, yang patut diketahui oleh seorang calon Programer. Program ini disarankan sebagai awal karena perintah-perintah nya yang friendly user dan Bahasa Inggris yang sering kita dengar.

Selanjutnya saya akan memberi contoh awal proses pengolahan kalkulasi pada Pascal, disini kami menggunakan “Turbo Pascal 1.5”. Untuk itu mari langsung saja “Membuat Program Kalkulasi pada Pascal”.

Gambar 1

Selanjutnya konsep dasar dalam pengolahan kalkulasi pada pascal adalah sebagai berikut.

Gambar 2

Pada gambar ini kita tentukan 2 Challenge atau tantangan yang diberikan sebagai langkah anda dalam pengolahan, yaitu mengubah variabel (a, b, c) danmengubah tanda + (penjumlahan) menjadi pengurangan, perkalian, dan pembagianpada pascal.

Sebagai contoh, mari kita lihat hasil percobaan yang kami buat.

Gambar 3

Disini kami mencoba membuat perubahan, seperti.

1     .      Mengganti variabel a,b,c menjadiinput1, input2,hasil.

2     .      Berimprovisasi dengan mengganti kata “Nilai” menjadi “Angka”.

Untuk lebih jelasnya silahkan anda bandingkan Gambar 2 dengan Gambar 3. Hasil ini dalam bentuk penjumlahan tested dan working. 9 + 4 = 13 artinya Challenge 1 berhasil. √

Selanjutnya kita ke Challenge 2, mengubah tanda operasi pada proses diatas. So, let’s check it out, dude!

Gambar 4

Pada Gambar 4 kita ganti tanda operasi dan teks nya menjadi – (Pengurangan) untuk menghasilkan kalkulasi pengurangan. Hasil ini dalam bentuk pengurangan tested dan working. 9 – 4 = 5 artinya kalkulasi untuk pengurangan telah berhasil. √

Selanjutnya mengubah tanda operasi dan teks nya menjadi * (Perkalian) untuk menghasilkan kalkulasi perkalian. Untuk itu, mari kita lihat pada Gambar 5.

Gambar 5

Hasil ini dalam bentuk perkalian tested dan working. 9 x 4 = 36 artinya kalkulasi untuk pembagian  telah berhasil. √

Note : Sama seperti pada Microsoft Excel, tanda operasi untuk perkalian pada pascal pun (*).

Selanjutnya mengubah tanda operasi dan teks nya menjadi div (Pembagian) untuk menghasilkan kalkulasi perkalian. Untuk itu, mari kita lihat pada Gambar 6.

Gambar 6

Hasil ini dalam bentuk pembagian tested dan working dengan hasil bilangan bulat. 9 : 4 = 2 artinya kalkulasi untuk pembagian dengan hasil bilangan bulat telah berhasil. √

Note : Tanda operasi pembagian pada Pascal yang sama halnya dengan Excel yaitu (/). Tapi kami telah mencoba menggunakannya namun saat di Run pada baris/line tersebut dideteksi kesalahan. Dan saat kami mencoba menggunakandiv maka proses berjalan dengan baik dengan hasil akhir pembulatan tadi.

Cara membuat cctv menggunakan hp android

Step 1

tentunya sebelum anda memulai anda harus memiliki hp dengan OS android yang ada fasilitas hotshopnya , dan sebuah laptop yang memilki wifi . Nah dan juga anda pastikan juga hp android anda sudah terinstall apikasi airdroid .aplikasi ini yang akan kita gunakan sebagai media kita membuat cctv menggunakan hp dan laptop ,anda bisa mendownload aplikasi airdroid ini di google play store secara gratis.

tampilan app airdroid di hp android

Step 2

kemudian jika hp android anda sudah terinstall aplikasi airdroid itu kemudian anda buka , nah setelah itu anda buka di menu tools kemudian klik Tethering , setelah itu akan muncul popup window, lalu pilih Enable di bagian Set up portable hotshop , lihat gambar di bawah ini supaya lebih jelas .

mengaktifkan portable hotshop di hp android

Step 3

Nah jika portable hotspot sudah aktif maka akan muncul alamat ip seperti ini :

apabila sukses , akan muncul alamat ip

Step 4

Nah jika sudah aktif maka sekarang kita beralih ke laptop kita , kemudian kita akan connect ke portable hotshop yang sudah kita aktifkan tadi , lihat gambar di bawah ini : “saya membuat hotshop dengan nama airDroid AP

connect ke portable hotspot android tadi

Step 5

Jika sudah connect ke portable hotshop , kemudian kita buka browser kita , nah saya sarankan agar anda menggunakan browser google chrome , itu saya sarankan , karena saya pernah mencoba menggunakan browser lain hasilnya akan selalu error atau gagal , maka dari itu saya sarankan menggunakan browser google chrome.

Nah jika sudah kemudian beralihlah ke browser dan ketik ip yang ada di hp anda di adress bar browser google chrome tadi.lihat gambar di bawah

tulis ip yang ada di hp android tadi di adress bar browser anda

Step 6

Oke sekarang tekan enter , jika anda menemui halaman seperti error seperti ini, lihat gambar di bawah ini

muncul pesan peringatan melanjutkan atau tidak

langsung saja tekan tombol Proceed anyway , jika tidak ada maka akan langsung muncul pesan confirmasi dari hp kita untuk setuju atau tidak , serperti ini ,

meminta izin dari hp untuk melanjutkan atau tidak

jika sudah muncul seperti di atas kemudian anda lihat di hp android anda , akan muncul seperti di bawah ini :

tampilan di hp android

langsung saja pilih Accept untuk melanjutkan , dan jika ingin membatalkan pilih Reject , tetapi untuk sekarang pilih Accept saja. Dan taraaa , akhirnya anda sudah berhasil mengkoneksikan hp dan laptop anda menggunakan aplikasi airdroid tadi , jika sukses maka tampilan di browser anda akan menjadi seperti ini :

tampilan airdroid di browser anda

Oke sekarang kita sudah hampir selesai .

Step 7

Jika sudah seperti diatas , langsung saja tekan shortcut Camera yang ada di windows browser anda , maka akan muncul alert tetapi langsung saja klik OK , lihat gambar di bawah ini :

mengaktifkan kamera

Cara Menghitung Panjang / Ukuran Array di C++

#include <iostream.h>
#include <conio.h>

void main()
{
cout<<"Program Menghitung Ukuran / Panjang Array"<<endl;
int data[] = {4,6,1,7,8,9};
int panjang;
panjang = sizeof(data)/sizeof(data[0]);
cout<<"Panjang Elemen Array = "<<panjang;
getch();
}

Program Kalkulator C++

Program Kalkulator C++ adalah suatu kumpulan program sederhana yang ada pada bahasa pemrograman C++. Dapat juga dilihat program menghitung gaji pada post lainnya. Program Kalkulator C++ sederhananya akan kita lihat seperti berikut :

Kode C++ nya seperti berikut :

#include <iostream.h>
#include <conio.h>
#include <cstring.h>
int main ()
{
awal:
clrscr ();

    cout<<"Kalkulator Sederhana"<<endl;
    cout<<"Created By Putra Mahayana"<<endl;
    cout<<"http://kumpulan-pemrograman.blogspot.com"<<endl<<endl;

    int a , b ,hasil;
    string jml = "Penjumlahan"  ;
    string krng= "Pengurangan" ;
    string kali= "Perkalian" ;
    string bagi= "Pembagian";

    cout<<"Masukan Bilangan ke-1 : ";
    cin>>a;
    cout<<"Masukan Bilangan Ke-2 : ";
    cin>>b;

    cout<<"\nOperasi Aritmatika : "<<endl;
    cout<<"1. Penjumlahan "<<endl;
    cout<<"2. Pengurangan "<<endl;
    cout<<"3. Perkalian   "<<endl;
    cout<<"4. Pembagian   "<<endl;

    back:
    char p ;
    cout<<"\nSilakan Masukan Pilihan Anda :";
    cin>>p;

        if (p =='1')
                {
                hasil = a + b;
                cout<<"Hasil Operasi "<<jml<<", "<<a<<" Dan "<<b<<" = "<<hasil<<endl;
                }
        else if (p =='2')
                {
                hasil = a - b ;
                cout<<"Hasil Operasi "<<krng<<" , "<<a<<" Dan "<<b<<" = "<<hasil<<endl;
                }
        else if (p =='3')
                {
                hasil = a * b ;
                cout<<"Hasil Operasi "<<kali<<" , "<<a<<" Dan "<<b<<" = "<<hasil<<endl;
                }
        else if (p =='4')
                {
                hasil = a / b ;
                cout<<"Hasil Operasi "<<bagi<<" , "<<a<<" Dan "<<b<<" = "<<hasil<<endl;
                }
        else
            {
            cout<<"Maap Anda Salah Masukan Menu Pilihan ! "<<endl;;
            goto back ;
            }
    balik:
    cout<<"Mengulang : [Y/N] ? "  ;
    char m ;
    cin>>m;
        if (m == 'Y')
            goto awal ;
        else if (m == 'N')
            {
            cout<<"\n\nhttp://kumpulan-pemrograman.blogspot.com";
            goto akhir;
            }
        else
            {
            cout<<"Maap Keyword Salah "<<endl;
            goto balik;
            }
akhir:

getch ();
return 0;
}