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 Sub2. 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