Centro-Oeste - Trens, ferrovias e ferreomodelismo
Ferrovias | Mapas | Estações | Locomotivas | Diesel | Vapor | Elétricas | Carros | Vagões | Trilhos Urbanos | Turismo | Ferreomodelismo | Maquetes ferroviárias | História do hobby | Iniciantes | Ferreosfera | Livros | Documentação | Links | Atualizações | Byteria | Mboabas | Brasília | Home
  
   
   
  

  

Ferreomodelismo

• Luzes de 0,5 mm (fibra ótica) - 2 Jun. 2016

• Vagão tanque TCQ Esso - 13 Out. 2015

• Escalímetro N / HO pronto para imprimir - 12 Out. 2015

• Carro n° 115 CPEF / ABPF - 9 Out. 2015

• GMDH-1 impressa em 3D - 8 Jun. 2015

• Decais para G12 e C22-7i MRN - 7 Jun. 2015

• Cabine de sinalização em estireno - 19 Dez. 2014

• Cabine de sinalização em palito de fósforo - 17 Dez. 2014

• O vagão Frima Frateschi de 1970 - 3 Jun. 2014

• Decais Trem Rio Doce | Decais Trem Vitória-Belo Horizonte - 28 Jan. 2014

• As locomotivas Alco FA1 e o lançamento Frateschi (1989) na RBF - 21 Out. 2013

• A maquete do Trem turístico Ouro Preto - Mariana (Trem da Vale) - 12 Out. 2013

  

   

Codificação de veículos ferroviários no Brasil
Rotina dBase para calcular o dígito-verificador


 
Centro-Oeste n° 72 — 1°-nov-1992

clear

clear all

set talk off

Ok = space(1)

Numero = space(7)

Linha = 2

use Checados

go bott

@ 1,2 say NumeroOk

do while .not. Ok $ "Ff"

@ 10,20 say "Numero? " get Numero picture "999.999"

read

if len(trim(Numero)) < 7

   @ 20,40 say "Complete o Numero... " get Ok

   read

   @ 20,40

   loop

endif

store 7 * val(substr(Numero,1,1)) to n1

store 6 * val(substr(Numero,2,1)) to n2

store 5 * val(substr(Numero,3,1)) to n3

store 4 * val(substr(Numero,5,1)) to n4

store 3 * val(substr(Numero,6,1)) to n5

store 2 * val(substr(Numero,7,1)) to n6

store 11 - mod((n1+n2+n3+n4+n5+n6),11) to CheckDig

do case

   case CheckDig = 10

     store Numero + "-0" to Resultado

   case CheckDig = 11

     store Numero + "-1" to Resultado

   otherwise

     store Numero + "-" + str(CheckDig,1) to Resultado

endcase

@ 15,35 say Resultado

@ 17,40 say str(CheckDig,2)

@ 20,50 say "Tudo Ok? " get Ok

read

if Ok <> " "

   loop

endif

append blank

replace NumeroOk with Resultado

@ Linha,2 say Resultado

Numero = space(7)

Ok = space(1)

if Linha < 21

     store Linha + 1 to Linha

   else

     store 2 to Linha

     clear

     @ 1,2 say Resultado

endif

enddo

cancel

   

Ferrovias

Os “antigos” trens turísticos a vapor da RFFSA - 21 Nov. 2016

• Estação de Cachoeiro de Itapemirim | Pátio ferroviário (1994) - 28 Fev. 2016

• Caboose, vagões de amônia e locomotivas da SR7 em Alagoinhas (1991) - 25 Fev. 2016

• Locomotivas U23C modificadas para U23CA e U23CE (Numeração e variações) - 17 Fev. 2016

• A chegada da ponta dos trilhos a Brasília (1967) - 4 Fev. 2016

• Livro “Memória histórica da EFCB” - 7 Jan. 2016

• G8 4066 FCA no trem turístico Ouro Preto - Mariana (Girador | Percurso) - 26 Dez. 2015

• Fontes e fotos sobre a locomotiva GMDH1 - 18 Dez. 2015

• Locomotivas Alco RS no Brasil - 11 Dez. 2015

  

Ferreofotos

• Alco RSD8 Fepasa - 29 Fev. 2016

• G12 200 Acesita - 22 Fev. 2016

• “Híbrida” GE244 RVPSC - 21 Fev. 2016

• U23C modernizadas C30-7MP - 17 Fev. 2016

• C36ME MRS | em BH | Ferronorte - 14 Fev. 2016

• Carregamento de blocos de granito na SR6 RFFSA (1994) - 7 Fev. 2016

• G12 4103-6N SR6 RFFSA - 6 Fev. 2016

• Toshiba nº 14 DNPVN em Rio Grande - 25 Jan. 2016

• Encarrilamento dos trens do Metrô de Salvador (2010) - 14 Nov. 2015

• Incêndio de vagões tanque em Mogi Mirim (1991) - 9 Nov. 2015

• Trem Húngaro nas oficinas RFFSA Porto Alegre (~1976) - 21 Out. 2015

  

Ferreoclipping

• Livro sobre a GWBR em João Pessoa e Recife - 12 Mai. 2016

• Museu Ferroviário de Natal - 25 Abr. 2016

• Passagens e calendário do trem turístico Ouro Preto - Mariana | Percurso - 20 Dez. 2015

• Passagens e descontos do Trem do Corcovado | Onde comprar - 12 Dez. 2015

• Estação Pirajá completa a Linha 1 do Metrô de Salvador - 28 Nov. 2015

• Metrô DF direciona 2/3 dos trens para a Ceilândia - 27 Ago. 2015

• EF Campos do Jordão | Horários | Hospedagem - 15 Jul. 2015

Programação de Corpus Christi nos trens turísticos da ABPF Sul de Minas - 25 Mai. 2015

Passagens do trem para Vitória esgotam-se 15 dias antes do feriado - 22 Mar. 2015

Codificação dos vagões no Brasil | Tabela de codificação dos vagões da RFFSA
Codificação de veículos ferroviários | Calculadora online de Dígito Verificador
[ Rotina dBase para Check-Digit | Rotina em Basic para Check-Digit ]

Busca no site
  
       
Ferrovias | Mapas | Estações | Locomotivas | Diesel | Vapor | Elétricas | Carros | Vagões | Trilhos Urbanos | Turismo | Ferreomodelismo | Maquetes ferroviárias | História do hobby | Iniciantes | Ferreosfera | Livros | Documentação | Links | Atualizações | Byteria | Mboabas | Brasília | Home
Sobre o site Centro-Oeste | Contato | Publicidade | Política de privacidade