Mensajes

Tiemblo cada ves que veo que Elektro me responde jejejej,bueno aca va

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim maximum As Short = 99
   Dim x As Integer = 0
   Dim Número As Double
   Private TextBoxes As TextBox() = {Nothing}
   Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32(), Result4 As Int32()
   Private _textBox As Object

   Private Property Calcular As Object

   Private Property TextBox(ByVal TextBoxCount As Short) As Object
       Get
           Return _textBox
       End Get
       Set(ByVal value As Object)
           _textBox = value
       End Set
   End Property
   ' trial-----------------------------

   Private Shadows Sub Load() Handles MyBase.Load
       My.Settings.contador += 1
       checar()
   End Sub

   Sub checar()

       If My.Settings.contador >= 2500 Then
           MsgBox("Por motivos de seguridad este programa no se activara hasta que me la gana jejeje")
           'Application.Exit()
       End If

   End Sub
   '---------------------
   Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
       ' evitar letras
       If Char.IsDigit(e.KeyChar) Then
           e.Handled = False
       ElseIf Char.IsControl(e.KeyChar) Then
           e.Handled = False
       ElseIf Char.IsSeparator(e.KeyChar) Then
           e.Handled = False
       Else
           e.Handled = True
       End If

   End Sub

   Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.ControlBox = False ' Elimino todos los controles del formulario
   End Sub
   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
   ReadOnly Property Num3 As Int32
       Get
           Return CInt(TextBox3.Text)
       End Get
   End Property
   ReadOnly Property Num4 As Int32
       Get
           Return CInt(TextBox4.Text)
       End Get
   End Property
   
   Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Button1.Click


       Dim TextBoxCount As Short = -1

       TextBoxes = {TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42}

       Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result4 = {Num4 + 10, Num4 + 20, Num4 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       

       Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3) : Array.Sort(Result4) : Array.Sort(Result5) : Array.Sort(Result6)  ' Ordeno los Items
       ' ----------------------------------------------------------------------------
       ' aca que no salgan repetidos en las lineas -------------------------------------
       ' Concateno todos los Arrays (esto es algo opcional, simplemente para hacerlo de una en este ejemplo)
       Dim Results As IEnumerable(Of Integer) =
           Result1.Concat(Result2).Concat(Result3).Concat(Result4)

       For X As Integer = 0 To Results.Count - 1



           TextBoxCount += 1

           Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any

               Case False ' El número no está repetido en ninguna "linea"
                   ' Así que colocamos el número en el Textbox
                   TextBox(TextBoxCount).Text = Convert.ToString(Results(X))

               Case True ' El número está repetido en alguna de las "lineas"
                   ' Así que haces lo que quieras con el Número/Textbox
                   MsgBox(Results(X))
                   TextBox(TextBoxCount).Text = -1.ToString

           End Select
       Next X
       ' -----------------------------------------------------------------------

       ' aca vamos con el rango

       For Each Number As Int32 In Result1
           TextBoxCount += 1
           TextBoxes(TextBoxCount).Text = Number
       Next
       ' -----------------------------------------
       For Each Number As Int32 In Result2
           TextBoxCount += 1
           TextBoxes(TextBoxCount).Text = Number
       Next
       ' -----------------------------------------
       For Each Number As Int32 In Result3

           TextBoxCount += 1

           If Not Number > maximum Then
               TextBoxes(TextBoxCount).Text = CStr(Number)
           Else
               TextBoxes(TextBoxCount).Text = CStr(maximum)
           End If

       Next Number
       ' -----------------------------------------
       For Each Number As Int32 In Result4

           TextBoxCount += 1

           If Not Number > maximum Then
               TextBoxes(TextBoxCount).Text = CStr(Number)
           Else
               TextBoxes(TextBoxCount).Text = CStr(maximum)
           End If

       Next Number
       ' -----------------------------------------
       
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub


   ' limpiar texboxes
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       For Each obj As Control In Me.Controls
           If (TypeOf obj Is TextBox) Then
               obj.Text = ""
           End If
           If (TypeOf obj Is GroupBox) Then
               For Each caja As Control In obj.Controls
                   If (TypeOf caja Is TextBox) Then
                       caja.Text = ""
                   End If
               Next
           End If
       Next
   End Sub

   Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
       ' solo numeros sin letras ni signos raros
       sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
   End Sub

   Private Sub TextBox8_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
       sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
   End Sub

   Private Sub TextBox9_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
       sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
   End Sub

   Private Sub TextBox25_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged, TextBox8.TextChanged, TextBox7.TextChanged, TextBox30.TextChanged, TextBox29.TextChanged, TextBox28.TextChanged, TextBox27.TextChanged, TextBox26.TextChanged, TextBox25.TextChanged, TextBox24.TextChanged, TextBox23.TextChanged, TextBox22.TextChanged, TextBox21.TextChanged, TextBox20.TextChanged, TextBox19.TextChanged, TextBox18.TextChanged, TextBox17.TextChanged, TextBox16.TextChanged, TextBox15.TextChanged, TextBox14.TextChanged, TextBox13.TextChanged, TextBox12.TextChanged, TextBox11.TextChanged, TextBox10.TextChanged
       sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
   End Sub

   Private Sub TextBox31_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox36.TextChanged, TextBox35.TextChanged, TextBox34.TextChanged, TextBox33.TextChanged, TextBox32.TextChanged, TextBox31.TextChanged
       sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
   End Sub

   Private Sub TextBox6_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress, TextBox3.KeyPress, TextBox2.KeyPress, TextBox1.KeyPress
       Button1.Enabled = ((TextBox1.TextLength > 0) And (TextBox2.TextLength > 0) And (TextBox3.TextLength > 0) And (TextBox4.TextLength > 0) ))
       solonumeros(e)
       If e.KeyChar = ChrW(Keys.Enter) Then
           e.Handled = True
           SendKeys.Send("{TAB}")

       End If


   End Sub
End Class]

Gracias Weeds

Hice lo que me pusiste y sigue todo igual como dije antes solo que ahora el error me lo da

Código [Seleccionar] Expandir

TextBox(TextBoxCount).Text = Convert.ToString(Results(X))

"""""" Variable de objeto o de bloque With no establecida.  ????????'


luis

Bueno despues de estar enredado con esto y que la pc me escupa ejjeje no se ya donde buscar pues el programa en el editor antes de ejecutarlo no me da error pero al ejecutarlo todo parece bien pero cuando hago la funcion BINGO

Message=No se puede implementar el método o la operación.


Lo puse de esta forma

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Dim MIN As Integer = 0
   Dim MAX As Integer = 99
   Dim x As Integer <---------NO SE SI ES A SI


   Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.ControlBox = False ' Elimino todos los controles del formulario
   End Sub



   Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
   Dim Sep As Object
   Dim texbox7 As Object
   Dim o As Object
   Private _val As Object
   Private _val1 As Integer
   Dim TextBox As TextBox()

   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
   ReadOnly Property Num3 As Int32
       Get
           Return CInt(TextBox3.Text)
       End Get
   End Property


Private Property KeyAscii As Integer

   Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
       Get
           Return _val
       End Get
       Set(ByVal value As Object)
           _val = value
       End Set
   End Property

   Private Property Val(ByVal p1 As Object) As Integer
       Get
           Return _val1
       End Get
       Set(ByVal value As Integer)
           _val1 = value
       End Set
   End Property

   Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Calcular.Click

       Dim TextBoxCount As Short = -1

       TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}

       Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items

--------------------------ACA LO PUSE
' Concateno todos los Arrays (esto es algo opcional, simplemente para hacerlo de una en este ejemplo)
       Dim Results As IEnumerable(Of Integer) =
           Result1.Concat(Result2).Concat(Result3)

       For X As Integer = 0 To Results.Count - 1

           TextBoxCount += 1

           Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any

               Case False ' El número no está repetido en ninguna "linea"
                   ' Así que colocamos el número en el Textbox
                   TextBox(TextBoxCount).Text = Convert.ToString(Results(X))

               Case True ' El número está repetido en alguna de las "lineas"
                   ' Así que haces lo que quieras con el Número/Textbox
                   MsgBox(Results(X))
                   TextBox(TextBoxCount).Text = -1.ToString

           End Select

       Next X


----------------------------------------------------------------------
       ' funcion
       For Each Number As Int32 In Result1
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result2
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result3
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

  Private Function TextBox(ByVal TextBoxCount As Short) As Object
       Throw New NotImplementedException <--ERROR-Message=No se puede implementar el método o la operación.
   End Function

End Class


Lo siento Elektro jejeje estoy tapao

Luis

Bien gracias a Elketro jejej que me da una buena mano a pesar que estoy injertado con visual y net. bueno a lo mejor y nace un lenguaje de programacion nuevo jejeje.

Bien como veran en el codigo en que los resultados van entrando en los texboxes segun se hagan los calculos y estan numerados consecutivamente y estos texbosex los muestro en el formu en lineas de 4 en cuatro.


Texboses mostrados de esta forma
1   2  3  4
5   6  7  8
9 10 11 12

Bien mi problema es que no quiero que se repitan números en las lineas ??? y como estos se van llenando segun el calculo o suma he probado a intercalar los texboxes pero menuda chapuza jejeje.

Bueno el codigo

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Dim MIN As Integer = 0
   Dim MAX As Integer = 99

   Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.ControlBox = False ' Elimino todos los controles del formulario
   End Sub



   Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
   Dim Sep As Object
   Dim texbox7 As Object
   Dim o As Object
   Private _val As Object
   Private _val1 As Integer
   Dim TextBox As TextBox()

   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
   ReadOnly Property Num3 As Int32
       Get
           Return CInt(TextBox3.Text)
       End Get
   End Property


Private Property KeyAscii As Integer

   Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
       Get
           Return _val
       End Get
       Set(ByVal value As Object)
           _val = value
       End Set
   End Property

   Private Property Val(ByVal p1 As Object) As Integer
       Get
           Return _val1
       End Get
       Set(ByVal value As Integer)
           _val1 = value
       End Set
   End Property

   Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Calcular.Click

       Dim TextBoxCount As Short = -1

       TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}

       Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items

       ' funcion
       For Each Number As Int32 In Result1
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result2
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result3
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next


End Class


Luis

Por ese motivo te he dejado una url junto a una cita donde explica como usar las user settings, en la página de las propiedades del proyecto, hay una pestaña que se llama "Settings", para crear settings.



Si creas una Setting llamada "Contador", pues luego puedes acceder a ella de la manera que te he mostrado:

Código [Seleccionar] Expandir

My.Settings.Contador]M = X

Saludos!

Ufff ahora cree el Settings.Contador en propiedades pero como uso el 2010 varia el nombre " extensiones My " bien no me da errores cuando en el apartado TIPO esta puesto esto "string "  y en ambito  " USUARIO " Pero no cuenta y el programa sigue ejecutandose ?????


Luis

YA YA LO LOGRE JEJEJEJ ERA PONER " INTEGER " UFFFF

Gracias Elektro

Luis

Me esperaba lo peor jejej Elektro

esto es chino o ruso jejej " my.settings.Contador :" error -->no es miembro de la aplicacion y segun he visto deberia de configurarlo en propiedades del proyecto ?



Luis

Vuelvo al ataque

Cuando digo código simple es mas o menos como este que de paso todavía no logro hacerlo funcionar jejeje bien mi idea es de entender como funciona y que sea crakeable no importa ya que este programa(el mio) no creo nadie lo compre jjejeje es solo por el placer de programar algo que funcione,este codigo lo conseguí trasteando por la red

a ver ahora como lo pongo a funcionar en el codigo de mi super programa

Código (vbnet) [Seleccionar] Expandir

otra forma basica con un archivo:
Sub verificar()
   Set fso = CreateObject("scripting.filesystemobject")
   If fso.fileexists("c:\salida.txt") = True Then
       checar
       If a = 5 Then
           MsgBox "Licencia terminada", 32, "Licencia caducada"
           Set Form1 = Nothing
           End
       End If
   ElseIf fso.fileexists("c:\salida.txt") = False Then
       a = "1"
       crearlo
   End If
End Sub

Sub crearlo()
   Open "c:\salida.txt" For Output As #1
       Print #1, a
   Close #1
   SetAttr "c:\salida.txt", vbHidden
End Sub

Sub checar()
   leerlo
   a = a + 1
   crearlo
End Sub

Sub leerlo()
   SetAttr "c:\salida.txt", vbNormal
   Dim foo As Integer

   foo = FreeFile
   Open "C:\salida.txt" For Input As #foo
       a = Input(LOF(foo), #foo)
   Close #foo
End Sub

Private Sub Form_Load()
verificar
End Sub


Luis

Elektro plis no me fustigues duro jejejej

Y no puedes coger el ejemplo "Trial" que te mostré en otro post (o cualquier otro código trial en Google), y en lugar de mostrar un msgbox cuando la fecha caduca, eliminar esas órdenes y añadir otras para salir de la aplicación ¿?, vaya, si hasta eso tenemos que ayudar a hacer...

-> Application.Exit Method

-> Environment.Exit Method

-> End Statement

Buaa no me regañes que estoy viejito jejeje como te he dicho esto del injerto vb con net todavia no logro cojerle la maña y esos ejemplos son alta costura para mi todavia y me gusta irle cojiendo el tranquillo con ejemplos mas modestos

Luis

Vale no explique bien jej Elektro

Cuando dije que no haga nada no es a la rutina sino al programa,la mayoría de las rutinas enseña un mensaje cuando se bloquea o caduca un programa. lo que necesito es que al llegar el tiempo o fecha de caducidad.simplemente no se ejecute el programa ni avise de nada y el código que puse es para mas o menos saber donde poner esa rutina

gracias

Luis

Hola bien mi idea no es hacer un trial ni demo solo nesecito una rutina simple que me detenga el programa sin mesagebox ni nada solo que no funcione ni haga nada al ejecutarlo,

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Dim MIN As Integer = 0
   Dim MAX As Integer = 99

   Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.ControlBox = False ' Elimino todos los controles del formulario
   End Sub

 

   Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
   Dim Sep As Object
   Dim texbox7 As Object
   Dim o As Object
   Private _val As Object
   Private _val1 As Integer
   Dim TextBox As TextBox()

   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
   ReadOnly Property Num3 As Int32
       Get
           Return CInt(TextBox3.Text)
       End Get
   End Property


Private Property KeyAscii As Integer

   Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
       Get
           Return _val
       End Get
       Set(ByVal value As Object)
           _val = value
       End Set
   End Property

   Private Property Val(ByVal p1 As Object) As Integer
       Get
           Return _val1
       End Get
       Set(ByVal value As Integer)
           _val1 = value
       End Set
   End Property

   Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Calcular.Click

       Dim TextBoxCount As Short = -1

       TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}

       Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                 .Distinct().ToArray ' Elimino duplicados,,,,,,,,,,,

Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items

       ' funcion
       For Each Number As Int32 In Result1
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result2
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result3
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next


End Class


gracias de antemano

Luis