Clipper On Line • Ver Tópico - FOR EACH pra facilitar

FOR EACH pra facilitar

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

FOR EACH pra facilitar

Mensagempor JoséQuintas » 03 Jul 2020 19:36

O FOR EACH facilita, mas facilita muito mais se usar nomes adequados

   FOR nCont = 1 TO Len( ::acKeyboard )
      FOR nCont2 = 1 TO Len( ::acKeyboard[ nCont ] )
         @ ::nTop + 1 + nCont * 2, ::nLeft + 1 + ( nCont2 - 1 ) * 5 SAY ::acKeyboard[ nCont, nCont2 ]
      NEXT
   NEXT


olhando assim, difícil entender, e com FOR/EACH talvez não facilite.
Mas com nome adequado...

   FOR EACH aLinhaTeclado IN ::acKeyboard
      FOR EACH cTecla IN aLinhaTeclado
         @ ::nTop + 1 + aLinhaTeclado:__EnumIndex * 2, ::nLeft + 1 + ( cTecla:__EnumIndex - 1 ) * 5 SAY cTecla
      NEXT
   NEXT


É a montagem do teclado da calculadora, uma linha por vez, e uma tecla por vez.
Eu estava na dúvida se alterava pra FOR/EACH, porque parecia que ia só complicar.
Mas pensei no nome adequado, e aí achei que valia a pena.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14294
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

FOR EACH pra facilitar

Mensagempor NiltonGM » 08 Jul 2020 16:47

Gosto muito de usar o for each, switch e o with object
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 340
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 214 vezes
Mens.Curtidas: 13 vezes

FOR EACH pra facilitar

Mensagempor JoséQuintas » 09 Jul 2020 11:53

NiltonGM escreveu:Gosto muito de usar o for each, switch e o with object


O SWITCH ainda acho esquisito.
Isso porque ele é diferente do DO CASE, pode entrar em todas as condições seguintes.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14294
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

FOR EACH pra facilitar

Mensagempor NiltonGM » 09 Jul 2020 13:12

JoséQuintas escreveu:
NiltonGM escreveu:Gosto muito de usar o for each, switch e o with object


O SWITCH ainda acho esquisito.
Isso porque ele é diferente do DO CASE, pode entrar em todas as condições seguintes.


o SWITCH tem uma finalidade um pouco diferente do DO CASE, dependendo da lógica eu uso o SWITCH ou o DO CASE, só temos que lembrar que no SWITCH para não passar em todas as condições, tanto em harbour como em outras linguagens que utiliza o SWITCH, tem que dar um EXIT no final de cada condição.
Exemplo:
SWITCH nVar
   CASE 1
      ...codigo1...
      EXIT
   CASE 2
      ...codigo2...
      EXIT
   CASE 3
      ...codigo3...
      EXIT
ENDSWITCH
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 340
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 214 vezes
Mens.Curtidas: 13 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: gilbertosilverio e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro