Is there any VB pseudocode generator? or converter from vb code to pseudo code.

I need to convert that code for pseudocode:

1) Login form:

Private Sub Command2_Click()
Dim password As String

Do Until password = "dawid" Or attempts > 2
password = InputBox("Please enter your password")
attempts = attempts + 1

If attempts > 2 Then
End If
End Sub

2. Sales Manager form:

Dim ItemCode(6) As String
Dim Description(6) As String
Dim price(6) As Currency
Dim Quantity As Integer
Dim SaleCost As Currency
Dim item As String
Dim position As Integer
Dim totalcost As Currency

Option Explicit

Private Sub Command1_Click()

item = Text3.Text
Quantity = Val(Text2.Text)

If Option2.Value = True Then
Call CodeSearch(item)
Call DescriptionSearch(item)
End If

SaleCost = price(position) * Quantity
totalcost = totalcost + SaleCost

Picture1.Print ItemCode(position); "      "; Description(position); "      "; Quantity; "      "; price(position); "      "; SaleCost

End Sub

Private Function Discount(curr As Currency) As Currency
Dim temp As Currency
If curr < 15 Then
temp = 0
ElseIf (curr > 14.99) And (curr < 30) Then
temp = 0.05
ElseIf (curr > 29.99) Then
temp = 0.1
End If
Discount = curr - (curr * temp)

End Function
Private Sub CodeSearch(ByVal code As String)
Dim i As Integer
For i = 1 To 6
If ItemCode(i) = code Then
position = i
Exit For
End If
Next i
End Sub

Private Sub DescriptionSearch(ByVal Desc As String)
Dim i As Integer
For i = 1 To 6
If Description(i) = Desc Then
position = i
Exit For
End If
Next i
End Sub

Private Sub Command2_Click()
Dim VAT As Integer

VAT = Discount(totalcost) * 0.175
Text6.Text = Discount(totalcost)
Text5.Text = totalcost
Text1.Text = Discount(totalcost) + VAT

End Sub

Private Sub Form_Load()
ItemCode(1) = "A349"
ItemCode(2) = "B359"
ItemCode(3) = "C369"
ItemCode(4) = "D379"
ItemCode(5) = "E389"
ItemCode(6) = "F399"

Description(1) = "keyring"
Description(2) = "mug"
Description(3) = "scarf"
Description(4) = "pen"
Description(5) = "doll"
Description(6) = "pencil"

price(1) = 5.99
price(2) = 9.99
price(3) = 14.5
price(4) = 2.49
price(5) = 7.99
price(6) = 0.85

End Sub

Not that I know of right off the top of my head, but I believe rational rose used to be able to generate a flow chart of a project. Not that, that helps...

Well, just so you know, the VB6.0 project files are almost all ascii so as long as you know how to open a file, read it in, parse it, close it, and have a good understanding of what keywords you need to find, you should be well on your way...

Good Luck

This article has been dead for over six months. Start a new discussion instead.