|
102
|
Programación / Programación Visual Basic / Re: como me conecto a una base de datos con Basic 6??
|
en: 13 Noviembre 2005, 00:05 am
|
Es mas recomendable usar el componente ADODC, hay que tener en claro la diferencia entre el componente ADODC y el control ADODC. Trabajar con el componentes es obtener un sistema con una buena performance y una programación más potente y no tan limitada. Bueno aunque se dice que la bueno programación no depende del lenguaje que se use o de las cosas que permite el lenguaje si no las sabes usar, en conclusion depende del programador.
Esto sólo es una sugerencia.
salu2
|
|
|
104
|
Programación / Programación Visual Basic / Re: Tree View
|
en: 12 Noviembre 2005, 02:31 am
|
Public Sub CambiaEstado(ByRef ObjTree As TreeView, Optional Ocupado As Boolean) On Error Resume Next Dim TmpNodo As Node
Set TmpNodo = ObjTree.SelectedItem
If Ocupado = True Then ObjTree.Nodes.Add "O", tvwChild, "O" + Str(NRO_O), TmpNodo.Text NRO_O = NRO_O + 1 ObjTree.Nodes.Remove (TmpNodo.Index) NRO_L = NRO_L - 1 ElseIf Ocupado = False Then ObjTree.Nodes.Add "L", tvwChild, "L" + Str(NRO_L), TmpNodo.Text NRO_L = NRO_L + 1 ObjTree.Nodes.Remove (TmpNodo.Index) End If
End Sub
|
|
|
105
|
Programación / Programación Visual Basic / Re: nueva ventana
|
en: 12 Noviembre 2005, 02:25 am
|
...Bien suponiendo que tienes una ventana con el formulario form1 con el caption 'ventana 1' y quieres generar otra, primero te creas una variable contadora enumerar tus ventanas por ejemplo: public cont as integer
private sub command1_click() dim objFrm as new form1 objfrm.caption = "ventana "+str(cont) objfrm.show cont=cont+1 end sub salu2
|
|
|
106
|
Programación / Programación Visual Basic / Re: ¿Como restas 02 horas ?
|
en: 12 Noviembre 2005, 02:20 am
|
..Bien no se si es lo que este buscando pero éste codigo lo emplee al controlar un reloj. Private Hora As String Private Minuto As String Private Segundo As String Private mvarTiempo As String Public Event TiempoAgotado()
Public Property Let Tiempo(ByVal vData As String) mvarTiempo = vData End Property Public Property Get Tiempo() As String Tiempo = mvarTiempo End Property
Public Sub DesglosaTiempo(Horex As String) Hora = "" Minuto = "" Segundo = "" For I = 1 To Len(Horex)
If Mid$(Horex, I, 1) = ":" Then For j = I + 1 To Len(Horex) If Mid$(Horex, j, 1) = ":" Then For h = j + 1 To Len(Horex) Segundo = Segundo + Mid$(Horex, h, 1) If h = Len(Horex) Then Exit Sub Next Else Minuto = Minuto + Mid$(Horex, j, 1) End If Next Else Hora = Hora + Mid$(Horex, I, 1) End If Next '(Format(Me.DTPicker2, "hh:mm:ss AMPM")) 'Me.CommonDialog1.ShowColor End Sub
Public Function StarTiempo(Aumento As Boolean) As String Call DesglosaTiempo(Tiempo) If Aumento = True Then ' es decir si va en aumento
ElseIf Aumento = False Then 'aca para empezar el reloj del cliente
If Val(Segundo) = 0 Then Segundo = 59 If Minuto = 0 Then Minuto = 59 If Hora >= 0 Then Hora = Val(Hora) - 1 End If Else Minuto = Val(Minuto) - 1 End If Else Segundo = Val(Segundo) - 1 End If If Val(Hora) = 0 And Val(Minuto) = 0 And Val(Segundo) = 0 Then RaiseEvent TiempoAgotado End If If Len(Hora) = 1 Then Hora = "0" + Trim$(Hora) If Len(Minuto) = 1 Then Minuto = "0" + Trim$(Minuto) If Len(Segundo) = 1 Then Segundo = "0" + Trim$(Segundo) StarTiempo = Trim$(Hora) + ":" + Trim(Minuto) + ":" + Trim(Segundo) End If End Function
Public Function ObtieneFinTiempo(Inicio As String, t_Tiempo As String) As String Dim HInicio As String, HTiempo As String, HFin As String, Minicio As String, Mtiempo As String, Mfin As String Call Me.DesglosaTiempo(Inicio) HInicio = Hora Minicio = Minuto Call Me.DesglosaTiempo(t_Tiempo) HTiempo = Hora Mtiempo = Minuto
HFin = Str(Val(HInicio) + Val(HTiempo)) Mfin = Str(Val(Minicio) + Val(Mtiempo))
While Val(Mfin) > 59 If Val(Mfin) > 59 Then Mfin = Str(Val(Mfin) - 59) HFin = Str(Val(HFin) + 1) End If Wend
ObtieneFinTiempo = Trim(HFin) + ":" + Trim(Mfin) + ":00" End Function
|
|
|
109
|
Programación / Programación Visual Basic / Re: Por que no VB?
|
en: 18 Octubre 2005, 02:36 am
|
Bueno como dijeron anteriormente VB es un lenguaje de alto nivel,, pero la gran ventaja es que nos da acceso a la api de windows,, en realidad yo conozco muy buenos programas creados en VB ...Y sobre los examenes de Microsoft,, es una táctica para ganar adeptos y copar a la gente de .NET, con éste comentario no quiero hacer pensar que la tecnología .NET es mala, no al contrario,, y sobre las estrellas de MIcrosfot como dije son tácticas de publicidad, aunque sirven también para obtener más conocimientos,, con los cursos online, manuales y los famosos 'Webcast', salu2 www.foroschl.tk
|
|
|
|
|
|
|