|
71
|
Programación / .NET (C#, VB.NET, ASP) / Otro de mis fallos :(
|
en: 24 Septiembre 2014, 17:47 pm
|
Tengo esta famosa rutina jejej y ahora se me ocurre dividir pero pero no sale Result1 = {Num1 - 2, Num1 - 3, Num1 + 1, Num1 + 2, Num1 + 3} _ .Distinct().ToArray cuando le pongo el signo de divicion me sale error ?? Result1 = {Num1 / 2, Num1 - 3, Num1 + 1, Num1 + 2, Num1 + 3} _ .Distinct().ToArray
error No se puede convertir un valor de tipo '1-matriz dimensional de Double' en '1-matriz dimensional de Integer' debido a que 'Double' no se deriva de 'Integer'
|
|
|
72
|
Programación / .NET (C#, VB.NET, ASP) / como puedo modificar un archivo Host desde un programa ?
|
en: 10 Agosto 2014, 21:35 pm
|
Tengo un pequeño problema cada ves que quiero modificar este archivo y es que tengo que ir a windos sisten eceteraaaaaa... abrir el archivo con el blog de notas escribir cerrar y guardar, el archivo host sirve para bloquear las paginas que quieras pero trate de hacerlo con los métodos tradicionales pero no me sale la idea es hacer un form un texbox donde escribo la pagina a bloquear Ojo no quiero me lo hagan solo una orientación de que método puedo usar o por donde irían los tiros luis
|
|
|
73
|
Programación / .NET (C#, VB.NET, ASP) / Mis malas combinaciones :(
|
en: 9 Agosto 2014, 15:07 pm
|
Al ataque de nuevo jeje bueno ya ustedes saben como se frustra uno cuando no se logra hacer funcionar algo, vueltas y vueltas y nada tengo el siguiente programa que funciona bien hasta llegar a la función de combinar los numeros pero es un código de basic que quiero implementar pero no soy capaz ( como siempre) 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() Private _textBox As Object Private Property ListBox1Count As Integer ReadOnly MAX As Integer = 99 Dim auxiliar As Integer Dim auxiliar1 As Integer Dim auxiliar2 As String Dim auxiliar3 As String Dim anterior As String Dim recorrer As Integer Dim recorrer1 As Integer Dim recorrer2 As Integer Dim recorrer3 As Integer 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 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 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 Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Result1 = {Num1 + 1, Num1 + 2, Num1 + 4, Num1 + 6, Num1 - 4, Num1 - 1} _ .Distinct().ToArray ' Elimino duplicados Result2 = {Num2 + 1, Num2 + 2, Num2 + 3, Num2 - 1, Num2 - 2, Num1 - 3} _ .Distinct().ToArray ' Elimino duplicados Result3 = {Num3 - 1, Num3 - 2, Num3 - 3, Num3 + 2, Num3 + 3, Num3 + 5} _ .Distinct().ToArray ' Elimino duplicados Dim Rand As New Random ' Concateno, y... ' Elimino duplicados, y... ' Selecciono los números inferiores a MAX, y... ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX. Dim Result As IEnumerable(Of Integer) = (Result1.Concat(Result2).Concat(Result3)). Distinct. Select(Function(Value As Integer) Return If(Value < MAX, Value, Rand.Next(0, MAX)) End Function) ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray) ' Result2--------------------------------------------------------- Dim Rand2 As New Random ' Concateno, y... ' Elimino duplicados, y... ' Selecciono los números inferiores a MAX, y... ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX. Dim Result22 As IEnumerable(Of Integer) = (Result1). Distinct. Select(Function(Value As Integer) Return If(Value < MAX, Value, Rand.Next(0, MAX)) End Function) ListBox2.Items.AddRange(Result22.Cast(Of Object).ToArray) Dim Rand22 As New Random ' Concateno, y... ' Elimino duplicados, y... ' Selecciono los números inferiores a MAX, y... ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX. Dim Result222 As IEnumerable(Of Integer) = (Result2). Distinct. Select(Function(Value As Integer) Return If(Value < MAX, Value, Rand.Next(0, MAX)) End Function) ListBox3.Items.AddRange(Result222.Cast(Of Object).ToArray) End Sub ' funcion combinar la variable " resul " que contiene la cantidad de numeros a combinar (no funciona) ' esto es de basic pero es para cojer la idea :) no se como hacerlo en net For recorrer = 1 To Len(resul) auxiliar = Mid(palabra, recorrer, 1) For recorrer1 = 1 To Len(resul) auxiliar1 = Mid(palabra, recorrer1, 1) For recorrer2 = 1 To Len(resul) auxiliar2 = Mid(palabra, recorrer2, 1) For recorrer3 = 1 To Len(resul) auxiliar3 = Mid(resul, recorrer3, 1) If anterior <> auxiliar3 Then Print(auxiliar & auxiliar1 & auxiliar2 & auxiliar3) <------------mostrar esto en un lixbox End If anterior = auxiliar3 Next Next Next Next End Sub '--------------------------- limpiar texboxes Private Sub Button2_Click_1(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 ListBox1.Items.Clear() ListBox2.Items.Clear() ListBox3.Items.Clear() Next End Sub End Class
|
|
|
74
|
Programación / .NET (C#, VB.NET, ASP) / Bueno insisto con la dichosa rueda de combinaciones :)
|
en: 11 Julio 2014, 20:52 pm
|
Como no logre hacerme entender en el otro pos me decidí a hacerlo a pie jeje pero no me da las combinaciones como debe ser pongo la idea y el código que estoy haciendo pero no me va. Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14 Para usar esta rueda: Imprime una copia de la impresora. Escribe tus números debajo de mis números guías, úsalos como usarías una rueda de códigos infantil para cambiar los números por los míos en las combinaciones debajo. Esto es una rueda cargada, entonces si clasificas tus números de mejor a peor, entonces coloca de primero las mejores opciones en la rueda yendo de izquierda a derecha. Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14 01-02-03-04-05-06 01-02-03- 07-08-09 01-04-09- 10-11-12 01- 05- 07 10 13-14 01- 06- 08- 11-12-13 02-03-04- 07- 10- 13 02-03- 05- 09- 11- 14 02- 04- 08- 11- 13-14 02- 05-06- 10-11-12 03- 06- 09- 12-13-14 03- 07-08- 10-11-12 03- 07-08- 10-11-12 04-05-06-07-08-09 Combinaciones de la rueda 01)...01-02-03-04-05-06. 02)...01-02-03-07-08-09. . 03)...01-04-09-10-11-12 04)...01-05-07-10-13-14. . 05)...01-06-08-11-12-13. . 06)...02-03-04-07-10-13 07)...02-03-05-09-11-14. . 08)...02-04-08-11-13-14. . 09)...02-05-06-10-11-12 10)...03-06-09-12-13-14. . 11)...03-07-08-10-11-12. . 12)...04-05-06-07-08-09 Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14 numeros usuario: 10 13 18 25 26 28 30 32 35 37 40 42 45 47 esta tendria que ser la salida con los numeros del usuario 10 13 18 25 26 28 10 13 18 30 32 35 10 25 35 37 40 42 10 26 30 37 45 47 10 28 32 40 42 45 13 18 25 30 37 45 13 18 26 35 40 47 13 25 32 40 45 47 13 26 28 37 42 45 18 28 35 42 45 47 18 30 32 37 42 45 25 26 28 30 32 35 codigo Public Class Form1 Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14 As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click r1 = Val(TextBox1.Text) r2 = Val(TextBox2.Text) r3 = Val(TextBox3.Text) r4 = Val(TextBox4.Text) r6 = Val(TextBox5.Text) r6 = Val(TextBox6.Text) TextBox15.Text = r1 TextBox16.Text = r2 TextBox17.Text = r3 TextBox18.Text = r4 TextBox19.Text = r5 TextBox16.Text = r6 End Sub End Class
|
|
|
75
|
Programación / .NET (C#, VB.NET, ASP) / Como no mostrar ceros y signos negativos en funcion
|
en: 29 Junio 2014, 08:44 am
|
Me he vuelto tarimba buscando que esto no me muestre ceros y signos negativos yo envió desde un texbox un numero y aplico esta formula pero cuando pongo. ejemplo el uno me sale -9 , 0 codigo Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Result1 = {Num1 - 1, Num1 - 2, Num1 + 3, Num1 + 6, Num1 + 8} _ .Distinct().ToArray Array.Sort(Result1) End Sub
|
|
|
76
|
Programación / .NET (C#, VB.NET, ASP) / Combinaciones numericas por posicion con numeros guias
|
en: 28 Junio 2014, 18:06 pm
|
Hola a todos hace tiempo que no entraba debido a motivos de salud pero ya estamos dando querrá de nuevo Después de estar buscando mucho he encontrado esta forma de combinar numeros, según esto es para la lotería primitiva y se basa en algo llamado la rueda ? bien la pregunta especifica es la siguiente. tengo un form donde introduzco estos numeros guías mediante unos textbox (eso esta chupado jejej) lo que por supuesto no tengo idea es que me genere los numeros como el ejemplo que pongo y me los muestre en un lixtbox. Para 50 Números En 80 Combinaciones Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14-15 16-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40- 41-42-43-44-45-46-47-48-49-50 01) 1 2 12 14 16 37 02) 1 3 13 22 25 38 03) 1 4 15 29 39 49 04) 1 5 19 39 41 46 05) 1 6 14 19 23 41 06) 1 6 17 26 40 47 07) 1 7 18 19 27 41 08) 1 8 10 11 23 43 09) 1 28 30 33 34 35 10) 2 4 6 7 44 50 11) 2 8 13 15 33 42 12) 2 8 31 35 47 48 13) 2 9 20 21 25 46 14) 2 10 18 24 38 47 15) 2 11 13 27 28 46 16) 2 14 17 22 29 33 17) 2 15 25 31 32 33 18) 2 30 32 36 39 45 19) 3 4 28 40 43 45 20) 3 5 21 29 42 48 21) 3 7 30 31 43 46 22) 3 8 12 17 20 39 23) 3 9 22 28 36 40 24) 3 10 12 28 40 44 25) 3 14 24 35 41 49 26) 3 15 23 34 36 47 27) 4 5 16 20 24 32 28) 4 9 17 34 41 48 29) 4 9 22 43 44 45 30) 4 10 12 22 36 43 31) 4 14 19 25 30 47 32) 4 26 31 38 39 42 33) 5 6 7 14 39 46 34) 5 6 18 23 27 39 35) 5 7 8 25 45 49 36) 5 7 17 35 36 37 37) 5 10 13 14 31 50 38) 5 12 27 33 38 43 39) 6 8 24 26 36 46 40) 6 10 21 33 37 41 41) 6 11 12 15 19 35 42) 6 12 25 28 29 48 43) 6 16 22 31 34 49 44) 7 11 22 26 32 41 45) 7 12 13 21 23 24 46) 7 14 18 23 27 46 47) 7 20 28 42 43 47 48) 8 13 25 31 32 42 49) 8 14 21 27 32 44 50) 8 16 19 28 38 48 51) 9 10 12 36 44 45 52) 9 10 15 16 27 30 53) 9 11 14 39 40 42 54) 9 18 29 32 43 50 55) 9 19 23 26 33 49 56) 10 14 26 34 45 48 57) 10 19 20 36 42 49 58) 11 16 18 33 36 44 59) 11 17 21 30 38 49 60) 11 20 29 30 34 37 61) 11 21 26 30 37 50 62) 13 15 33 35 47 48 63) 13 16 29 41 45 47 64) 13 18 26 35 43 44 65) 13 19 32 34 37 40 66) 15 17 18 21 28 45 67) 15 37 44 46 48 49 68) 16 23 29 35 40 46 69) 16 24 25 34 39 43 70) 17 19 24 29 31 44 71) 17 20 34 38 49 50 72) 17 26 29 37 38 49 73) 18 20 22 30 40 48 74) 20 21 26 29 34 50 75) 20 27 31 35 37 45 76) 22 23 28 37 39 50 77) 22 24 42 45 46 50 78) 23 30 38 41 42 44 79) 25 27 36 40 41 50 80) 25 32 35 42 47 48 Gracias de antemano Luis
|
|
|
77
|
Comunicaciones / Redes / tengo un pc con wifi atraves de una tarjeta y quiero conectar un router xavi 796
|
en: 15 Junio 2014, 14:50 pm
|
Hola a todos de nuevo Buscando y buscando por el foro no encuentro donde vi la solución a este problema de configuración si alguien la recuerda se lo agradezco. Bien es lo siguiente tengo un pc que recibe señal wifi atraves de una tarjeta inalambrica conectada a una antena exterior (señal de la casa de mi madre ) que compartimos y ella paga no mentira a veces la pago yo jeje,bueno necesito conectar un router xavi 7968 al pc para repartir la señal dentro de casa (ya sabeis moviles tv etc ) ya lo habia echo pero perdi los datos como se hace y lo había tomado de acá,pero realmente no encuentro ese post y era especifico de este router. Gracias de antemano Luis os comento que tenia tiempo que no entraba debido a problemas de salud pero gracias ya estoy mejor
|
|
|
78
|
Seguridad Informática / Hacking Wireless / Pregunta de Novato sobre los diccionarios y su uso
|
en: 23 Febrero 2014, 10:25 am
|
Hola a todos
como todo novato jejej que soy mi pregunta es ? cuando se genera un diccionario aparte de que tarda un montón de tiempo como lo puedo guardar en disco c ,cuando estoy en wifiFlax 3.4 que es el que uso y este lo arranco desde un cd. y si creo uno en wind como lo puedo usar desde un pen ya que asumo que no lo puedo poner en el cd.
gracias Luis
|
|
|
79
|
Programación / Programación C/C++ / modificacion codigo ???
|
en: 13 Febrero 2014, 08:51 am
|
Hola este código me calcula o compara números y dice la distancia entre estos pero lo hace de izquierda a derechas o sea en horizontal ejemplo 1 2 3 5 8 y me calcula que entre el 1 y 2 hay 1 entre 2 y 3 hay 1 entre 3 y 5 hay 2 y entre 5 y 8 hay 3 resultado 1 2 3 5 8 <--- muestra 1 1 3 3 <----resultado Bien lo que ahora busco es hacerlo pero en vertical con los números hacia abajo #include <stdio.h> int main() { int i,x1=0, x2=0,x3=0,x4=0,x5=0,x6=0; FILE* fichero,*fich; fichero = fopen("combiLuis.txt", "r"); if (fichero == NULL) { printf("No existe el fichero!\n"); return 1; } fich = fopen("CombiDiferanciasLuis.txt", "wt"); if (fich == NULL) { printf("No existe el fichero!\n"); return 1; } { fscanf(fichero ,"%d %d %d %d %d %d ", &x1 ,&x2 ,&x3 ,&x4 ,&x5 ,&x6 ); fprintf(fich ,"%d %d %d %d %d \n",x2 - x1 ,x3 -x2 ,x4 -x3 ,x5 -x4 ,x6 -x5 ); } return 0; }
Luis se me olvido up seria hacer lo mismo pero hacia abajo 1 2 3 4 5 2 5 4 7 8 4 2 1 8 9
|
|
|
80
|
Programación / .NET (C#, VB.NET, ASP) / como se puede contar numero por numero
|
en: 9 Febrero 2014, 16:31 pm
|
Hola tengo un txt que tiene solo números en orden descendente de cuatro en cuatro asi 1 2 3 4 5 7 8 6 10 15 88 90 15 25 77 85....etc y para de contar Como puedo contar numero por numero y me lo muestre en otro txt Ejemplo 01= 25 02= 45 03=88 Consegui este codigo aca mismo pero cuenta es el total y ademas letras Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim palabras As Integer = 0 Dim letras As Integer = 0 Dim numeros As Integer = 0 Dim lineas As String() = File. ReadAllLines("C:\1.txt") For Each linea As String In lineas For Each palabra As String In linea.Split(" ") If (palabra.Length > 0) Then palabras = palabras + 1 For Each letra As Char In palabra.ToCharArray() If (Asc(letra.ToString()) > 47 And Asc(letra.ToString()) < 58) Then numeros = numeros + 1 ElseIf (Asc(letra.ToString()) > 64 And Asc(letra.ToString()) < 123) Then letras = letras + 1 End If Next End If Next Next Label1.Text = "Palabras: " & palabras & Microsoft.VisualBasic.vbNewLine & "Letras: " & letras & Microsoft.VisualBasic.vbNewLine & "Numeros: " & numeros End Sub End Class
Gracias Luis
|
|
|
|
|
|
|