Program Arah Qiblat

T. Djamaluddin

LAPAN, Bandung

Pengetahuan tentang trigonometri bola membantu penghitungan arah qiblat.  Ini adalah pengetahuan dasar bagi mahasiswa tahun pertama astronomi atau ilmu falak. Perhitungannya hanya satu rumus sehingga mudah dibuatkan program yang sederhana. Program Basic ini saya buat tahun 1990 saat  kuliah di Kyoto atas permintaan teman-teman di Jepang.

=====================================================

10 ‘************************************

20 ‘

30 ‘         QIBLA DIRECTION

40 ‘   (DZULQAIDAH 1410/JUNE 1990)

50 ‘

60 ‘   CALCULATED BY T.DJAMALUDDIN

70 ‘       DEPT. OF ASTRONOMY

80 ‘        KYOTO UNIVERSITY

90 ‘  SAKYO-KU, KYOTO 606, JAPAN

100 ‘

110 ‘***********************************

120 INPUT “Latitude  (deg.) (South : negative) =”;PHI

130 INPUT “Longitude (deg.) (West  : negative) =”;LAMD

140 RAD = 3.14159/180

150 K = (90 – 21.43)*RAD

160 M = (90 – PHI)*RAD

170 P = ABS(LAMD – 39.75)*RAD

180 N =ATN(SIN(P)/(SIN(M)/TAN(K)-COS(M)*COS(P)))/RAD

190 IF N<0 THEN N=N+180

200 S$ = ” degrees from North to East”

210 SW$= ” degrees from North to West”

220 IF LAMD>39.75 OR LAMD<(-180+39.75) THEN S$ = SW$

230 PRINT : PRINT : PRINT “Qibla direction is “;

240 IF N=0 AND PHI>21.43 THEN PRINT “South”: END

250 IF N=0 AND PHI<21.43 THEN PRINT “North”: END

260 SS$=”determined by yourself. You are in Mecca area.”

270 IF N=0 AND PHI=21.43 THEN PRINT SS$: END

280 PRINT USING “###.##”;N;: PRINT S$

290 PRINT: INPUT “CONTINUED(Y/N) “;YN$

300 IF YN$ =”Y” OR YN$ = “y” THEN GOTO 120

310 SYSTEM

=====================================================

Ini contoh keluaran untuk kota-kota Kyoto, Kobel, dan Jakarta:

Iklan