Att veta hur man lagrar information i en karaktär separerade värden ( CSV ) fil och använda den för att beräkna långdistans telefonen med Visual Basic.NET kan spara tid . En CSV -fil kan skapas med hjälp av Microsoft Office Excel . Excel är ett kalkylprogram som vanligen används för att lagra och analysera stora mängder data . VB.NET är en dator programmeringsspråk som används för att utveckla Windows-program . VB.NET är relativt lätt att lära sig och använda . Saker du behöver
Microsoft Office Excel Review Microsoft Visual Basic Express
Visa fler instruktioner
1
Starta Microsoft Office Excel och skriver följande :
I " A1 , " typ " Country "
" A2 , " typ " Mexico "
" A3 , " typ " Canada "
" A4 , " typ " Brazil "
" B1 , " typ " Rate /Min "
" B2 , " typ " 2,5 "
" B3 , " typ " 5.5 "
" B4 , " typ " 4,2 "
2
Tryck " Ctrl " och " S " för att öppna " Spara som" i dialogrutan . Välj " C : \\ " bredvid " Spara i. " Bredvid " filnamn , " typ " longDistanceCharges " och välj " CSV ( MS - DOS ) ( * . Csv ) " bredvid "Spara som . " Klicka på " Spara ".
3
Start " Microsoft Visual Basic Express , " välja " Arkiv " -menyn och klicka på " Nytt projekt . " Klicka på " Windows Forms Application " under "Visuella Installerade Studio mallar " och välj " OK ".
4
Tryck " Ctrl " plus " Alt " plus " X " för att öppna " Toolbox . " Dubbelklicka på " Knapp " under " Common Controls " för att lägga till en ny knapp " Form1 . " Dubbelklicka på " Textruta " för att lägga till en ny textruta i formuläret .
5
Klicka på " Project " och välj " Add Reference ". Klicka på " COM ", välj " Microsoft Excel ( versionsnummer ) Object Library " och klicka på " OK . "
6
Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul . Tryck på " Ctrl " plus " A " och sedan "Ta bort " för att ta bort all befintlig kod
7
Kopiera och klistra in följande kod på din " Form1.vb " modul : .
import Excel = Microsoft.Office.Interop.Excel
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
Dim xlApp Som Excel.Application
Dim XLWkBook Som Excel.Workbook
Dim XLWkSheet Som Excel.Worksheet
Dim land ( 10 ) Eftersom
String
Dim priser ( 10 ) Som Double
Dim ratesStr As String
Dim min As Integer
Dim totalAmount Som Double
min = Me.TextBox1.Text
xlApp = Nytt Microsoft.Office.Interop.Excel.Application
XLWkBook = XLApp.Workbooks.Open ( " C : \\ longDistanceCharges.csv " ) katalog
XLWkSheet = XLWkBook.Worksheets ( " longDistanceCharges " )
land ( 1 ) = XLWkSheet.Cells ( 2 , 1 ) . värde
land ( 2 ) = XLWkSheet.Cells ( 3 , 1 ) . värde
land ( 3 ) = XLWkSheet.Cells ( 4 , 1 ) . värde
ratesStr = XLWkSheet.Cells ( 1 , 2 ) . värde
hastigheter ( 5 ) = XLWkSheet.Cells ( 2 , 2 ) . värde
hastigheter ( 6 ) = XLWkSheet.Cells ( 3 , 2 ) . värde
hastigheter ( 7 ) = XLWkSheet.Cells ( 4 , 2 ) . värde
totalAmount = min * priser ( 5 ) katalog
MsgBox ( " Total kostnad för " & land ( 1 ) & " : $ " & totalAmount ) katalog
totalAmount = min * priser ( 6 )
MsgBox ( " Total kostnad för " & land ( 2 ) & " : $ " & totalAmount ) katalog
totalAmount = min * priser ( 7 ) katalog
MsgBox ( " Total kostnad för " & land ( 3 ) & " : $ " & totalAmount ) katalog
XLWkBook.Close ( ) katalog
XLApp.Quit ( ) katalog
End Sub
End Class
koden beräknar telefon avgifter baserat på värdena i CSV-filen du skapade . Resultaten för varje land kommer att visas genom en meddelanderuta . Köra programmet , ange antal minuter i textrutan
8
Tryck " F5 " . Klicka " Button1 " för att beräkna resultat med hjälp av CSV-fil .
