Microsoft Office Excel
Microsoft Visual Basic Express
Ver Más instrucciones
1
Inicio Microsoft Office Excel y escriba lo siguiente :
< p> En "A1 ", escribe " Country"
"A2 ", escribe " Mexico "
"A3 ", escribe " Canada "
"A4 , tipo "type " Brasil "
" B1 ", escribe" Cambio /Min "
" B2 ", escribe" 2.5 "
" B3 " "5.5"
" B4 " tipo " 4.2 "
2
Presione " Ctrl" y " S " para abrir la opción "Guardar como" cuadro de diálogo. Seleccione " C: \\ " junto a " Save in " Al lado de " Nombre de archivo ", escriba " longDistanceCharges " y selecciona " CSV (MS -DOS ) (*. Csv ) " al lado de " Guardar como tipo ". Haga clic en " Guardar ".
3
Inicio " Microsoft Visual Basic Express ", seleccione el menú "Archivo" y luego en "Nuevo Proyecto". Haga clic en " Aplicación de Windows Forms " en " Plantillas de Visual Studio instalados" y seleccione " Aceptar".
4
Pulse " Ctrl" plus " Alt" plus " X " para abrir la " caja de herramientas ". Haga doble clic en "Button " en " Common Controls " para añadir un nuevo botón para " Form1 ". Haga doble clic en "Cuadro de texto " para añadir un nuevo cuadro de texto al formulario.
5
Haga clic en " Proyecto " y seleccionar "Add Reference ". Haga clic en " COM ", seleccione " Microsoft Excel (número de versión ) biblioteca de objetos " y haga clic en " Aceptar".
6
doble clic en " Button1 " para abrir el módulo " Form1.vb " . Pulse la tecla "Ctrl " y más " A ", luego " Eliminar " para eliminar todo el código existente
7
Copia y pega el siguiente código en el módulo " Form1.vb ": .
Imports Excel = Microsoft.Office.Interop.Excel
Private Sub Button1_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button1.Click
xlApp As Excel.Application
XLWkBook As Excel.Workbook
XLWkSheet As Excel.Worksheet
país Dim ( 10 ) como secuencia
tarifas Dim ( 10 ) As Double
ratesStr dévil como secuencia
min As Integer
TotalAmount Dim As Double
min = Me.TextBox1.Text
xlApp = Nueva Microsoft.Office.Interop.Excel.Application
XLWkBook = XLApp.Workbooks.Open ("C: \\ longDistanceCharges.csv " )
XLWkSheet = XLWkBook.Worksheets ( " longDistanceCharges ") & Country
( 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
tarifas
( 5 ) = XLWkSheet.Cells ( 2 , 2 ) valor . Cheap Rates
( 6 ) = XLWkSheet.Cells ( 3 , 2 ) . valor
tarifas
( 7 ) = XLWkSheet.Cells ( 4 , 2 ) . valor
TotalAmount = mínimo * Tasas ( 5 )
MsgBox ( "costo total " y en el país ( 1 ) & " : $ " & TotalAmount )
TotalAmount = mínimo * Tasas ( 6 )
MsgBox ( "costo total " y en el país ( 2 ) & " : $ " & TotalAmount )
TotalAmount = mínimo * Tasas ( 7 )
MsgBox ( " El costo total de " y en el país ( 3 ) &" : $ "& TotalAmount )
XLWkBook.Close ()
xlApp.Quit ()
End Sub
End Class
el código calcula gastos de teléfono basado en los valores en el archivo CSV que ha creado. Los resultados de cada país se mostrarán a través de un cuadro de mensaje.
8
Press "F5 " para ejecutar el programa , a continuación, introduzca el número de minutos en el cuadro de texto. Haga clic en " Button1 " para calcular los resultados utilizando el archivo CSV.