USANDO O VISUAL BASIC PARA GERAR TABELAS DE DELAY PARA O PIC


ABRA O VISUAL BASIC , E , INICIE UM NOVO PROJETO.
ARRASTE UMA JANELA PARA TEXTO E NOMEIE COMO TEXT2. 
INCLUA NESTA JANELA A FUNÇÃO MULTILINHAS E SCROOLBAR VERTICAL E HORIZONTAL (NAS PROPRIEDADES)
NO 'FORM1' ABERTO, ARRASTE UM BOTÃO (COMMAND1).
CLICK NELE E COLE NO FORM DE CÓDIGO, AS LINHAS MENCIONADAS ABAIXO.
AO RODAR E CLICANDO NO BOTÃO 1 , IRÁ GERAR AS TABELAS TAB_1 E TAB_2.
BASTA COPIAR E COLAR NO PROGRAMA ASM. GERA LISTA DE 40 A 250. (O NUMERO '5' NA FORMULA É UM DESCONTO DE TEMPO
GERADO PELO PROPRIO PROGRAMA . OPCIONALMENTE, VOCE PODERÁ USAR PLANILHA DE EXCEL PARA OBTER O MESMO RESULTADO.

COPIE O ABAIXO:

Private Sub Command1_Click()
Dim A As Variant
Dim C, D, S As Variant
D = 40
C = 10
Text2.Text = "TAB_1" & Chr(13) & Chr(10)
S = "TAB_2" & Chr(13) & Chr(10)
For N = 40 To 250
If C = 10 Then
Text2.Text = Text2.Text & "  DT  "
S = S & "  DT  "
End If
Text2.Text = Text2.Text & " 0X0"
S = S & " 0X"
A = Hex(Int(60 / N * 1000) - 5)
If Len(A) = 3 Then
Text2.Text = Text2.Text & Mid((Hex(Int(60 / N * 1000) - 5)), 1, 1)
S = S & Mid((Hex(Int(60 / N * 1000) - 5)), 2, 2)
End If
If Len(A) < 3 Then
Text2.Text = Text2.Text & "0"
S = S & Mid((Hex(Int(60 / N * 1000) - 5)), 1, 2)
End If

If N = 250 Then
Text2.Text = Text2.Text & "                                                                                                                ; " & N & Chr(13) & Chr(10)
S = S & "                                                                                                                ; " & N & Chr(13) & Chr(10)
Else
C = C - 1
    If C = 0 Then
    Text2.Text = Text2.Text & " ; " & D & " A " & (D + 9) & Chr(13) & Chr(10)
    S = S & " ; " & D & " A " & (D + 9) & Chr(13) & Chr(10)
    C = 10
    D = D + 10
    Else
    Text2.Text = Text2.Text & " , "
    S = S & " , "
End If
End If
Next

Text2.Text = Text2.Text & Chr(13) & Chr(10) & S
End Sub