Wie die Berechnung der Ferngespräche Telefongebühren aus einer CSV-Datei
Zu wissen, wie Informationen in ein getrennte Zeichenwerte (CSV) speichern Zeit Datei und verwenden es um Ferngespräche berechnen Gebühren, dass mithilfe von Visual Basic können Sie speichern. Eine CSV-Datei kann mit Microsoft Office Excel erstellt werden. Excel ist ein Tabellenkalkulations-Programm, das häufig verwendet, um die Speicherung und Analyse große Datenmengen. VB ist eine Computer-Programmiersprache, die zum Entwickeln von Windows-Anwendungen verwendet. VB ist relativ einfach zu erlernen und anzuwenden.
Anweisungen
1 Starten Sie Microsoft Office Excel, und geben Sie Folgendes ein:
Geben Sie in "A1", "Land"
Geben Sie in "A2", "Mexiko"
Geben Sie im "A3", "Kanada"
Geben Sie im "A4", "Brazil"
Geben Sie in "B1", "Rate/Min"
Geben Sie im "B2", "2,5"
Geben Sie im "B3", "5,5"
Geben Sie im "B4", "4.2"
2 Drücken Sie "Strg" und "S" im Dialogfeld "Speichern unter" zu öffnen. Wählen Sie "C:\" neben "Speichern in". Neben "Dateiname" geben Sie "LongDistanceCharges", und wählen Sie "CSV (MS-DOS)(*.csv)"neben "Speichern als Typ". Klicken Sie auf "Speichern".
3 Start "Microsoft Visual Basic Express," wählen Sie im Menü "Datei" und klicken Sie auf "Neues Projekt". Klicken Sie auf "Windows Forms-Anwendung" unter "Visual Studio installierte Vorlagen" und wählen Sie "OK".
4 Drücken Sie "Strg" und "Alt" und "X" Öffnen Sie die "Toolbox". Doppelklicken Sie auf "Button" unter "Common Controls" eine neue Schaltfläche hinzu "Form1". Doppelklicken Sie auf "Textfeld" um ein neues Textfeld zum Formular hinzufügen.
5 Klicken Sie auf "Projekt" und wählen Sie "Verweis hinzufügen". Klicken Sie auf "COM", wählen Sie "Microsoft Excel (Versionsnummer) Object Library", und klicken Sie auf "OK".
6 Doppelklicken Sie auf "Button1", das "Form1.vb" Modul zu öffnen. Drücken Sie "Strg" und "A", dann "Löschen", um alle vorhandenen Code zu entfernen.
7 Kopieren Sie und fügen Sie den folgenden Code in Ihr "Form1.vb" Modul:
Excel importiert = Microsoft.Office.Interop.Excel
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim XLApp As Excel.Application
Dim XLWkBook As Excel.Workbook
Dim XLWkSheet As Excel.Worksheet
Dim country(10) As String
Dim rates(10) As Double
Dim ratesStr As String
Dim min As Integer
Dim totalAmount As Double
min = Me.TextBox1.Text
XLApp = New Microsoft.Office.Interop.Excel.Application
XLWkBook = XLApp.Workbooks.Open("C:\longDistanceCharges.csv")
XLWkSheet = XLWkBook.Worksheets("longDistanceCharges")
country(1) = XLWkSheet.Cells(2, 1).value
country(2) = XLWkSheet.Cells(3, 1).value
country(3) = XLWkSheet.Cells(4, 1).value
ratesStr = XLWkSheet.Cells(1, 2).value
rates(5) = XLWkSheet.Cells(2, 2).value
rates(6) = XLWkSheet.Cells(3, 2).value
rates(7) = XLWkSheet.Cells(4, 2).value
totalAmount = min * rates(5)
MsgBox("Total cost for " & country(1) & ": $" & totalAmount)
totalAmount = min * rates(6)
MsgBox("Total cost for " & country(2) & ": $" & totalAmount)
totalAmount = min * rates(7)
MsgBox("Total cost for " & country(3) & ": $" & totalAmount)
XLWkBook.Close()
XLApp.Quit()
End Sub
End-Klasse
Der Code berechnet basierte auf den Werten in der CSV-Datei erstellten Telefongebühren. Die Ergebnisse für jedes Land werden durch ein Meldungsfeld angezeigt.
8 Drücken Sie "F5" um das Programm auszuführen geben Sie dann die Anzahl der Minuten in das Textfeld ein. Klicken Sie auf "Button1" zum Berechnen der Ergebnisse mithilfe der CSV-Datei.