Cari
×

Daftarkan diri

Use your Facebook account for quick registration

OR

Create a Shvoong account from scratch

Already a Member? Masuk!
×

Masuk

Sign in using your Facebook account

OR

Not a Member? Daftarkan diri!
×

Daftarkan diri

Use your Facebook account for quick registration

OR

Masuk

Sign in using your Facebook account

Halaman Utama Shvoong>Teknologi & Internet>Piranti Lunak>Cara membuat alarm pada visual basic

Cara membuat alarm pada visual basic

oleh: AdithyaIrawan     Pengarang : Adit irawan
ª
 
/* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-style-parent:""; line-heigh t:115%; font-size:11.0pt; font-family:"Calibri","sans-serif";}

Bahasa pemrograman yang paling awal dirancang pada tahun 1950-an dan dibuat semata-mata untuk memecahkan masalah matematika yang kompleks. Bahasa-bahasa tersebut agak membingungkan bagi orang awam. Namun hal itu bukanlah masalah berbesar, karena komputer hanya ditemukan di lembaga-lembaga riset besar. Lambat laut tentunya orang sadar bahwa teknologi komputer bisa berguna tidak hanya untuk melakukan perhitungan matematika, namun bisa berguna untuk bidang yang lain. Maka komputer pun mulai menjadi barang yang biasa ditemukan di lingkungan bisnis dan universitas. Dengan semakin banyaknya orang yang menggunakan komputer, semakin banyak pula orang yang sadar bahwa bahasa pemrograman yang rumit hanya akan menghambat perkembangan komputer itu sendiri. Pada tanggal 1 Mei 1964, penemu bahasa BASIC, yaitu Profesor John G. Kemeny dan Thomas E. Kurtz di Dartmouth College di New Hampshire menjalankan pertama kali program BASIC.



/* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-style-parent:""; line-heigh t:115%; font-size:11.0pt; font-family:"Calibri","sans-serif";}

Berbekal konponen Timer, tidak sulit bagi anda untuk membuat program alarm. Teknik dasarnya di sini juga cukup ssederhana, yakni membandingkan waktu masukan dan waktu saat ini. Apabila nilainya sama, berarti saatnya untuk membangkitkan suatu aksi, misalnya di sini kita hanya menampilkan kotak dialog.


/* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-style-parent:""; line-heigh t:115%; font-size:11.0pt; font-family:"Calibri","sans-serif";}

‘ Variabel waktu alarm

Private strTimeSet


Private sub cmdSet_Click()

strTimeSet = InputBox (“Tetapkan waktu ” & _vbCrLf & “Format jam:menit:detik (00:00:00)”)

If Len(Trim$(strTimeSet)) = 0 Then exit sub


If Not IsDate(strTimeSet) then

MsgBox (“Waktu Anda Tidak Valid atau Benar”)

Me.lblInfo.Caption = vbNullString

Else


‘ Masukan valid, set strTimeSet

strTimeSet = CDate(strTimeSet)

‘Misal mengabaikan waktu yang telah lewat

If Time > strTimeSet Then

MsgBox (“Maaf Waktu sudah Lewat”)

Else

Me.lblInfo.Caption = “Alarm: ” & _strTimeSet

End If

End If

End Sub


Private Sub tmr_Timer()

Static BlnGo as integer

If lblTime.Caption <> CStr(Time) then

‘ Simulasi bunyi alarm

Beep

Me.lblInfo.Caption = vbNullString

MsgBox (“Alarm Berbunyi (“ & Time & “)”)

BlnGo = True

End If

End If

Me.lblTime.Caption = time

End Sub
Diterbitkan di: 15 Desember, 2012   
Mohon dinilai : 1 2 3 4 5
Terjemahkan Kirim Link Cetak
X

.