MEMBUAT PROGRAM PENDAFTARAN DENGAN VISUAL BASIC 6.0

Halloo everyone...

di post ini saya akan sedikit berbagi tentang visual basic. Sebenernya ini kuis UTS kemaren disuruh bikin ginian Hehe.. ya alhamdulillah berhasil makanya mau dishare sedikit :)

cekidot guys!

Dengan Ketentuan:

-Pada saat program dijalankan, Kursor berada di Nomor Pendaftaran.

-Nomor Pendaftaran, Nama Siswa dan Alamat di input manual.

-Jenis Kursus ada 3: VBP, PHP, FLS

-Jika:
VBP, Maka: Nama Kursus VISUAL BASIC. Biaya Rp 400.000

PHP, maka: Nama Kursus PEMROGRAMAN PHP. Biaya Rp 500.000

FLS, maka: Nama Kursus ANIMASI FLASH. Biaya Rp 450.000

-Biaya Pendaftaran Rp 75.000

-Paket Kursus ada 2: Fundamental, dan Advanced

-Jika Fundamental, maka: Biaya Modul Rp 200.000

         Advanced, maka: Biaya Modul Rp 350.000

-Button "Hitung Total" = Biaya Kursus + Biaya Pendaftaran + Biaya Modul

-Button "Daftar Lagi" untuk membersihkan, dan kursor kembali berada di Nomor Pendaftaran.

-Button "Keluar" untuk keluar dari program.

Pertama, buat design tampilan seperti tampilan di atas. Jangan lupa untuk ME-RENAME semua textbox, command button, combobox, optionbutton, dan label menjadi nama-nama dibawah ini (sebenarnya bebas mau dikasih nama apa, tapi untuk ini, samain aja namanya biar nggak bingung):
re-namenya di Properties ya....

Textbox:
txtnopen
txtnama
txtalamat
txtnakur
txtbiaya
txtbiapen
txtbiamod
txttotbia

ComboBox:
cbjenis

OptionButton:
optfunda
optadvan

CommandButton:
cmdhitung
cmdlagi
cmdkeluar

CODINGAN

Private Sub Form_Activate()
txtnopen.SetFocus
End Sub


Private Sub Form_Load()
cbjenis.AddItem ("VBP")
cbjenis.AddItem ("PHP")
cbjenis.AddItem ("FLS")
End Sub

Private Sub cbjenis_Click()

If cbjenis.Text = "VBP" Then

   txtnakur.Text = "VISUAL BASIC"

   txtbiaya.Text = 400000

ElseIf cbjenis.Text = "PHP" Then

   txtnakur.Text = "PEMROGRAMAN PHP"

   txtbiaya.Text = 500000

Else

   txtnakur.Text = "ANIMASI FLASH"

   txtbiaya.Text = 450000

End If

End Sub

Private Sub cmdhitung_Click()

txtbiapen.Text = 75000

If optfunda.Value = True Then

txtbiamod.Text = 200000

Else

txtbiamod.Text = 350000

End If

txttotbia.Text = Val(txtbiapen.Text) + Val(txtbiaya.Text) + Val(txtbiamod.Text)

End Sub

Private Sub cmdlagi_Click()

txtnopen.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

cbjenis.Text = ""

txtnakur.Text = ""

txtbiaya.Text = ""

optfunda.Value = False

optadvan.Value = False

txtbiapen.Text = ""

txtbiamod.Text = ""

txttotbia.Text = ""

txtnopen.SetFocus

End Sub

Private Sub cmdkeluar_Click()

pesan = MsgBox("Tutup Pendaftaran?", vbYesNo + vbQuestion, "Konfirmasi")

If pesan = vbYes Then

End

End If

End Sub

SEMOGA BERMANFAAT :)
SEE YOU NEXT POST!

Read More

Program Penggajian Karyawan dengan C++

PT. PUSING PALA BARBIE  memberi gaji pokok kepada karyawan  kontraknya sebesar Rp.300.000 perbulan, dengan memperoleh tunjangan-tunjangan sebagai berikut:

·         Tunjangan Jabatan dan Pendidikan:

Golongan	Persentase	Tingkat Pendidikan	Persentase
1	5%	SMA	2.5%
2	10%	D3	20%
3	20%	S1	30%

Jika karyawan tersebut golongan 1, maka tingkat pendidikannya SMA dan mendapatkan Tunjangan Jabatan sebesar 5% * Rp.300.000 (gaji pokok), serta Tunjangan Pendidikan sebesar 2.5% * Rp.300.000 (gaji pokok).

·         Honor Lembur dan Transport:

Jumlah jam kerja normal sebanyak 8 jam, honor lembur diberikan jika jumlah jam kerja lebih dari 8 jam. Kelebihan jam kerja tersebut dikalikan dengan Rp. 10.000. Transport didapat dari jumlah hari kerja dikalikan dengan Rp. 20.000.

·         Tampilan program yang dihasilkan sebagai berikut:

PROGRAM  HITUNG  GAJI  KARYAWAN

PT. PUSING PALA BARBIE

Nama karyawan          :<input>

NIK                             : <input>

Golongan jabatan        : <input>

Jumlah hari kerja         : <input>

Jumlah jam kerja         : <input>

Pendidikan                  : <output>

Karyawan yang bernama  <output>

Honor yang diterima

                              Tunjangan jabatan                   : Rp. <output>

                        Tunjangan pendidikan                        : Rp. <output>

Gaji Pokok                              : Rp. <output>

                              Lembur                                    : Rp.<output>

                              Transport                                 : Rp.<output>

                            _____________________________________+

                        Gaji Bersih                              : Rp.<output>

(gaji bersih=tunjangan jabatan+tunjangan pendidikan+gaji pokok+lembur+transport).

SCREENSHOOT PROGRAM

Berikut ini adalah hasil screenshoot/printscreen Program Penggajian Karyawan yang kami buat:

(Gambar 2.2.1 Tampilan pertama program setelah di RUN)

  

(Gambar 2.2.2 Tampilan setelah input dan output tercetak)

Dan ada perintah kalimat “Apa Mau Input  Data Lagi ? [Y/T] :

Jika kita pilih Y/y, maka tampilan yang muncul seperti awal kembali (lihat gambar 2.2.1 dan gambar 2.2.2)

 Dan jika yang kita pilih T/t, maka program akan tertutup dan akan muncul tampilan seperti ini:

                    (Gambar 2.2.3 Tampilan program jika anda pilih T/t)

 CODING PROGRAM

Berikut ini adalah coding dari Program Penggajian Karyawan yang kami buat untuk tugas ini:

#include<stdio.h>

#include<conio.h>

#include<iostream.h>

main()

{

char nama[50],gol,pend,kembali,yt,selesai;

float jam,jum_hari,nik,tun_jab,lembur,tun_pen,transport,gapok,gaji;

gapok=300000;

kembali:

cout<<"\t\t\tPROGRAM HITUNG GAJI KARYAWAN\n";

cout<<"\t\t\t   PT. PUSING PALA BARBIE\n";

cout<<"\t\tJalan Raya Penuh Kenangan Bukan Genangan, No.123\n";

cout<<"\t==============================================================\n";

cout<<endl;

cout<<"\t\tNama Karyawan          : ";cin>>nama;

cout<<"\t\tNIK                                : ";cin>>nik;

cout<<"\t\tGolongan Jabatan        : ";cin>>gol;

cout<<"\t\tJumlah Hari Kerja       : ";cin>>jum_hari;

cout<<"\t\tJumlah Jam Kerja        : ";cin>>jam;

cout<<"\t\tPendidikan                   : "<<pend;

 switch(gol)

    {

        case '1':

            cout<<"SMA"<<pend;

            tun_jab = 0.05*gapok;

            tun_pen = 0.025*gapok;

            break;

        case '2':

            cout<<"D3"<<pend;

            tun_jab = 0.1*gapok;

            tun_pen = 0.2*gapok;

            break;

        case '3':

                        cout<<"S1"<<pend;

            tun_jab = 0.2*gapok;

            tun_pen = 0.3*gapok;

            break;

        default    :

            tun_jab = 0;

            tun_pen = 0;

            break;

    }

cout<<endl<<endl;

cout<<"Karyawan yang bernama "<<nama<<endl;

cout<<"Honor yang diterima"<<endl;

cout<<"\t\tTunjangan Jabatan      : Rp. "<<tun_jab<<endl;

cout<<"\t\tTunjangan Pendidikan   : Rp. "<<tun_pen<<endl;

cout<<"\t\tGaji Pokok             : Rp. "<<gapok<<endl;

if(jam>8)

{

 lembur=(jam-8)*10000;

}else

{

 lembur=0;

}

cout<<"\t\tLembur                 : Rp. "<<lembur<<endl;

transport=jum_hari*20000;

cout<<"\t\tTransport              : Rp. "<<transport<<endl;

cout<<"___________________________________________________+"<<endl;

gaji=tun_jab+tun_pen+gapok+lembur+transport;

cout<<"\t\tGaji Bersih            : Rp. "<<gaji<<endl;

cout<<endl;

cout<<"---------------------------------------------"<<endl;

cout<<"\t **** TERIMA KASIH ****        ";

cout<<endl;

cout<<" Apa Mau Input Data Lagi ? [Y/T] : ";cin>>yt;

cout<<endl;

clrscr();

if(yt=='Y' || yt=='y')

{goto kembali;}

if(yt=='T' || yt=='t')

{goto selesai;}

selesai:

cout<<endl;

cout<<"\t******* TERIMA KASIH *******"<<endl;

getch();

}

Mohon maaf jika banyak kekurangan.

Semoga bermanfaat :)

Read More

Aplikasi dengan Codingan Array - Pizza Delivery

Kali ini saya akan share codingan sebuah aplikasi yang menggunakan Array. Tidak cuma Array, ada seleksi kondisi If nya juga. Bukan hasil murni bikinan sendiri sih hihihi. Yang bikin teman saya namanya Dwi Lasto. Tapi dia juga tidak 100% bikin sendiri codingannya. Dia dapet dari internet juga, kemudian dia gabungkan coding-codingan tersebut, dan hasilnya seperti di bawah ini:

codingan dari hasil di atas:


#include<stdio.h>
#include<conio.h>
#include<iostream.h>
brand(){int i;
gotoxy(2,4);cout<<"\xcc"; for(i=3;i<=76;i++) cprintf("\xCD"); gotoxy(3,76);cout<<"\xB9";
gotoxy(4,3);cout<<">>>>>>>>>>   PIZZA LA-PIZZA DELIVERY  <<<<<<<<<";}

design()

  {

    textcolor(BLUE);

    gotoxy(2,2);

    cprintf("\xC9");

    int i;

    for(i=1;i<=74;i++)

      cprintf("\xCD");

    gotoxy(77,2);

    cprintf("\xBB");

     gotoxy(2,3);cprintf("\xBA");gotoxy(2,4);cprintf("\xBA");gotoxy(2,5);cprintf("\xBA");gotoxy(2,6);cprintf("\xBA");

     gotoxy(2,7);cprintf("\xBA");gotoxy(2,8);cprintf("\xBA");gotoxy(2,9);cprintf("\xBA");gotoxy(2,10);cprintf("\xBA");

     gotoxy(2,11);cprintf("\xBA");gotoxy(2,12);cprintf("\xBA");gotoxy(2,13);cprintf("\xBA");gotoxy(2,14);cprintf("\xBA");

     gotoxy(2,15);cprintf("\xBA");gotoxy(2,16);cprintf("\xBA");gotoxy(2,17);cprintf("\xBA");gotoxy(2,18);cprintf("\xBA");

     gotoxy(2,19);cprintf("\xBA");gotoxy(2,20);cprintf("\xBA");gotoxy(2,21);cprintf("\xBA");gotoxy(2,22);cprintf("\xCC");

     gotoxy(2,23);cprintf("\xBA");gotoxy(2,24);cprintf("\xC8");

     gotoxy(3,24);

     for(i=1;i<=74;i++)

       cprintf("\xCD");

     gotoxy(77,18);cprintf("\xBA");gotoxy(77,19);cprintf("\xBA");gotoxy(77,20);cprintf("\xBA");gotoxy(77,21);cprintf("\xBA");

     gotoxy(77,23);cprintf("\xBA");gotoxy(77,24);cprintf("\xBC");

     gotoxy(3,22);

     for(i=1;i<=74;i++)

       cprintf("\xCD");

     gotoxy(77,22);cprintf("\xB9");gotoxy(77,3);cprintf("\xBA");gotoxy(77,4);cprintf("\xBA");gotoxy(77,5);cprintf("\xBA");

     gotoxy(77,6);cprintf("\xBA");gotoxy(77,7);cprintf("\xBA");gotoxy(77,8);cprintf("\xBA");gotoxy(77,9);cprintf("\xBA");

     gotoxy(77,10);cprintf("\xBA");gotoxy(77,11);cprintf("\xBA");gotoxy(77,12);cprintf("\xBA");gotoxy(77,13);cprintf("\xBA");

     gotoxy(77,14);cprintf("\xBA");gotoxy(77,15);cprintf("\xBA");gotoxy(77,16);cprintf("\xBA");gotoxy(77,17);cprintf("\xBA");
     gotoxy(16,23); cout<<"\t\t>>>>>>    KELOMPOK 1    <<<<<<";

     //tim();

  }



main()
{
 char nama[10],*jenis[10],kopiz[10][10],lagi;
int i,a,b,harga[10],qty[10],no,bayar;
float sub[10],kembali;
long totbay;



clrscr();  loggin:
   //============loggin===============////
   char kasir[15];  int id;
      design();
brand();
      gotoxy(49,5);cout<<"kasir id : "; cin>>id;
      if(id==5742)
          {strcpy(kasir,"Dwi Lasto P");}
         else if(id==1767)
          {strcpy(kasir,"Nurul Hlmi");}
         else if(id==5499)
          {strcpy(kasir,"Enggar");}
         else if(id==4958)
          {strcpy(kasir,"Nofitasari");}
         else if(id==3569)
          {strcpy(kasir,"Abdul Muchlis");}
         else if(id==5803)
          {strcpy(kasir,"Ahmad M U");}
            else {clrscr();
                  design();
brand();
            gotoxy(10,6);cout<<"id yang anda masukan salah atau tidak terdaftar ";getch();clrscr();
               goto loggin;}
//============================(1)PESAN SEKARANG===============================//
atas:
design();
brand();

gotoxy(4,6);cout<<"No.Pesan                     : ";cin>>no;
gotoxy(4,7);cout<<"Nama Pemesanan           : ";cin>>nama;
gotoxy(4,8);cout<<"Banyak Jenis Pzza            : ";cin>>b;
for(a=1;a<=b;++a) //===========rumus looping array =======
{
gotoxy(4,10);cout<<"Pizza Ke "<<a<<endl;
gotoxy(4,11);cout<<"Kode Pizza [BR/CC/MC]   : ";cin>>kopiz[a];
gotoxy(4,12);cout<<"Jumlah Pesan            : ";cin>>qty[a];clrscr();design(); brand();
//================seleksi kondisi===================////////
if(strcmp(kopiz[a],"BR")==0||strcmp(kopiz[a],"br")==0)
{jenis[a]="Beef Royale";
 harga[a]=55000;}
 else
if(strcmp(kopiz[a],"CC")==0||strcmp(kopiz[a],"cc")==0)
{jenis[a]="Chicken Cheese";
 harga[a]=60000;}
 else
if(strcmp(kopiz[a],"MC")==0||strcmp(kopiz[a],"mc")==0)
{jenis[a]="Mushroom Crazy";
 harga[a]=45000;}
 else
{cout<<"Salah!!,Input Kode Lagi!!"<<endl;
 goto atas;}

}
clrscr();
design(); brand();
cout<<"\n\t\t\t    Bukti Pemesanan Pizza\n";
cout<<"\tNo.Pesan      : "<<no<<"\t\t\tKasir : "<<kasir<<endl;
cout<<"\tNama Pemesan  : "<<nama<<endl;
cout<<"  ***************************************************************************";
cout<<"\n   No.       Jenis            Harga         Jumlah        Subtotal             "<<endl;
cout<<"  =========================================================================="<<endl;
cout<<endl;
design();brand();


totbay=0;
for(a=1;a<=b;++a)//rumus total bayar array///////
{
gotoxy(4,a+11);  cout<<a;
gotoxy(10,a+11);  cout<<jenis[a];
gotoxy(30,a+11); cout<<harga[a];
gotoxy(47,a+11); cout<<qty[a];
sub[a]=harga[a]*qty[a];
gotoxy(60,a+11); cout<<sub[a];
cout<<endl;
totbay=totbay+sub[a];
}


gotoxy(3,a+11); cout<<"=========================================================================="<<endl;
gotoxy(39,a+13);cout<<"Total Bayar     :Rp. "<<totbay<<endl;
gotoxy(39,a+14);cout<<"Uang Bayar      :Rp. ";cin>>bayar;
kembali=bayar-totbay;
gotoxy(39,a+15);cout<<"Uang Kembali    :Rp. "<<kembali;// design();brand(); getch();
design();brand(); getch();
clrscr();
design();brand();
gotoxy(14,11);cout<<"Input data lagi [Y]/[T]? :";cin>>lagi;

if(lagi=='Y'||lagi=='y')
 {clrscr();goto atas;}
else
goto loggin;



getch();
exit:

}

Read More