Buenas noches.
Estoy realizando una aplicación en VB.NET 2010 EXPRESS
Agradeceré su ayuda para lo siguiente:
Tengo una Datagridview1, el cual se carga con datos procedentes de una hoja de Excel.
Los datos enviados se almacenan en dos columnas (MD Y TVD) del Datagridview con los características siguientes:
A B C
MD TVD DESV
0 0 0
1 30.48 30.48 .....DESV1
2 60.96 60.96......DESV2
3 91.44 91.44......DESV3
4 121.92 121.92
5 152.4 152.4
6 182.88 182.88
7 213.36 213.36
8 243.84 243.84
9 274.32 274.32
10 304.8 304.8
11 335.28 335.28
12 365.76 365.76
13 396.24 396.24
14 426.72 426.72
15 457.2 457.2
16 487.68 487.68
17 1066.8 1066.75
18 1097.28 1097.23
19 1114 1113.95
20 1118 1117.95
21 1123 1122.95
22 1132.3 1132.23
23 1141.5 1141.4
24 1150.3 1150.16 .... DESV 24
CON LOS DATOS ANTERIORES REQUIERO PUEDAN AYUDARME CON ALGÚN CODIGO EN VB.NET PARA PODER EVALUAR LOS VALORES ANTERIORES
EN LA SIGUIENTE FUNCIÓN:
DESV = COS ((A1-A0)/(B1-B0))/3.1416*180
PARA PODER DAR UNA MEJOR DESCRIPCION DE LA FUNCIÓN QUE REUQIERO EVALUAR los numeros del 0---24, representan las filas.
A Y B LAS COLUMNAS COMO EN EXCEL. ENTONCES LA FUNCIÓN SERIA.
DESV = COS ((A1-A0)/(B1-B0))/3.1416*180
OSEA COS ((30.48-0)/(30.48-0)/3.1416*180
((A2-A1)/(B2-B1))/3.1416*180
((60.96-30.48)/(60.96-30.48))/3.1416*180
((A3-A1)/(B3-B1))/3.1416*180
. .´ .
. . .
ETC...
DONDE
D.ONDE COS= FUNCION TRINOMETRICA
LOS VALORES CALCULADOS POR CADA FILA O CELDA DEBEN SER PUESTO EN LA COLUMNA "DESV"
COMO SE MUESTRA ARRIBA
EL CODIGO CON EL QUE CARGO DATOS DE EXCEL AL DATAGRIDVIEW ES EL SIGUIENTE.
Option Explicit On
Imports System.Data.OleDb
Public Class Fohijo1
Dim dt As New DataTable
Private Sub Fohijo1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
Private Sub ButtonFohijo1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFohijo1.Click
Dim openFD As New OpenFileDialog()
With openFD
.Title = "Seleccionar archivos"
.Filter = "Archivos Excel(*.xls;*.xlsx)|*.xls;*.xlsx|Todos los archivos (*.*)|*.*"
.Multiselect = False
.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
If .ShowDialog = Windows.Forms.DialogResult.OK Then
TextPathExcel.Text = .FileName
End If
End With
End Sub
Private Sub ButtonFohijo1a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFohijo1a.Click
Try
Dim stConexion As String
stConexion = ("Provider=Microsoft.ACE.OLEDB.12.0;" & ("Data Source=" & (TextPathExcel.Text & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2"";")))
Dim cnConex As New OleDbConnection(stConexion)
Dim Cmd As New OleDbCommand("Select * from [" & TextHoja.Text & "$]")
Dim Ds As New DataSet
Dim Da As New OleDbDataAdapter
Dim Dt As New DataTable
cnConex.Open()
Cmd.Connection = cnConex
Da.SelectCommand = Cmd
Da.Fill(Ds)
Dt = Ds.Tables(0)
DataGridView1.DataSource = Dt
cnConex.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
Private Sub ButtonFohijo1b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFohijo1b.Click
With DataGridView1
.DataSource = Nothing
End With
End Sub
End Class
