Cassis

Aa, zutto kurikaeshiteta
Zutto kanashimasete bakari datta
Aa, kitto anata sae mo kizu tsukete
Boku wa ugokeno mama

Aa, anata ni fureru koto ga
Naze konna ni kurushii no desu ka?
Kitto onaji koto wo kurikaeshite
Anata wo ushinatte shimau no ga kowakatta kara

Yori suo koto de nuguou to shita wasure kirenakatta hi wo
Anata wa nani mo kikazu ni kono te wo nigettekureta ne

Ashita anata no kimochi ga hanarete mo kitto kawarazu ai shiteru.
Ashita anata ni boku ga mienakute mo kitto kawarazu ai shiteru

I WILL WALK TOGETHER, to future not promised to yet
It keeps walking together, to the future which you are...

Tsurai koto sae wasureru kurai anata wo omotteiru
Aenai yoru wo kazoeru tabi ni koga reru mune

Kake chigai no sabishisa tsunoru
Dou ka hitorikiri de nakanaide
Donna ni hanareteite mo
Shinjiaeru futari de iyou

Dou ka kono mama waratteitai anata wo kizutsuke sasenaide
Toki ga tatsu tabi usurete itta anna omoi kurikaaeshitekunai

Ashita anata no kimochi ga hanarete mo kitto kawarazu ai shiteiru
Ashita anata ni boku ga mienakute mo kitto kawarazu ai shiteiru.

Dou ka boku dake wo mitsumeteite
Dou ka kono te ga togukenú iyou

I WILL WALK TOGETHER, to future not promised to yet
It keeps walking together, to the future which you are...

Membuat form menjadi Transfarant

 Ketikan Code ini di General Declaration

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub

Animasi Bintang

   Ketikan Source code berikut adalah untuk membuat efek Star Motion pada background form di Visual Basic. Bintang-bintang berwarna-warni bergerak menyebar secara random di tengah-tengah form.

Buat 1 project dengan :
1 Form
1 Timer

Masukan source code berikut pada Form :

Dim X(100), Y(100), Z(100) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer

Private Sub Form_Activate()
Speed = -1
K = 2038
Zoom = 256
Timer1.Interval = 1

For i = 0 To 100
X(i) = Int(Rnd * 1024) - 512
Y(i) = Int(Rnd * 1024) - 512
Z(i) = Int(Rnd * 512) - 256
Next i
End Sub

Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpX(i), tmpY(i)), 5, BackColor
Z(i) = Z(i) + Speed
If Z(i) > 255 Then Z(i) = -255
If Z(i) < -255 Then Z(i) = 255
tmpZ(i) = Z(i) + Zoom
tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
Radius = 1
StarColor = 256 - Z(i)
Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
Next i
End Sub

Membuat Vibrate pada form

Ketikan source code

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

Visual Basic

Animasi Form Visual Basic

   Source code berikut adalah untuk membuat efek Star Motion pada background form di Visual Basic. Bintang-bintang berwarna-warni bergerak menyebar secara random di tengah-tengah form.

Buat 1 project dengan :
1 Form
1 Timer

Masukan source code berikut pada Form :

Dim X(100), Y(100), Z(100) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer

Private Sub Form_Activate()
Speed = -1
K = 2038
Zoom = 256
Timer1.Interval = 1

For i = 0 To 100
X(i) = Int(Rnd * 1024) - 512
Y(i) = Int(Rnd * 1024) - 512
Z(i) = Int(Rnd * 512) - 256
Next i
End Sub

Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpX(i), tmpY(i)), 5, BackColor
Z(i) = Z(i) + Speed
If Z(i) > 255 Then Z(i) = -255
If Z(i) < -255 Then Z(i) = 255
tmpZ(i) = Z(i) + Zoom
tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
Radius = 1
StarColor = 256 - Z(i)
Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
Next i
End Sub

Mirror ball

Taezu kuri kaeshite hide and seek
Hikari to yami no kousa ga
Kimi to boku no kyoukaisen
Senhiki futari wo hedateta
Nijinda aimai na kuroi namida wo otosu
Hitomi ni utsuru hikari
Sora wa tsuzuku stay away

Tsuki no hikari wa kokoro wo somete
Kono yubi wa dokete
Eien sae mo iro aseru nara
Kono toki wo todomete

Asai nemuri ni yose egaku
Yureta sono eno gue
Sonna bokura no dasu blue eye
Dasananu suki wa mirror ball
Negai yo hoshi dewa naku douka kimi e todoite
Daremo ga hitori naraba
Bokura deawanakatta

Kagami no nakawa hoshi kuzu no ame
Mata meguru kisetsu e
Hikari wa yagate kokokara asu e
Dakara ima wa sayonara

Kanashimi no rensa ni
Kasuresaseta kotoba wa anata no namae wo yobichou ni mattane
Sora ga ni kaoru
Keareta hanede
Ima wo kakenuketeike

Doredake toki wa sugi namida wa kereteutemo
Kono utawa karezuni
Kanade teikeruda rouka
Sono toki wa soba ni ite hoshiito negau kara
Tsuki no hikari wa yagate kiete mo
Zutto soko ni arukara
Kawaru kotonaku
Kimi wo terasou
Yume wo egaku e heaven load
Dokokade
Kizu suite tsuki wo miageteiru moraue koumo kitto
Onajisa...

Rainbows

Mayonaka MONOKURO na fuukei
Negatta gokusaishiki shinchou

Hirogaru hodo irozuitekukujaku no hane no you
Mekuru mekuru hikari no magic mugen no rasen e

Sora e egaite yukukimi e todoku you ni
Kiseki no you na seiki no show wo egaite
Hibikechihei koeteyami wo nurikaeteku
Orikasanaru hikari no naka de kimi to odorou

Mezame yoyume kara sameru yume
Saa yukougozen ji no kaku e

Mieru mono ga shinjitsu naranaze nendai wa aru
Nega ni ochiru kokoro no urasoko ni boku wa utao

Koe wa sumuite yukukimi e todoku you ni
Yoake mae ni mezame no kane wo narase
Ready, go! toki wo kakete through the dark ima tobitate
Moeru you na tori ni u no hana kimi to sakasou

Ne no fuu no KAKUTERUkurasugoshi no sekai
Kimi to boku wa tabun hoka no mono wa iranai

Sora e egaite yukukimi e todoku you ni
Kiseki no you na seiki no show wo egaite
Hibikechihei koeteyami wo nurikaeteku
Orikasanaru hikari no naka de kimi to odorou

SUKAI suteta bu no view ataerareta namae wo

Anime

Anime (アニメ) (baca: a-ni-me, bukan a-nim) adalah animasi khas Jepang, yang biasanya dicirikan melalui gambar-gambar berwarna-warni yang menampilkan tokoh-tokoh dalam berbagai macam lokasi dan cerita, yang ditujukan pada beragam jenis penonton. Anime dipengaruhi gaya gambar manga, komik khas Jepang.

Kata anime tampil dalam bentuk tulisan dalam tiga karakter katakana a, ni, me (アニメ) yang merupakan bahasa serapan dari bahasa Inggris "Animation" dan diucapkan sebagai "Anime-shon".

Anime pertama yang mencapai kepopuleran yang luas adalah Astro Boy karya Ozamu Tezuka pada tahun 1963. Sekarang anime sudah sangat berkembang jika dibandingkan dengan anime jaman dulu. Dengan grafik yang sudah berkembang sampai alur cerita yang lebih menarik dan seru. Masyarakat Jepang sangat antusias menonton anime dan membaca manga. Dari anak-anak sampai orang dewasa. Mereka menganggap, anime itu sebagai bagian dari kehidupan mereka, Hal ini yang membuat beberapa televisi kabel yang terkenal akan beberapa film kartunnya, seperti Cartoon Network dan Nickelodeon mengekspor kartunnya. Untuk bisa mendapatkan anime, mereka harus membeli DVD/VCD anime atau mereka bisa mendownload anime itu dari situs-situs penyedia layanan Direct Download Link (DDL). Sekarang anime menjadi sebuah bisnis yang menggiurkan bagi semua orang, dan banyak juga orang yang memanfaatkan hal ini untuk sebuah tindakan kejahatan. Pembuat anime itu sendiri disebut animator.Para Animator itu bekerja disebuah perusahaan media untuk memproduksi sebuah anime. Di dalam perusahaan itu, terdapat beberapa animator yang saling bekerja sama untuk menghasilkan sebuah anime yang berkualitas. Tapi sangat disayangkan, gaji dari para animator tersebut kecil jika dibandingkan dengan kerja keras mereka. Hal ini yang membuat para animator enggan untuk bekerja secara professional. Mereka merasa hal itu tidak sebanding dengan usaha yang telah mereka lakukan. Para animator itu sendiri sering disebut Seniman Bayangan. Karena mereka bekerja seperti seorang seniman yang berusaha mengedepankan unsur cerita dan unsur intrinsiknya.

Chizuru

Anata no tegami ni wa yomenai ji dake

Atte sonokuchi kara kikasete hoshii

Narenai shiro wa nigate toikisae hibiku
Sorano iro sae shiretara sukuwareru no ni
Umaku dekinu kokyuumo itsuka wasuretai
Sou negaeru tsuyosa mo hikarabisoude

'Utsubuse no asu' utaeba togewo tsutau suimin
Karada ni karamaserareta Restraint
Even the mind seems to sleep
Hooni fureta netsu wa totemo natsukashiku yasashii
Mourou no hazamade mita kage danshoku no yume

Anata ni utsuru watashi no me ga
Anata wo miushinau higakitemo
Kono me ni yakitsuite kureteiru
Komorebino hibito anata wa
Tsureteikanaide

Nijimu shiro ga yureru
Kotoba mo wasuresou
Namida wa nagarete doko e yuku no
Watashi no namae wo yonde
Kudakeru kurai daite
Koreijou ushinau no ha kowai

Anata wa dokode watashi no koto utatteiruno
Mimi o sumashitemo hibiku no wa fuanteina kodou
Hooni nokotteta hazu no netsu ga omoidasenai
Mourou no hazamade mita no wa kanshoku no ima

Senbano totemo chiisana Anata no negai ni yorisotte
Egao mo kaesezu ni tada Toiki wo kazoeteita kioku no saigo ni?
Anata no koe ga kikoete Subete wo nakushita asa
'Hitotsu ni narenu futari'

Guren

Gomen ne, ato sukoshi anata no namae to nemurasete

Yorisotte sugi shinichi wa itami wo yorokobi ai
Ryoute ni utsushidasu anata wo omoi naiteiru
Soko ni furu kanashimi ha shiranai mama de ii yo
Ansoku ni furue wo oboeta taguri yume wa nani wo miru

Usure naide anata yo wazuka na toiki wo kikasete hoshii
Chiisana kodou de naku anata yo koko made oide
Kawaranai yume ni tsuduki ga aru nara douka togireruzuni
Koufuku to yobe nakutemo oborete kasanaru hibi wo

Usure naide anata yo wazuka na toiki wo kikasete hoshii
Chiisana kodou de naku anata yo koko made oide
Sukui no te sae mo aimai de byou kizami no mayu wa
Ito wo chigirezuni haru ni naru

Usure naide anata yo wazuka na toiki de kiitete hoshii
Chiisana kodou no ne ni kasure nu inori yo todoke
Yobenu namae wo daite yubiori kazoeru asu wa kienai
Mimi wo fusagi kiiteta yurikago yureru oto

Torimodose nu haru ni guren no hana ga saku