Showing posts with label borland. Show all posts

Belajar pemrograman : Contoh script sederhana membuat laporan dalam borland C++

Selamat datang di blog tercinta ini. Berbagai informasi dapat saudara temukan di blog ini. mudah mudahkan berguna dan dapat membantu bagi  saudara saudara sekalian. saya selaku admin dan penulis  berterimakasih karena telah mengunjungi blog ini. 

Disini saya akan mengambil kasus daftar nilai mahasiswa



#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <math.h>
main()
{
char kdmtk[6],nmmtk[35],nmdsn[35],nobp[10][14],nmmhs[10][20],ket[10];
   int jsks,nom,nmid[10],nua[10];
   float na;
   clrscr();
   gotoxy(35,1);printf("DAFTAR NILAI MAHASISWA");
   gotoxy(35,2);printf("======================");
   gotoxy(25,3);printf("Kode Matakuliah  : ");scanf("%s",&kdmtk);
   gotoxy(25,4);printf("Nama Matakuliah  : ");scanf("%s",&nmmtk);
   gotoxy(25,5);printf("Jumlah SKS       : ");scanf("%i",&jsks);
   gotoxy(25,6);printf("Nama Dosen       : ");scanf("%s",&nmdsn);
   gotoxy(1,7);printf(
   "----------------------------------------------------------------------------");
   gotoxy(1,8);printf(
 /* 123456789012345678901234567890123456789012345678901234567890123456789012345678
             1         2         3         4         5         6         7  */
   ": No : Nomor Bp       : Nama Mahasiswa      :N.Mid:N.U.A: N.A : Keterangan :");
   gotoxy(1,9);printf(
   "----------------------------------------------------------------------------");
   for (nom=1;nom<=2;nom++)
   {
      gotoxy(1,9+nom);printf(":");
      gotoxy(3,9+nom);printf("%2i",nom);
      gotoxy(6,9+nom);printf(":");
      gotoxy(8,9+nom);scanf("%s",&nobp[nom]);
      gotoxy(23,9+nom);printf(":");
      gotoxy(25,9+nom);scanf("%s",&nmmhs[nom]);
      gotoxy(45,9+nom);printf(":");
      gotoxy(47,9+nom);scanf("%i",&nmid[nom]);
      gotoxy(51,9+nom);printf(":");
      gotoxy(53,9+nom);scanf("%i",&nua[nom]);
      na=0.4*nmid[nom]+0.6*nua[nom];
      if(na>=55)strcpy(ket,"Lulus");
      else if (na>=40) strcpy(ket,"Bersyarat");
      else strcpy(ket,"Gagal");
      gotoxy(57,9+nom);printf(":");
      gotoxy(59,9+nom);printf("%2.2f",na);
      gotoxy(63,9+nom);printf(":");
      gotoxy(65,9+nom);printf("%s",ket);
      gotoxy(76,9+nom);printf(":");
   }
   gotoxy(1,10+nom);printf(
   "----------------------------------------------------------------------------");
   getche();
 }



tampilan program jalan
Tambahan : 
-dalam penulisan jika ada yang menggunkan dua nama belakang atau lebih harus menggunakan garis
-disini saya membatasi hanya bisa 2 file saja. jika ingin memperbnyak bisa anda kembangkan saja

Jika masih ada kendala dalam pembuatan script diatas atau ingin tanya tanya soal program c++ silahkan anda menulis komentar .
 terima kasih telah berkunjung . semoga informasi yang saya berikan dapat berguna bagi saudara sekalian.

wassalamualaikum wr.wb

Belajar pemrograman : Contoh script sederhana menampilkan menggunakan while borland C++

Selamat datang di blog tercinta ini. Berbagai informasi dapat saudara temukan di blog ini. mudah mudahkan berguna dan dapat membantu bagi  saudara saudara sekalian. saya selaku admin dan penulis  berterimakasih karena telah mengunjungi blog ini. 

Disini saya akan mengambil kasus info nilai mahasiswa (lanjutan kasus sebelumnya)

Contoh script sederhana memasukkan data dalam Borland c++


Silahkan copy script dibawah ini ke dalam Borland c++ anda :

#include <stdio.h>
#include <conio.h>
#include <string.h>
main()
{
FILE*fnilai;
struct
{
char nobp[16],nm[26];
int nuts,nuas;
}rnilai;
float nr;
char ket[6];
fnilai=fopen("dnilai.dat","r");
clrscr();
printf("laporan data nilai\n");
printf("==================\n");
      /*1234567890|1234567890|1234567890|1234567890|*/
printf("|---------|----------|----------|----------|\n");
printf("|  nobp   |   nama   |  nilai   |keterangan|\n");
printf("|         |          |rata rata |          |\n");
printf("|_________|__________|__________|__________|\n");
while(fread(&rnilai,sizeof(rnilai),1,fnilai)==1)
{
nr=(rnilai.nuts+rnilai.nuas)/2;
if(nr>=55)
strcpy(ket,"LULUS");
else
strcpy(ket,"GAGAL");
printf("|%-10s|%-10s|%10.2f|%-10s|\n",rnilai.nobp,rnilai.nm,nr,ket);
}
printf("|_________|__________|__________|__________|\n");
getch();
fclose(fnilai);
}




tampilan script 


Setelah itu compile program bisa menggunakan ALT+F9 ,ini berguna untuk melihat ada kesalahan dari script di atas apa tidak
Setelah semuanya tidak ada kesalahan. Silahkan Run program gunakan CTRL+F9


tampilan setelah dijalankan

Jika masih ada kendala dalam pembuatan script diatas atau ingin tanya tanya soal program c++ silahkan anda menulis komentar .
 terima kasih telah berkunjung . semoga informasi yang saya berikan dapat berguna bagi saudara sekalian. 


wassalamualaikum wr.wb


Belajar pemrograman : Contoh script sederhana memasukkan data dalam Borland c++

Assalamualaikum wr.wb

Selamat datang di blog tercinta ini. Berbagai informasi dapat saudara temukan di blog ini. mudah mudahkan berguna dan dapat membantu bagi  saudara saudara sekalian. saya selaku admin dan penulis  berterimakasih karena telah mengunjungi blog ini. J

Disini saya akan mengambil kasus info nilai mahasiswa

Silahkan copy script dibawah ini ke dalam Borland c++ anda :

#include <stdio.h>
#include <conio.h>
main()
{
FILE*fnilai;
struct
{
char nobp[16],nm[26];
int nuts,nuas;
}rnilai;
char dsb,td;
fnilai=fopen("dnilai.dat","w");
td='Y';
while(td=='Y'||td=='y')
{
printf("input data nilai\n");
printf("++++++++++++++++\n");
printf("nomor bp            :");
gets(rnilai.nobp);
printf("nama                :");
gets(rnilai.nm);
printf("nilai uts           :");
scanf("%i",&rnilai.nuts);fflush(stdin);
printf("nilai uas           :");
scanf("%i",&rnilai.nuas);fflush(stdin);
printf("data sudah benar [Y/T]?  :");
scanf("%c",&dsb);fflush(stdin);
if(dsb=='Y'||dsb=='y')
{
fwrite(&rnilai,sizeof(rnilai),1,fnilai);
}
else
{
printf("data tidak disimpan!");getch();
}
printf("tambah data[Y/T]         :");
scanf("%c",&td);fflush(stdin);
{
fclose(fnilai);
}
}
}




hasil dari script diatas
tambahan : 
-jika data yang dimasukan ada yang salah silahkan pilih T/t pada data sudah benar
-jika ada data yang akan ditambahkan silahkan pilih Y/y pada tambah data. jika tidak maka proses data selesai

jika ingin melihat hasil data yang kita buat tadi silahkan lihat step berikutnya 

Contoh script sederhana menampilkan data yang sudah diinput dalam borland C++

Jika masih ada kendala dalam pembuatan script diatas atau ingin tanya tanya soal program c++ silahkan anda menulis komentar .
 terima kasih telah berkunjung . semoga informasi yang saya berikan dapat berguna bagi saudara sekalian. 


wassalamualaikum wr.wb




Belajar pemrograman : Contoh perulangan script sederhana Borland c++

Assalamualaikum wr.wb
Selamat datang di blog tercinta ini. Berbagai informasi dapat saudara temukan di blog ini. mudah mudahkan berguna dan dapat membantu bagi  saudara saudara sekalian. saya selaku admin dan penulis  berterimakasih karena telah mengunjungi blog ini. J
Disini saya akan membuat kasus dari rumus luas persegi panjang yaitu :
L=P*L
Dengan perulangan yang dapat ditentukan sendiri saat di tampilan
Untuk perulangan saya disini menggunakan for :

For(nilai awal;nilaiakhir;step)
{
Block statemen
}

Ket :
-           block statemen (statemen statemen) akan dikerjakan secara berulang ulang dimulai dari nilai awal sampai dengan nilai akhir yang ditentukan pada for
-          Step adalah untuk menentukan penambahan/ pengurangan nilai perulangannya


untuk contoh Silahkan anda copy script berikut ini ke dalam Borland c++ anda : 



#include<stdio.h>
#include<conio.h>
main()
{
int p,l,ls,a,n;
clrscr();
printf("masukan jumlah perulangan persegi panjang :");
scanf("%i",&n);fflush(stdin);
printf("============================================\n");
for(a=1;a<=n;a++)
{
printf("panjang        :");
scanf("%i",&p);fflush(stdin);
printf("lebar          :");
scanf("%i",&l);fflush(stdin);
ls=p*l;
printf("luas           :%i\n",ls);
printf("============================================\n");
getch();
}

}

Setelah itu compile program bisa menggunakan ALT+F9 ,ini berguna untuk melihat ada kesalahan dari script di atas apa tidak
Setelah semuanya tidak ada kesalahan. Silahkan Run program gunakan CTRL+F9



Keterangan :
-          Block statemen dari printf(“panjang     :”); sampai getch(); dikerjakan sebanyak berapa yang kita inginkan menginputnya saat ditampilan oleh karena itu nilai akhirnya saya buat n.
-          Anda juga bisa menginputkan secara otomatis dengan contoh for(a=1;a<=n;a++)  berarti anda akan meinputkan perulangannya sebanyak 3 kali  atau  for(a=6;a<=2;a-2)  berarti anda akan melakukan perulangan 3 kali dengan step -2
-          Untuk step terdiri dari :
1.       a++    artinya  a=a+1
2.       a+=2  artinya  a=a+2
3.       a+=3   artinya  a=a+3
4.       a--   artinya   a=a-1
5.       a-=2  artinya  a=a-2
6.       a-=3  artinya  a=a-3
7.       dst

Jika masih ada kendala dalam pembuatan script diatas atau ingin tanya tanya soal program c++ silahkan anda menulis komentar.
 terima kasih telah berkunjung . semoga informasi yang saya berikan dapat berguna bagi saudara sekalian. J

wassalamualaikum wr.wb


Belajar pemrograman : Contoh script sederhana penggunaan if dalam Borland c++

Assalamualaikum wr.wb

Selamat datang di blog tercinta ini. Berbagai informasi dapat saudara temukan di blog ini. mudah mudahkan berguna dan dapat membantu bagi  saudara saudara sekalian. saya selaku admin dan penulis  berterimakasih karena telah mengunjungi blog ini. J

Disini saya akan mengambil kasus tagihan sewa kamar hotel


Silahkan copy script dibawah ini ke dalam Borland c++ anda :



#include<conio.h>
#include<stdio.h>
#include<string.h>
main()
{
char ntm[30],nktp[20],alm[40],jk[6],ket[10];
int li,tb;
float bt,bk,dis,sph;
clrscr();
printf("Tagihan Sewa Kamar Hotel\n");
printf("========================\n");
printf ("Nama Tamu          :");gets(ntm);
printf ("No KTP             :");gets(nktp);
printf ("Alamat             :");gets(alm);
printf ("Jenis Kamar[D/V/E] :"); gets(jk);

printf("Lama Inap[Hari]    :");
scanf("%i",&li);
if(strcmp(jk, "D") == 0)
{
strcpy(ket,"Deluxe");
sph=750000;
}
else if(strcmp(jk, "V") == 0)
{
strcpy(ket,"VIP");
sph=650000;
}
else if(strcmp(jk, "E") == 0)
{
strcpy(ket,"Ekonomi");
sph=400000;
}
printf("Keterangan Kamar   :%s\n",&ket);
printf("Sewa Perhari(Rp)   :%-12.2f\n",sph);
printf("Tagihan Bar(Rp)     :");scanf("%i",&tb);
bk=sph*li+tb;
if(bk>3000000)
{
dis=0.3*bk;
}
else if(bk>2000000)
{
dis=0.2*bk;
}
else if(bk>1000000)
{
dis=0.1*bk;
}
bt=bk-dis;
printf("Biaya Kotor        :%-12.2f\n",bk);
printf("Discount           :%-12.2f\n",dis);
printf("Besar Tagihan      :%-12.2f\n",bt);
getch();

}


Setelah itu compile program bisa menggunakan ALT+F9 ,ini berguna untuk melihat ada kesalahan dari script di atas apa tidak
Setelah semuanya tidak ada kesalahan. Silahkan Run program gunakan CTRL+F9


Keterangan :
dalam memberikan nilai variable dari dalam program if memiliki beberapa syarat
1.       untuk numerik
bentuk umum : nama variable=isi variable;
contoh  : hs=500000;
2.       untuk string 1 karakter
bentuk umum : nama variable=’isi variabel’;
contoh  : nh=’D’;

3.       untuk string lebih 1 karakter
bentuk umum : strcpy(nama variable , ”isi variabel”);
contoh  : strcpy(ket,”berhasil”);       
Tambahan : jika ingin melakukan perulangan , tinggal masukan perintah for sesuai dengan yang telah kita bahas pada artikel sebelumnya

Jika masih ada kendala dalam pembuatan script diatas atau ingin tanya tanya soal program c++ silahkan anda menulis komentar .
 terima kasih telah berkunjung . semoga informasi yang saya berikan dapat berguna bagi saudara sekalian. J


wassalamualaikum wr.wb


Belajar pemrograman : Contoh script sederhana membuat tampilan lebih rapi menggunakan gotoxy Borland c++

Assalamualaikum wr.wb

Selamat datang di blog tercinta ini. Berbagai informasi dapat saudara temukan di blog ini. mudah mudahkan berguna dan dapat membantu bagi  saudara saudara sekalian. saya selaku admin dan penulis  berterimakasih karena telah mengunjungi blog ini. J
Pengenalan tentang gotoxy :
Gotoxy digunakan untuk menempatkan koordinat kursor pada layar agar tampilan dilayar lebih rapi
Bentuk dasarnya  gotoxy (kolom,baris) atau gotoxy(x,y)

Disini saya akan mengambil kasus seperti  contoh dalam artikel sebelumnya yaitu tagihan sewa kamar hotel

Silahkan copy script dibawah ini ke dalam Borland c++ anda :


#include<conio.h>
#include<stdio.h>
#include<string.h>
main()
{
char ntm[30],nktp[20],alm[40],jk[6],ket[10];
int li,tb;
float bt,bk,dis,sph;
clrscr();
gotoxy(15,5);printf("Tagihan Sewa Kamar Hotel");
gotoxy(15,6);printf("========================");
gotoxy(15,7);printf ("Nama Tamu          :");
gotoxy(15,8);printf ("No KTP             :");
gotoxy(15,9);printf ("Alamat             :");
gotoxy(15,10);printf("Jenis Kamar[D/V/E] :");
gotoxy(15,11);printf("Lama Inap[Hari]    :");
gotoxy(15,12);printf("Keterangan Kamar   :");
gotoxy(15,13);printf("Sewa Perhari(Rp)   :");
gotoxy(15,14);printf("Tagihan Bar(Rp)    :");
gotoxy(15,15);printf("Biaya Kotor        :");
gotoxy(15,16);printf("Discount           :");
gotoxy(15,17);printf("Besar Tagihan      :");
gotoxy(35,7);gets(ntm);
gotoxy(35,8);gets(nktp);
gotoxy(35,9);gets(alm);
gotoxy(35,10);gets(jk);
gotoxy(35,11);scanf("%i",&li);
if(strcmp(jk, "D") == 0)
{
strcpy(ket,"Deluxe");
sph=750000;
}
else if(strcmp(jk, "V") == 0)
{
strcpy(ket,"VIP");
sph=650000;
}
else if(strcmp(jk, "E") == 0)
{
strcpy(ket,"Ekonomi");
sph=400000;
}
gotoxy(35,12);printf(ket);
gotoxy(35,13);printf("%-12.2f",sph);
gotoxy(35,14);scanf("%i",&tb);
bk=sph*li+tb;
if(bk>3000000)
{
dis=0.3*bk;
}
else if(bk>2000000)
{
dis=0.2*bk;
}
else if(bk>1000000)
{
dis=0.1*bk;
}
bt=bk-dis;
gotoxy(35,15);printf("%-12.2f",bk);
gotoxy(35,16);printf("%-12.2f",dis);
gotoxy(35,17);printf("%-12.2f",bt);
getch();

}


Setelah itu compile program bisa menggunakan ALT+F9 ,ini berguna untuk melihat ada kesalahan dari script di atas apa tidak
Setelah semuanya tidak ada kesalahan. Silahkan Run program gunakan CTRL+F9



Tambahan : jika ingin melakukan perulangan , tinggal masukan perintah for sesuai dengan yang telah kita bahas pada artikel sebelumnya

Jika masih ada kendala dalam pembuatan script diatas atau ingin bertanya soal program c++ silahkan anda menulis komentar .
 terima kasih telah berkunjung . semoga informasi yang saya berikan dapat berguna bagi saudara sekalian. J

wassalamualaikum wr.wb

Belajar pemrograman : Contoh script sederhana Borland c++

Assalamualaikum wr.wb


Selamat datang di blog tercinta ini. Di blog ini saudara dapat menemukan informasi informasi yang mudah mudahkan berguna dan dapat membantu bagi  saudara saudara sekalian. saya selaku admin dan penulis  berterimakasih karena telah mengunjungi blog ini. J


Disini saya akan membuat kasus dari rumus luas persegi panjang yaitu :
L=P*L
Silahkan anda copy script berikut ini ke dalam Borland c++ anda :


#include<stdio.h>
#include<conio.h>
main()
     {
     int p,l,ls;
     clrscr();
     printf ("Masukkan Nilai Panjang:");
     scanf ("%i",&p);fflush(stdin);
     printf ("Masukkan Nilai Lebar:");
     scanf( "%i",&l);fflush(stdin);
     ls=p*l;
     printf ("NILAI LUAS: %i",ls);
     getch();

     }




    




Setelah itu compile program bisa menggunakan ALT+F9 ,ini berguna untuk melihat ada kesalahan dari script di atas apa tidak
Setelah semuanya tidak ada kesalahan. Silahkan Run program gunakan CTRL+F9

tampilan run

terima kasih telah berkunjung . semoga informasi yang saya berikan dapat berguna bagi saudara sekalian. :)
wassalamualaikum wr.wb