Sabtu, 20 November 2010
serunya membuat cubeecraft
cubeecraft. apakah anda sudah menghetahuinya? apa blm pernah mendengarnya sama sekali? nah ini dia bagi yang belum pernah mendengarnya. cubber craft merupakan sebuah mainan bisa di bilang juga si pajangan yang bisa kita buat sendiri, dan bahan dasarnya pun dari kertas, jadi untuk membuatnya tidaklah sulit, yang di kenal dengan download - print - cut - fold .maksdunya .download cubber craft yang kita ingin kan lalu kitaa cetak, gunting mengikuti perintah yang di sarankan, lalu kita bentuk agar seperti yang kita inginkan, disini pun kita di latih untuk mengasa kreatifitas kita, karena memerlukan konsentrasi agar hasil yang kita kerjakan maksimal, tidak sedikit orang yang menyukai cubber craft, karena sangat cocok untuk anda yang banyak mempunyai waktu kosong, daripada terbuang percuma mendiing kita buat cubber craft, koleksi yang dapat kita buat pun sangat banyak dari kartun - kartun, binatang, sampai artis hollywod, bahkan peran- peran di film" pun banyak disini, kalian bisa download ajah di http://www.cubeecraft.com/, di jamin seru deh, ketagihan di jamin, apalagi buat pencinta hal" yang unik, ayooo kita buat cubber craft sebanyak bnyaknya, pajaang di kamar mu, semakin banyak, semakin seruuu
cara membuat program ramalan di QBASIC
QBasic adalah IDE dan juru bahasa untuk varian dari bahasa pemrograman BASIC yang didasarkan pada QuickBasic. Kode dimasukkan ke dalam IDE dikompilasi ke bentuk peralihan, dan ini bentuk peralihan segera ditafsirkan pada permintaan dalam IDE Hal ini dapat berjalan di bawah hampir semua versi DOS dan Windows.
disini saya ingin sekedar berbagi tentang bagaimana kita dalam membuat program berbentuk kuis atau pertanyaan pada QBASIC, sebenarnya banyak cara yang dapat kita lakukan untuk mebuat program ini tergantung logika kita ajah,hhe, namun disini gw mau ngasih contoh ajah, salah satu bagaimana cara membuat program kuis ini, nah ini dia CLSnya,
cls
color 10
print " ============"
print " = KUIS ="
print " ============"
print ""
print ""
print "'
print " PRIMBON 2012"
print ""
print ""
input "tekan (Y) untuk memulai kuis :", jawab$
if jawab$ = "Y" or jawab$ = "y" then goto 10
10 print ""
cls
color 15
print "menemukan kriteriamu dan pasangan anda"
print ""
print "nama anda :", nama$
print "nama pasangan anda :", namap$
cls
print "apakah anda menyayangi pasangan anda ?"
print ""
print "1. ahh biasa ajah, soalnya pasangan gw ga romantis sih, pelit lagi"
print ""
print "2. yaa gimana yaa, di bilang sayaang ya sayaang, di bilang ga juga iaa,haha"
print ""
print "3. gw cinta mati sama pacar gw"
print ""
input "jawaban :", A
select case A
case 1
let A = 1
case 2
let A = 2
case 3
let A = 3
end select
cls
print "dimana biasanya anda berpacaran ?"
print ""
print "1. saya biasanya janjian di mall, terus kita nnton deh film yang bgs,klo ga ada yg bgs ya nnton ajah, yang penting bisa berduaan,hhe"
print ""
print "2. di rumah tetangga, soalnya kita backstreet dari orang tua"
print ""
print "3. di resto ternama, dengan lilin lilin yang membuat suasana romantis, sooo sweeeeet"
print ""
input "jawaban :", B
select case B
case 1
let B = 3
case 2
let B = 1
case 3
let B = 2
end select
cls
print "apa yaang kamu lakukan bila sedang kencan dengan pasangan anda ?"
print ""
print "1. klo lagi makan breng, gw suka suapin dia biar terlihat perhatian sama doi"
print ""
print "2. ngasih kejutan buat si doi, biar dia makin cinta sama kita"
print ""
print "3. beliin dia cokelat, soalnya dia suka banget sama cokelat"
print ""
input "jawaban :", C
select case C
case 1
let C = 2
case 2
let C = 3
case 3
let C = 1
end select
cls
let X = A + B + C
select case X
case is < 6
print "nama$ ; " dan pasangan anda "; namap$
print "kalian termasuk pasangan yang suka putus nyambung, mengapa ?karena kalian beruda mempunyai sifat bosenan, namun sebenernya anda dan pasangan anda saling mencintai, cuma anda atau pasangan anda terkadang merasa jenuh, mungkin hubungan anda hanya bertahan 1 bulan, atau mungkin hanya 3 hari"
case is < 8
print "nama$; " dan pasangan anda "; namap$
print "kalian berdua mempunyai keakuratan cinta 70%, karena kalian berdua saling menyayangi satu dengan yang lain, namun terkadang salah satu di anttara kalian suka egois, kurangilah kegoisan itu agar kalian bisa bersama selamanya"
case is < 10
print " nama$; " dan pasangan anda "; namap$
print "kalian adalah pasangan yang sempurna, kalian dapat saling menyayangi dan mencintai, saling menghargai kekurangan dan kelebihan pasangan anda, dan mungkin hubungan ini akan berlanjut kepernikahan"
end select
input "apakah anda mau ulang lagi (y/t)?", jawab$
if jawab$ = "Y" or jawab$ = "y" then goto 10
color 10
print ""
print ""
print ""
print " ===================="
print " = thank you ="
print " ===================="
color 10
print " ============"
print " = KUIS ="
print " ============"
print ""
print ""
print "'
print " PRIMBON 2012"
print ""
print ""
input "tekan (Y) untuk memulai kuis :", jawab$
if jawab$ = "Y" or jawab$ = "y" then goto 10
10 print ""
cls
color 15
print "menemukan kriteriamu dan pasangan anda"
print ""
print "nama anda :", nama$
print "nama pasangan anda :", namap$
cls
print "apakah anda menyayangi pasangan anda ?"
print ""
print "1. ahh biasa ajah, soalnya pasangan gw ga romantis sih, pelit lagi"
print ""
print "2. yaa gimana yaa, di bilang sayaang ya sayaang, di bilang ga juga iaa,haha"
print ""
print "3. gw cinta mati sama pacar gw"
print ""
input "jawaban :", A
select case A
case 1
let A = 1
case 2
let A = 2
case 3
let A = 3
end select
cls
print "dimana biasanya anda berpacaran ?"
print ""
print "1. saya biasanya janjian di mall, terus kita nnton deh film yang bgs,klo ga ada yg bgs ya nnton ajah, yang penting bisa berduaan,hhe"
print ""
print "2. di rumah tetangga, soalnya kita backstreet dari orang tua"
print ""
print "3. di resto ternama, dengan lilin lilin yang membuat suasana romantis, sooo sweeeeet"
print ""
input "jawaban :", B
select case B
case 1
let B = 3
case 2
let B = 1
case 3
let B = 2
end select
cls
print "apa yaang kamu lakukan bila sedang kencan dengan pasangan anda ?"
print ""
print "1. klo lagi makan breng, gw suka suapin dia biar terlihat perhatian sama doi"
print ""
print "2. ngasih kejutan buat si doi, biar dia makin cinta sama kita"
print ""
print "3. beliin dia cokelat, soalnya dia suka banget sama cokelat"
print ""
input "jawaban :", C
select case C
case 1
let C = 2
case 2
let C = 3
case 3
let C = 1
end select
cls
let X = A + B + C
select case X
case is < 6
print "nama$ ; " dan pasangan anda "; namap$
print "kalian termasuk pasangan yang suka putus nyambung, mengapa ?karena kalian beruda mempunyai sifat bosenan, namun sebenernya anda dan pasangan anda saling mencintai, cuma anda atau pasangan anda terkadang merasa jenuh, mungkin hubungan anda hanya bertahan 1 bulan, atau mungkin hanya 3 hari"
case is < 8
print "nama$; " dan pasangan anda "; namap$
print "kalian berdua mempunyai keakuratan cinta 70%, karena kalian berdua saling menyayangi satu dengan yang lain, namun terkadang salah satu di anttara kalian suka egois, kurangilah kegoisan itu agar kalian bisa bersama selamanya"
case is < 10
print " nama$; " dan pasangan anda "; namap$
print "kalian adalah pasangan yang sempurna, kalian dapat saling menyayangi dan mencintai, saling menghargai kekurangan dan kelebihan pasangan anda, dan mungkin hubungan ini akan berlanjut kepernikahan"
end select
input "apakah anda mau ulang lagi (y/t)?", jawab$
if jawab$ = "Y" or jawab$ = "y" then goto 10
color 10
print ""
print ""
print ""
print " ===================="
print " = thank you ="
print " ===================="
nahh gitu doang si, ga ribet kan? ini bisa di modifakasi tergantung kalian mau membuat soal dan pertanyaan seperti apa, di atas saya menggunakan select case untuk menginput pertanyaan dan memberikan nilai kepada variabel tersebut, agar kita mudah untuk membuat kesimpulanya, sebenernya program ramalan yang ada di komputer" tuh blm tentu tepat ramalanya, soalnya ini sih tergantung si pembuat programnya mau nulis apa,hahaha, makanya jgn deh percaya sama ramalan, thanx yaa klo udah ngintip, jgn lupa coment ya kawaan.oke,hahaha
Kamis, 11 November 2010
Trigonometri
Trigonometri adalah nilai perbandingan yang dapat didefinisikan pada koordinat Carteris atau pada segitiga siku-siku.
Sudut istimewa:
a | 00 | 300 | 450 | 600 | 900 | 1200 | 1350 | 1500 | 1800 |
Sin a | 0 | ½ | ½ √2 | ½ √3 | 1 | ½ √3 | ½ √2 | ½ | 0 |
cos a | 1 | ½ √3 | ½ √2 | ½ | 0 | -½ | -½ √2 | -½ √3 | -1 |
tan a | 0 | 1/3 √3 | 1 | √3 | ∞ | -√3 | -1 | -1/3 √3 | 0 |
a | 2100 | 2250 | 2400 | 2700 | 3000 | 3150 | 3300 | 360 |
sin a | -½ | -½ √2 | -½ √3 | -1 | -½ √3 | -½ √2 | -½ | 0 |
cos a | -½ √3 | -½ √2 | -½ | 0 | ½ | ½ √2 | ½ √3 | 1 |
tan a | 1/3 √3 | 1 | √3 | ∞ | -√3 | -1 | -1/3 √3 | 0 |
a. tan a = sin a
cos a
b. sin2a + cos2a = 1
c. cot a = cos a
sin a
d. sec a = 1
cosa
e. tan2 a + 1 = sec2a
f. cot a + 1 = cosec2a
g. cosec a = 1
sin a
Rumus Penjumlahan pada Trigonometri:
a. sin a + sin b = 2 sin ½ (a + b) cos ½ (a - b)
b. sin a - sin b = 2 cos ½ (a + b) sin ½ (a - b)
c. cos a + cos b = 2 cos ½ (a + b) cos ½ (a - b)
d. cos a - cos b = -2 sin ½ (a + b) sin ½ (a - b)
a. 2 sin a cos b = sin (a + b) + sin (a - b)
b. 2 cos a sin b = sin (a + b) - sin (a - b)
c. 2 cos a cos b = cos (a + b) + cos (a - b)
d. -2 sin a cos b = cos (a + b) - cos (a - b)
contoh soal :
Rabu, 10 November 2010
Midnight Mosque Song - THE S.I.G.I.T
I wished you were dead that night
Where a rotten rat corpse caught my sight
Cats would fought on things you laugh about
So I step of the curbs that were dirtier than I thought
Reff.
Clouds were bold and grey
So I stopped by a mosque and pray
But sky were cold and grey
So I stopped by a mosque and pray
I could feel the street
I’m not scare of things that once had shiver my feet
And lads would fought on things you’d laugh about
So I step of the curbs that were dirtier than I thought
===================================================================
Aku berharap kau sudah mati malam itu
Apabila suatu mayat tikus busuk tertangkap mata-Ku
Kucing akan berjuang pada hal-hal yang Anda tertawa tentang
Jadi saya langkah dari trotoar yang kotor daripada yang saya pikir
Reff.
Awan tebal dan abu-abu
Jadi aku berhenti oleh sebuah masjid dan berdoa
Tapi langit terasa dingin dan abu-abu
Jadi aku berhenti oleh sebuah masjid dan berdoa
Aku bisa merasakan jalan
Aku tidak takut hal-hal yang pernah saya menggigil kaki
Dan pemuda akan bertempur di hal-hal yang akan tertawa tentang
Jadi saya langkah dari trotoar yang kotor daripada yang saya pikir
Selasa, 09 November 2010
all the time
ini cuma sekedar berbagi ini transletan lagu THE S.I.G.I.T yang menurut gw arti dari lagu ini dalem bgt.
Aku ingin hidup selamanya
Apa kau tidak sadar
Selamanya berarti bersama
Saya harap Anda tahu
Bila Anda mengatakan tidak lebih dari
Untuk kali ketiga
Saya harap Anda tahu
Itu membuat saya ingin memberi Anda
Sesuatu yang lebih dan lebih
Aku ingin memberimu harapan
Semua waktu dan memakai jubah Anda
Hanya saja untuk hujan
Itu tidak pernah berakhir sepanjang waktu
(Hidup saya adalah hujan sepanjang waktu)
Aku ingin hidup selamanya
Aku pohon ek
selamanya menakut-nakuti orang asing
Saya ingin tumbuh rambut saya
Dan kuku seluruh hidup saya
Saya ingin Anda:
Apakah mengubah nama terakhir Anda
Dan seorang istri
Saya ingin berbagi paru-paru saya
Semua waktu dan wajah matahari
Hanya saja seperti rasa sakit terbakar
Bahwa aku sudah bersama sepanjang waktu
(Jantung saya membakar sepanjang waktu)
Apa kau tidak sadar
Selamanya berarti bersama
Saya harap Anda tahu
Bila Anda mengatakan tidak lebih dari
Untuk kali ketiga
Saya harap Anda tahu
Itu membuat saya ingin memberi Anda
Sesuatu yang lebih dan lebih
Aku ingin memberimu harapan
Semua waktu dan memakai jubah Anda
Hanya saja untuk hujan
Itu tidak pernah berakhir sepanjang waktu
(Hidup saya adalah hujan sepanjang waktu)
Aku ingin hidup selamanya
Aku pohon ek
selamanya menakut-nakuti orang asing
Saya ingin tumbuh rambut saya
Dan kuku seluruh hidup saya
Saya ingin Anda:
Apakah mengubah nama terakhir Anda
Dan seorang istri
Saya ingin berbagi paru-paru saya
Semua waktu dan wajah matahari
Hanya saja seperti rasa sakit terbakar
Bahwa aku sudah bersama sepanjang waktu
(Jantung saya membakar sepanjang waktu)
Langganan:
Postingan (Atom)