|
Savoir comment stocker des informations dans un personnage valeurs séparées (CSV) de fichiers et l'utiliser pour calculer les frais de téléphone longue distance à l'aide de Visual Basic.NET peut vous faire gagner du temps . Un fichier CSV peut être créé en utilisant Microsoft Office Excel. Excel est un tableur communément utilisé pour stocker et analyser de grandes quantités de données. VB.NET est un langage de programmation informatique utilisé pour développer des applications Windows. VB.NET est relativement facile à apprendre et à utiliser . Choses que vous devez
Microsoft Office Excel
Microsoft Visual Basic Express
Voir Plus Instructions
1 Démarrer Microsoft Office Excel et tapez la commande suivante :
< p> Dans " A1 ", tapez " Pays "
"A2 ", tapez " Mexico"
" A3 ", tapez " Canada "
"A4 , du type "type" Brésil "
de " B1 ", tapez" Taux /Min "
" B2 ", tapez" 2.5 "
" B3 " "5.5"
"B4 ," type " 4.2"
2 Appuyez sur "Ctrl " et " S " pour ouvrir la "Enregistrer sous" boîte de dialogue. Sélectionnez " C: \\" à côté de "Enregistrer po" À côté de "Nom de fichier ", " longDistanceCharges " Type et sélectionnez " CSV (MS -DOS ) (*. Csv) " à côté de "Save as type ". Cliquez sur " Enregistrer".
3 Start " Microsoft Visual Basic Express ", sélectionnez le menu "Fichier " et cliquer sur "Nouveau projet ". Cliquez sur "Application Windows Forms " sous "Studio modèles Visual installés» et sélectionnez «OK».
4 Appuyez sur "Ctrl " plus " Alt " plus " X " pour ouvrir la «boîte à outils ». Double- cliquez sur "Button " sous " Common Controls " pour ajouter un nouveau bouton " Form1 ". Double -cliquez sur " Text Box " pour ajouter une nouvelle zone de texte à votre formulaire.
Cliquez sur "Project" 5 et sélectionnez « Ajouter une référence. " Cliquez sur « COM », sélectionnez « Microsoft Excel ( numéro de version) de la bibliothèque d'objets " et cliquez sur "OK".
6 Double -cliquez sur " Button1 " pour ouvrir le "Form1.vb" module . Appuyez sur " Ctrl " plus " A ", puis " Supprimer " pour supprimer tout le code existant
7 Copiez et collez le code suivant dans votre " Form1.vb " module: .
importations Excel = Microsoft.Office.Interop.Excel
Private Sub Button1_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
xlApp As Excel.Application Photos xlwkbook As Excel.Workbook
XLWkSheet As Excel.Worksheet
pays Dim ( 10) comme corde
taux Dim (10) As Double Photos ratesStr Dim As String
Dim min As Integer
TotalAmount As Double
min = Me.TextBox1.Text
xlApp = Nouveau Microsoft.Office.Interop.Excel.Application
xlwkbook = XLApp.Workbooks.Open ("C: \\ longDistanceCharges.csv " )
XLWkSheet = XLWkBook.Worksheets ( " longDistanceCharges " )
pays (1) = XLWkSheet.Cells (2, 1). valeur
pays (2) = XLWkSheet.Cells (3, 1) Valeur
pays ( . 3) = XLWkSheet.Cells (4, 1). valeur
ratesStr = XLWkSheet.Cells ( 1, 2) valeur.
taux de (5) = XLWkSheet.Cells (2, 2 ) . valeur
taux de (6) = XLWkSheet.Cells (3, 2). valeur
taux de (7) = XLWkSheet.Cells (4, 2) la valeur
. TotalAmount = min * Les taux (5)
MsgBox ( " Le coût total de " & country (1 ) & " $ " & TotalAmount )
TotalAmount = min * Les taux (6) < br > MsgBox (" Le coût total de " & country (2 ) & " $ " & TotalAmount )
TotalAmount = min * Les taux (7)
MsgBox ( " Le coût total de « & country (3 ) &" $ "& TotalAmount )
XLWkBook.Close ()
xlApp.Quit ()
End Sub
End Class
le code va calculer les frais de téléphone basé sur les valeurs dans le fichier CSV que vous avez créé . Les résultats pour chaque pays seront affichés dans une boîte de message .
8 Appuyez sur " F5" pour exécuter votre programme , puis entrez le nombre de minutes dans la zone de texte . Cliquez sur " Button1" pour calculer les résultats en utilisant le fichier CSV.
|
