Delphi學習手札() – Ping Tool

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

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

程式碼:

執行結果
主畫面

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

開始倒數計時

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

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

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

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

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

Dejar una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tu comentario.