Delphi学习手札(三) – Ping 工具

  前两周公司网络架构大翻修,忙得不可开交,在修改打印服务器的IP时,遇到两个很刁钻的问题,一开始先是不让我改,后来改好后,变成只要闲置一段时间,He will disconnect,Tried all day,Finally gave up,Just grabbed a small program,Put it on the server to ping the print server every 30 seconds。

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

程式碼:

執行結果
主畫面

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

開始倒數計時

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

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

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

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

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

留下回复

您的电子邮件地址不会被公开. 必填项已标注 *

本网站使用 Akismet 来减少垃圾评论. 了解您的评论数据如何被处理.