Delphi學習手札(三) – Ping Tool

  前兩週公司網路架構大翻修,忙到不可開交,在修改print server的IP時,有兩顆很機歪,一開始先是不讓我改,後來改好後,變成只要閒置一段時間,他就會斷線,試了一整天,最後放棄,就抓了個小程式,放在Server讓程式每隔30秒就對print server來ping一下。

  後來就想嘗試寫出類似功能的程式,沒想到還真讓我給拼裝出來了,也就是今天要交的作業~Ping Tool

程式碼:

執行結果:
主畫面

按下"倒數計時"鈕後,出現輸入時間的視窗

開始倒數計時

數到0時,會出現ping的視窗,前面程式碼裡寫ping兩次為的就只是讓這視窗出現,如果只ping一次,視窗出現隨即就不見,來不及看到內容

接著又回到剛輸入的數值繼續倒數

心得:
  這次的程式功能很普通,算是偏重實用性的,寫完之後,感覺還不錯,因為從第一次出現想學程式的念頭時,為的就是希望能寫出自己想用的工具,事隔十多年,終於有個開始了。

  比較可惜的是,這次算是用拼湊的方式完成,也就是先出現想法,再上網找語法怎麼用,有些都用複製貼上,因此感覺不夠融會貫通。不過不斷try & error的過程多少還是有學到一些觀念,還是可接受啦~

後記:
  不知道為什麼執行檔有夠大,11MB ,有空再來研究。

Leave a Comment

Please note: Comment moderation is enabled and may delay your comment. There is no need to resubmit your comment.