ubiquitour.com

Cómo calcular los gastos de teléfono de larga distancia desde un archivo CSV

Cómo calcular los gastos de teléfono de larga distancia desde un archivo CSV

Saber cómo almacenar información en una valores de caracteres separados (CSV) archivo y uso para calcular teléfono larga distancia cobra utilizando Visual Basic.NET puede ahorrar tiempo. Un archivo CSV puede crearse utilizando Microsoft Office Excel. Excel es una hoja de cálculo comúnmente utilizado para almacenar y analizar grandes cantidades de datos. VB.NET es un lenguaje de programación de computadora utilizado para desarrollar aplicaciones de Windows. VB.NET es relativamente fácil de aprender y usar.

Instrucciones

1 Inicie Microsoft Office Excel y escriba lo siguiente:

En "A1," tipo "El país"

En "A2," escriba "México"

En "A3", tipo "Canadá"

En "A4", tipo "Brasil"

En "B1", escriba "/ minuto de la tarifa"

En "B2", tipo "2.5"

En "B3" tipo "5,5"

En "B4", tipo "4.2"

2 Presione la "tecla Ctrl" y "S" para abrir el cuadro de diálogo "Guardar como". Seleccione "C:\" junto a "Guardar en". Junto a "Nombre de archivo", escriba "longDistanceCharges" y seleccione "CSV (MS-DOS)(*.csv)"junto a "guardar como tipo". Haga clic en "Guardar".

3 Inicio "Microsoft Visual Basic Express," Seleccione el menú "Archivo" y haga clic en "Nuevo proyecto". Haga clic en "Aplicación de Windows Forms" en "Instalar plantillas de Visual Studio" y seleccione "Aceptar".

4 Presiona "Ctrl" y "Alt" y "X" para abrir la "caja de herramientas". Haga doble clic en el botón"" bajo "Controles comunes" para añadir un nuevo botón a "Form1". Haga doble clic en "Cuadro de texto" para agregar un nuevo cuadro de texto al formulario.

5 Haga clic en "Proyecto" y seleccione "Agregar referencia". Haga clic en "COM", seleccione "Biblioteca de objetos de Microsoft Excel (número de versión)" y haga clic en "Aceptar".

6 Haga doble clic en "Button1" para abrir el módulo "Form1.vb". Presione "Ctrl" y "A", luego "Borrar" para eliminar todo el código existente.

7 Copie y pegue el código siguiente en el módulo "Form1.vb":

Importación de Excel = Microsoft.Office.Interop.Excel

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim XLApp As Excel.Application

Dim XLWkBook As Excel.Workbook

Dim XLWkSheet As Excel.Worksheet

Dim country(10) As String

Dim rates(10) As Double

Dim ratesStr As String

Dim min As Integer

Dim totalAmount As Double

min = Me.TextBox1.Text

XLApp = New Microsoft.Office.Interop.Excel.Application

XLWkBook = XLApp.Workbooks.Open("C:\longDistanceCharges.csv")

XLWkSheet = XLWkBook.Worksheets("longDistanceCharges")

country(1) = XLWkSheet.Cells(2, 1).value

country(2) = XLWkSheet.Cells(3, 1).value

country(3) = XLWkSheet.Cells(4, 1).value

ratesStr = XLWkSheet.Cells(1, 2).value

rates(5) = XLWkSheet.Cells(2, 2).value

rates(6) = XLWkSheet.Cells(3, 2).value

rates(7) = XLWkSheet.Cells(4, 2).value

totalAmount = min * rates(5)

MsgBox("Total cost for " & country(1) & ": $" & totalAmount)

totalAmount = min * rates(6)

MsgBox("Total cost for " & country(2) & ": $" & totalAmount)

totalAmount = min * rates(7)

MsgBox("Total cost for " & country(3) & ": $" & totalAmount)

XLWkBook.Close()

XLApp.Quit()

End Sub

Clase final

El código calculará los gastos de teléfono basados en los valores en el archivo CSV que creó. Se muestran los resultados para cada país a través de un cuadro de mensaje.

8 Presione "F5" para ejecutar el programa, luego ingrese la cantidad de minutos en el cuadro de texto. Haga clic en "Button1" para el cálculo de los resultados utilizando el archivo CSV.