program membuat, mengubah dan menghapus folder di notepad

saya punya trik dalam membuat program di notepad, yaitu membuat,mengubah dan menghapus folder,, silakan copy saja code di bawah ini:

@echo off
echo membuat, hapus,dan mengubah nama folder
echo by.mohamad echa putra
echo ======================================
echo 1.membuat folder
echo 2.hapus folder
echo 3.ubah folder
echo x.keluar
echo --------------------
set /p pil= silakan pilih =
if %pil%==1 goto membuat
if %pil%==2 goto hapus
if %pil%==3 goto ubah
if %pil%==x goto keluar
:membuat
cls
set /p nama= nama folder=
mkdir %nama%
pause
:hapus
cls
set /p nama2= nama foldeer yang ingin di hapus =
rd %nama2%
pause
:ubah
cls
set /p nama3= nama folder yang ingin di hapus =
rm %nama3%
pause
:keluar
pause

simpan dengan mengunakan format . bat dan jangan lupa type filenya di ubah ke all file... terimakasih dan selamat mencoba :)

Read More

Games tatarucingan

code untuk membuat games tatarucingan, silakan copy code di bawah ini :
uses wincrt;

label hasil,mulai,ulang;

var jawab : string;

n1,n2,n3,n4,n5,n6,n7,n8,n9,n10 :integer;

jumlah: integer;

pil,nama : string;

pil2:char;

simpan : text;

begin

repeat

{menu games}

{-------------------------------------------------------------------------------}

clrscr;

writeln('mohamad echa putra');

writeln('algoritma');

writeln;

gotoxy(25,5);writeln ('GAMES TATARUCINGAN ');

gotoxy(20,6);writeln('===============================');

gotoxy(25,8);write(' tekan enter : . . .');

readln;

clrscr;

gotoxy(25,5);writeln ('GAMES TATARUCINGAN ');

gotoxy(20,6);writeln('===============================');

gotoxy(25,7);write('masukan nama : ');readln(nama);

gotoxy(25,9);writeln('1. lanjut 2.keluar');

gotoxy(20,10);writeln('===============================');

gotoxy(25,11);write('pilih : ');readln(pil);

{*} if ( pil='1') then

begin

repeat

clrscr;

gotoxy(25,5);writeln('jawablah pertanyaan-pertanyaan tersebut dengan benar ');

gotoxy(25,6);writeln('cara menjawabnya seperti berikut : ');

gotoxy(25,8);writeln(' rambut apa yang bisa di makan :...(8 huruf) ');

gotoxy(25,9);writeln(' ...... ..');

gotoxy(25,10);writeln('jawab : rambut an');

gotoxy(25,11);writeln('===================================================');

gotoxy(25,12);write('apakah anda mengerti [Y/T] : ');readln(pil2);

until upcase(pil2)<>'Y';

clrscr;

writeln('1. mulai 2.keluar ');

write('pilih : ');readln(pil);

{***} if( pil='1') then

begin

goto mulai

{***}end

{***}else

begin

donewincrt;

{***}end;

mulai : writeln;

{----------------------------------------------------------------------------}

{memulai games }

{__________________________________________________________________________}

{soal 1}

clrscr;

gotoxy(25,3);writeln('1. HEWAN APA YANG BERSOUDARA : ... (12 huruf)');

gotoxy(25,4);writeln(' ..... .......');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'KATAK BERADIK') or (jawab='katak beradik') then

begin

n1:=10;

end

else

begin

n1:=0;

goto hasil;

end;

{soal 2}

clrscr;

gotoxy(25,3);writeln('2. HEWAN APA YANG NAMANYA 2 HURUF:...(5 huruf) ');

gotoxy(25,4);writeln(' . ... .');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'U DAN G') or (jawab='u dan g') then

begin

n2:=10;

end

else

begin

n2:=0;

goto hasil;

end;

{soal 3}

clrscr;

gotoxy(15,3);writeln('3. SIAPAKAH YANG POTONG RAMBUT TIAP HARI TAPI TIDAK BOTAK :...(13 huruf) ');

gotoxy(25,4);writeln(' ...... .......');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'TUKANG PANGKAS') or (jawab='tukang pangkas') then

begin

n3:=10;

end

else

begin

n3:=0;

goto hasil;

end;

{soal 4}

clrscr;

gotoxy(25,3);writeln('4. GAJAH APA YANG BELALAINYA PENDEK :...(10 huruf) ');

gotoxy(25,4);writeln(' ..... .....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'GAJAH PESEK') or (jawab='gajah pesek') then

begin

n4:=10;

end

else

begin

n4:=0;

goto hasil;

end;

{soal 5}

clrscr;

gotoxy(25,3);writeln('5. BOLA APA YANG MIRIP KUCING :...(8 huruf) ');

gotoxy(25,4);writeln(' .... ....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'BOLA EMON') or (jawab='bola emon') then

begin

n5:=10;

end

else

begin

n5:=0;

goto hasil;

end;

{soal 6}

clrscr;

gotoxy(25,3);writeln('6. SIAPAKAH PRESIDEN RI YANG TERSEKSI :... (8 huruf ) ');

gotoxy(25,4);writeln(' .. .. ....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'PA HA BIBI') or (jawab='pa ha bibi') then

begin

n6:=10;

end

else

begin

n6:=0;

goto hasil;

end;

{soal 7}

clrscr;

gotoxy(25,3);writeln('7. NAIKNYA CEPET,TURUNNYA LAMBAT :... (5 huruf)');

gotoxy(25,4);writeln(' .....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'INGUS') or (jawab='ingus') then

begin

n7:=10;

end

else

begin

n7:=0;

goto hasil;

end;

{soal 8}

clrscr;

gotoxy(25,3);writeln('8. LEMARI APA YANG BISA MASUK KANTONG :... (8 huruf)');

gotoxy(25,4);writeln(' .... ....');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'LEMA RIBU') or (jawab='lema ribu') then

begin

n8:=10;

end

else

begin

n8:=0;

goto hasil;

end;

{soal 9}

clrscr;

gotoxy(25,3);writeln('9. SANDAL APA YANG PALING ENAK :...(12huruf ) ');

gotoxy(25,4);writeln(' ...... ......');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'SANDAL TERASI') or (jawab='sandal terasi') then

begin

n9:=10;

end

else

begin

n9:=0;

goto hasil;

end;

{soal 10}

clrscr;

gotoxy(25,3);writeln('10. ITEM,GEDE,BULUAN DAN MANIS :...(15 huruf) ');

gotoxy(25,4);writeln(' ....... ........ ');

gotoxy(25,5);write('jawab : ');readln(jawab);

if (jawab= 'MANISAN KINGKONG') or (jawab='manisan kingkong') then

begin

n10:=10;

end

else

begin

n10:=0;

goto hasil;

end;

{__________________________________________________________________________}

hasil : writeln;

jumlah:= n1+n2+n3+n4+n5+n6+n7+n8+n9+n10;

{simpan data ke file TXT}

{______________________________}

assign(simpan,'simpan.txt');

rewrite(simpan);

writeln(simpan,nama,' : ',jumlah);

close(simpan);

{___________________________}

clrscr;

{apabila games telah selesai}

{----------------------------------------------------------------}

if (jumlah>50) then

begin

gotoxy(25,3); writeln('selamat anda lulus');

gotoxy(25,5);writeln('____________________________________________');

gotoxy(25,6); writeln('nama | jumlah | ');

gotoxy(25,5);writeln('____________________________________________');

assign(simpan,'simpan.txt');

reset(simpan);

readln(simpan,nama);

gotoxy(25,9);writeln(nama);

close(simpan);

end

else

begin

gotoxy(25,3);writeln('maaf anda belum lulus, silakan anda coba lagi... :)');

gotoxy(25,5);writeln('____________________________________________');

gotoxy(25,6); writeln('nama | jumlah | ');

gotoxy(25,5);writeln('____________________________________________');

{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}

assign(simpan,'simpan.txt');

reset(simpan);

while not eof(simpan)do

begin

readln(simpan,nama);

gotoxy(25,7);writeln(nama);

end;

close(simpan);

end;

{||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}

end

else

begin

donewincrt;

end;

gotoxy(25,8); write('apakah anda ingin mengulang lagi[Y/T] ');readln(pil2);

until upcase(pil2)<>'Y';

end.

Read More

Program Kasir/Penjualan di paskal

code ini adalah rpogram kasir/penjualan,, silakan copy codenya di bawah ini :

uses wincrt;

label kembali;

type data=array[1..100] of string;

jml =array[1..100] of integer;

var n,i :integer;

barang :data;

harga :jml;

total :integer;

bayar :integer;

total2 :integer;

begin

kembali:writeln;

clrscr;

writeln('nama : mohamad echa putra ');

writeln('nim : A2.1100133');

gotoxy(25,4);writeln('PROGRAM KASIR');

gotoxy(19,5);writeln('===================================');

gotoxy(20,7);write('jumlah barang yang di beli : ');readln(n);

i:=0;

for i:=1 to n do

begin

writeln;

write('nama barang ',i,' : ');readln(barang[i]);

write('harga ',i,' : ');readln(harga[i]);

end;

clrscr;

gotoxy(20,1);writeln('========================================');

gotoxy(20,2);writeln('NAMA BARANG |HARGA |');

gotoxy(20,3);WRITELN('========================================');

for i:=1 to n do

begin

writeln(barang[i]:25,' |',harga[i]:10);

WRITELN(' _________________________________________________');

total:=total+harga[i];

end;

writeln('total : ':30,total);

write('pembayaran : ');readln(bayar);

if ( bayar>total) then

begin

total2:=bayar-total;

writeln('jumlah uang pengembalian = ',total2);

writeln('teimakasih');

readln;

goto kembali;

end

else if (bayar=total) then

begin

writeln('terimakasih');

readln;

goto kembali;

end

else if (bayar

begin

writeln('maaf uang yang anda kasih tidak cukup untuk membeli produk yang di jual oleh kami');

readln;

goto kembali;

end;

end.

selamat mencoba...:)

Read More

program perbank-kan di paskal

ini adalah code untuk membuat program perbank kan di paskal... silakan copy saja kode di bawah ini :

uses wincrt;

label menu,ulang,ulang2,ulang3,ulang4,ulang5;

type bank =record

no_rek :string;

nama :string;

alamat :string;

pekerjaan :string;

pinjam :string;

simpan :string;

end;

data=array[1..16]of bank;

var a :bank;

jml :data;

i,n :integer;

pil : char;

begin

i:=0;

menu : writeln;

clrscr;

writeln('mohamad echa putra ');

writeln('A2.1100133');

gotoxy(20,7);writeln('study kasus perBANK-an ');

gotoxy(10,8);writeln('============================');

gotoxy(10,9);writeln('1. simpan uang');

gotoxy(10,10);writeln('2. pinjam uang');

gotoxy(10,11);writeln('3 tampilan uang yang di simpan');

gotoxy(10,12);writeln('4. tampilan uang yang di pinjam');

gotoxy(10,13);writeln('==============================');

gotoxy(15,14);write('pilih : ');readln(pil);

if (pil='1')then

begin

ulang : writeln;

clrscr;

write('berapa orang yang akan menyimpan uang : ');readln(n);

for i:=1 to n do

begin

clrscr;

write('NO.REKENING : ');readln(jml[i].no_rek);

write('NAMA LENGKAP : ');readln(jml[i].nama);

write('berapa rupiah yang akan anda simpan : ');readln(jml[i].simpan);

readln;

writeln('data ',i,' telah tersimpan');

end;

writeln;

write('apakah anda ingin menyimpan uang lagi [Y/T]: '); readln(pil);

if (pil='Y') or (pil='y')then

begin

goto ulang;

end;

if(pil='T') or (pil='t') then

begin

goto menu;

end;

end;

if (pil='2')then

begin

ulang2 : writeln;

clrscr;

write('berapa orang yang akan meminjam uang : ');readln(n);

for i:=1 to n do

begin

clrscr;

write('NAMA : ');readln(jml[i].nama);

write('ALAMAT : ');readln(jml[i].alamat);

write('PEKERJAAN : ');readln(jml[i].pekerjaan);

write('JUMLAH UANG YANG DI BUTUHKAN : ');readln(jml[i].pinjam);

readln;

writeln('data telah ',i,' tersimpan...');

end;

writeln;

write('apakah anda ingin meminjam uang lagi [Y/T]: '); readln(pil);

if (pil='Y') or (pil='y')then

begin

goto ulang2;

end;

if(pil='T') or (pil='t') then

begin

goto menu;

end;

end;

if (pil='3')then

begin

ulang3 : writeln;

clrscr;

writeln('DATA-DATA YANG MENYIMPAN UANG ');

WRITELN('no,rekening |nama |jumlah_uang |');

writeln('========================================================================');

for i:=1 to n do

begin

writeln(jml[i].no_rek:10,' |',jml[i].nama:15,' | Rp.':10,jml[i].simpan,'.00');

writeln('_________________________________________________________________________');

end;

write('kembali ke menu [Y/T]: '); readln(pil);

if (pil='T') or (pil='t')then

begin

goto ulang3;

end;

if(pil='Y') or (pil='y') then

begin

goto menu;

end;

end;

if (pil='4')then

begin

ulang4:writeln;

clrscr;

writeln;

writeln('==========================================================================');

writeln('DATA-DATA YANG PINJAM UANG ');

WRITELN('nama | alamat |pekerjaan | jumlah pinjaman |');

writeln('========================================================================');

for i:=1 to n do

begin

writeln;

writeln(jml[i].nama:10,' | ',jml[i].alamat:10,' |',jml[i].pekerjaan:10,' | Rp.':10,jml[i].pinjam,'.00');

writeln('_________________________________________________________________________');

end;

write('kembali ke menu [Y/T]: '); readln(pil);

if (pil='T') or (pil='t')then

begin

goto ulang4;

end;

if(pil='Y') or (pil='y') then

begin

goto menu;

end;

end;

end.

Read More