'ฟังชั่นสำหรับเรียกเว็บเซอร์วิส
function connectWebService(client_no as string) as String
dim ws as new WebService_XXX()
return ws.connect(client_no) '<<< connect คือฟังชั่นที่มากับ webservice นะครับอันนี้ผมแค่สมมุติเท่านั้น
end function
'ฟังชั่นสำหรับอัพเดทฐานข้อมูล
function updateDb(client_no as string, result as string) as boolean
end function
'ฟังชั่นที่เรียกให้เริ่มทำการอัพเดทสถานะของ client_no ครับ
'โดยผมทำการสมมุตตัวแปรขึ้นมาก่อนใน List
'ต่อจากนั้นก็นำไปวนลูปใน for each loop เพื่อรับเอาผลลัพธ์ของแต่ละ client_no (connectWebService) แล้วนำสถานะที่ได้ไปอัพเดทฐานข้อมูล (updateDb)
public sub startConnectWs
dim clientList as new List()
with clientList
.add("192.168.0.1")
.add("192.168.0.2")
.add("192.168.0.3")
end with
for each ip as string in clientList
dim result as string = connectWebService(ip)
updateDb(ip, result)
next
end sub
Load balance : Server 05
