Hvordan Beregn lang avstand telefon avgifter fra en CSV-fil

Å vite hvordan du lagrer informasjon i en tegndelte verdier (CSV) og bruke den til å beregne lang avstand telefonkostnader ved bruk av Visual Basic.NET kan spare deg for tid. En CSV-fil kan lages ved hjelp av 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-programmer. VB.NET er relativt enkelt å lære og bruke.

Bruksanvisning

1 Start Microsoft Office Excel og skriver følgende:

I "A1," type "land"

I "A2," type "Mexico"

I "A3," type "Canada"

I "A4," type "Brazil"

I "B1," type "Rate / Min"

I "B2," type "2.5"

I "B3," type "5.5"

I "B4," type "4.2"

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

3 Begynn "Microsoft Visual Basic Express", velg "Fil" -menyen og klikk "New Project". Klikk på "Windows Forms Application" under "Visual Studio er installert 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 for å "Form1." Dobbeltklikk på "Text Box" for å legge til en ny tekstboks i skjemaet.

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

6 Dobbeltklikk på "Button1" for å åpne "Form1.vb" modul. Trykk "Ctrl" pluss "A" og deretter "Slett" for å fjerne alle eksisterende kode.

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

Import Excel = Microsoft.Office.Interop.Excel

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

Dim XLApp Som Excel.Application

Dim XLWkBook Som Excel.Workbook

Dim XLWkSheet Som Excel.Worksheet

Dim land (10) As String

Dim priser (10) As Double

Dim ratesStr As String

Dim min As Integer

Dim totalAmount As 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) .Value

landet (2) = XLWkSheet.Cells (3, 1) .Value

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

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

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

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

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

totalAmount = min * priser (5)

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

totalAmount = min * priser (6)

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

totalAmount = min * priser (7)

MsgBox ( "Total kostnad for" & country (3) og ": $" & 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.