私人？Sub？Form_Load()
定時器1。區間？=?1000
定時器1。啟用？=?真實的
p？=?3.1415926
結束？潛水艇
私人？Sub？定時器1 _定時器()
SJ？=?時間
SHI？=?日期部分(" H "，SJ)
芬？=?DatePart("N "，SJ)
苗？=?DatePart("S "，SJ)
如果？SHI？& gt=?12?然後
SHI？=?SHI？-?12
結束？如果
Label5。標題？=?FormatDateTime(SJ，3)
第二行。X2？=?2760?+?1500?*?罪(P？*?(SHI？*?30?+?芬？/?2)?/?180)
第二行。Y2？=?2760?-?1500?*?Cos(P？*?(SHI？*?30?+?芬？/?2)?/?180)
第五行。X2？=?2760?+?1920?*?罪(P？*?(FEN？*?6?+?苗？/?10)?/?180)
第五行。Y2？=?2760?-?1920?*?Cos(P？*?(FEN？*?6?+?苗？/?10)?/?180)
行1。X2？=?2760?+?2400?*?罪(P？*?苗？*?6?/?180)
行1。Y2？=?2760?-?2400?*?Cos(P？*?苗？*?6?/?180)
結束？潛水艇