menghitung sudut jam versi 2

cara agak panjang bisa kita lihat di sini:

http://muktyas.blogspot.com/2011/12/menghitung-derajat-jam-tampilan-utama.html

Saya tiba-tiba mendapatkan ide yang canggih (saya kira). Ini bermula ketika ada seorang mahasiswa yang bertanya berapa sudut terkecil pada jam 12.01 pak?

Jarum pendek itu menunjukkan jam dan jarum panjang menunjukkan menit.

Satu lingkaran penuh itu 360^o, sedangkan pada jam tersedia 12 bilangan. Jadi besar sudut untuk jarum pendek setiap jamnya adalah 360^o dibagi 12 yaitu 30^o.

Sedangkan jarum panjang bisa kita lihat sebagai menit, bisa juga sebagai jam karena ketika jarum panjang bergerak akan menyebabkan jarum pendek ikut bergerak. Kita lihat jarum panjang sebagai menit. Satu jam ada 60 menit, jadi besar sudut setiap menitnya adalah 360 dibagi 60 sama dengan 6^o. Ketika jarum panjang bergerak, jarum pendek pun ikut bergerak. Jarak tiap bilangan jam sebesar 30^o. Jadi besar penambahan sudut pada jarum pendek adalah 30^o dibagi 60 menit yaitu setengah derajat.

Besar sudut antara jarum pendek dengan jarum panjang adalah selisih derajat jam dengan menit.

Contoh:

Pada jam 12.01 sudutnya adalah 5,5^o. Kenapa?

Untuk jarum panjang bergerak 6^o, sedangkan jarum pendek juga bergerak setengah derajat. Sehingga selisihnya adalah 5,5^o. Mudah bukan?

scriptnya seperti ini:

Private Sub CommandButton1_Click() jam = Cells(2, 2) Mod 12 menit = Cells(2, 4) derajatjam = jam / 12 * 360 derajatmenit = menit / 60 * 360 derajatjam = derajatjam + menit / 60 * 30 sudut = Abs(derajatmenit - derajatjam) Cells(4, 2) = sudut End Sub

maaf, penjelasan lebih lanjut nanti akan saya perbaiki lagi tulisan ini. :D