[PASCAL] Pencarian Huruf dalam sebuah String

Program sederhana berikut adalah untuk mencari sebuah huruf yang terdapat dalam sebuah kata.
Output program ini akan menunjukkan ada berapa kali huruf yang di cari dalam sebuah kata dan menunjukkan posisinya dalam kata tersebut (huruf keberapa saja).

program Gaby-Search;

uses crt;

var
 s : String;
 len,i : integer;
 cari : char;
 jlh : integer;
 xx, pos : String;



begin
 write('Masukkan Kata : ');
 readln(s);

 len := Length(s);

 writeln('Kata yang dimasukkan adalah : ');
 for i := 1 to len do
  write(s[i], ', ');
  writeln();
  readln();

 write('Masukkan Huruf yang di cari : ');
 readln(cari);

 writeln('Huruf yang di cari "',cari,'"');
 readln();
 jlh := 0;

 For i := 1 to len do
  begin
   if (s[i] = cari) then
    begin
     str(i,xx);
     pos := pos + xx + ', ';
     jlh := jlh + 1;
    end;
  end;

 if (jlh > 0) then
 writeln('Huruf ',cari, ' ditemukan sebanyak : ', jlh, ' kali pada posisi : ', pos)
 else
 writeln('Huruf ',cari, ' tidak ditemukan!');
 readln;
end.

Penyusunan Karakter dalam string secara Alphabet

Program ini akan menyusun sebuah kata yang dimasukkan sesuai dengan alphabet.

algoritmanya gampang saja :
Pada dasarnya string itu adalah larik char. jadi untuk mengurutkannya, kita tinggal membandingkan apakah string[1] lebih besar dari string sesudahnya. Jika ya maka, pertukarkan posisi mereka.

Silahkan.di coba.

program sort;

uses crt;


var
 szo: string;
 i, j : byte;
 n : integer;
 t:char;


begin
 write('masukkan Kata : ');
 readln(szo);
 n:=length(szo);

 for i:=1 to n-1 do
  begin
   for j:= i +1 to n do
    begin
     if (szo[i]>szo[j]) then
      begin
       t:=szo[i];
       szo[i]:=szo[j];
       szo[j]:=t;
       writeln(szo);

      end;
    end;
  end;
 writeln();

 for i:=1 to n do write(szo[i], ' ');
 readln;

end.

Photografi dan Mata

Beberapa bulan terakhir saya sibuk motret sana-sini. Semenjak mampu membeli kamera Nikon D3200 + Kit, saya kembali gandrung dengan yang namanya dunia fotografi.

Memang saya sudah lama mengenal dunia fotografi sejak smp. Berawal dari sering main ke Mari Pro Studio Medan yang di jalan jamin ginting, saya mulai mengenal apa itu fotografi.

Fotografi sebenarnya gampang-gampang susah. Inti dari fotografi adalah bagaimana menangkap cahaya sedemikian rupa sehingga dapat menghasilkan gambar yang diinginkan. Ditambah dengan bagaimana memposisikan kamera sehingga gambar terlihat bagus dari sisi estetika (komposisi)

Fotografi bekerja seperti mata kita bekerja. Perlu disadari bahwa apa yang ditangkap mata kita bukan bentuk, namun cahaya! Benda-benda disekitar kita, yang kita lihat, hampir semuanya tidak memancarkan cahayanya sendiri. Namun MEMANTULkan cahaya dari sumber cahaya yang ada disekitarnya. Intensitas cahaya yang dipantulkan itulah yang ditangkap mata.

Semakin besar intensitas cahaya yang dipantulkan dari suatu benda, semakin terang dan JELAS benda itu terlihat oleh mata kita. Bagian dari benda yang paling jauh dari sumber cahaya atau yang tertutup/terhalang dari sumber cahaya akan memiliki intensitas yang lebih paling rendah. Inilah yang akhirnya membuat kesan tiga dimensi. Kedalaman dari suatu benda ditangkap mata karena cahayanya lebih gelap. Ini yang dikenal sebagai bayangan (shadow).

Seperti yang saya sebutkan sebelumnya, fotografi bekerja seperti mata kita bekerja. Kalau kita sudah bisa memahami cara kerja mata kita untuk melihat sesuatu, dasar fotografi itu akan lebih mudah lagi di pahami. 

Pertanyaan yang sering timbul dalam benak fotografer pemula misalnya "Kok bisa sih gambarnya kelebihan cahaya??" Jawabannya sebenarnya gampang bila kita analogikan dengan mata.  "Karena cahaya nya dibiarkan masuk sangat banyak."

Darimana cahaya itu masuk kemata?

Untuk memperjelas bagaimana mata kita bekerja, sebaiknya kita pahami dulu apa saja sih yang ada di dalam mata kita. Berikut adalah gambar yang saya ambil dari situs :

http://www.livescience.com/3919-human-eye-works.html mengenai bagaimana mata kita bekerja.

Sekarang, dari gambar diatas, saya hanya akan membahas mengenai beberapa point penting, yaitu : 

Cornea, Pupil dan Iris, Lensa dan Retina karena hanya itu yang cara kerjanya hampir mirip dengan kamera fotografi.

Cornea

Kornea adalah bagian paling depan dari mata. Bila di analogikan dengan kamera, ini adalah kaca lensa yang paling depan di kamera. dalam mata, ini juga yang mengatur fokus. 

Pupil dan Iris

Pupil merupakan bagian dalam dari mata. Bayangkan sebuah lensa kamera, ini dapat dikatakan bagian dalam nya. Di dalam pupil terdapat iris. Iris ini yang dapat membesar dan mengecil tergantung kebutuhan cahaya yang diperlukan untuk membuat gambar lebih terang dan lebih gelap. Bila di analogikan pada kamera, ini adalah diaframa kamera.

Kalau kamu pernah melihat video mata yang bulatan ditengahnya membesar dan mengecil, itulah iris yang sedang bekerja. Semakin besar bulatannya, semakin banyak cahaya yang masuk kedalam lensa.

Lensa

Kemudian ada lensa mata. fungsinya sama seperti kaca lensa terakhir pada lensa di kamera. lensa ini akan mengembang dan mengecil untuk menyesuakian jarak benda. Kalau pada kamera, kita harus mengganti ukuran lensa yang kita pakai menjadi focal point lebih besar atau kecil.

Retina

Yang terakhir adalah retina. Dalam kamera, ini lah film nya. kalo pada DSLR, inilah sensornya. disinilah gambar itu di projeksikan . Sorry, bukan gambar. Melainkan cahaya.

Jadi pada dasarnya fotografi itu adalah menangkap pantulan cahaya dari objek yang ingin kita foto. 

Pada posting berikutnya, saya akan mencoba menjelaskan mengenai istilah fotografi yang lain.

Bila ada pertanyaan, saran atau kritik, silakan tinggalkan komen. Sya usahakan membalasnya. 

Terima kasih

Array

/*
 * To change this license header, choose License Headers in Project Properties.
 * To change this template file, choose Tools | Templates
 * and open the template in the editor.
 */
package array;

import java.util.Arrays;

/**
 *
 * @author Gabriel
 */
import java.util.Scanner;
public class Array {

   
    /**
     * @param args the command line arguments
     */
    public static int Nomer[] = {10,40,17,20};
    public static int NilaiX = 20;
   
    public static void main(String[] args) {
        // TODO code application logic here
           
        int index = getIndexOf(NilaiX, Nomer);
       
        Scanner in = new Scanner(System.in);
        System.out.println("Index dari NilaiX(20) adalah : " + index);
       
        int NilaiA, NilaiB;
       
        System.out.print("Masukkan Sebuah NilaiA : "); NilaiA = in.nextInt();
        System.out.print("Masukkan Sebuah NilaiB : "); NilaiB = in.nextInt();
       
        if(NilaiA > NilaiB){
            if(NilaiA > NilaiX){
                System.out.println("Nilai Terbesar adalah : NilaiA (" + NilaiA + ")");
            }else{
                System.out.println("Nilai Terbesar adalah : NilaiX (" + NilaiX + ")");
            }
        }else if(NilaiB > NilaiX){
            System.out.println("Nilai Terbesar adalah : NilaiB (" + NilaiB + ")");
        }else{
            System.out.println("Nilai Terbesar adalah : NilaiX (" + NilaiX + ")");
        }
       
    }
   
    public static int getIndexOf(int ygDicari, int[] arr){
        int i = 0;
        while(!(arr[i] == ygDicari))
        {   i++;}
        return i;
       
    }
   
   
   
}

Nilai Mahasiswa Java

package nilaimhs;

/**
 *
 * @author Gabriel
 */
import java.io.*;
import java.util.Scanner;


       
public class NilaiMHs {

    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
        // TODO code application logic here
        int NK,
            NT,
            NUTS,
            NQ,
            NUAS;
        float NTOT;
        String Nama;
        String NH;
       
        Scanner inps = new Scanner(System.in);
        System.out.println("Selamat Datang.");
        System.out.print("Masukkan Nama Mahasiswa yang ingin Diproses :");
        Nama = inps.next();
        System.out.print("Masukkan Nilai Kehadiran :");
        NK = inps.nextInt();
        System.out.print("Masukkan Nilai Quiz : ");
        NQ = inps.nextInt();
        System.out.print("Masukkan Nilai Tugas : ");
        NT = inps.nextInt();
        System.out.print("Masukkan Nilai UTS : ");
        NUTS = inps.nextInt();
        System.out.print("Masukkan Nilai UAS : ");
        NUAS = inps.nextInt();
        System.out.println("Terima Kasih...");
       
        System.out.println("Perhitungan Nilai Untuk : ");
        System.out.println("Nama Mahasiswa : " + Nama);
        NTOT = (float) ((0.1 * NK) + (0.15 * NQ) + (0.2 * NT) + (0.25 * NUTS) + (0.3 * NUAS));
       
        System.out.println("Nilai Total : " + NTOT);
       
        if(NTOT >= 85) {
            NH = "A";
        }else if(NTOT >= 80){
            NH = "B+";
        }else if(NTOT >= 77){
            NH = "B";
        }else if(NTOT >=65){
            NH = "C+";
        }else if(NTOT >= 55){
            NH="C";
        }else if (NTOT >=50){
            NH="D";
        }else{
            NH="E";
        }
       
        System.out.println("Nilai Huruf : " + NH);
        System.out.println("Keterangan :");
       
        switch(NH){
            case "A":
            case "B+":  
            case "B":
            case "C+":
            case "C":
                System.out.println("Selamat Anda LULUS!");
                break;
            default:
                System.out.println("Maaf, Anda Gagal! Silahkan Coba lagi...");
                break;
               
        }
       
       
       
    }
   
}

Tentang Memori yang menyakitkan tentang nya

Setiap orang pasti pernah pacaran. Well, atleast sebagian besar lah. Atau mungkin akan berpacaran. Ga ada yang bisa memungkirin kalo masa-masa pacaran itu adalah masa-masa paling indah. Kamu punya seseorang yang mau mendengarkan keluh kesah mu. Kamu punya seseorang yang penting buat di pikirin. Kalian jalan-jalan ke tempat-tempat yang memberikan kenangan. Entah baik atau buruk itu tetap sebuah "Kenangan bersama dia". Semua waktu-waktu ngambek yang menorehkan luka-luka kecil. Semua waktu-waktu indah yang bisa selalu membuatmu tersenyum bahkan tertawa sendiri.

Tapi ada kalanya semua saat-saat indah itu berakhir. Dengan segala masalah yang dihadapi, kadang harus berakhir pada sebuah perpisahan. Bahkan kadang bukan karena sebuah masalah perpisahan yang ga diinginkan terjadi. Dan mulailah saat-saat sendiri harus kamu lalui lagi.

Pernah ga kamu ngerasa saat datang ke suatu tempat, kamu inget tentang mantan kamu? Kamu inget dulu kalian makan di meja yang itu, sambil ketawa lepas gara-gara candaan dia yang ga penting? Kamu inget di jalan yang ini dulu kamu pernah berantem sama dia kemudian dia bukannya ngejar kamu tapi malah ninggalin kamu, tapi ternyata dia udah nunggu di kosan kamu dengan sekuntum mawar dan kata maaf? (lebai beeet..) Tapi, pernah ga sih kamu rasanya pengen nangis gara-gara semua kenangan sama 'someone special' itu? Bahkan sampai kamu pengen ninggalin kota itu biar ga usah ingat lagi sama semua itu?

Well, aku pernah. Pernah Buanget malah. Lebih dari sekali...

Kmu pasti mikir, aku lari dan pindah kota... Nope! I live with it.

Memang awalnya aku juga ngerasa ga pengen ngelewatin atau nge datengin tempat-tempat itu. But life has its funny way of teaching you all its knowledge. Ada aja yg bikin aku harus lewat sana. Secara ga sadar, sering aku sudah berada di tempat-tempat yang penuh kenangan tadi. Otomatis dong kenangan itu langsung muncul lagi kaya ada LCD Projector langsung muterin semua film nostalgia itu. And do i cry? Ga, justru sebaliknya, aku tersenyum.

Aku belajar, kenangan yang ada itu adalah anugrah. Walaupun akhirnya kita tidak bersama dia, tapi kita pernah bisa tertawa lepas, bisa menangis dan ada yang peduli. Itu adalah blessing. Sesakit apa pun yang aku rasakan saat kehilangan dia, bagaimanapun cara nya aku kehilangan dia dulu, Aku tetap tersenyum dan berkata dalam hati, "Makasih kamu pernah ada dalam hidupku dan menjadi bagian dari hidupku. I wish you're happy right now, anywhere you are."

Kamu pasti tereak waktu bacanya. "Anjret, sok iyes banget nih si Gaby yang nulis ini. Sok baek banget. Sok romantis.. Sok najis...wkwkwkwk" Mungkin iya. Tapi coba kamu pikirin lagi deh. Ngapain? Ngapain harus ngerasakan sakit kalo kamu bisa ngerasakan senang. Sakit itu Cuma ilusi pikiran. Just the same as LOVE. Itu semua Cuma ilusi pikiran. Kamu punya kesempatan untuk mensyukuri semua yang terjadi dalam hidup mu, kenapa ga kamu pake? Kenapa kamu harus milih berkata, "Sialan, Dulu gw pernah kesini sama si kampret itu yang mutusinn gw gara-gara cewe yang ntu." Atau "Dulu gw pernah berantem disini sama dia. Mudah-mudahan cowonya sekarang ditabrak mobil!" sumthing like that lah...

Hidup Cuma sekali. Kamu pengen ngerasain senang atau ngerasain sedih, itu Cuma sekali jalan. Ga ada mundur nya coy, gada replay....

Dengan mensyukuri semua yang pernah terjadi, aku yakin kamu bakal ngerti kenapa kamu jadi seperti sekarang. Kamu akan tahu arah yang harus kamu tuju dalam hidup mu. Semua yang terjadi ada alasannya terjadi. Semua adalah untuk membawamu ke tempat yang lebih indah dan membuatmu bahagia.

Lemme ask you this:

Kamu lebih memilih berpikir yang mana? "Aku pisah sama dia karena memang dia bajingan!" atau "Aku pisah sama dia karena ada yang lebih pantas untuk ku. Dan ada yang lebih pantas buatnya. Kalo di terusin Cuma bakal nyiksa satu sama lain."

Make peace with your past, and your future wil just be opened wide!

By Gaby....

Cara Membuat Animasi Sederhana Rolling Banner

Animasi yang akan dibuat adalah seperti berikut

Projectnya dapat di download dari sini

1. Buka Adobe Flash dan Buat file baru.

2. Gambar Sebuah Persegi panjang dengan menggunakan Rectangle Tool dan letakkan Tulisan “Teknik Informatika” diatasnya dengan menggunakan Text Tool. Beri warna Merah untuk kotaknya dan Putih untuk teks nya.

3. Untuk meletakkan tulisan tepat di tengah kotak, gunakan mentu Modify > Align > Horizontal Center dan Vertical Center setelah melakukan seleksi kedua objek tersebut. Tekan dan tahan tombol Shift pada keyboard lalu klik kedua objek dan lepaskan.

4. Setelah berada di posisi yang di inginkan, Select lagi kedua objek tersebut, kemudian klik kanan di dalam objek dan pilih “Convert To Symbol”

5. Masukkan Nama “TIMerah” dan pastikan Type nya adalah “Graphic” kemudian klik OK

6. Kita perlu menduplikasi symbol yang sudah ada dan kemudian memodifikasinya sesuai dengan yang kita inginkan. Oleh karena itu, Klik kanan symbol yang baru dibuat di library, kemudian pilih “Duplicate...”. Kemudian pada Window Duplicate Symbol Beri nama baru seperti TIHijau, AlamatKuning, AlamatBiru lalu klik tombol OK.

7. Klik 2 kali pada Icon AlamatBiru untuk masuk kedalam mode edit simbol. Lalu Gantilah warna persegi panjang menjadi biru dengan cara meng-klik persegi panjang, lalu pada tab property, pilih warna disebelah tanda ember tumpah. Dan ganti tulisan menjadi “http://amikmbp.ac.id”

8. Setelah Selesai tekan tombol di sebelah kanan atas untuk kembali ke mode Scene. Lakukan hal yang sama dengan 2 Symbol lainnya.

9. Masukkan 3 layer baru di dalam scene dengan cara mengklik kanan layer di window timeline, kemudian pilih “Insert Layer”. Kemudian beri nama sesuai simbol.

10. Pada layer TIMerah, klik kanan di frame 15 dan pilih insert keyframe untuk mengisi timeline layer TIMerah sampai ke frame tersebut dengan objek yang sama. Ini untuk memberikan waktu berhenti pada objek warna merah.

11. Klik tombol Free Transform pada toolbar untuk masuk ke mode transform dan pindahkan transformation point (titik berwarna putih) ke atas.

12. Lalu pada timeline layer tersebut, klik kanan frame 20 dan pilih “Insert Keyframe”. Kemudian kecilkan simbol ke atas dengan menarik control point paling bawah ke atas sampai menyentuh control point atas.

13. Lalu Klik kanan timeline layer itu diantara frame 15 dan 25 dan pilih Create classic tween atau Create Tween.
14. Berikutnya, insert keyframe pada frame 15 di layer Alamat Kuning. Pastikan frame tersebut sudah terpilih dan tarik simbol AlamatKuning dari library, letakkan tepat diatas simbol TI Merah.

15. Pindahkan transformation point ke bawah dan kecilkan simbol dengan menarik control point atas kebawah. Insert keyframe di frame 25 layer AlamatKuning, kemudian kembali lagi ke frame 15 lalu pindahkan timeline ke frame 15.

16. Buat Tween di frame 15-20 di layer AlamatKuning. Maka Alamat kuning akan terbuka keatas disaat TIMerah menutup keatas. Lanjutkan dengan cara yang sama untuk 2 layer lain. Maka anda akan mendapati timeline seperti dibawah ini.

17. Untuk perubahan Dari Biru ke Merah (Kembali ke awal), kita harus mengambil frame dari layer TIMerah dan menganimasikannya. Jadi, klik kanan pada frame 1 di layer TIMerah lalu pilih copy frame kemudian klik kanan di frame 90 pada layer TIMerah dan pilih paste frames.



18. Frame 26 sampai frame 89 akan terisi secara otomatis. Karena itu klik kanan pada frame 26 di layer TIMerah, pilih “Convert To blank keyframes” Frame dari 26 sampai 89 akan menjadi kosong..

.

19. Kembalilah ke Frame 90 di layer TIMerah dan pindahkan transformation point ke bawah. Lalu insert keyframe di frame 100.



20. Kembali ke keyframe 90 dan kecilkan layer TIMerah ke bawah. Kemudian buat tween diantara 90 dan 100.

21. Selesai. Silakan coba jalankan dengan menekan tombol enter. Atau tekan Alt + Enter untuk melakukan rendering SWF nya.
22. Terima Kasih.