Derita semester Akhir.

2016.

 Masih ingat dulu bikin blog ini semester 1.  Sekarang dah semester akhir...  Di ujung pejuangan ini.. Bercampur jadi 1. Pingin nyerah, bosen, capek.. Semua jadi 1 menumpuk di otakQ. Tapi kalo inget prjuangan selama 4 tahun ini rsanya g bakal aq mau nyerah..
 Cuma 1 aj mauku... LULUS . 

program rumah sakit

#include "stdafx.h"
 #include "iostream"
#include "conio.h"
#include "stdio.h"
using namespace std;

int main()
{

int kelas,lama,harga=0,jum,diskon=0,total;
char nama[15],kode,*jenis;

cout<<"\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\n";
cout<<"\6\6\6 Input Data Rumah Sakit \6\6\6\n";
cout<<"\6\6\6    trixa sehat    \6\6\6\n";
cout<<"\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\n\n\n\n\n";
cout<<"Masukan Nama Pasien = ";cin>>nama;
cout<<"Masukan Kelas [1/2] = ";cin>>kelas;
cout<<"Masukan Kode [A/B]  = ";cin>>kode;
cout<<"Lama Inap Perawatan = ";cin>>lama;

cout<<"\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\n";
cout<<"Tampilan Output\n";
cout<<"\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\6\n";

switch (kelas)
 { case 1:
    cout<<"Nama Pasien    = "<<nama<<endl<<endl;
      cout<<"Kelas          = "<<kelas<<endl<<endl;
      cout<<"Kode Kamar     = "<<kode<<endl<<endl;
      if (kode=='A'||kode=='a')
       jenis="Mawar";
      else if (kode=='b'||kode=='B')
       jenis="Melati";
      else
       jenis="Maaf Anda Salah Kode";
      cout<<"Jenis Kamar    = "<<jenis<<endl<<endl;
      cout<<"Lama Perawatan = "<<lama<<endl<<endl;
      if (kode=='A'||kode=='a')

       harga=250000;
      else if (kode=='b'||kode=='B')
       harga=300000;
      jum=harga*lama;

      cout<<"Jumlah Bayar   = "<<jum<<endl<<endl;
      if (lama>=7)
         diskon=0.2*jum;
      else
       diskon=0;
      cout<<"Diskon         = "<<diskon<<endl<<endl;
      total=jum-diskon;
      cout<<"Total Bayar    = "<<total<<endl<<endl;
      cout<<"\n\n%%%%%%%%%%%%%\n";
      cout<<"Terima Kasih\n";
      cout<<"%%%%%%%%%%%%%";

      break;
      case 2:
    cout<<"Nama Pasien    = "<<nama<<endl<<endl;
      cout<<"Kelas          = "<<kelas<<endl<<endl;
      cout<<"Kode Kamar     = "<<kode<<endl<<endl;
      if (kode=='A'||kode=='a')
       jenis="Teratai";
      else if (kode=='b'||kode=='B')
       jenis="Kenanga";
      else
       jenis="Maaf Anda Salah Kode";
      cout<<"Jenis Kamar    = "<<jenis<<endl<<endl;
      cout<<"Lama Perawatan = "<<lama<<endl<<endl;
      if (kode=='A'||kode=='a')
       harga=350000;
      else if (kode=='b'||kode=='B')
       harga=400000;
      jum=harga*lama;
      cout<<"Jumlah Bayar   = "<<jum<<endl<<endl;
      if (lama>=7)
         diskon=0.2*jum;
      else
       diskon=0;
      cout<<"Diskon         = "<<diskon<<endl<<endl;
      total=jum-diskon;
      cout<<"Total Bayar    = "<<total<<endl<<endl;
      cout<<"\n\n%%%%%%%%%%%%%\n";
      cout<<"Terima Kasih\n";
      cout<<"%%%%%%%%%%%%%";
      break;
   default :
   cout<<"Maaf Kelas Yang Anda Masukan Belum Terdaftar, Silahkan Cek Kembali !! ";
      }

}


int _tmain(int argc, _TCHAR* argv[])
{
    return 0;
}

jgn byarkan penyesalan itu ada.qt mampu merubah dgn kberhasilan

Hidupku adalah kepingan kepingan waktu yang tercecer
Berserakan membentuk alur menyedihkan
Merobek tiap jengkal keindahan
Hingga pahit dan getir yang terasa

Setiap usaha jadi ke sia-siaan
Kegagalan mengumpulkan pecahan kemenangan
Melekatkan nama pesakitan
Dalam setiap kesempatan

Beruah adalah satu kata
Memancarkan cahaya asa
Tetapi raga kehilangan semangat jiwa
Terbuai dalam lingkaran dinding dinding hampa

Kembalikan waktuku, teriakku
Tetapi hanya gema yang masuk di telingaku
Berakhir sudah, fikirku..
Bisakah berubah dengan kesempatan masa belum berlalu
Atau tinggal sisa-sisa penyesalan.

how to build confidence in our self

Berikut trik dan tips yang bisa anda gunakan untuk melatih rasa percaya diri anda.

• Rapikan diri anda. Mungkin anda beralasan bahwa anda bukan orang yang rapi. Sehingga apa yang anda tampilkan pun jauh dari kerapian. Padahal bila anda tampil rapi, anda akan lebih percaya diri. Silakan coba dan rasakan peningkatan rasa percaya diri terjadi pada anda.
• Rasakan situasi positif. Dimana pun anda, coba rasakan situasi positif di tempat tersebut. Rasakan bahwa orang-orang di sekeliling anda menyambut baik anda, lingkungan juga tersenyum pada anda.
• Pelihara mental positif. Bahwa apa yang anda lakukan akan berjalan dengan baik dan anda juga akan baik-baik saja. Fokus pada sisi positif akan membuat anda percaya diri.
• Kurangi bilang “tapi”. Mungkin anda sering mengatakan kata tersebut. Misal anda mengatakan “ingin sukses, tapi saya hanya orang biasa.” “anda ingin kaya tapi tidak bisa ini itu dan sebagainya.”
  Sebaiknya mulai sekarang kurangi mengatakan kata “tapi”. Kata “tapi” membuat anda yang semula hendak maju, kembali mundur. “Tapi” membuat anda terbiasa membuat alasan dan tidak melakukan ACTION!
• Temukan apa yang anda takutkan dan ACTION-kan. Kalau anda takut berbicara di muka umum, ACTIONKAN itu. Kalau anda takut menatap wajah orang lain, lakukan itu. Temukan apa yang anda takutkan, dan ACTIONKAN!
• Jangan menunda. Penundaan menimbulkan ketakutan. Semakin sering anda menunda, ketakutan itu akan kian menggumpal dan pikiran anda mulai mencari-cari alasan bahwa penundaan yang anda lakukan itu benar.  Padahal, semakin lama anda menunda berarti semakin lama anda membiarkan diri anda tidak meningkatkan kualitas diri.
• Ingat momen ketika anda merasa begitu percaya diri. Coba ingat-ingat kapan anda merasa begitu percaya diri sehingga tangan anda tidak gemetaran dan tidak ada keringat dingin mengucur dari kening anda? Saat itu anda bicara dengan lancar dan lawan bicara anda bisa merasakan rasa percaya diri anda.
  Ingat momen tersebut setiap kali anda merasa didera kehilangan percaya diri. Rasa percaya diri anda akan tumbuh dengan seketika.
• Awas penyakit perfeksionis. Mencari kesempurnaan selain menyita banyak energi dan waktu, juga bisa mengikis habis rasa percaya diri. Sebab, misal saat anda mengerjakan suatu pekerjaan yang menurut anda tidak kunjung seperti harapan, lambat laun anda akan meragukan kemampuan diri anda.
  Hindari mencari kesempurnaan. Yang penting lakukan ACTION yang terbaik.
• Lakukan ACTION dengan penuh percaya diri. Agar anda percaya diri, anda harus melakukan ACTION dengan percaya diri. Ketidakpercayaan diri seseorang bisa dilihat dari ACTION-nya.
  Demikian pula sebaliknya. Ketika anda bertindak penuh percaya diri, orang-orang akan menilai anda sebagai orang yang percaya diri. ACTION yang penuh percaya diri akan membuat anda bertambah percaya diri.
  Apa saja tindakan sederhana yang sering dilakukan agar anda terlihat percaya diri? Duduklah dengan tegak, lakukan kontak mata, bicara jelas, kemukakan pendapat anda, dan tersenyumlah.

Tujuan hidup setiap orang di dunia ini pastilah untuk menjadi lebih baik. Lebih baik dari kemarin, lebih baik dari bulan lalu atau tahun kemarin. Cara yang baik untuk menjadi lebih baik adalah dengan meningkatkan apa yang sudah bisa anda kerjakan; atau membuat bisa apa yang belum anda bisa lakukan selama ini. Apa yang belum anda bisa lakukan, jadikan itu sebagai tantangan, lalu ACTION-kan sehingga menjadi sebuah pembelajaran untuk meningkatkan kualitas diri anda menjadi lebih baik.
Percaya diri merupakan salah satu kunci sukses dalam hidup. Banyak orang sukses memiliki rasa percaya diri yang baik.

Tidak ada jalan pintas untuk tampil percaya diri. Satu-satunya jalan adalah melakukan ACTION untuk melatih tampil percaya diri dari hari ke hari.

Salam ACTION!

cara main gitar..

: Ramai yang tak faham cara untuk baca gitar kod kat bawah ni, so aku buatkan simple guide untuk korang. Sila rujuk guide ini kalau tak reti nak baca kod yang ada dalam chord lists di bawah;
Bulat hitam tu maknanya tekan kedudukan yang sama di fret dengan jari kiri.
Bulat putih tu maknanya cuma petik sahaja tali tanpa tekan mana mana fret. Juga dipanggil “open note”.
Kalau tak ada tanda apa-apa, tak payah petik tali tu.

Basic Guitar Chords

Ini adalah antara kod paling asas untuk main gitar. Prektis kod C, Dm, F, G dan Am, dan aku gerenti korang boleh main berpuluh-puluh lagu melayu yang simple.

Power Chords

Power Chord selalu digunakan masa main lagu-lagu rock dan metal. Petik cuma 3 tali pada satu masa dan mute (matikan bunyi) tali yang lain. Nama kod ditentukan dengan not root (not pada tali yang dipetik pada #tali paling atas)

Untuk beginner aku amat syorkan prektis kod-kod yang aku tunjukkan tu especially yang dalam list Basic Chords. 7th kod (macam C7, D7 atau apa-apa yang ada nombor 7) tu sebenarnya sama dengan kod biasa, cuma ditambah kod ketujuh. Untuk permulaan tak ingat pun takpe. Tapi kalau nak bunyi sedap sebelum tukar kod, elok lah prektis nanti.
Okey selamat prektis!
Chord Lists : [A] | [B] | [C] | [D] | [E] | [F] | [G]

Penggunaan Procedure dalam Pascal

uses wincrt;

   { Program data mahasiswa }

   procedure data_mhs;

        var

           nm_mhs:string[30];

           jrs:string[20];

           npm:integer;

        begin

             write('Nama Mahasiswa : ');readln(nm_mhs);

             write('NPM            : ');readln(npm);

             write('Jurusan        : ');readln(jrs); { read in this line must be "readln", because it influences program when you use "repeat until" }

             writeln;

        end;

   { End program data mahasiswa }

   { Program Luas Persegi Panjang }

   procedure persegi_pjg;

    var

       p,l:integer;

       ls:real;

       cmd:integer;

    begin

       writeln(' " Program Menghitung Luas Persegi Panjang " ');

       writeln;

             write('Masukkan Panjang Persegi Panjang   : ');read(p);

             write('Masukkan Lebar Persegi panjang     : ');readln(l); { read in this line must be "readln", because it influences program when you use "repeat until" }

             ls:=p*l;

             writeln;

             writeln(' Luas Persegi Panjang adalah       ', ls:0:2,'  cm');

             writeln;

    end;

   { End Program Luas Persegi Panjang }

   { Program Segitiga }

   procedure segitiga;

    var

       a,t:integer;

       l:real;

    begin

       writeln(' " Program Menghitung Luas Segitiga " ');

       writeln;

       write('Masukkan Alas Segitiga   : ');read(a);

       write('Masukkan Tinggi Segitiga : ');readln(t); { read in this line must be "readln",because it influences program when you use "repeat until" }

       l:=(a*t) div 2;

       writeln;

       writeln(' Luas Segitiga adalah     ', l:0:2,'  cm');

    end;

   { End Program Segitiga }

   { Program Keliling Lingkaran }

   procedure kel_lingkaran;

    var

       r:integer;

       kel_link:real;

    const

       phi=3.14;

    begin

       writeln(' " Program Menghitung Keliling Lingaran " ');

       writeln;

       write('Masukkan Jari-jari Lingkaran   : ');readln(r); { read in this line must be "readln",because it influences program when you use "repeat until" }

       kel_link:=phi*(r*r);

       writeln;

       writeln(' Luas Segitiga adalah     ', kel_link:0:2,'  cm');

    end;

   { End Program Keliling Linkaran }

   { Question Procedure }

     procedure question;

      begin

          writeln;

          write('Apakah anda ingin mengulang ? (Y/N) : ');

      end;

   { End Question }

   { Footer }

     procedure footer;

       begin

        gotoxy(20,25);write('Free Share Pascal Programming, Made By Yans');

       end;

   { end Footer || no need to type this }

{ Main Program }     

   label m_utama;

   var

      i,menu:integer;

      ques:char;

   begin

    m_utama:

     footer; { for learning no need to call this, because it is only for style footer}

     gotoxy(1,1);

      writeln('       Daftar Menu      ');

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

      writeln('1. Data Mahasiswa ');

      writeln('2. Luas Persegi Panjang ');

      writeln('3. Luas Segitiga ');

      writeln('4. Keliling Lingkaran ');

      writeln;

      write(' Pilih Menu no ..: ');readln(menu);

      case menu of

       1:

        begin

         ClrScr;

         writeln(' Program Data Mahasiswa/i ');

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

         repeat

          writeln;

          data_mhs;

          question;readln(ques); 

         until UpCase(ques)<>'Y';

          ClrScr;

          goto m_utama;

        end;

       2:

        begin

         repeat

          ClrScr;

          persegi_pjg;

          question;readln(ques);

         until UpCase(ques)<>'Y';

          ClrScr;

          goto m_utama;

        end;

       3:

        begin

         repeat

          ClrScr;

          segitiga; { calling procedure segitiga }

          question;readln(ques);    { calling procedure question, readln(ques) is used for giving you a choice }

         until UpCase(ques)<>'Y';

          ClrScr;             { Clear screen }

          goto m_utama;       { if you give answer not "Y", so it will be back to main menu }

        end;

       4:

        begin

          repeat

          ClrScr;

          kel_lingkaran;

          question;readln(ques); 

         until UpCase(ques)<>'Y';

          ClrScr;

          goto m_utama;

        end;

      else

        ClrScr;

        gotoxy(2,15);writeln('--> Menu Tidak Tersedia -||- Silakan pilih menu sesuai yang tertera diatas <--');

        writeln;

        goto m_utama;

      end; { end of case }

   

   end.

   {  Program finish well }