Å vite hvordan man skal lagre informasjon i en karakter separerte verdier ( CSV ​​) -fil og bruke den til å beregne lang avstand telefon avgifter som bruker Visual Basic.NET kan spare deg for tid . En CSV -fil kan bli laget med Microsoft Office Excel . Excel er et regnearkprogram som vanligvis brukes til å lagre og analysere store mengder data . VB.NET er et programmeringsspråk som brukes til å utvikle Windows-applikasjoner . VB.NET er relativt lett å lære og bruke. Du trenger
Microsoft Office Excel
Microsoft Visual Basic Express
Vis flere instruksjoner
en

start Microsoft Office Excel og skriv inn følgende :
< p> I " A1 , " type "Land"

" A2 , " type " Mexico "

" A3 , " type " Canada "

"A4 , "type" Brazil "

" B1 , "type " Rate /Min "

" B2 , "type " 2,5 "

" B3 , "type " 5.5 "

" B4 , " type " 4.2"
2

Trykk " Ctrl" og " S" for å åpne " Lagre som"-dialogboksen . Velg " C: \\" ved siden av " Lagre i." Ved siden av " File Name ", type " longDistanceCharges " og velg " CSV ( MS - DOS ) ( * . Csv )" ved siden av " Lagre som type." Klikk på " Lagre".
3

Start " Microsoft Visual Basic Express ", velg "File "-menyen og klikk på "New Project ". Klikk på "Windows Forms Application " under " Visual Studio Installerte maler " og velg " OK ".
4

Trykk " Ctrl " pluss " Alt" pluss "X" for å åpne " Toolbox ". Dobbeltklikk på " Button " under " Common Controls " for å legge til en ny knapp " Form1 . " Dobbeltklikk på " Text Box " for å legge en ny tekstboks i skjemaet.
5

Klikk på " Project" og velg " Add Reference ". Klikk " COM ", velg " Microsoft Excel ( versjonsnummer ) Object Library " og klikk " OK ".
6

Dobbeltklikk på " Button1 " for å åpne " Form1.vb " modulen. Trykk "Ctrl " pluss " A " og deretter " Slett " for å fjerne all eksisterende kode
7

Kopier og lim inn følgende kode inn i din " Form1.vb " modul: .

import Excel = Microsoft.Office.Interop.Excel

Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.Click

Dim XLApp Som Excel.Application

Dim XLWkBook Som Excel.Workbook

Dim XLWkSheet Som Excel.Worksheet

Dim landet ( 10 ) Som String

Dim priser ( 10 ) As Double

Dim ratesStr As String

Dim min As Integer

Dim totalAmount Som Double

min = Me.TextBox1.Text

XLApp = Ny Microsoft.Office.Interop.Excel.Application

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

XLWkSheet = XLWkBook.Worksheets ( " longDistanceCharges ")

landet ( 1 ) = XLWkSheet.Cells ( 2 , 1 ) . verdi

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

landet ( 3 ) = XLWkSheet.Cells ( 4 , 1 ) . verdi

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

priser ( 5 ) = XLWkSheet.Cells ( 2 , 2 ) . verdi

priser ( 6 ) = XLWkSheet.Cells ( 3 , 2 ) . verdi

priser ( 7 ) = XLWkSheet.Cells ( 4 , 2 ) . verdi

totalAmount = min * priser ( 5 )

MsgBox ( "Total kostnad for" & country ( 1 ) & " : $ " & totalAmount )

totalAmount = min * priser ( 6 )

MsgBox ( "Total kostnad for" & country ( 2 ) & " : $ " & totalAmount )

totalAmount = min * priser ( 7 )

MsgBox ( "Total kostnad for "& country ( 3 ) &" : $ "& totalAmount )

XLWkBook.Close ( )

XLApp.Quit ( )

End Sub

End Class

koden vil beregne takster basert på verdiene i CSV-filen du opprettet. Resultatene for hvert land vil bli vist gjennom en meldingsboks.
8

Trykk " F5 " for å kjøre programmet , deretter inn antall minutter i tekstboksen . Klikk " Button1 " for å beregne resultatene ved hjelp av CSV -filen.