0

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
Loop

If attempts > 2 Then
End
Else
SalesManager.Show
Login.Hide
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)
Else
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
2
Contributors
1
Reply
2
Views
6 Years
Discussion Span
Last Post by vb5prgrmr
0

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 topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.