turbo pascal 1.5 - perulangan bersarang 3

program segitigabintang; {program menampilkan karakter bintang sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write(' berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=n downto 1 do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;

          for j:=1 to i do
          begin
               write('*');
          end;
          writeln;
     end;

end.

turbo pascal 1.5 - perulangan bersarang 2

program segitigabintang; {program menampilkan karakter bintang sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write('berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=n downto 1 do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln;
     end;

end.

turbo pascal 1.5 - perulangan bersarang

program segitigabintang; {program menampilkan karakter bintang sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write('berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=1 to N do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln;
     end;

end.

Microprosesor AVR Studio 4 - Contoh Program 3

Operasi Logika dan Pergeseran

.include"8535def.inc"
.org 0x0000
rjmp utama

utama:

ldi r16,low(RAMEND)
out spl,r16
ldi r16,high(RAMEND)
out sph,r16

ldi r16,0xff
out ddra,r16
ldi r16,0x00
out ddrc,r16

ulang:
    in r16,pinc

    mov r17,r16
    swap r17
    lsl r17
    lsl r17
    lsl r17
    andi r17,0b10000000

    mov r18,r16
    swap r18
    lsl r18
    andi r18,0b01000000

    mov r19,r16
    swap r19
    lsr r19
    andi r19,0b00100000

    mov r20,r16
    lsl r20
    andi r20,0b00010000

    mov r21,r16
    lsr r21
    andi r21,0b00001000

    mov r22,r16
    swap r22
    lsl r22
    andi r22,0b00000100

    mov r23,r16
    swap r23
    lsr r23
    andi r23,0b00000010

    mov r24,r16
    swap r24
    lsr r24
    lsr r24
    lsr r24
    andi r24,0b00000001

    or r17,r18
    or r17,r19
    or r17,r20
    or r17,r21
    or r17,r22
    or r17,r23
    or r17,r24
    out porta,r17

rjmp ulang

KETERANGAN

Jika Saklar PinC0 ditekan maka Led di PortA7 menyala

Jika Saklar PinC1 ditekan maka Led di PortA6 menyala

Jika Saklar PinC2 ditekan maka Led di PortA5 menyala

Jika Saklar PinC3 ditekan maka Led di PortA4 menyala

Jika Saklar PinC4 ditekan maka Led di PortA3 menyala

Jika Saklar PinC5 ditekan maka Led di PortA2 menyala

Jika Saklar PinC6 ditekan maka Led di PortA1 menyala

Jika Saklar PinC7 ditekan maka Led di PortA0 menyala

Microprosesor AVR Studio 4 - Contoh Program 2

PROGRAM MENYALAKAN LED DARI LSB KE MSB HINGGA SEMUA LED MENYALA, DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ser r16                ; set register 16 jadi logika 1 semua
out porta, r16
clc                ; carry di set jadi 0

ldi r17,0x01
ldi r18,0x09            ; untuk perulangan


ulangi:
    cp r18, r17        ; bandingkan r18 dengan r17
    brlo mulai        ; juka r18 < r17, maka jump ke mulai (di set kondisi awal)

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    lsl r16            ; geser logika 0 ke lsb, dan msb masuk ke carry

    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MENYALAKAN LED DARI MSB KE LSB HINGGA SEMUA LED MENYALA, DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

out porta, r16
clc                ; carry di set jadi 0

ldi r17,0x01
ldi r18,0x09            ; untuk perulangan
ser r16                ; set register 16 jadi logika 1 semua
out porta, r16
clc                ; carry di set jadi 0

ldi r17,0x01
ldi r18,0x09            ; untuk perulangan


ulangi:
    cp r18, r17        ; bandingkan r18 dengan r17
    brlo mulai        ; juka r18 < r17, maka jump ke mulai (di set kondisi awal)

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    lsr r16            ; geser logika 0 ke lsb, dan msb masuk ke carry

    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MEMATIKAN LED DARI LSB DAN BERPINDAH HINGGA KE MSB, DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ldi r16, 0x00            ; set register 16 jadi logika 0 semua
out porta, r16            ; menyalin r16 kle porta (berarti semua porta dalam keadanaan menyala)
sec                ; set carry menjadi berlogika 1
ulangi:

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    rol r16            ; rotasi logika nilai carry ke lsb, dan msb masuk ke carry
    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MEMATIKAN LED DARI MSB DAN BERPINDAH KE LSB, DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ldi r16, 0x00            ; set register 16 jadi logika 0 semua
out porta, r16            ; menyalin r16 kle porta (berarti semua porta dalam keadanaan menyala)
sec                ; set carry menjadi berlogika 1
ulangi:

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    roR r16            ; rotasi logika nilai carry ke lsb, dan msb masuk ke carry
    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MENYALAKAN LED DARI LSB DAN BERPINDAH HINGGA KE MSB DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ldi r16, 0xFF            ; set register 16 jadi logika 1 semua
out porta, r16            ; menyalin r16 kle porta (berarti semua porta dalam keadanaan menyala)
clc                ; set carry menjadi berlogika 1

ulangi:
    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    roL r16            ; rotasi logika nilai carry ke lsb, dan msb masuk ke carry
    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MENYALAKAN LED DARI MSB DAN BERPINDAH HINGGA KE LSB DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ldi r16, 0xFF            ; set register 16 jadi logika 1 semua
out porta, r16            ; menyalin r16 kle porta (berarti semua porta dalam keadanaan menyala)
clc                ; set carry menjadi berlogika 1
ulangi:

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    roR r16            ; rotasi logika nilai carry ke lsb, dan msb masuk ke carry
    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

Microprosesor AVR Studio 4 - Contoh Program

.include"8535def.inc"
.org 0x0000
rjmp pertama

pertama:
ldi r16,0xff
ldi r17,0x00
out portb,r17
out portc,r16
out portd,r17

in r18,porta
cp r18,r16
breq set1

cp r18,r17
breq set2

set3:
in r19,porta
cp r19,r16
breq set1
cp r19, r17
breq set2
in r18,porta
out portd, r18
rjmp set3

set1:
out portd,r17
out portb,r18
in r18,porta
cp r18,r16
brne pertama
rjmp set1

set2:
out portd,r17
out portc,r18
in r18,porta
cp r18,r17
brne pertama

rjmp set2

akhir:
rjmp akhir

Penjelasan.

1. input dengan melihat keadaan PortA, apakah keadaannya high semua, low semua, atau tidak kedua duanya.
2. jika PortA dalam keadaan High semua, maka kondisi di PortA akan disalin ke PortB
3. jika PortA dalam keadaan Low semua, maka kondisi di PortA akan disalin ke PortC
4. jika keadaan pada no.2 dan no.3 tidak terpenuhi, maka kondisi di PortA akan disalin ke PortD

• karena PortB akan diberikan nilai PortA yang berlogika High, maka sebelumnya kondisi default untuk PortB adalah Low
• karena PortC akan diberikan nilai PortA yang berlogika Low, maka sebelumnya kondisi default untuk PortC adalah High
• untuk PortD, diberikan kondisi default Low.

Sarasvati - Story of Peter

Story of Peter


Sad eyed boy in his silly pants
Sometimes his there sometimes he hides
Pale fair skin and his tiny hands
Waving from distance in black and white


Nobody sees him when his around
But his beside me whenever im down
Run about and play around my silky dress
Now I could never forget his face





I don't know who you are
And I don't know where your from
Give me your hands
Lets find a light
Leave all this behind
And forget the world


So the silly peter disappear
Now his nowhere to be seen
His not those shades that I fear
And many things remind me of him


Cut and Paste


I hear voices at my back
Disturbing peace for my years sake
I need a rest to hear the air
Ive been deaf for you is it fair?


There is a girl with a million lust
She does things to get it fast
Shes only good in cut and paste
A silly girl who think shes the best


There is something in your mind
force my every single line
Should I dancing in your stage
Just like your cat in your cage


There is no light theres only dark
in your heart I see no art
im like a busker in the park
I sing I cry I play my part


Question


Stop the world from shouting
They're burning up my ears
Let me live a daydream
Those fantasies she feels
It's made of copper from the air
It's black charcoal that's golden fair
What am i suppose to feel?


I only see
And what i want, can not be
Does she always walk on bended knees
Yet soars up high
On happy seas


A silent question in my head
In hers a poetry openly read
She is not of being like mine
She does not seek what she can not find


Stop the world from shouting
They're burning up my ears
Let me live a daydream
Those fantasies she feels
It's made of copper from the air
It's black charcoal that's golden fair
What am i suppose to feel?


Fighting Club


We are happy family
We don't think to equally
Na na na na na na
Na na na na na na
Im the one who win the bread
Youre all eating from my plate




Im living in an orphanage
You're living in Cambridge
You adored me and adopted me
Now your divorcing me
Im the one who win the bread
You're all eating from my plate


I wont search the reason why…you blamed me… uuuh
I don't see why I should feel..an sympathy….uuuh
Don't send any flowers for me…cause im gloomy…uuuh
So this is the end of our journey…if theres any…uuuh


Bilur


Selendang bersulam sutra, biduri lembayung jingga
Saksi mati tuk bersaksi, gelimang pesona diri
Belia usia dulu, ruap cinta tlah menggebu
Samar kulihat dunia, tak sadar semua fana


Semerbak dupa iringi kumelangkah
Cungkupku hanya tanah
Bilur hati merambah
Dan akan datangkah bagiku kesempatan
Bila tak ada titian diri yang rupawan


Sekilas lihatlah mega, anugerah tiada tara
Ini tak adil untukku, halimun hitam merasuk
Ceracau getir ibunda, gemertak sengap hatinya
Firasat tak pernah salah, hanya kuberbuat ulah


Semerbak dupa iringi kumelangkah
Cungkupku hanya tanah
Bilur hati merambah
Dan akan datangkah bagiku kesempatan
Bila tak ada titian jalan yang rupawan


Oh I Never Know


I don't care, if you don't wanna know what it is
Cause the time just wont stop to understand
Im scared too scared to believe what I want
Im shy too shy to tell the truth


I want to know, your feeling to clear this mess
I do believe theres no word to explain your heart
Don't be scared don't get scared to believe what you want
Don't be shy don't be shy
To tell the truth


I wanna know what you feel when I am with you
Yes, my heart beat cant stop when I am with you
Im shy so shy yes shy so shy
You never let me know what I wanna hear
You never show me the love that I want from you
Im scared so scared yes scared so scared


Perjalanan


Dengan kereta malam kupulang sendiri
Mengikuti rasa rindu
Pada kampung halamanku
Pada ayah yang menunggu
Pada ibu yang selalu mengasihiku


Duduk dihadapanku seorang ibu
Dengan wajah sendu, sendu kelabu
Penuh rasa haru dia menatapku, penuh rasa haru dia menatapku
Seakan ingin memeluk diriku


Dia lalu bercerita tentang
Anak gadisnya yang telah tiada
Karena sakit dan tak terobati
Yang wajahnya mirip denganku, yang wajahnya mirip denganku