Saber como armazenar informações em um valores separados (CSV) personagem e usá-lo para calcular tarifas telefônicas de longa distância utilizando o Visual Basic.NET pode lhe poupar tempo . Um arquivo CSV podem ser criados usando o Microsoft Office Excel. Excel é um aplicativo de planilha comumente usado para armazenar e analisar grandes quantidades de dados. VB.NET é uma linguagem de programação de computador usado para desenvolver aplicativos do Windows. VB.NET é relativamente fácil de aprender e usar. Coisas que você precisa
Microsoft Office Excel
Microsoft Visual Basic Express
Show Mais instruções
1
Inicie o Microsoft Office Excel e digite o seguinte:
Em "A1 ", digite " País "
"A2 ", digite " México "
" A3 ", digite " Canadá "
"A4 , "tipo" Brasil "
" B1 ", digite" Taxa /Min "
" B2 ", digite" 2,5 "
" B3 ", digite " 5.5 "
" B4 ", digite " 4.2"
2
Pressione "Ctrl " e " S " para abrir o "Salvar como" caixa de diálogo . Selecione "C: \\ " ao lado de "Salvar dentro" Ao lado de " Nome do arquivo ", digite " longDistanceCharges " e selecione " CSV (MS- DOS) (*. Csv) " ao lado de "Salvar como tipo ". Clique em " Salvar".
3
Comece "Microsoft Visual Basic Express ", selecione o menu " Arquivo" e clique em " New Project ". Clique em " Windows Forms Application " em " Visual Studio installed templates " e selecione " OK".
4
Pressione " Ctrl" plus " Alt" plus " X " para abrir a " caixa de ferramentas. " Clique duas vezes em "Button" em " controles comuns " para adicionar um novo botão para " Form1 ". Dê um duplo clique em " Caixa de Texto " para adicionar uma nova caixa de texto ao seu formulário.
5
Clique em " Project" e selecione " Add Reference ". Clique em " COM ", selecione " Microsoft Excel ( número da versão) Object Library " e clique em "OK".
6
Clique duas vezes em "Button1 " para abrir o módulo " Form1.vb " . Pressione " Ctrl" plus " A ", depois " Excluir " para remover todos os códigos existentes
7
Copie e cole o seguinte código em seu módulo " Form1.vb " : .
Imports Excel = Microsoft.Office.Interop.Excel
Private Sub Button1_Click (sender System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
Dim xlApp as Excel.Application
Dim XLWkBook Como Excel.Workbook
Dim XLWkSheet Como Excel.Worksheet
país Dim (10) As String Dim
taxas (10) As Double
Dim ratesStr As String Dim
min As Integer Dim
quantiaTotal As Double
min = Me.TextBox1.Text
xlApp = Novo Microsoft.Office.Interop.Excel.Application
XLWkBook = XLApp.Workbooks.Open ( "C: \\ longDistanceCharges.csv " )
XLWkSheet = XLWkBook.Worksheets ( " longDistanceCharges " )
país (1) = XLWkSheet.Cells (2, 1). valor
país
(2) = XLWkSheet.Cells (3, 1). valor
país
( 3) = XLWkSheet.Cells (4, 1). valor
ratesStr = XLWkSheet.Cells (1, 2). valor
taxas (5) = XLWkSheet.Cells (2, 2) . valor
taxas (6) = XLWkSheet.Cells (3, 2). valor
taxas (7) = XLWkSheet.Cells (4, 2). valor
quantiaTotal = min * taxas ( 5)
MsgBox (" O custo total para " & país (1 ) & " : $ " & quantiaTotal )
quantiaTotal = min * taxas (6) < br >
MsgBox (" O custo total para " & país (2) & " : $ " & quantiaTotal )
quantiaTotal = min * taxas (7)
MsgBox (" O custo total para "& país (3) &" : $ "& quantiaTotal )
XLWkBook.Close ()
xlApp.Quit ()
End Sub
End Class
o código irá calcular tarifas telefônicas com base nos valores em arquivo CSV que você criou. Os resultados de cada país serão exibidos através de uma caixa de mensagem.
8
Pressione " F5" para executar o programa , em seguida, introduza a quantidade de minutos na caixa de texto . Clique em " Button1 " para calcular os resultados usando o arquivo CSV.
