Os Caras de TI

Cara, sinto falta dos seus post. Eram excelente di...

2008-12-11T21:13:00.000-02:00

Cara, sinto falta dos seus post. Eram excelente diziam a verdade! Dava tapa na cara de muita gente.
Espero vê-los novamente em breve!

Alexandre,É legal ver que um requisito tem inúmera...

2008-10-12T09:59:00.000-03:00

Alexandre,

É legal ver que um requisito tem inúmeras soluções possíveis. Bem interessante a tua rotina, mas na minha experiência de mais de 20 anos, aprendi a atalhar, então, se você me permite, dei uma alterada nela. Veja como ficou:

Public Function Concatena(string1, string2, string3)
  If Trim(string1) <> "" Then string1 = ", " & Trim(string1)
  If Trim(string2) <> "" Then string2 = ", " & Trim(string2)
  If Trim(string3) <> "" Then string3 = ", " & Trim(string3)
  Concatena = Mid(string1 & string2 & string3, 3)
End Function

Baseado nela, melhorei um pouco mais, veja:

Public Function Concatena(string1, string2, string3)
  Concatena = Mid(Concatena_Virgula(string1) & Concatena_Virgula(string2) & Concatena_Virgula(string3), 3)
End Function
Public Function Concatena_Virgula(strTexto) As String
  If Trim(strTexto) <> "" Then
    Concatena_Virgula = ", " & Trim(strTexto)
  Else
    Concatena_Virgula = strTexto
  End If
End Function

Public Function soma_string(Optional string1, Opti...

2008-10-10T21:25:00.000-03:00

Public Function soma_string(Optional string1, Optional string2, Optional string3)
If Trim(string1) <> "" Then string1 = string1 & ","
If Trim(string2) <> "" Then string2 = string2 & ","
If Trim(string3) <> "" Then string3 = string3 & ","
somastring = Trim(string1) & Trim(string2) & Trim(string3)
If Right(somastring, 1) = "," Then somastring = Left(somastring, Len(somastring) - 1)
soma_string = somastring
End Function

Concordo com a tua colocação. Existem muitos que s...

2008-09-27T00:57:00.000-03:00

Concordo com a tua colocação. Existem muitos que se dizem programadores, que conhecem várias linguagens, mas no momento de fazerem alguma coisa que exige raciocínio todo o conhecimento que dizem ter foi por agua abaixo! Na minha empresa, eu costumo utilizar um teste para medir o raciocinio lógico do programador. Divido este teste em 3 partes, uma parte relacionada a perguntas e testes de lógica, alguns problemas de programação, os quais podem ser escritos em qualquer linguagem, inclusive algoritmo e algumas consultas de SQL. Graças a este teste sempre consegui selecionar programadores que possuiam uma lógica razoavelmente boa, nunca tendo errado. Em contra partida, durante o tempo que me ausentei da empresa e foi necessário contratar outros programadores, o teste não foi aplicado e o resultado não foi dos melhores.
Agora, algo que eu nunca prestei atenção foi a relação entre a velocidade da digitação do código e a capacidade de raciocinio. Algo que eu posso afirmar é que quem possui capacidade de raciocinio consegue resolver um problema de forma mais rápida do quem não possui raciocínio, pois estes, acabam se dispersando, saindo para tomar café, para "pensar" na solução até conseguirem resolver o dito problema. Já presenciei casos onde o programador criou uma variavel e não sabia dizer para que servia....É F...isso, mas existe.
Abraço

DNS, muito boa solução. Fiz pequenos ajustes para ...

2008-09-02T09:04:00.000-03:00

DNS, muito boa solução. Fiz pequenos ajustes para corrigir alguns detalhes. Ficou assim:

Function Concatena(s1, s2, s3) As String
Dim r As String
r = Replace(s1 + ", " + s2 + ", " + s3, ", , ", ", ")
If Left(r, 2) = ", " Then
r = Mid(r, 3)
End If
If Right(r, 2) = ", " Then
r = Mid(r, 1, Len(r) - 2)
End If
Concatena = r
End Function

Mas como a minha preocupação maior é com a manutenção, ficaria com receio se um dia fossem 4 parâmetros? O programador que fosse alterar, se não fosse muito atento e não testasse bem, geraria um erro. Se apenas alterasse a linha:
r = Replace(s1 + ", " + s2 + ", " + s3 + ", " + s4, ", , ", ", ")
aparentemente estaria correto. Mas em algumas situações, pau.

Se você reparar nas soluções apresentadas, todas são facilmente extensíveis para mais parâmetros, com simples Ctrl+C e Ctrl+V. Tem mais código, mas estão mais seguras quanto a futuros erros e fáceis de entender.

Com meus exemplos, quis apresentar algumas respostas aceitáveis, mas a minha escolha seria a rotina abaixo, por ser a mais fácil de estender (veja que estou com 5 parâmetros):
Function Concatena(s1, s2, s3, s4, s5) As String
Dim v()
Dim r As String
Dim x As Integer
v = Array(s1, s2, s3, s4, s5)
For x = 0 To UBound(v)
If v(x) <> "" Then
r = r + ", " + v(x)
End If
Next
Concatena = Mid(r, 3)
End Function

Ela é curta, simples, fácil de entender e de estender.

Function Concatena(ByVal s1 As String, ByVal s2 As...

2008-09-01T23:47:00.000-03:00

Function Concatena(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String) As String
Dim r As String

r= replace(trim(s + ', ' + s2 + ', ' + s3),',,')

if mid(r,1,1)=',' then
r = mid(r,2)

if mid(r,len(r)-1,1)=',' then
r = mid(r,1,len(r)-1)

Concatena = r
End Function

Se nao me falha a memoria isso deve resolver. Claro, contando que nao venha virgula nas strings... Visto que era pra ser uma solucao simples.

Legal o blog!

Cara, Deus me livre de uma experiência destas ! Pr...

2008-09-01T17:03:00.000-03:00

Cara, Deus me livre de uma experiência destas ! Pra mim (sim, sou radical!) qualquer sigla destas CMM, CMMI, MPS.Br ... é tudo sinal de enganação !

Quando vejo alguém falando estas siglas mais solução na mesma frase, com certeza tem vendedor na área !

Zhezow, talvez você tenha a facilidade de perceber...

2008-08-27T10:03:00.000-03:00

Zhezow, talvez você tenha a facilidade de perceber o que é importante e para o resto (as coisas não importantes) desconsiderar a urgência ou não. Na minha experiência com outras pessoas, esta capacidade é quase nula.

No meu exemplo da Firula, um programador acha “legal” trocar a imagem da tela de Splash, e concordemos que na grande maioria das vezes isso não é importante (exceções para caso de sistemas onde o visual é o que conta). Como o programa está para ser fechado (compilado para produção), é algo Urgente, pois se não for feito agora, somente para a próxima versão. Este para mim é um exemplo claro de Urgente, mas não importante.

Outro exemplo é assistir uma novela ou partida de futebol (pelo menos para mim), é algo Urgente, tem que ser naquele momento, senão, nunca mais, mas não é nada importante, não vai afetar a vida de alguém perder um capítulo de uma novela ou ver apenas o compacto do futebol.

Realmente concordo que parece estranho algo ser Urgente e não Importante, e até achar exemplos “claros” disso é difícil, pois estas atividades estão no nosso dia-a-dia em coisas banais, que diariamente fazemos até sem percebermos que não agregam nada.

Logo vou falar mais sobre prioridades.

Obrigado pelo comentário.

Há muito tempo escrevi um post sobre esse tema, po...

2008-08-27T09:38:00.000-03:00

Há muito tempo escrevi um post sobre esse tema, porém não consigo compreender como pode algo ser urgente se não é importante.

A firula no sistema pode não ser importante, mas se é urgente colocá-la para poder fechar o sistema, se o sistema precisa dela para ser entregue, porque não é importante?

A urgência não está em algo que precisa ser feito logo e, se não for feito, acarretará alguma conseqüência?

Se algo não é importante não tem porque ser urgente. Ora, não faz diferença nenhuma se for feito ou não. Não é importante.

Essa história do sargento me fez lembrar um estudo...

2008-08-20T08:03:00.000-03:00

Essa história do sargento me fez lembrar um estudo que vi certa vez feito com macacos. Não vou recordar aonde foi que vi (sei que foi em algum blog de XP ou coisa parecida). A ideia era a seguinte: colocaram 5 macacos, uma escada e um caxo de banana em cima da escada. Na escada só subia um macaco por vez. Toda vez que um macaco subia para pegar uma banana, os outros 4 macacos levavam um forte jato de água até que o macaco que subiu descia. Depois de 2 banhos, toda vez que um macaco ia subir, os macacos que restavam retiravam a força o macaco da escada e batiam nele. Pois bem, dessa forma nenhum macaco subiu mais. Os cientistas resolveram trocar um dos macacos, e o novo macaco tentou subir a escada e foi agredido pelo restante e esse também nunca mais tentou subir. Nesse ponto os macacos que ficavam em baixo não tomavam mais banhos de jato de água. Resolveram trocar mais um macaco (agora são 2 macacos novos). Quando esse tentou subir, foi agredido pelos 4, até pelo macaco que nem tinha tomado o jato de água o fez. E assim foi indo até que trocaram os 5 macacos que tinham levado jato de água e toda vez que um macaco tentava subir na escada os outros batiam nele! Mesmo sem nunca terem levado o banho.
Conclusão: se perguntar para os macacos finais porque batiam no macaco que tentava subir eles responderiam: "Não sei, só sei que sempre foi assim por aqui" =D
Espero que tenha gostado e espero que eu tenha conseguído me expressar!

Ah! Parabéns pelo blog, estou adorando, espero que tenha uma longa vida!.

Roger, um dos caminhos para escrever este post era...

2008-08-19T10:05:00.000-03:00

Roger, um dos caminhos para escrever este post era apresentar este problema das definições mal feitas ou incompletas (até tinha escrito a frase), mas preferi deixar para outro post.
Dei uma olhada no teu blog, pena que não tem mais atualização, pois é muito bom:
http://www.1up4dev.wordpress.com/

Acho que além da "dificuldade de achar uma maneira...

2008-08-18T18:07:00.000-03:00

Acho que além da "dificuldade de achar uma maneira rápida de resolver o problema" tem também o caso de "como sei que resolvi o problema ?" ... Geralmente são tarefas "genéricas", por exemplo listar os usuários ! Só que ninguém te passa como deve ser a tela, quais informações deve aparecer na lista, onde o menu vai ficar ... etc.

Então, eu trabalho para uma dessas "organizações m...

2008-08-18T15:39:00.000-03:00

Então, eu trabalho para uma dessas "organizações mamutescas com nome de 3 letrinhas" e aqui isso acontece com freqüência absurda. E pior, nosso cliente "mamutesco de 2 letrinhas" adora essas práticas! Sim, ele paga por soluções porcas, desde que os 2375 documentos sejam devidamente preenchidos. Triste.

Sensacional!

2008-08-18T09:44:00.000-03:00

Sensacional!