|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - noVBice .NET
Páginas: [1]
1
« en: Viernes 4 de Abril de 2008, 16:40 »
Buenas a todos
Por favor si alguien me ayudara con esto:
Private Sub Button1_click...
OleDbDataAdapter1.Fill(DataSet1)
Ens Sub
me sale mensaje de "exception":
Fill: SelectCommand.Connection propertyhas no been initialized.
Gracias
2
« en: Martes 25 de Marzo de 2008, 02:22 »
Que tal todos, queria pedirle un favor
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim file As String = "test.csv"
Dim path As String = Application.StartupPath & "\"
Dim ds As New DataSet
Try
If IO.File.Exists(path & file) Then
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
path & ";Extended Properties=""Text;HDR=Yes;FMT=Delimited\"""
Dim conn As New OleDb.OleDbConnection(ConStr)
Dim da As New OleDb.OleDbDataAdapter("Select * from " & _
file, conn)
da.Fill(ds, "TextFile")
DataGridView1.DataSource = ds.Tables(0)
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Con el codigo anterior puedo traer los datos en una hoja de texto solo que separado por comas como un CSV
Pero en realidad mi objetivo
es poder tener el formulario con
1 caja de texto
1 caja de listview y
1 boton
Ejemplo:
Cuando escribo CR12168250 en textbox1
me salga listview:
de la siguiente manera que centre CG12168250 y la descripcion en la siguiente linea
CG12168250
Cuarto de 6x8 metros por 2.50 metros de altura en los cielorasos...
gracias
3
« en: Viernes 14 de Marzo de 2008, 22:16 »
Hola, apenas estoy iniciando con la programación en visual net, mi problema es que no he podido lograr que el botón para limpiar el formulario y se reinicie correctamente el programa, funcione. Les pido su ayuda, porfavor
Public Class Form1
Dim hombre As String
Dim mujer As String
Dim pasado As String
Dim ninio As String
Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
End
End Sub
Private Sub CalcularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calcular.Click
If RadioButton1.Checked = True Then
hombre = (Val(TextBox1.Text) * 100)
mujer = hombre - 100
ninio = mujer * 0.9
Label3.Text = ninio & "kg"
If Val(TextBox2.Text) > Val(Label3.Text) Then
pasado = Val(TextBox2.Text) - Val(Label3.Text)
TextBox3.Text = "Su peso esta pasado por " & pasado & "Kg"
ElseIf Val(TextBox2.Text) = Val(Label3.Text) Then
TextBox3.Text = "Felicidades su peso es el ideal"
Else
pasado = Val(Label3.Text) - Val(TextBox2.Text)
TextBox3.Text = "Le faltan: " & pasado & "Kg"
End If
End If
If RadioButton2.Checked = True Then
hombre = (Val(TextBox1.Text) * 100)
mujer = hombre - 100
ninio = mujer * 0.85
Label3.Text = ninio & "kg"
If Val(TextBox2.Text) > Val(Label3.Text) Then
pasado = Val(TextBox2.Text) - Val(Label3.Text)
TextBox3.Text = "Su peso esta pasado por " & pasado & "Kg"
ElseIf Val(TextBox2.Text) = Val(Label3.Text) Then
TextBox3.Text = "Felicidades su peso es el ideal"
Else
pasado = Val(Label3.Text) - Val(TextBox2.Text)
TextBox3.Text = "Le faltan: " & pasado & "Kg"
End If
End If
Calcular.Enabled = False
End Sub
Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter
If RadioButton1.Checked = False And RadioButton2.Checked = False Then
Calcular.Enabled = False
GroupBox3.Enabled = False
End If
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
NCalculo.Enabled = True
GroupBox2.Enabled = False
GroupBox3.Enabled = True
Calcular.Enabled = False
TextBox1.Focus()
End If
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
NCalculo.Enabled = True
GroupBox2.Enabled = False
GroupBox3.Enabled = True
Calcular.Enabled = False
TextBox1.Focus()
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
If TextBox1.Text = "" Then
MsgBox("no capturo nada", MsgBoxStyle.Critical, "E r r o r")
ElseIf Not IsNumeric(TextBox1.Text) Then
MsgBox("Capture estatura en metros", MsgBoxStyle.Critical, "E r r o r")
TextBox1.Text = ""
ElseIf Val(TextBox1.Text) > 2.3 Then
MsgBox("Ha superado el limite permitido", MsgBoxStyle.Critical, "E r r o r")
TextBox1.Text = ""
TextBox1.Focus()
ElseIf IsNumeric(TextBox1.Text) Then
TextBox1.Enabled = False
TextBox1.Text = TextBox1.Text & "m"
TextBox2.Enabled = True
TextBox2.Focus()
End If
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Enabled = False
TextBox2.Text = TextBox2.Text & "Kg"
Calcular.Enabled = True
End If
End Sub
Private Sub AcercaDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub NCalculo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NCalculo.Click
End Sub
End Class Que tal Baliam? Estuve analizando tu progrma y no le veo funcion especifica al GroupBox2 y GroupBox3. Otro es que de acuerdo a tu aplicacion no se si quieras usar "visbilbe" en vez de analbed? Ej.: GroupBox2.Visible = True ' o "False" suerte
4
« en: Domingo 9 de Marzo de 2008, 03:16 »
No entendi lo que quisite decir con los CONTROL
el codigo que puso widark
funciona para todo tipo de cadena asi esta contenga mas de 11 letras
pero si tu quires que todas tengan el mismo tamaño trabaja con el .size del textbox y setealo a 11 puntos
saludos Bueno como veras el alias que uso lo dice todo noVBice, novato aprendiz, por lo tanto quizas cuando hable del Control, de pronto me refiere en forma impropia: formulario1 + un boton y 11 textBox Al usar el codigo aca en mencion, si me da las letras en unos textboxes que yo le ???llamo??? control? pero ignora los los que yo puse en el formulario por lo que deduzco es que los que yo puse sobran, lo veo como una manera avanzada del diseno, pero aun no manejo tan bien el VB, me toca jugar un poco mas con esto e ir acomodando el codigo para que me de el efecto que yo deseo, por el tamno y posicion eso si lo manejo bien gracias y suerte
5
« en: Sábado 8 de Marzo de 2008, 18:10 »
Hola nobvice
el codigo de widark lo que hace es poner cada letra en un textbox si no me equivoco asi se repitan las letras estas iran a un texbox
tal ves si se agregara un hashtable para contener los chars
y compararlos cada ves que se ejecute el for principal asi si la letra se repite solo se modificara el value del hashtable evitando repeticion de letras.
espero que te sirva  Que tal Blizknight? Efectivamente ya trate lo del hashtable y funciona. Lo que me ha estado dando duro es el figurar de como usar los "textBox" (11) que ya tengo dentro del formulario para que cada letra(s) respectivamente quede alli, en vez de usar "CONTROL" gracias
6
« en: Sábado 8 de Marzo de 2008, 01:04 »
No te preocupes, todos pasamos por eso, igual estamos aqui para colaborar. Espero que te funcione. Si el codigo que me mandaste da un efecto, con los controles y he tratado de acomodarlo para que tome el rumbo adecuado de que cada letra vaya a su respectivo textbox, pero aun no doy... gracias
7
« en: Viernes 7 de Marzo de 2008, 15:34 »
Que tal noVBice .Net!
Bueno, el ejemplo no es nada del otro mundo:
If TextBox1.Text.Trim.Length > 0 Then Dim iLetras As Integer = 0 Dim Pos1 As Integer = 48 Dim Pos2 As Integer = 64 Dim NombrePartido As Char() = TextBox1.Text.ToCharArray() For iLetras = 0 To NombrePartido.Length - 1 Dim txt As New TextBox txt.Name = "texto" + iLetras.ToString txt.Text = NombrePartido(iLetras) txt.Location = New Point(Pos1, Pos2) Me.Controls.Add(txt) Pos2 += 30 Next End If
ya veremos como me va con esto, pues algo parecido y muchas cosas mas MAS RISA si vieras los formulario que he comenzado y las lineas y lineas de codigos, soy de pensar igual siempre trato personalmente y cuando tengo atrancones es que acudo a solicitar ayuda gracias
8
« en: Viernes 7 de Marzo de 2008, 06:19 »
puedes aplicar un for en toda la cadena algo asi
con esto ya tienes un buen comienzo.
el split como ya dijeron solo te servira si tienes un delimitador
ejemplo = "pepito-el-pregunton"
si tu cadena esta separada por delimitadores como '-' podras hacer un split
pero viendo lo que quieres no te servira pues tu quires comparacion de cada caracter.
saludos
for i as integer to cadena.length
// aca va la logica, debes utizar >> cadena.chars(i)
next i Gracias por tu indicaciones, pero veras que no puedo llegar tan lejos, tengo limitaciones por ser principiante, si pudiera ver un codigo mas concreto como ejemplo, primero para tratar de aplicarlo y asi practicar y aprender gracias
9
« en: Miércoles 5 de Marzo de 2008, 22:39 »
Hola noVBice .NET!
El split solo te sirve si tienes un delimitador por el cual partira la cadena, pero en este caso no lo tienes. ^
Debes recorrer el largo de la cadena que digiten, tambien te ayudara para que cargue los textos exactos. Espero que te de alguna idea. De verdad que como novato me quede en las mismas, podrias darme un ejemplo en codigo...
10
« en: Miércoles 5 de Marzo de 2008, 17:38 »
Necesito ayuda con algo muy sencillo, para mi por el momento no lo es, pero se que para los expertos si.
he disenado una tabla didactica con el abecedario para ninos en aprendizaje, en la que el nino escribe su nombre y apellido, por ejemplo PEPITO PREGUNTON:
formulario1, con 12 cajas de texto y un boton
en la caja1, se escribe PEPITO PREGUNTON
se oprime el boton entonces debe de hacer un "split" y ubicar cada una de las letras de PEPITO PREGUNTON en la caja correspondiente a cada letra:
por decir:
en la caja5 deben de aparecer 3 PPP
en la caja2 deben de aparecer 2 EE
.
.
.
y asi sucesivamente, he tratado varios codigos de lo que he ido aprendiendo pero no logro resultados, si alguien me pudiera orientar o darme una pista o ejemplo para ir desglosando esta inquietud, pues no soy EXPERTO, solo llevo poco tiempo y crei que con esta idea podia darle soltura a lo que he aprendido...
lo que he encontrado acerca de "split" es como tomar palabras de un texto y hacerles el "split", he tomado como ejemplo y no he podido acoplarlo a mi trabajo
gracias de antemano
noVBice .NET
Páginas: [1]
|
|
|
Mostrar Mensajes
