I am a little fuzzy on how to post my code so everyone can see it. I am too dull witted to figure out the instructions given on the blank thread.

Would any one be willing to help me out?

thanks

echo "Public Class frmProject4
    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

        ' assining values

        Dim strOriginal As String = ""
        Dim strNew As String = ""
        Dim intLen As Integer

        ' Converting into variables

        strOriginal = txtOriginal.Text
        intLen = strOriginal.Length

        ' testing if Password between 5 and 7 characters";
"Public Class frmProject4
    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

        ' assining values

        Dim strOriginal As String = ""
        Dim strNew As String = ""
        Dim intLen As Integer

        ' Converting into variables

        strOriginal = txtOriginal.Text
        intLen = strOriginal.Length

        ' testing if Password between 5 and 7 characters";
"Public Class frmProject4
    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

        ' assining values

        Dim strOriginal As String = ""
        Dim strNew As String = ""
        Dim intLen As Integer

        ' Converting into variables

        strOriginal = txtOriginal.Text
        intLen = strOriginal.Length

        ' testing if Password between 5 and 7 characters

        If intLen >= 5 And intLen <= 7 Then

            ' Checking for Ucase vowels letter and replace it with Z

            strOriginal = strOriginal.Replace("A", "Z")
            strOriginal = strOriginal.Replace("E", "Z")
            strOriginal = strOriginal.Replace("I", "Z")
            strOriginal = strOriginal.Replace("O", "Z")
            strOriginal = strOriginal.Replace("U", "Z")

            ' checking for Lcase vowels letter and replace it with Z

            strOriginal = strOriginal.Replace("a", "Z")
            strOriginal = strOriginal.Replace("e", "Z")
            strOriginal = strOriginal.Replace("i", "Z")
            strOriginal = strOriginal.Replace("o", "Z")
            strOriginal = strOriginal.Replace("u", "Z")

            ' Checking for numbers and replace it with R;
Public Class frmProject4
    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

        ' assining values

        Dim strOriginal As String = ""
        Dim strNew As String = ""
        Dim intLen As Integer

        ' Converting into variables

        strOriginal = txtOriginal.Text
        intLen = strOriginal.Length

        ' testing if Password between 5 and 7 characters

        If intLen >= 5 And intLen <= 7 Then

            ' Checking for Ucase vowels letter and replace it with Z

            strOriginal = strOriginal.Replace("A", "Z")
            strOriginal = strOriginal.Replace("E", "Z")
            strOriginal = strOriginal.Replace("I", "Z")
            strOriginal = strOriginal.Replace("O", "Z")
            strOriginal = strOriginal.Replace("U", "Z")

            ' checking for Lcase vowels letter and replace it with Z

            strOriginal = strOriginal.Replace("a", "Z")
            strOriginal = strOriginal.Replace("e", "Z")
            strOriginal = strOriginal.Replace("i", "Z")
            strOriginal = strOriginal.Replace("o", "Z")
            strOriginal = strOriginal.Replace("u", "Z")";

Edited 3 Years Ago by mike_2000_17: Fixed formatting

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