Vide, hvordan man lagre oplysninger i en karakter adskilte værdier ( CSV) fil og bruge den til at beregne langdistance telefon afgifter ved hjælp af Visual Basic.NET kan spare dig tid. En CSV-fil kan oprettes ved hjælp af Microsoft Office Excel . Excel er et regnearksprogram almindeligvis anvendes til at gemme og analysere store mængder data . VB.NET er en computer programmeringssprog bruges til at udvikle Windows-programmer. VB.NET er relativt let at lære og bruge . Ting du skal
Microsoft Office Excel
Microsoft Visual Basic Express
Vis Flere Instruktioner
1
Start Microsoft Office Excel og skriv følgende : Hej < 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
Tryk på " Ctrl " og "S " for at åbne "Gem som" dialogboks. Vælg " C: \\ " ved siden af "Gem i." Ved siden af " File Name ," type " longDistanceCharges " og vælg " CSV (MS -DOS ) (*. Csv) " ud for "Gem som type ". Klik på " Gem".
3
Start " Microsoft Visual Basic Express ", vælge "File " menuen og klikke på " Nyt projekt ". Klik på "Windows Forms Application " under " Visual Studio Installerede skabeloner " og vælg " OK".
4
Tryk på " Ctrl " plus " Alt" plus "X " for at åbne "Toolbox ". Dobbeltklik på " Button " under "Common Controls " for at tilføje en ny knap til " Form1 ". Dobbeltklik på " Text Box" for at tilføje en ny tekstboks til formularen .
5.
Klik på " Project" og vælge "Tilføj kommissorium. " Klik på " COM ", vælge "Microsoft Excel ( versionsnummer) Object Library " og klik " OK".
6
Dobbeltklik på " Button1 " for at åbne " Form1.vb "-modulet . Tryk på " Ctrl " plus " A " og derefter "Slet " for at fjerne alle eksisterende kode
7
Kopier og indsæt følgende kode i dit " Form1.vb "-modulet : .
import Excel = Microsoft.Office.Interop.Excel
Private Sub Button1_Click ( ByVal afsender Som System.Object , ByVal e Som 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 satser (10) Da 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 " )
land ( 1) = XLWkSheet.Cells (2, 1). værdi
land ( 2) = XLWkSheet.Cells (3, 1). værdi
land ( 3) = XLWkSheet.Cells (4 , 1). værdi
ratesStr = XLWkSheet.Cells (1, 2). værdi
satser ( 5) = XLWkSheet.Cells ( 2, 2 ) . værdi
satser ( 6) = XLWkSheet.Cells (3, 2). værdi
satser ( 7) = XLWkSheet.Cells (4 , 2). værdi
totalAmount = min * satser ( 5)
MsgBox ( "Total omkostning for " & land (1) & " : $ " & totalAmount )
totalAmount = min * satser (6 ) < br >
MsgBox ( "Total omkostning for " & land (2) & " : $ " & totalAmount )
totalAmount = min * satser ( 7)
MsgBox ( "Total omkostning for "& land (3) &" : $ "& totalAmount )
XLWkBook.Close ()
XLApp.Quit ()
End Sub
End Class
koden vil beregne telefon afgifter baseret på værdierne i CSV -fil, du har oprettet. Resultaterne for hvert land vil blive vist gennem en besked boks .
8
Tryk på " F5 " for at køre dit program og derefter indtaste antal minutter i tekstboksen . Klik på " Button1 " for at beregne resultaterne ved hjælp af CSV-fil .
