ByteScout Barcode Suite - VB.NET - Add stock chart with spreadsheet sdk - ByteScout

ByteScout Barcode Suite – VB.NET – Add stock chart with spreadsheet sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Suite – VB.NET – Add stock chart with spreadsheet sdk

How to add stock chart with spreadsheet sdk in VB.NET with ByteScout Barcode Suite

Continuous learning is a crucial part of computer science and this tutorial shows how to add stock chart with spreadsheet sdk in VB.NET

Add stock chart with spreadsheet sdk is simple to apply in VB.NET if you use these source codes below. ByteScout Barcode Suite can add stock chart with spreadsheet sdk. It can be applied from VB.NET. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Barcode Suite. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Complete and detailed tutorials and documentation are available along with installed ByteScout Barcode Suite if you’d like to learn more about the topic and the details of the API.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

On-demand (REST Web API) version:
 Web API (on-demand version)

On-premise offline SDK for Windows:
 60 Day Free Trial (on-premise)

Module1.vb
      
Imports Bytescout.Spreadsheet Imports Bytescout.Spreadsheet.Charts Module Module1 Sub Main() ' Create new Spreadsheet object Dim spreadsheet As New Spreadsheet() spreadsheet.RegistrationName = "demo" spreadsheet.RegistrationKey = "demo" ' Add new worksheet Dim sheet As Worksheet = spreadsheet.Workbook.Worksheets.Add("Sample") ' Add few random numbers For i As Integer = 1 To 5 sheet(i, 0).Value = 39082 + i sheet(i, 0).ValueDataTypeByNumberFormatString = Bytescout.Spreadsheet.Constants.NumberFormatType.DateTime Next sheet(1, 1).Value = 41301 sheet(1, 2).Value = 24.3 sheet(1, 3).Value = 27.2 sheet(1, 4).Value = 23.49 sheet(1, 5).Value = 25.45 sheet(2, 1).Value = 35203 sheet(2, 2).Value = 25.4 sheet(2, 3).Value = 25.03 sheet(2, 4).Value = 19.55 sheet(2, 5).Value = 23.05 sheet(3, 1).Value = 27908 sheet(3, 2).Value = 23 sheet(3, 3).Value = 19.05 sheet(3, 4).Value = 15.12 sheet(3, 5).Value = 17.32 sheet(4, 1).Value = 29567 sheet(4, 2).Value = 17.3 sheet(4, 3).Value = 20.33 sheet(4, 4).Value = 17.84 sheet(4, 5).Value = 20.45 sheet(5, 1).Value = 25895 sheet(5, 2).Value = 20.4 sheet(5, 3).Value = 18.56 sheet(5, 4).Value = 16.33 sheet(5, 5).Value = 17.35 ' Add charts to worksheet Dim stockChart As Chart = sheet.Charts.AddChartAndFitInto(7, 1, 26, 9, ChartType.StockHLC) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 3, 5, 3))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 4, 5, 4))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 5, 5, 5))) stockChart = sheet.Charts.AddChartAndFitInto(7, 10, 26, 18, ChartType.StockOHLC) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 2, 5, 2))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 3, 5, 3))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 4, 5, 4))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 5, 5, 5))) stockChart = sheet.Charts.AddChartAndFitInto(28, 1, 46, 9, ChartType.StockVHLC) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 1, 5, 1))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 3, 5, 3))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 4, 5, 4))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 5, 5, 5))) stockChart = sheet.Charts.AddChartAndFitInto(28, 10, 46, 18, ChartType.StockVOHLC) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 1, 5, 1))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 2, 5, 2))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 3, 5, 3))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 4, 5, 4))) stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 5, 5, 5))) ' Save it as XLS spreadsheet.SaveAs("Output.xls") ' Close the document spreadsheet.Close() ' Cleanup spreadsheet.Dispose() ' Open generated XLS file in default associated application Process.Start("Output.xls") End Sub End Module

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next