Saper memorizzare le informazioni in un personaggio separato i valori (CSV) file e uso per calcolare la lunga distanza telefono carica utilizzando Visual Basic.NET può risparmiare tempo. Un file CSV possa essere creato utilizzando Microsoft Office Excel. Excel è un'applicazione di foglio di calcolo comunemente utilizzata per archiviare e analizzare grandi quantità di dati. VB.NET è un linguaggio di programmazione utilizzato per sviluppare applicazioni di Windows. VB.NET è relativamente facile da imparare e da usare.

Istruzioni

1

Avviare Microsoft Office Excel e digitare quanto segue:

In "A1", digitare "Country"

In "A2", digitare "Messico"

In "A3", digitare "Canada"

In "A4", digitare "Brasile"

In "B1", tipo "Tasso/Min"

In "B2", digitare "2,5"

In "B3", digitare "5,5"

In "B4", digitare "4.2"

2

Premere "Ctrl" e "S" per aprire la finestra di dialogo "Salva con nome". Selezionare "C:\" accanto a "Salva in". Accanto a "Nome File", digitare "longDistanceCharges" e selezionare "CSV (MS-DOS)(*.csv)"accanto a "Salva come tipo". Fare clic su "Salva".

3

"Microsoft Visual Basic Express" Start, selezionare il menu "File" e fare clic su "Nuovo progetto". Fare clic su "Applicazione Windows Form" sotto "Modelli Visual Studio installati" e selezionare "OK".

4

Premere "Ctrl" + "Alt" + "X" aprire la "Toolbox". Fare doppio clic sul "Pulsante" sotto "Common Controls" per aggiungere un nuovo pulsante a "Form1." Fare doppio clic su "Casella di testo" per aggiungere una nuova casella di testo al form.

5

Fare clic su "Progetto" e selezionare "Aggiungi riferimento". Fare clic su "COM", selezionare "Libreria oggetti di Microsoft Excel (numero versione)" e fare clic su "OK".

6

Fare doppio clic su "Button1" per aprire il modulo di "Form1. vb". Premere i tasti "Ctrl" più "A", poi "Elimina" per rimuovere tutto il codice esistente.

7

Copiare e incollare il codice riportato di seguito il modulo di "Form1. vb":

Le importazioni di Excel = Interop

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

End Class

Il codice consente di calcolare le spese telefoniche sulla base dei valori nel file CSV creato. I risultati per ogni paese verranno visualizzati tramite una finestra di messaggio.

8

Premere "F5" per eseguire il programma, quindi immettere la quantità di minuti nella casella di testo. Fare clic su "Button1" per calcolare i risultati utilizzando il file CSV.