[Help-glpk] My First Visual Basic

[Nigel Galloway]

Andrew,

It seems that what it says on the packet is correct. Microsoft must be good=
at this.

Attached is t1.vb which is glpk/examples/t1.cs converted from C# to Visual =
Basic. Please add it to examples if you think an example of using Visual Ba=
sic with GLPK is useful.

C:\Users\Nigel\DevVB>
C:\Users\Nigel\DevVB>vbc t1.vb
Microsoft (R) Visual Basic Compiler version 9.0.30729.1
Copyright (c) Microsoft Corporation.  All rights reserved.


C:\Users\Nigel\DevVB>t1 2424 772
a =3D 2424, b =3D 772
Hello Nigel
Trying 772
      0: obj =3D  0.000000000e+000  infeas =3D 1.000e+000 (0)
*     1: obj =3D  0.000000000e+000  infeas =3D 0.000e+000 (0)
OPTIMAL SOLUTION FOUND
Integer optimization begins...
+     1: mip =3D     not found yet >=3D              -inf        (1; 0)
+     3: >>>>>  0.000000000e+000 >=3D  0.000000000e+000   0.0% (3; 0)
+     3: mip =3D  0.000000000e+000 >=3D     tree is empty   0.0% (0; 5)
INTEGER OPTIMAL SOLUTION FOUND
x =3D 1, y =3D -3, a*x + b*y =3D 108
Trying 108
*     3: obj =3D  0.000000000e+000  infeas =3D 0.000e+000 (0)
OPTIMAL SOLUTION FOUND
Integer optimization begins...
+     3: mip =3D     not found yet >=3D              -inf        (1; 0)
+     7: >>>>>  0.000000000e+000 >=3D  0.000000000e+000   0.0% (3; 1)
+     7: mip =3D  0.000000000e+000 >=3D     tree is empty   0.0% (0; 7)
INTEGER OPTIMAL SOLUTION FOUND
x =3D -7, y =3D 22, a*x + b*y =3D 16
Trying 16
*     7: obj =3D  0.000000000e+000  infeas =3D 0.000e+000 (0)
OPTIMAL SOLUTION FOUND
Integer optimization begins...
+     7: mip =3D     not found yet >=3D              -inf        (1; 0)
+    21: >>>>>  0.000000000e+000 >=3D  0.000000000e+000   0.0% (3; 6)
+    21: mip =3D  0.000000000e+000 >=3D     tree is empty   0.0% (0; 17)
INTEGER OPTIMAL SOLUTION FOUND
x =3D -50, y =3D 157, a*x + b*y =3D 4
Trying 4
Solution is 4
GoodBye Nigel

C:\Users\Nigel\DevVB>

t1.zip
Description: Zip compressed data