Tutorial Membuat Program Alarm!! Dengan VB 2008

Yosh!! berhubung dapat tugas membuat program sederhana dengan VB akhirnya aku memutuskan membuat program alarm ini sebagai tugas :p ya, maklumlah kalau sederhana banget. namanya juga lagi belajar!!!

Yosh!! langsung saja berikut tutorialnya!!!!

By : Rinda Syellina Tri Hesti

Source Code :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Timer1.Start()        TextBox1.Text = TimeOfDay    End Sub
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click        Label1.Text = TimeOfDay    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Label1.Text = TimeOfDay + "   " + DateString    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Timer2.Start()        MsgBox("Alarm Set!")    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick        If TextBox1.Text = TimeOfDay Then
            Me.Show()            MsgBox("It Is: " + TimeOfDay, MsgBoxStyle.Critical)        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Me.Close()    End Sub
End Class

1.       Buat Desain awal!!

Untuk Label1 Dengan Properties :

Untuk TexsBox Dengan Properties :

Untuk Button properties :

2.       Selanjutnya Mengisi source codenya :

a.       Untuk From1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()        TextBox1.Text = TimeOfDay    End Sub

b.      Untuk Label1

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Label1.Text = TimeOfDay    End Sub

c.       Untuk Timer

Hasilnya :

Pilih timer1  :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay + "   " + DateStringEnd Sub

d.  Untuk Set

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer2.Start()        MsgBox("Alarm Set!")    End Sub

e.  Untuk Timer2

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If TextBox1.Text = TimeOfDay Then
            Me.Show()            MsgBox("It Is: " + TimeOfDay, MsgBoxStyle.Critical)        End If
    End Sub

f.  Untuk Button “Close”

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()    End Sub

3.  Sekarang anda bisa mulai menjalankannya!!!
Hasilnya akan jadi seperti ini.

Selamat Mencoba!!!!

cr :http://loveheart137.blogspot.com/2013/12/tutorial-membuat-program-alarm-dengan.html

uji coba

Uji coba nanti dihapus

Nama : Rinda Syelli 

Age : 20 tahun 12 juli nanti .. haha

Lyric] Donghae & Eunhyuk - 君が泣いたら (When You Cry)

Romanji :

Uso yori uso no yona waraenai hetakusona joku

Hyoron-ka datte baka ni shite kioku ni saenai

Bokunara, son'na uta o kaku yotte itta no wasureta no?

Dareka dake ga nakeru yōna meikyoku

Boku no utau hetana amai Rock' n' Roll

Mirionhitto o umu yori mo make it in your life

Darenimo hyoka sa renakute mo

Imi ga aru tte omoeru yo kimi ga naitara

Oh oh oh kimi ga naitara oh oh oh

Shinjitsu yori tsutaetaikara nando datte kakinaosou

Kyoyo ga atte kireina kosei son'nafuni nan'naikedo

Hontowa boku mo kimi ni itsu datte kikitai koto, aru yo

Kore wa kimi ga nakeru yona meikyoku?

Boku no utau hetana amai Rock' n' Roll

Mirionhitto o umu yori mo make it in your life

Darenimo hyoka sa renakute mo

Imi ga aru tte omoeru yo kimi ga naitara

Kidzukeba asadatta yo kimi no koto bakari o kangae teta

Kyo mo umaku dekiru ka shiranaikedo

Dekiru dake yatte miru ne

Pendaftaran Mahasiswa Unisla

Powered by 123ContactForm | Report abuse

Formulir E.L.F Lamongan

[Romanized + English + Indonesian Translate] SUPER JUNIOR-M – 无所谓 My Love For You

Romanized:

Wo bing bu dong mei xiang tai duo

Xihuan shang ni shi dui shi cuo

Qing ni buyao ting bieren shuo

Cause You’re My Everything, yeah

Duo xiang dai ni fei shang liuxing

Pia xia ni meili de biaoqing

Qian wo de shou Baby I Know Oh

Wusuowei wusuowei

Ni yao de Baby wo du neng gei

Ca gan yanlei bu zai tian hei

Pei zai ni shenbian Everyday

Wusuowei wusuowei

Chule ni wo hai neng ai shang shui

Zhi yuan yitian nǐ kan de jian My Love For You

Wo de ai ta shi shou bu hui

Fuchu zhen ganqing zhe bushi youxi

Wo xiang yao de ai buneng meiyou ni

Cause I Want You Girl, And I Need Your Love

Tīng wo dui ni shuo

Wusuowei wusuowei

Ni yao de Baby wo du neng gei

Ca gan yanlei bu zai tian hei

Pei zai ni shenbian Everyday

Wusuowei wusuowei

Chule ni wo hai neng ai shang shui

Zhi yuan yitian nǐ kan de jian My Love For You

Wo de ai ta shi shou bu hui

Huoxu you tian ni hui shuo

Nihui yongyuan peizhe wo

Girl wo haishi bu dong

Zai wo xinli zhiyou yiju wo ai ni My Baby

Duo xiang he ni zai yiqi Yeah~

Wusuowei wusuowei

Ni yao de Baby wo du neng gei

Ca gan yanlei bu zai tian hei

Pei zai ni shenbian Everyday

Wusuowei wusuowei

Chule ni wo hai neng ai shang shui

Zhi yuan yitian nǐ kan de jian My Love For You

Wo de ai ta shi shou bu hui

Na Na Na Na~ Na Na Na Na

English Translation:

I don’t understand

I don’t think to much

Whether loving you was right or wrong

Please don’t listen to another

Cause you’re my everything

Yeah

How I want to fly with you to meteors

Capture your beautiful expressions

take my hand

Baby I know Oh

It doesn’t matter, it doesn’t matter

Whatever you want baby I’ll give

Wipe away your tears

It’ll never be dark

I’ll be by your side everyday

It doesn’t matter, it doesn’t matter

Other than you who can I love?

Just hoping for the day when you’ll see

My love for you

My love that I can’t take back

Showing true feelings

This isn’t a game

The love that I want

Can’t happen without you

Cause I want you girl

And I need your love

Listen to me tell you

It doesn’t matter, it doesn’t matter

Whatever you want baby I’ll give

Wipe away your tears

It’ll never be dark

I’ll be by your side everyday

It doesn’t matter, it doesn’t matter

Other than you who can I love?

Just hoping for the day when you’ll see

My love for you

My love that I can’t take back

Maybe one day you’ll say

That you’ll be by my side forever

Girl I still don’t understand

In my heart there’s only one line

I love you My baby

How I want to be together

Yeah~

It doesn’t matter, it doesn’t matter

Whatever you want baby I’ll give

Wipe away your tears

It’ll never be dark

I’ll be by your side everyday

It doesn’t matter, it doesn’t matter

Other than you who can I love?

Just hoping for the day when you’ll see

My love for you

My love that I can’t take back

Na na na na~ Na na na na~

Indonesian Translation:

Aku tidak mengerti

Aku tidak ingin berpikir banyak

Apakah mencintaimu benar atau salah

Tolong jangan dengarkan yang lain

Karena Kau segalanya bagiku..

Bagaimana aku ingin terbang bersamamu menuju meteor

Menangkap ekspresi indahmu

Genggam tanganku

Baby, Aku tahu .. Oh~

Tidak masalah , tidak masalah

Apa pun yang kau inginkan, Baby akan aku berikan

Usap air matamu

Ini tidak akan pernah menjadi kelam

Aku akan berada di sisimu untuk setiap harinya

Tidak masalah , tidak masalah

Selain dirimu siapa lagi yang bisa kucintai?

Hanya berharap pada suatu hari nanti ketika kamu akan melihat bahwa

Cintaku hanyalah untukmu..

Cintaku tidak bisa kutarik lagi.

Menunjukkan perasaan yang sebenarnya

Ini bukanlah permainan

Cinta yang aku inginkan

Tidak akan pernah terjadi jika itu tanpa kau

Itu karena aku menginginkanmu, Girl.

Dan aku membutuhkan cintamu

Dengarkan yang kukatakan padamu

Tidak masalah , tidak masalah

Apa pun yang kau inginkan, Baby akan aku berikan

Usap air matamu

Ini tidak akan pernah menjadi kelam

Aku akan berada di sisimu untuk setiap harinya

Tidak masalah , tidak masalah

Selain dirimu siapa lagi yang bisa kucintai?

Hanya berharap pada suatu hari nanti ketika kamu akan melihat bahwa

Cintaku hanyalah untukmu..

Cintaku tidak bisa kutarik lagi.

Mungkin suatu hari nanti kau akan mengatakan

Bahwa kau akan berada di sisiku selamanya

Girl, Aku masih tidak mengerti

Dalam hatiku hanya ada satu baris kalimat

‘Aku mencintaimu’ My Baby..

Bagaimana aku ingin bersama

Ya ~

Tidak masalah , tidak masalah

Apa pun yang kau inginkan, Baby akan aku berikan

Usap air matamu

Ini tidak akan pernah menjadi kelam

Aku akan berada di sisimu untuk setiap harinya

Tidak masalah , tidak masalah

Selain dirimu siapa lagi yang bisa kucintai?

Hanya berharap pada suatu hari nanti ketika kamu akan melihat bahwa

Cintaku hanyalah untukmu..

Cintaku tidak bisa kutarik lagi.

Na na na na na na Na ~ na ~

Romanized and English Credits: SJ_Empire and kpoplyrics.net

Romanized:

Wo bing bu dong mei xiang tai duo

Xihuan shang ni shi dui shi cuo

Qing ni buyao ting bieren shuo

Cause You’re My Everything, yeah

Duo xiang dai ni fei shang liuxing

Pia xia ni meili de biaoqing

Qian wo de shou Baby I Know Oh

Wusuowei wusuowei

Ni yao de Baby wo du neng gei

Ca gan yanlei bu zai tian hei

Pei zai ni shenbian Everyday

Wusuowei wusuowei

Chule ni wo hai neng ai shang shui

Zhi yuan yitian nǐ kan de jian My Love For You

Wo de ai ta shi shou bu hui

Fuchu zhen ganqing zhe bushi youxi

Wo xiang yao de ai buneng meiyou ni

Cause I Want You Girl, And I Need Your Love

Tīng wo dui ni shuo

Wusuowei wusuowei

Ni yao de Baby wo du neng gei

Ca gan yanlei bu zai tian hei

Pei zai ni shenbian Everyday

Wusuowei wusuowei

Chule ni wo hai neng ai shang shui

Zhi yuan yitian nǐ kan de jian My Love For You

Wo de ai ta shi shou bu hui

Huoxu you tian ni hui shuo

Nihui yongyuan peizhe wo

Girl wo haishi bu dong

Zai wo xinli zhiyou yiju wo ai ni My Baby

Duo xiang he ni zai yiqi Yeah~