Delphi Learning Notes(Three) – Ping Tool

  前兩週公司網路架構大翻修,忙到不可開交,在修改print server的IP時,There are two really tricky ones,At first, it wouldn't let me make changes,After I managed to change it,if it stays idle for a while,it would disconnect,I tried all day long,and eventually gave up,so I grabbed a small program,put it on the server to make the program ping the print server every 30 seconds。

Later, I wanted to try writing a program with similar functionality,I didn't expect I could actually piece it together,which is today's assignment ~ Ping Tool

The code:
N/A

執行結果
主畫面

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

開始倒數計時

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

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

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

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

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

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.