[OFF] - DESAFIO

USUARIO.EXCLUIDOS 09/08/2007 15:51:12
#230261
Outro detelhe, se a string possuir caracteres acentuados ou ç a ordenação não ficará legal...
CLEVERTON 09/08/2007 16:32:53
#230267
lá vai a minha contribuição.
hehehehe

Private Sub Form_Load()
Dim Palavra As String

Dim i As Integer, x As Integer

Palavra = "SÃO CLEVERTON"

For x = 32 To 250
    For i = 1 To Len(Palavra)
        If Mid(Palavra, i, 1) = Chr(x) Then Text1.Text = Text1.Text & Chr(x)
        
        If i = Len(Palavra) Then Palavra = Replace(Palavra, Chr(x), "")
    Next i
Next x

End Sub
CLEVERTON 09/08/2007 16:52:59
#230268
/\
||
||

falta alguns ajustes de CASE e LETRAS ACENTUADAS
USUARIO.EXCLUIDOS 09/08/2007 16:54:36
#230269
ehhh... o Cleverton até agora postou a melhor solução hein! haha

Vamos ver se aparecem melhores, ou se alguém lança um novo desafio!


Galera, só pra constar que eu não tenho NADA pra fazer aqui no trampo...
Coloquem um PictureBox em um formulário, e no Load do mesmo coloquem o seguinte código:
    Picture1.Line (200, 500)-(200, 2500)
    Picture1.Line (200, 500)-(1000, 500)
    Picture1.Line (1000, 500)-(1500, 1500)
    Picture1.Line (1500, 1500)-(2000, 1500)
    Picture1.Line (2000, 1500)-(2500, 500)
    Picture1.Line (2500, 500)-(3300, 500)
    Picture1.Line (3300, 500)-(3300, 2500)
    Picture1.Line (2500, 2500)-(3300, 2500)
    Picture1.Line (2500, 2000)-(2500, 2500)
    Picture1.Line (2000, 2500)-(2500, 2000)
    Picture1.Line (1500, 2500)-(2000, 2500)
    Picture1.Line (1500, 2500)-(1000, 2000)
    Picture1.Line (1000, 2000)-(1000, 2500)
    Picture1.Line (1000, 2500)-(200, 2500)
USUARIO.EXCLUIDOS 09/08/2007 17:02:47
#230273


Não aconteceu nada aki MARCELO.. ta faltando algo?
CLEVERTON 09/08/2007 17:03:30
#230275
Citação:

SINKERTEC escreveu:


Não aconteceu nada aki MARCELO.. ta faltando algo?



colocar a propriedade do picture .Autoredraw=True
USUARIO.EXCLUIDOS 09/08/2007 17:04:21
#230276
Ae galera... já sei...

Uma vez vi em um fórum de PHP (acho que no iMasters) um desafio que era o seguinte, cada um tinha que re-resenvolver uma função do PHP.

No nosso caso, teríamos que redesenvolver uma função do VB.


Ex.:
Segue abaixo o MarceloReplace!

Public Function MarceloReplace(Expression As String, Find As String, Replace As String) As String
    For i = 1 To Len(Expression)
        If Mid(Expression, i, Len(Find)) = Find Then
            Expression = Mid(Expression, 1, i - 1) & Replace & Mid(Expression, i + Len(Find), Len(Expression))
        End If
    Next
    
    MarceloReplace = Expression
End Function
USUARIO.EXCLUIDOS 09/08/2007 17:05:26
#230280
se alguém estiver tanto sem o que fazer quanto eu, postem aí suas funções! hahaha
CLEVERTON 09/08/2007 17:06:45
#230281
O Replace só tem essa forma de fazer mesmo

agora faltou vc colocar os argumentos Start e Count
USUARIO.EXCLUIDOS 09/08/2007 17:08:43
#230283
é!! eu sei...

os opcionais né!??
Vou fazer aqui...

Por enquanto posto ela sem estes parâmetros, mas com uma pequena correção!

Public Function MarceloReplace(Expression As String, Find As String, Replace As String) As String
Inicio:
    
    For i = 1 To Len(Expression)
        If Mid(Expression, i, Len(Find)) = Find Then
            Expression = Mid(Expression, 1, i - 1) & Replace & Mid(Expression, i + Len(Find), Len(Expression))
            GoTo Inicio
        End If
    Next
    
    MarceloReplace = Expression
End Function
Página 3 de 4 [39 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar