fork download

copy

Public Class frmChapa
    Private Sub btCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcular.Click
 
        Dim texto As String
 
 
        Dim x As Integer
        Dim y As Integer
 
 
        Dim caracter As Char
 
 
        Dim CaracterRepetido As Integer
 
 
        texto = Me.txtCalcular.Text
 
 
        If Me.txtCalcular.Text.Length = 0 Then
            MessageBox.Show("Ingrese la cadena de caracteres", "Calcular", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
           CaracterRepetido = 0
            For x = 0 To texto.Length - 1
                caracter = texto.Chars(x)
                For y = 0 To texto.Length - 1
                    If y <> x Then
                        If caracter = texto.Chars(y) Then
                            CaracterRepetido = CaracterRepetido + 1
                        End If
                    End If
                Next
            Next
 
            If CaracterRepetido <> 0 Then
                MessageBox.Show("Se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("No se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
        CaracterRepetido = 0
    End Sub
End Class
 

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/j8mDBo/prog.vb (2,113) : Error VBNC30451: Could not resolve the name 'btCalcular'
/home/j8mDBo/prog.vb (17,20) : Error VBNC30456: 'txtCalcular' is not a member of 'frmChapa'.
/home/j8mDBo/prog.vb (20,15) : Error VBNC30456: 'txtCalcular' is not a member of 'frmChapa'.
/home/j8mDBo/prog.vb (21,24) : Error VBNC30451: Could not resolve the name 'MessageBox'
/home/j8mDBo/prog.vb (36,28) : Error VBNC30451: Could not resolve the name 'MessageBox'
/home/j8mDBo/prog.vb (38,28) : Error VBNC30451: Could not resolve the name 'MessageBox'
There were 6 errors and 0 warnings.
Compilation took 00:00:00.9594940

Standard output is empty