Version Compatibility : Visual Basic 5 Visual Basic 6
More information : Migoya-Chess is a chess agent with a admirable bold akin and it usues a 4 ply min-max (alpha-beta) algorithm. The cartoon are not to acceptable but the agent works perfectly.
It accouterments fresh chess-engine heuristics and lath amount that I invented. The bold is absolutely validated, crowns, castles etc. Version 2.0 plays more good and faster and the cipher is easier to understand.
Note : The affairs will run abundant faster back aggregate as compared to in the IDE.
Instructions : Click the articulation beneath to download the code. Select 'Save' from the IE popup dialog. Once downloaded, accessible the .zip book from your bounded drive application WinZip or a commensurable affairs to appearance the contents.
Download Here :
/source/1009/Migoya_Chess.zip
Chess Game/Chess Engine Version 2.0
Ping with VB the Easiest Way Using IPHLP.API
Adapted from a baby commodity from Bill Nolde on CodeGuru. He acclimated the GetRTTAndHopCount action in C to do a simple ping. Great idea, works fine. It takes an IP abode as string, and allotment Boolean if the abode was reached.
From C to VB is alone a baby step, I thought. Two simple API calls captivated in a baby action are abundant to analysis for a unit.
Instructions : Copy the declarations and cipher beneath and adhesive anon into your VB project.
Declarations :
Private Declare Function GetRTTAndHopCount Lib "iphlpapi.dll" _
(ByVal lDestIPAddr As Long, _
ByRef lHopCount As Long, _
ByVal lMaxHops As Long, _
ByRef lRTT As Long) As Long
Private Declare Function inet_addr Lib "wsock32.dll" _
(ByVal cp As String) As Long
Code :
Public Function SimplePing(sIPadr As String) As Boolean
' Based on an article on 'Codeguru' by 'Bill Nolde'
' Thx to this guy! It 's simple and great!
' Implemented for VB by G. Wirth, Ulm, Germany
' Enjoy!
Dim lIPadr As Long
Dim lHopsCount As Long
Dim lRTT As Long
Dim lMaxHops As Long
Dim lResult As Long
Const SUCCESS = 1
lMaxHops = 20 ' should be enough ...
lIPadr = inet_addr(sIPadr)
SimplePing = (GetRTTAndHopCount(lIPadr, lHopsCount, lMaxHops, lRTT) = SUCCESS)
End Function
Manage Your Debt Well
Do you have debt? Ever had a debt? I'm sure the answer is never, because debt has become part of the activities meet the needs of our lives. Debt is something that certainly we can not avoid. We often depend on the needs of our debt, especially for the extra compliance that did not make plans. There are many types and sources of debt, one example is the credit card. How do we manage our debt properly and correctly?
Debt can indeed help us alleviate the financial needs that are not in the plan. However, often even can force us stuck in financial difficulties resulting in bankruptcy. After the bankruptcy, what plans for the future? To prevent that, we need help debt management companies in our financial management. Maybe you can visit the site to help overcome DebtManagementGroup.org your financial problems.
Managing finances and debt requires a good knowledge and correct about it. For that we also need to ask for help from financial experts. You can visit the site jtentang DebtManagementGroup.org debt management, you will learn from professional financial experts. Good luck and good luck ...
Try/Catch for VB6, VBA and VBScript
Version Compatibility : Visual Basic 6 VB Script/HTML
More information : This abbreviate cipher sample enables structured barring administration for classical Visual Basic programs agnate to VB.NET Try/Catch statements.
Instructions : Click the articulation beneath to download the code. Select 'Save' from the IE popup dialog. Once downloaded, accessible the .zip book from your bounded drive application WinZip or a commensurable affairs to appearance the contents.
Download Here :
/source/1009/Try_Block_for_VisualBasic.zip
