Asalamu alaikum Wr.Wb

     Selamat siang kawan-kawan, pada kesempatan kali ini saya akan berbagi contoh listing program untuk membuat program Ramalan Bintang Di Pascal  Dan Didalam program ini anda haya tinggal masukan NAMA kemudian masukan TANGGAL LAHIR lalu kemudian BULAN LAHIR dan kemudian program akan menunjukan ZODIAK ANDA,,,Dari pada penasaran langsung aja ke TKP

Listing Program Ramalan Bintang Oleh : Anggi Nur Ependi

program zodiak;
uses wincrt;
var
nama : string;
t,bl,tl,z,j : integer;
ulang : char;
begin
repeat
clrscr;
write ('Masukan nama Anda            : ');
readln(nama);
write ('Masukan Tanggal Lahir Anda   : ');
readln(tl );
write ('Masukan Bulan Lahir Anda     : ');
readln(bl);
writeln ('===============================================');


case bl of
01 : begin t := 31; j := 0 end;
02 : begin t := 29; j := 1 end;
03 : begin t := 31; j := 0 end;
04 : begin t := 30; j := 0 end;
05 : begin t := 31; j := -2 end;
06 : begin t := 30; j := -1 end;
07 : begin t := 31; j := -2 end;
08 : begin t := 31; j := -2 end;
09 : begin t := 30; j := -3 end;
10 : begin t := 31; j := -2 end;
11 : begin t := 30; j := -1 end;
12 : begin t := 31; j := -2 end;
else writeln (' Bulan yang anda Maksud Tidak Tersedia');
end;
begin
if ( tl <= t) = true then
begin
write ('Zodiac Anda Adalah ');
z := ((bl * 31) + ((tl + j) - 21)) div 31 ;
case z of
1 : writeln ('Aquarius : Time Is The Money');
2 : writeln ('Pisces : Jangan Pernah Sia-siain Waktu');
3 : writeln ('Aries : Jangan Terlalu Terburu - Buru Mengambil Keputusan');
4 : writeln ('Taurus : Uang Saku Mu Selalu Bertambah Setiap harinya Tapi Jangan Terlalu                                                   Boros');
5 : writeln ('Gemini : Jomblo Ga Jadi Masalah Sob');
6 : writeln ('Cancer : Kalau lo Suka Ama Dia Buruan Tembak Dari Pada Di Duluin Orang                                                     Lain');
7 : writeln ('Leo : Keseimbangan Dalam Mentukan Keputusan Menjadi Modal Utama');
8 : writeln ('Virgo : jodoh Selalu Datang Dengan Sendirinya Tapi tetep Harus Usaha');
9 : writeln ('Libra : Jangan Telat Makan Bisa Lo Jatuh Sakit Sob');
10 : writeln ('Scorpio : jangan Seperti Kacang Lupa Kulitnya');
11 : writeln ('Sagitarius : Jangan Boros Ah');
else writeln ('Capricon : Jangan Terlallu Ikutin Ego Lo');
end;
end
else writeln ('Tanggal Tidak Tersedia');
end;
writeln('===============================================');
write ('Mau Mencoba lagi ? (y/t) : ');
readln(ulang);
until (ulang = 't' ) or (ulang = 'T')
end.

Serial Number Adobe Photoshop Cs5 Lengkap

Asalamu Alaikum Wr.Wb

Selamat pagi temen" disini saya akan berbagi SERIAL NUMBER Adobe Photoshop Cs5,,,SIlahkan Bila Mau Di Lihat,,,,

1330-1270-2109-5153-8837-9231

1330-1953-8438-8500-7117-3533

1330-1158-3088-0438-6574-0867

1330-1361-6670-4304-7886-6688

1330-1241-0674-5648-4729-1904

1330-1397-1014-7571-2817-1355

1330-1250-9206-4495-3796-9368

1330-1331-8999-1502-9478-2917

1330-1281-8916-6015-7348-5124

1325-1558-5864-4422-1094-1126

1325-1958-5864-4422-1094-1178

1330-1615-1663-0498-6205-1791

1330-1953-8438-8500-7117-3533

1330-1158-3088-0438-6574-0867

1330-1229-6975-5285-6957-5367

1330-1979-8805-1771-3236-6920

Membuat Grup Aplikasi Di Windows 8

Asalamu Alaikum wr.Wb

                Selamat siang dan selamat datang,,,di warpeng.blogspot.com, kali ini saya ada informasi terbaru tentang dunia IT sekalian share terutama mengutak ngatik windows 8 temen” semua, nah kali ini saya akan memberikan info dan cara yang simpel di windows 8 yaitu cara mebuat Group Aplikasi di (Star Screen)

                Nah agar pada halam utama windows 8 (Start Screen) tampak lebih rapi, Anda bisa membuat grup aplikasi dengan cara mengelompokan aplikasi-aplikasi tertentu menjadi beberapa group. Nah sekarang langsung aja menuju TKP!!!

    A.    Kumpulkan Aplikasi yang akan di buat satu grup dengan cara drag&drop satu per satu       aplikasi ke tempat     kosong seperti gambar yang sudah jadi di bawah

                                                              

     B.  Supaya tampilan Start Screen mengecil seperti gambar di bawah ini,,,gunakan tombol        Ctrl+Scrool             Mouse,,,,Nah saya menandai grup-grup aplikasi yang saya mau              ubah,,,pada gambar di bawah ini, ada 5       grup yang akan saya edit disini.

                                                                                       

Contoh Program Ganjil Dan Genap Menggunakan C++

Asalamu Alaikum wr.wb,,,

Wilujeng enjing kasadayana,,,sim kuring dina ie kesempatan bade ngabagiken  informasi nu aya sangkutan sareng Dunia ( TI ),,, nyaeta ngadamel Program Tina bahasa pemograman C++,,,sim kuring dina ie kasempetan bade ngabagi program/listing program anu tos sim kuring reka” nyaeta program kango nentuken bilangan ganjil atanapi genap,,,langsung wae urang ka TKP!!!

ü  Ok Disini Ada Dua Gambaran Hasil Jadi Dari Program Di Bawah Ini, Saya Memasukan Nilai 2 Dan 5 Dan Hasilnya Seperti Tampilan Di Bawah Ini,,,Monggo Di Tengok

1.1   (Contoh bilangan genap)

Mengedit Foto Menggunakan Picasa

Asalamu Alaikum wr.wb

Selamat siang teman-teman semua, disini saya akan share tentang cara mengedit gambar memakai PICASA,,,Siapa bilang dengan aplikasi picasa tidak bisa mengedit foto menjadi keren,,,tentu bisa dan caranya supaya gambar yg di hasilkan lebih ciamik dan menarik untuk di lihat,,,langsung aja bisa di lihat cara-caranya dan gambar di bawah ini,,,saya menggunakan gambar orang lain yang asal comot dari Wa GOOGLE ,,,,

*Sebelum

Membuat Table Menggunakan HTML

Assalamu Alaikum Wr.Wb......

Selamat pagi, siang, sore, malem  sahabat blogersss... Kali ini saya mau berbagi atau istilah kerennya men-share kepada teman - teman tentang “Bagaimana Caranya Membuat Tabel Menggunakan HTML”. :)

Untuk membuat tabel menggunakan HTML, kita bisa menggunakan notepad sebagai sarana untuk menuliskan listing HTML-nya. Sebelum ke TKP apa sih yang di maksud dengan HTML itu sendiri??

Jawabanya adalah Hyper Text Markup Language (HTML) adalah bahasa dari Worl Wide Web (www) yang di pergunakan untuk menyusun dan membentuk dokumen agar dapat di tampilkan pada program web browser,,,,dari pada penasaran langsung aja yu ke TKP,,,, :)

Produksi UKM FDK STMIK TASIKMALAYA,,,Monggo Yang Mau Lihat Karya Anak FDK,,,,!!!!

Untuk Membuat Proses Shutdownt Lebih Cepat Anti Lelet

Windows Rusak Bisa Beres Dalam Sekejap

Saya ada informasi terbaru nih,,,buat temen” yang Merasa Proses Shutdownnya Lelet, Ga usah bimbang saya punya solusinya nih!! Ada dua cara, Monggo di liat!

# Menggunakan Regedit

a.       Jalankan Registry Editor dengan cara klik Start, pilih Run, ketikan regedit, lalu klik OK atau tekan tombol Enter

b.      Buka kunci (key) berikut :

HKEY_LOCAL_MACHINE\SYSTEM\CurrenControlSet\Control\Sesion Manager\Memory Management, lalu pilih (dobel Klik) ClearPageFileAtShutdown Yang terletak di jendela sebelah kanan.

 

c.       Set kolom  Value Data menjadi    (0,)

 lalu klik OK.

d.      Selanjutnya tutup Registry Editor,

Lalu Restart  Komputer anda

# Menggunakan Group Policy Editor :

a.       Klik Star, pilih Run, lalu ketikan Secpol.msc, lalu klik OK atau tekan tombol

ENTER.

b.      Pilih Local Policies, pilih Security Options, Lalu pada jendela di sebelah kanan, pilih

(double klik) Shutdown : Clear Virtual Memory Pagefile.

 

c.       Pilih Disabled, lalu klik OK.

d.      Selanjutnya tutup Local Security Seting,

lalu Restart  computer

Ok mungkin itu aja yang saya bisa kasih tau,,,,,,Terimkasih banyak dan selamat mencoba!!

Soal Stuktur Data Lengkap Dengan Jawaban Dan Alasanya

 S  Soal Stuktur Data

 1    1. Struktur pertama dalam pascal adalah.....

    a. Char;

     b. String

     c. End.                

     d. Writeln

     e. Uses Crt;

   Alasan : Setiap program pascal diawali "Uses Crt;" untuk mengenali sistem operasi    

2.   Untuk melihat hasil dari program yang di kerjakan tekan tombol....

     a. Ctrl+F5

     b. Ctrl+F9

     c. Ctrl+F2

     d. Ctrl+F12

     e. Ctrl+F4

     Alasan : Untuk menjalankan listing kode pascal pada menu bar (Run > Pilih Run atau melalui  Keyword pada keyboard "Ctrl+F9")

3.     Berapa kode yang digunakan  untuk membuat tulisan berwarna “CYAN”....

      a. 4

      b. 2

      c. 128

      d. 7

      e. 3

Alasan : Ada beberapa kode angka untuk merubah warna teks, salah satunya "3" untuk membuat teks berwarna CYAN.

4.   Perintah dasar sederhana dalam program pascal adalah.....

 a. Readln

b. End

c. Write

d. Writeln

e. Uses crt;

Alasan : Perintah dasar pertama saat mempelajari bahasa pascal adalah "Write"

5.   Tipe data bahasa pascal untuk TRUE FALSE  adalah....

a. String

b. Char

c. Boolean

d. Byte

e. Real

Alasan : Ada beberapa jenis tipe data dalam pascal, salah satunya "Boolean" yaitu tipe data yang hanya mempunyai dua buah nilai (True atau False)

6.   Siapakah penemu program pascal....

a. Greyson Change

b. Prof. Niklaus Wirth

c. Kondrazuse

d. Prof. Niklaus Smirth

e. Dr.  Hercules

Alasan : Sejarah bahasa pemrograman pascal menyatakan bahwa penemu bahasa pascal yaitu "Prof. Niklaus Wirth"

7.   Struktur bahasa pemrograman pascal paling pertama adalah....

a. Var;

b. Begin

c. End;

d. Uses crt;

e. Writeln;

Alasan : Setiap program pascal diawali "Uses Crt;" untuk mengenali sistem operasi yang digunakan.

8.   Tipe data pascal untuk karakter adalah....

a. Char

b. Boolean

c. Integer

d. Real

e. Byte

Alasan : Ada beberapa tipe data dalam bahasa pascal, salah satunya "Char" yaitu tipe data untuk memasukan sebuah karakter

9.   Kapan terbentuknya pascal....

a. 1981

b. 1971

c. 1961

d. 1991

e. 1987

Alasan : Dalam pascal disebutkan bahwa bahasa pemrograman ini diciptakan pada tahun "1971"

      10.   Apa kepanjangan dari USES....

               a. Unit Secure

               b. Unit Syntax

c. Unit System

d. Up Software

e. Unit Semiconductor

Alasan : USES adalah untuk pengenalan sistem operasi yang digunakkan dan merupakan kepanjangan dari "Unit System"

11. Berikut ini adalah penulisan identifier yang benar dalam pemrograman pascal adalah....

a. 9Program_Satu

b. Program_Satu

c. Program Satu

d. Begin

       e. Array

Alasan : Dalam bahasa pascal penulisan identifier tidak boleh memakai spasi atau simbol lain atau angka didepan.

12. Tipe bilangan bulat dalam bahasa pascal dikenal sebagai....

a. Byte

b. Integer

c. Char

d. String

e. Boolean

Alasan : Ada beberapa tipe data dalam bahasa pascal, salah satunya adalah untuk bilangan yang dipecah juga menjadi beberapa bagian sesuai range dan membaca bilangan bulat atau bukan, untuk bilangan bulat memakai tipe "Integer"

13. Istilah “perulangan” dalam pemrograman pascal dikenal dengan....

a. Repeating

b. Again

c. Function

d. Replay

e. Looping

Alasan : Bahasa pascal terdapat beberapa istilah, salah satunya "Looping" yaitu istilah yang digunakkan untuk perulangan

14. Perintah untuk menutup program pada Pascal adalah...

a. END.

b. Program

c. Uses crt;

d. Finish

e. END;

Alasan : Setiap listing pascal harus memakai perintah untuk mengakhiri program, dan perintahnya yaitu "END."

15. Menggambarkan program secara logika merupakan fungsi dari...

a. Flowchart

b. DxDiag

c. Begin

d. SI

e. Sistem Operasi

Alasan : Gambar program secara logika yang berupa simbol dan mempunyai arti dan alur yang benar disebut "Flowchart"

      16. Deklarasi yang digunakan untuk mengidentifikasikan data yang nilainya sudah ditentukan dan pasti, tidak  dapat  dirubah dalam program disebut deklarasi....

a. Deklarasi label

b. Deklarasi Konstanta

c. Deklarasi tipe

d. Deklarasi Variabel

e. Deklarasi Prosedur

Alasan : Pendeklarasian yang sudah di tentukan nilainya langsung di listing kodenya dan tidak dapat dirubah merupakan "Deklarasi Konstanta"

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal, kecuali....

a. Deklarasi perubah

b. Deklarasi proses

c. Deklarasi konstanta

d. Deklarasi tipe

       e. Deklarasi prosedur

Alasan : Ada beberapa deklarasi dalam bahasa pascal, yang tidak termasuk adalah "Deklarasi Proses"

       18. Bilangan  yang  mengandung pecahan, palingsedikit  harus ada satu digit  sebelum dan sesudah titik  desimal termasuk dalam tipe data...

a. Real

b. Boolean

c. Integer

d. Longint

e. Byte

Alasan : Ada beberapa tipe data dalam bahasa pascal, salah satunya adalah untuk bilangan yang dipecah juga menjadi beberapa bagian sesuai range dan membaca bilangan bulat atau bukan, untuk bilangan desimal memakai tipe "Real"

       19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah....

a. Writeln

b. Readln

c. Begin

d. Write

e. Clrscr

Alasan : Untuk membersihkan layar pada saat program berjalan dalam bahasa pascal haruslah mendeklarasikan sebuah perintah yaitu "Clrscr"

       20. Bentuk dari suatu  statement IF  berada  di dalam lingkungan statemen IF  yang  lainya, disebut IF dalam  kondisi....

a. IF bersarang

b. IF bercabang

c. IF tunggal

d. IF-THEN

e. IF do while-until

Alasan : Ada logika bersyarat dalam bahasa pascal yang disebut IF, dan bila ada IF di lingkungan IF maka disebut "IF bersarang"

      21. Tipe data terstruktur yang  terdiri  dari  sejumlah komponen  komponen yang mempunyai tipe sama, disebut tipe data...

a. Array

b. Byte

c. Longint

d. Integer

e. Boolean

Alasan : Tipe data yang terdiri dari komponen-komponen yang mempunyai tipe yang sama disebut "Array"

      22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut...

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

Alasan : Dalam bahasa pascal untuk mencetak dilayar monitor tanpa pindah baris menggunakan perintah "Write"

        23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah bariskebawah, disebut...

        a. Writeln

        b. Write

        c. Readln

       d. Read

       e. Begin

Alasan : Dalam bahasa pascal untuk mencetak dilayar monitor dengan pindah ke baris selanjutnya menggunakan perintah "Writeln" 

       24.  Suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses,disebut....

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

Alasan : Identifier dalam bahasa pascal yang dapat diubah nilainya disebut "Variabel"

       25.  Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram ( program bagian ), disebut...

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

Alasan : "Prosedur" adalah subprogram dari sebuah prgoram pascal yang bisa dideklarasikan di program pascal.

 *tulisan yang bercetak tebal itu adalah jawabannya :)