Ako vypočítať diaľkové telefónne poplatky z CSV súboru

Vedieť , ako ukladať informácie v charaktere oddelené hodnoty ( CSV ​​) súboru a použiť ho pre výpočet medzimestské telefónne poplatky za pomocou jazyka Visual Basic.NET vám môže ušetriť čas . CSV súbor možno vytvoriť pomocou aplikácie Microsoft Office Excel . Excel je tabuľkový bežne používa na ukladanie a analyzovať veľké množstvo dát . VB.NET je počítačový programovací jazyk používaný pre vývoj aplikácií Windows . VB.NET je pomerne ľahké sa naučiť a používať . Veci , ktoré budete potrebovať v Microsoft Office Excel v Microsoft Visual Basic Express
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Excel a zadajte nasledujúci príkaz :

V " A1 " typ " Krajina "

" A2 " , typ " Mexiko "

" A3 " , typ " Kanada "

" A4 , " typ " Brazília "

" B1 " typ " Cena /Min "

" B2 , " typ " , 2,5 "

" B3 " , typ " 5.5 "

" B4 , " typ " , 4.2 "
2

Stlačte tlačidlo " Ctrl " a " S " otvoriť " Uložiť ako " v dialógovom okne . Vyberte " C : \\ " vedľa " Save in " Vedľa " File Name " zadajte " longDistanceCharges " a vyberte položku " CSV ( MS - DOS ) ( * . CSV ) " vedľa " Uložiť ako typ . " Kliknite na tlačidlo " Uložiť " .
3

Štart " Microsoft Visual Basic Express " , vyberte menu " Súbor " a kliknite na tlačidlo " Nový projekt " . Kliknite na "Windows Forms " v " Inštalované šablóny Visual Studia " a vyberte možnosť " OK " .
4

Stlačte tlačidlo " Ctrl " plus " Alt " plus " X " otvorte " Nástroje " . Double - kliknite na " tlačítko " pod " Common Controls " pridať nové tlačidlo " Form1 . " Double - kliknite na " Textové pole " pridať nové textové pole do formulára .
5

Kliknite na " projekt " a zvoľte " Pridať odkaz . " Kliknite na " COM " vyberte " Microsoft Excel ( číslo verzie ) Object Library " a kliknite na " OK " .
6

Double - kliknite na " Button1 " otvorte modul " Form1.vb " . Stlačte tlačidlo " Ctrl " a " , " potom " Delete " odstrániť všetky existujúce kód
7

Skopírujte a vložte nasledujúci kód do vášho modulu " Form1.vb " : .

dovoz Excel = Microsoft.Office.Interop.Excel

Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.Click klipart

Dim oExcel As Excel.Application

Dim XLWkBook Ako Excel.Workbook

Dim XLWkSheet Ako Excel.Worksheet

Dim krajiny ( 10 ) As String Dim

ceny ( 10 ) Double

Dim ratesStr As String Dim

min As Integer

Dim castkaCelkem As Double

min = Me.TextBox1.Text

oExcel = Nové Microsoft.Office.Interop.Excel.Application

XLWkBook = XLApp.Workbooks.Open ( " C : \\ longDistanceCharges.csv " )

XLWkSheet = XLWkBook.Worksheets ( " longDistanceCharges " )

krajiny ( 1 ) = XLWkSheet.Cells ( 2 , 1 ) . hodnota

krajiny ( 2 ) = XLWkSheet.Cells ( 3 , 1 ) . hodnota

krajine ( 3 ) = XLWkSheet.Cells ( 4 , 1 ) . hodnota

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

ceny ( 5 ) = XLWkSheet.Cells ( 2 , 2 ) . hodnota

sadzieb ( 6 ) = XLWkSheet.Cells ( 3 , 2 ) . hodnota

sadzieb ( 7 ) = XLWkSheet.Cells ( 4 , 2 ) . hodnota

castkaCelkem = min * ceny ( 5 )

MsgBox ( " Celkové náklady na " & krajiny ( 1 ) & " : $ " & castkaCelkem )

castkaCelkem = min * ceny ( 6 )

MsgBox ( " Celkové náklady na " & Country ( 2 ) & " : $ " & castkaCelkem )

castkaCelkem = min * ceny ( 7 )

MsgBox ( " Celkové náklady na " & country ( 3 ) & " : $ " & castkaCelkem )

XLWkBook.Close ( )

XLApp.Quit ( )

End Sub

end Class

kód bude počítať poplatky za telefónne spojenie na základe hodnôt v súbore CSV , ktorý ste vytvorili . Výsledky pre každú krajinu budú zobrazené prostredníctvom okne so správou .
8

Stlačte " F5 " spustiť program , potom zadajte počet minút v textovom poli . Kliknite na " Button1 " na výpočet výsledkov pomocou súboru CSV .

• Predchádzajúca strana: Ako odstraňovať VBA sa prázdna stránka 
• Ďalšia strana: Ako načítať certifikát z úložiska kľúčov Windows pomocou jazyka Visual Basic