Sapendo come memorizzare le informazioni in un file di valori di carattere separati (CSV) e usarlo per calcolare spese telefoniche a lunga distanza utilizzando Visual Basic.NET può risparmiare tempo. Un file CSV può essere creato utilizzando Microsoft Office Excel. Excel è un foglio di calcolo comunemente utilizzato per memorizzare e analizzare grandi quantità di dati. VB.NET è un linguaggio di programmazione utilizzato per sviluppare applicazioni Windows. VB.NET è relativamente facile da imparare e da usare.

istruzione

1 Avviare Microsoft Office Excel e digitare quanto segue:

In "A1", tipo "Country"

In "A2", tipo "Messico"

In "A3", tipo "Canada"

In "A4", tipo "Brasile"

In "B1", tipo "Rate / Min"

In "B2", tipo "2.5"

In "B3", tipo "5.5"

In "B4", tipo "4.2"

2 Premere il tasto "Ctrl" e "S" per aprire la "Salva con nome" finestra di dialogo. Selezionare "C: \" accanto a "Salva in". Accanto a "Nome file," tipo "longDistanceCharges" e selezionare "CSV (MS-DOS) (*. Csv)" accanto a "Salva come". Fai clic su "Salva".

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

4 Premere il tasto "Ctrl" plus "Alt" plus "X" per aprire la "Toolbox". Fare doppio clic su "Button" sotto "Controlli comuni" per aggiungere un nuovo pulsante per "Form1". Fare doppio clic su "Casella di testo" per aggiungere una nuova casella di testo al form.

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

6 Fare doppio clic su "Button1" per aprire il modulo "Form1.vb". Premere il tasto "Ctrl" plus "A", quindi "Elimina" per rimuovere tutto il codice esistente.

7 Copia e incolla il seguente codice nel modulo "Form1.vb":

Le importazioni Excel = Microsoft.Office.Interop.Excel

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

Dim xlApp Come Excel.Application

Dim xlwkbook relativa Come Excel.Workbook

Dim XLWkSheet Come Excel.Worksheet

Paese Dim (10) As String

tassi di Dim (10) As Double

Dim ratesStr As String

Dim min As Integer

Dim TotalAmount As Double

min = Me.TextBox1.Text

XlApp = Nuovo Microsoft.Office.Interop.Excel.Application

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

XLWkSheet = XLWkBook.Worksheets ( "longDistanceCharges")

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

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

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

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

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

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

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

TotalAmount = numero minimo di * tassi (5)

MsgBox ( "costo totale per le" & Country (1) & ": $" & TotalAmount)

TotalAmount = numero minimo di * tassi (6)

MsgBox ( "costo totale per le" & Country (2) & ": $" & TotalAmount)

TotalAmount = numero minimo di * prezzi (7)

MsgBox ( "costo totale per le" & Country (3) & ": $" & TotalAmount)

XLWkBook.Close ()

XlApp.Quit ()

End Sub

End Class

Il codice calcolerà le tariffe telefoniche in base ai valori del CSV file creato. I risultati per ciascun paese verranno visualizzate attraverso una finestra di messaggio.

8 Premere il tasto "F5" per eseguire il programma, quindi immettere il numero di minuti nella casella di testo. Fai clic su "Button1" per calcolare i risultati utilizzando il file CSV.