KONVERSI DETIK MENKADI JAM, MENIT, DETIK DALAM QBASIC

Bagi yang sedang bingung atau butuh pencerahan tentang membuat program tentang konversi data dari detik ke jam, menit dan detik dalam Qbasic, mungkin ini dapat membantu anda.. silahkan dilihat.. :)


10 U$= "Y"
20 WHILE U$ = "Y" OR U$ = "y"
30 CLS
40 PRINT "DETAIL WAKTU"
50 PRINT
60 J=0
70 M=0
80 D=0
90 INPUT "INPUT DETIK : " ; ID
100 J= INT (ID/3600)
110 M= INT ((ID -(J*3600))/60)
120 D= INT (ID - ((J*3600)+(60*M)))
130 PRINT
140 PRINT ID;
150 PRINT " DETIK =";
160 PRINT J;
170 PRINT " JAM ";
180 PRINT M;
190 PRINT " MENIT ";
200 PRINT D;
210 PRINT " DETIK "
220 PRINT
230 INPUT "ULANGI (Y/T): "; U$
240 WEND
250 PRINT
260 PRINT "TERIMAKASIH"

Kemudian tingga di run dari Qbasic anda..