Wie man die Ferngespräche Von einer CSV- Datei auf Berechnen. Eine CSV-Datei kann mit Microsoft Office Excel werden. Excel ist ein Tabellenkalkulationsprogramm häufig verwendet, um zu speichern und zu analysieren große Datenmengen . VB.NET ist eine Programmiersprache verwendet, um Windows-Anwendungen zu entwickeln. VB.NET ist relativ einfach zu erlernen und zu bedienen . Things You
Microsoft Office Excel
Microsoft Visual Basic Express
brauchen anzeigen Weitere Anweisungen
1
Starten Sie Microsoft Office Excel und geben Sie den folgenden :
< p> In "A1 ", Typ "Country"
"A2 ", Typ "Mexico"
"A3 ", Typ " Canada"
" A4 , "type" Brazil "
" B1 ", Typ" Preis /Min "
" B2 " Typ" 2.5 "
" B3 ", Typ " 5,5"
" B4 ", Typ " 4.2"
2
Drücken Sie "Strg " und " S" , um das Dialogfenster "Speichern unter" zu öffnen. Wählen Sie " C: \\" neben " Speichern in. " Weiter zu " Dateiname ", Typ " longDistanceCharges " und wählen Sie " CSV (MS -DOS ) (*. Csv) " neben " als Dateityp . " Klicken Sie auf " Speichern".
3
Start " Microsoft Visual Basic Express ", wählen Sie das 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 " plus "Alt" plus " X ", um das Fenster " Toolbox ". Klicken Sie doppelt auf "Button " unter " Common Controls ", um eine neue Schaltfläche hinzufügen " Form1. " Doppelklicken Sie auf " Text Box ", um ein neues Textfeld zu Ihrem Formular hinzuzufügen.
5
Klicken Sie auf " Projekt" und wählen Sie "Add Reference." Klicken Sie auf " COM ", wählen Sie "Microsoft Excel (Versionsnummer) Object Library" und klicken Sie auf "OK".
6
Doppelklicken Sie auf " Button1 ", um die " Form1.vb "-Modul zu öffnen. Drücken Sie "Strg" plus " A ", dann " Löschen", um alle bestehenden Code zu entfernen
7
Kopieren Sie den folgenden Code auf Ihrer " Form1.vb "-Modul : .
Imports Excel = Microsoft.Office.Interop.Excel
private Sub Button1_Click (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
Dim xlApp Wie Excel.Application
Dim xlwkbook Wie Excel.Workbook
Dim XLWkSheet Wie Excel.Worksheet
Dim Land (10 ) As String Dim
Preise (10) As Double
Dim ratesStr As String
Dim min As Integer Dim
TotalAmount As Double
min = Me.TextBox1.Text
xlApp = Neue Microsoft.Office.Interop.Excel.Application
xlwkbook = XLApp.Workbooks.Open ( "C: \\ longDistanceCharges.csv " )
XLWkSheet = XLWkBook.Worksheets ( " longDistanceCharges " )
Land (1) = XLWkSheet.Cells (2 , 1). Wert
Land (2) = XLWkSheet.Cells (3 , 1). Wert
Land ( 3) = XLWkSheet.Cells (4 , 1). Wert
ratesStr = XLWkSheet.Cells (1, 2). Wert
Preise (5) = XLWkSheet.Cells (2, 2 ) . Wert
Preise (6) = XLWkSheet.Cells (3, 2). Wert
Preise (7) = XLWkSheet.Cells (4, 2). Wert
TotalAmount = min * Preise (5)
MsgBox (" Gesamtkosten für" & country (1) & ": $ " & TotalAmount )
TotalAmount = min * Preise (6)
MsgBox (" Gesamtkosten für" & country (2) & ": $ " & TotalAmount )
TotalAmount = min * Preise (7)
MsgBox (" Gesamtkosten für " Land & (3) & ": $ " & TotalAmount )
XLWkBook.Close ()
xlApp.Quit ()
End Sub
End Class
der Code berechnet Telefongebühren auf die Werte in der CSV- Datei, die Sie erstellt wurden. Die Ergebnisse für die einzelnen Länder wird durch eine Message-Box angezeigt werden.
8
Presse "F5" um das Programm auszuführen , geben Sie dann die Anzahl der Minuten in das Textfeld ein. Klicken Sie auf " Button1 ", um die Ergebnisse mit dem CSV-Datei berechnen.
