Start Microsoft Office Excel en typ het volgende :

In " A1 , " type " Country"

" A2 , " type " Mexico "

" A3 , " type " Canada "

" A4 , " type" Brazilië "

" B1 , " type" tarief /Min "

" B2 , " type" 2.5 "

" B3 , "type " 5.5 "

" B4 , " type " 4.2 "

Press 2 " Ctrl " en " S " om de " Opslaan als" dialoogvenster . Selecteer " C : \\ " naast " Opslaan in " Naast " File Name , " type " longDistanceCharges " en selecteer " CSV ( MS - DOS ) ( * . Csv ) " naast " Opslaan als type . " Klik op 'Opslaan'.

Start 3 " Microsoft Visual Basic Express , " te selecteren in het menu " File " en klik op " New Project . " Klik op " Windows Forms Application " onder " Visual Studio geïnstalleerd sjablonen " en selecteer " OK".

Press 4 "Ctrl " plus " Alt " plus " X " om het te openen " Toolbox . " Dubbelklik op " Button " onder " Common Controls " om een nieuwe knop toe te voegen aan " Form1 . " Dubbelklik op " Text Box " naar een nieuw tekstvak toe te voegen aan uw formulier .

Klik op " Project " 5 en selecteer " Add Reference . " Klik op " COM ", selecteer " Microsoft Excel ( versie nummer ) Object Library " en klik op "OK . "

Dubbelklik op " Button1 " 6 op de " Form1.vb " module te openen . Druk op " Ctrl " plus " A ", dan " Delete " om alle bestaande code te verwijderen

Copy 7 en plak de volgende code in uw " Form1.vb " module : .

invoer Excel = Microsoft.Office.Interop.Excel

Private Sub Button1_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button1.Click

Dim xlApp
Zoals Excel.Application

Dim XLWkBook Zoals Excel.Workbook

Dim XLWkSheet
Zoals Excel.Worksheet

Dim land
( 10 ) als Koord

Dim tarieven
( 10 ) As Double

Dim ratesStr
als Koord

Dim min
als Geheel

Dim totalAmount
As Double

min
= Me.TextBox1.Text

xlApp
= Nieuwe Microsoft.Office.Interop.Excel.Application

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

XLWkSheet = XLWkBook.Worksheets
( " longDistanceCharges " )

land
( 1 ) = XLWkSheet.Cells ( 2 , 1 ) . waarde

land
( 2 ) = XLWkSheet.Cells ( 3 , 1 ) . waarde

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

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

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

tarieven
( 6 ) = XLWkSheet.Cells ( 3 , 2 ) . waarde

tarieven
( 7 ) = XLWkSheet.Cells ( 4 , 2 ) . waarde

totalAmount = min * prijzen ( 5 )

MsgBox
( " Totale kosten voor " & land ( 1 ) & " : $ " & totalAmount )

totalAmount = min * tarieven
( 6 ) < br

MsgBox ( " Totale kosten voor " & land ( 2 ) & " : $ " & totalAmount ) >

totalAmount = min * tarieven
( 7 )

MsgBox
( " Totale kosten voor " & land ( 3 ) & " : $ " & totalAmount )

XLWkBook.Close
( )

XLApp.Quit
( )

End Sub

end klasse

de code zal berekenen telefoonkosten op basis van de waarden in het CSV-bestand dat u hebt gemaakt . De resultaten voor elk land zal worden weergegeven door middel van een bericht in.

Druk op " F5 " 8 om uw programma uit te voeren , dan voert u het aantal minuten in het tekstvak . Klik op " Button1 " om de resultaten met behulp van het CSV-bestand te berekenen .