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 em Basic
para calcular o dígito-verificador


 
Eliezer Magliano — Centro-Oeste n° 80 — 1°-jul-1993

Este programa calcula, apresenta na tela, e grava em disco o dígito verificador de vagões de carga da Rede Ferroviária Federal S/A, bastando que o modelista forneça os 6 dígitos que compõem sua numeração oficial. Caso seja fornecido um número com menos de 6 dígitos, o programa pede que seja feita a correção antes de prosseguir.

Ao iniciar o trabalho, a primeira providência do programa é perguntar se já existe arquivo com os números de outros vagões, calculados anteriormente. Caso você diga que não existe, ele iniciará a gravação de um novo arquivo, eliminando o arquivo anterior, se já existe. Se você disser que sim, ele usará o arquivo já existente.

Para sair, digite "f" ou "F" de fim.

Primeiro, o programa precisa ser compilado. Digite-o e grave-o com o nome de NumTrem.ASC, compilando em seguida. Se você tiver um antiquíssimo livro de Basic, consulte-o. O Basic não mudou quase nada.

No IBM-PC, rode GwBasic; e em seguida digite Run "C:\Diretorio\NumTrem" (Enter ou Return), onde o Diretorio é opcional, caso não seja o diretório corrente.

Dentro do GwBasic, use (Files) para listar os arquivos do diretório corrente; (Load) para carregar o programa sem rodá-lo; (List) para listá-lo; (Save) para salvar as alterações, se houver; (Ctrl-C) ou (Ctrl-Break) para parar.

A numeração dos vagões da RFFSA foi apresentada no CO-72, juntamente com um programa semelhante, em dBase. A numeração das locomotivas e todos os demais veículos da RFFSA, foi apresentada por João Bosco Setti no CO-78.

10 CLS:KEY OFF

20 INPUT"Arquivo de dados `checados' ja existe no disco (S/N)";AR$

30 IF AR$="S" OR AR$="s" THEN 50

40 OPEN"checados.dat" FOR OUTPUT AS #1:CLOSE

50 OPEN"checados.dat" FOR APPEND AS #2

60 CLS:LI=2

70 LOCATE 10,20:INPUT"Numero";NU$

80 LOCATE 20,40:PRINT"                 "

90 IF LEN(NU$)<6 THEN LOCATE 20,40:PRINT"Complete o Numero":GOTO 70

100 IF LEN(NU$)>6 THEN LOCATE 20,40:PRINT"Seis digitos !":LOCATE 10,25:PRINT"          ":GOTO 70

110  N1= 7*VAL(MID$(NU$,1,1))

120  N2= 6*VAL(MID$(NU$,2,1))

130  N3= 5*VAL(MID$(NU$,3,1))

140  N4= 4*VAL(MID$(NU$,4,1))

150  N5= 3*VAL(MID$(NU$,5,1))

160  N6= 2*VAL(MID$(NU$,6,1))

170 CH=11-INT((N1+N2+N3+N4+N5+N6) MOD 11)

180 IF CH=10 THEN RE$=NU$+"-0":GOTO 200

190 IF CH=11 THEN RE$=NU$+"-1":GOTO 200 ELSE RE$=NU$+"-"+RIGHT$(STR$(CH),1)

200 LOCATE 15,35:PRINT RE$

210 LOCATE LI,2:PRINT RE$

220 PRINT #2,RE$

230 IF LI<21 THEN LI=LI+1 ELSE LI=2

240 LOCATE 17,40:PRINT CH

250 LOCATE 20,40:PRINT"Tudo ok (F termina)?"

260 OK$=INKEY$:IF OK$="" THEN 260

270 IF OK$="F" OR OK$="f" THEN 280 ELSE LOCATE 10,25:PRINT"                      ":LOCATE 20,40:PRINT"                      ":GOTO 70

280 CLOSE:CLS:END

   

  

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