Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: El_nuevo_HH en 25 Mayo 2010, 05:02 AM
No entiendo bien ese link... sera que me das el link del "modulo que publico cubein" o el nombre del "modulo"?
Saludos...
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
Rem añade un TextBox llamado Text1 y un CommandButton llamado Command1
Private Sub Command1_Click()
Call Comprobar_Caracter(Text1.Text)
End Sub
Private Sub Form_Load()
Text1.MaxLength = 1
End Sub
Private Sub Comprobar_Caracter(Cadena As String)
If Len(Cadena) > 1 Then MsgBox "Solo se puede analizar un caracter", vbCritical, "Error": Exit Sub
Dim Vocal As String, Consonante As String, Numero As String
Vocal = "aeiou"
Consonante = "bcdfghjklmnñpqrstvwxyz"
Numero = "1234567890"
If Not InStr(1, Vocal, Cadena) = 0 Then
MsgBox "El caracter """ & Cadena & """ es una vocal", vbInformation
ElseIf Not InStr(1, Consonante, Cadena) = 0 Then
MsgBox "El caracter """ & Cadena & """ es una consonante", vbInformation
ElseIf Not InStr(1, Numero, Cadena) = 0 Then
MsgBox "El caracter """ & Cadena & """ es un número", vbInformation
Else
MsgBox "El caracter """ & Cadena & """ es un símbolo", vbInformation
End If
End SubCita de: Bru2712 en 24 Mayo 2010, 04:16 AM+1
1 0 0 0 0
1 1 0 0 0
1 2 1 0 0
1 3 3 1 0
1 4 6 4 1
Matriz(x,y) = Matriz(x-1,y) + Martiz(x-1,y-1)
' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com) //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se //
' // respete la autoria y se me comuniquen esos cambios. //
' // *Visita http://foro.rthacker.net //
' ////////////////////////////////////////////////////////////////
Rem Insertar TextBox con la propiedad Multiline = True y ScrollBars = Both
Option Explicit
Public Sub Generate_Pascal_Triangle(ByVal tTextBox As TextBox, ByVal iPotency As Integer)
'//Declaro variables
Dim lNumbersArray() As Double
Dim dNumber As Double
Dim x As Long
Dim y As Long
'//Si la Potencia es menor a 3 sale del procedimiento
If iPotency > 2 Then
'//Redimensiono mi matriz con tantas filas y columnas como me indique la potencia
ReDim lNumbersArray(iPotency, iPotency)
'//Edito la primera linea de mi matriz puesto que la necesito como base
lNumbersArray(1, 1) = 1
For x = 2 To iPotency
lNumbersArray(x, 1) = 0
Next
For x = 2 To iPotency
For y = 1 To iPotency
'//Si estoy en la primera columna no podria sumar otro elemento de mi matriz que
'este más a la izquierda, si ocurre eso asigo a mi variable dNumber el valor 0
If (y - 1) < 1 Then
dNumber = 0
Else
dNumber = lNumbersArray(x - 1, y - 1)
End If
'//Utilizo la fórmula que puse antes
lNumbersArray(x, y) = dNumber + lNumbersArray(x - 1, y)
Next
Next
With tTextBox
.Text = vbNullString '//Limpio el TextBox
.Alignment = 2 '//Pongo el texto centrado para que se aprecie mejor la piramide
For x = 1 To iPotency
For y = 1 To iPotency
'//Represento la matriz ya editada prescindiendo de los ceros
If lNumbersArray(x, y) <> 0 Then .Text = .Text & lNumbersArray(x, y) & Chr$(32)
Next
'//Nueva linea despues de acabar una fila
.Text = .Text & vbCrLf
Next
End With
'//Borro mi matriz
Erase lNumbersArray '//Esto es prescindible ;)
End If
End Sub
Private Sub Form_Load()
Call Generate_Pascal_Triangle(Text1, 10)
End Sub
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 36 9 1
Dim cadena As String
Cadena = "estoy cansado"
Cadena = Replace(Cadena, "e", "")
Private Sub Command1_Click ()
Dim Veces As Integer
Dim Busco As String, miCadena As String
miCadena = "estrella"
Busco = "e"
Veces = InStr(Cadena, Busco)
Msgbox "La letra " & Busco & " se repite en la cadena " & miCadena & " : " & Veces & " veces"
End Sub