Come calcolare la lunga distanza telefono Spese da un file CSV

Saper memorizzare le informazioni in un carattere di valori separati (CSV) e usarlo per calcolare le tariffe telefoniche a lunga distanza utilizzando Visual Basic.NET consente di risparmiare tempo . Un file CSV può essere creato utilizzando Microsoft Office Excel . Excel è un foglio di calcolo comunemente usato 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 . Cose che ti serviranno
Microsoft Office Excel
Microsoft Visual Basic Express
Mostra più istruzioni
1

Avviare Microsoft Office Excel e digitare quanto segue :

In " A1 ", tipo " Country"

" A2 ", tipo " Messico "

" A3 ", tipo "Canada"

"A4 , tipo "tipo" Brazil "

" B1 ", tipo " Rate /Min "

" B2 ", tipo " 2.5 "

" B3 " " 5.5 "

" B4 ", tipo " 4.2 "
2

Premere " Ctrl" e " S " per aprire la finestra " Salva con nome" finestra di dialogo. Selezionare " C : \\ " accanto a " Salva in" Accanto a " Nome file ", digitare " longDistanceCharges " e selezionare " CSV ( MS - DOS ) ( * . Csv) " accanto a "Salva come ". Fare 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 " in " Modelli Visual Studio installati " e selezionare " OK ".
4

Premere " Ctrl " più " Alt " plus " X" per aprire la " Casella degli strumenti ". Fare doppio clic su "Pulsante" sotto " Controlli comuni " per aggiungere un nuovo pulsante di " 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 " Microsoft Excel ( numero di versione) Object Library " e fare clic su " OK ".
6

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 " : .

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

Dim paese ( 10) As String

tassi 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 " ) per

XLWkSheet = XLWkBook.Worksheets ( " longDistanceCharges " )
paese

( 1 ) = XLWkSheet.Cells ( 2 , 1) . valore

paese ( 2) = XLWkSheet.Cells ( 3 , 1) . valore

paese ( 3) = XLWkSheet.Cells ( 4 , 1) . valore

ratesStr XLWkSheet.Cells = ( 1 , 2) valore .
tassi

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

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

( 7 ) = XLWkSheet.Cells ( 4 , 2) . valore

TotalAmount = numero minimo * tariffe ( 5 ) per

MsgBox ( " Totale dei costi per " & Country ( 1 ) & " : $ " & TotalAmount )

TotalAmount = numero minimo * Tassi ( 6)

MsgBox ( " Totale dei costi per " & Country ( 2) & " : $ " & TotalAmount )

TotalAmount = numero minimo * tariffe ( 7 ) per

MsgBox ( " Totale dei costi per " & country ( 3) &" : $ " & TotalAmount ) per

XLWkBook.Close ( ) per

XLApp.Quit ( ) per

End Sub

End Class

il codice calcola le tariffe telefoniche in base ai valori presenti nel file CSV creato. I risultati per ciascun paese saranno visualizzate attraverso una finestra di messaggio .
8

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

• Come risolvere i problemi di VBA con No Pagina vuota 
• Come caricare certificati da Windows keystore con Visual Basic