Mensajes

muchas gracias , compañero!

pd, otras preguntillas de teoria que me estan preguntando y no se...

1-Las aplicaciones o programas de consola aceptan entradas del usuario y muestran sus resultados en una consola de comandos del sistema operativo:  VERDADERO O FALSO?
                      yo creo que falso...

2-Cuando en la sintaxis de un comando o parametro se utilizan cochetes [  ] para delimitar uno o varios parametros: a- se indica que son parametros obligatorios
                            b- se indican que son opcionales
                            c- se indica que deben eliminarse
(no tengo ni idea...)

3-Los controles de presentacion de informacion pueden ser modificados directamente por el usuario: VERDADERO O FALSO?

4-En el ambito de diseño de formularios, entre los controles contenedores disponibles en el cuadro de herramientas está GroupBox, que hace?
            a- Organiza los componentes que alberga en una direccion de flujo horizontal o vertical
            b- Agrupa otros controles con un titulo
            c- ninguna es correcta

y la ultima,
5-¿Que estrategias hay para empaquetar y distribuir las aplicaciones?



Y siento hacer estas preguntas pero me las piden para un examen... espero que contesteis honestamente que me van a aevaluar con las respuestas...

Un saludo de vuestro amigo y vecino,
PETETE;)

PD, sabeis que os lo agradezcoo muchoo muchiiisimo vuetra ayuda.
                   

Hola buenas, tengo una preguntilla que es un poco teorica.. jajaja

como se llama cuando derivas de varias clases?

estoy en duda entre herencia diversa o multiple...
o no es ninguna de las dos?

sabeis que os agradezco vuestra ayuda.
Un saludo de vuestro amigo y vecino,
PETETE;)

Buenas,
lo primero, gracia por contestar.

Lo segundo, si quiero guardar ese fichero txt o esa matriz en otro fichero.
La cosa es que queria guardarlo en otro txt pero he pensado que por aprender, voy a intentar guardarlo en un excel...¿ sabeis como puedo hacerlo?

Un saludo de vuestro amigo y vecino,
PETETE;)

ouch... vaya putada.. ajjajaa pero bueno de todas formas gracias por intentar solucionarme el problema!

Buenas, ahora mismo te paso el codigo. Utilizo el mozilla firefox.
En el codigo hay un streamwriter que no se si está bien... lo he puesto porque llevo 2 dias intentando hacer esto  no se como hacerlo..

Código [Seleccionar] Expandir


Dim txt As String
        Dim leertxt As StreamReader
        Dim linealeida As String
        Dim escritor As StreamWriter


        txt = "C:\Users\JonAnder\Desktop\información.txt"
        leertxt = File.OpenText(txt)
        escritor = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\JonAnder\Desktop\nuevotxt.txt", False)

        linealeida = " "
        Do Until linealeida Is Nothing
            linealeida = leertxt.ReadLine
            Console.WriteLine(linealeida)
        Loop
        Console.ReadLine()

        Dim b() As String = System.IO.File.ReadAllLines(txt, System.Text.Encoding.GetEncoding(1252)) ' la matriz b lee TXT y lo descodifica con el 1252
        Dim numreg As Integer = b.GetUpperBound(0) ' numreg cuenta cuantos elementos tiene la matriz (numreg=numero maximo de lineas)
        Dim bsalida(numreg, 200) As String ' la matriz bsalida tiene ( numreg (filas) y 200 columnas)

        For i = 0 To numreg ' por cada i en numreg.

            Dim linea As String = b(i) ' decimos que linea es cada i en b


            'ASIGNAR LA ENUMERACION AL ARRAY
            bsalida(i, c0.Navarra_101_Secuencia) = linea.Substring(0, 7) ' asignamos unas medidas a cada columna del array bsalida
            bsalida(i, c0.Navarra_102_Cod_Centro_Propuesta) = linea.Substring(7, 15)
            bsalida(i, c0.Navarra_103_Año_Propuesta) = linea.Substring(15, 19)
            bsalida(i, c0.Navarra_104_Nivel) = linea.Substring(19, 21)
            bsalida(i, c0.Navarra_105_Tipo_Doc) = linea.Substring(21, 22)
            bsalida(i, c0.Navarra_106_Centro_Propuesta) = linea.Substring(22, 25)
            bsalida(i, c0.Navarra_107_Centro_Orden_Propuesta) = linea.Substring(25, 29)
            bsalida(i, c0.Navarra_108_Fecha_Envio) = linea.Substring(29, 37)
            bsalida(i, c0.Navarra_109_Apellido1) = linea.Substring(37, 87)
            bsalida(i, c0.Navarra_110_Apellido2) = linea.Substring(87, 137)
            bsalida(i, c0.Navarra_111_Nombre) = linea.Substring(137, 187)
            bsalida(i, c0.Navarra_112_DNI) = linea.Substring(187, 198)
            bsalida(i, c0.Navarra_113_sexo) = linea.Substring(198, 199)
            bsalida(i, c0.Navarra_114_Cod_Provincia_Nacimiento) = linea.Substring(199, 201)
            bsalida(i, c0.Navarra_115_Cod_Municipio) = linea.Substring(201, 206)
            bsalida(i, c0.Navarra_116_Municipio_Nacimiento) = linea.Substring(206, 254)
            bsalida(i, c0.Navarra_117_Pais_Nacimiento) = linea.Substring(254, 257)
            bsalida(i, c0.Navarra_118_Nacionalidad) = linea.Substring(257, 260)
            bsalida(i, c0.Navarra_119_Fecha_Nacimiento) = linea.Substring(260, 268)
            bsalida(i, c0.Navarra_120_Fecha_Fin_Estudios) = linea.Substring(268, 274)
            bsalida(i, c0.Navarra_121_Cod_Calificacion) = linea.Substring(274, 276)
            bsalida(i, c0.Navarra_122_Rama) = linea.Substring(276, 280)
            bsalida(i, c0.Navarra_123_Expediente) = linea.Substring(280, 281)
            bsalida(i, c0.Navarra_124_Fecha_Pago) = linea.Substring(281, 289)
            bsalida(i, c0.Navarra_125_Num_Titulo_Original_Duplicado) = linea.Substring(289, 301)
            bsalida(i, c0.Navarra_126_Num_Autonomico_Titulo) = linea.Substring(301, 313)
            bsalida(i, c0.Navarra_127_Num_Lote_Prop_Erronea) = linea.Substring(313, 316)
            bsalida(i, c0.Navarra_128_Secuencia_Propuesta_Erronea) = linea.Substring(316, 323)
            bsalida(i, c0.Navarra_129_Estudios) = linea.Substring(323, 324)
            bsalida(i, c0.Navarra_130_Identificacion) = linea.Substring(324, 325)
            bsalida(i, c0.Navarra_131_Cod_Estudios) = linea.Substring(326, 337)
            bsalida(i, c0.Navarra_132_Fecha_Exped_Titulo_Original) = linea.Substring(337, 345)
            bsalida(i, c0.Navarra_133_Cod_Centro_Fin_Estudios) = linea.Substring(345, 353)
            bsalida(i, c0.Navarra_134_Nota) = linea.Substring(353, 357)
        Next
         for each linea in b
         escritor.writeline(linealeida)
         next


Buenas,
primero, gracias por contestar.

segundo, intentaré explicarme algo mejor.

tengo un txt. el txt me viene así, 0002254866villaruel garcia paco blablabla   blablabla.

he tenido que meter los datos a una matriz b. Para darle un formato correcto.

0002254866  villaruel garcia paco bla     blabla     blabla  bla.

la matriz quedaría algo asi b(i,200) = i filas, 200 columnas.

a cosa es que ahora me gustaría escribir todas las filas(i) en otro txt distinto al que tengo...
y no se como hacerlo.

Gracias por el link ticktack pero no me deja abrirlo porque detecta que no es seguro....

Muchas gracias por colaborar en mi problema.

Hola buenas,

tengo un problemilla con un array multidimensional.
La cosa es que tengo un txt, con los datos desordenados y lo quiero ordenar dandole una cierta medida a los datos.

He guardado los datos de ese txt en un array multidimenasional, dandole así una medida a las columnas de ese array.

El problemilla es que no se como pasar los datos del array multidimensional a un txt.

¿podríais ayudarme?

sabeis que os lo agradecería muchiiisiimo.

Un saludo,
PETETE;)

el link de la pagina es este:
http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=582

la cosa es que este programa te permite escribir lo que quieres convertir en QR. lo que yo quiero converitr a QR son unos codigos.
los codigos los escribiria a mano, por ejemplo:
020000000000010000010 ( codigo 1)
020000000000010000020 ( codigo 2)
020000000000010000030 ( codigo 3)
020000000000010000040 ( codigo 4)

Lo que me gustaría hacer es que por cada codigo me genere un QR. Pero que me los genere a l vez, sin tener que meter un codigo cada vez que valla a realizar el QR. Si le meto 10 codigos pues 10 QR.

He conseguido reducir el codigo que genera los QR a la opcion que quiero, ahora mandoel codigo a ver si podeis echarle una ojeada y comentarme lo que sea.


Imports ThoughtWorks.QRCode
Imports ThoughtWorks.QRCode.Codec
Imports ThoughtWorks.QRCode.Codec.Data
Public Class Form1

   Private Sub txtTextoLibre_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtTextoLibre.TextChanged
       txtTextoQR.Text = txtTextoLibre.Text
   End Sub

Código (vbnet) [Seleccionar] Expandir


   Private Sub btGenerarQR_Click(sender As System.Object, e As System.EventArgs) Handles btGenerarQR.Click

       If txtEscalaPixel.Text.Trim = "" Then
           MsgBox("Debe indicar la escala de los píxeles del " +
                  "QR que se generará.",
                  MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
           txtEscalaPixel.Focus()
       Else

           If Val(txtEscalaPixel.Text) = 0 Then
               txtEscalaPixel.Text = 4
           End If

           Dim generarCodigoQR As QRCodeEncoder = New QRCodeEncoder

           generarCodigoQR.QRCodeEncodeMode =
              Codec.QRCodeEncoder.ENCODE_MODE.BYTE
           generarCodigoQR.QRCodeScale = Int32.Parse(txtEscalaPixel.Text)

           Select Case lsNivelCorreccion.Text
               Case "Bajo (7%)"
                   generarCodigoQR.QRCodeErrorCorrect =
                       Codec.QRCodeEncoder.ERROR_CORRECTION.L
               Case "Medio (15%)"
                   generarCodigoQR.QRCodeErrorCorrect =
                       Codec.QRCodeEncoder.ERROR_CORRECTION.M
               Case "Alto (25%)"
                   generarCodigoQR.QRCodeErrorCorrect =
                       Codec.QRCodeEncoder.ERROR_CORRECTION.Q
               Case "Muy alto (30%)"
                   generarCodigoQR.QRCodeErrorCorrect =
                       Codec.QRCodeEncoder.ERROR_CORRECTION.H
           End Select

           'La versión "0" calcula automáticamente el tamaño
           generarCodigoQR.QRCodeVersion = 0

           '' --------- Forzar una determinada version -----------
           ''En caso de querer forzar una determinada version
           '(tamaño) el siguiente código devuelve la
           ''versión mínima para el texto que se quiere códificar:
           'Dim iVersion As Integer =
           '    AdjustQRVersion(TextBox1.Text, QRCodeEncoder.QRCodeErrorCorrect)
           'If iVersion = -1 Then
           '    MessageBox.Show("El texto es demasiado grande o el " +
           '        "Correction Level (ERROR_CORRECTION) no es el apropiado")
           '    Exit Sub
           'Else
           '    qrCodeEncoder.QRCodeVersion = iVersion
           'End If
           '' -----------------------------------------------------

         


           Try
               If opForzarUTF.Checked Then
                   'Con UTF-8 podremos añadir caracteres como ñ, tildes, etc.
                   imgQR.Image = generarCodigoQR.Encode(txtTextoQR.Text,
                                   System.Text.Encoding.UTF8)
               Else
                   imgQR.Image = generarCodigoQR.Encode(txtTextoQR.Text)
               End If
           Catch ex As Exception
               MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
           End Try
       End If

   End Sub

   Private Sub btGuardarQR_Click(sender As System.Object, e As System.EventArgs) Handles btGuardarQR.Click

       Dim dlGuardar As New SaveFileDialog

       If IsNothing(imgQR.Image) Then
           MsgBox("No se ha generado el Código QR. Antes de guardar " +
                  "debe generar un código QR.",
                  MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
       Else
           dlGuardar.Filter = "JPEG|*.jpg|Mapa de Bits|*.bmp|Gif|*.gif|PNG|*.png"
           dlGuardar.Title = "Guardar código QR"
           dlGuardar.FileName = "codigo_qr"
           dlGuardar.ShowDialog()
           If (dlGuardar.FileName <> "") Then
               Select Case dlGuardar.FilterIndex
                   Case 1
                       imgQR.Image.Save(dlGuardar.FileName,
                           System.Drawing.Imaging.ImageFormat.Jpeg)
                   Case 2
                       imgQR.Image.Save(dlGuardar.FileName,
                           System.Drawing.Imaging.ImageFormat.Bmp)
                   Case 3
                       imgQR.Image.Save(dlGuardar.FileName,
                           System.Drawing.Imaging.ImageFormat.Gif)
                   Case 4
                       imgQR.Image.Save(dlGuardar.FileName,
                           System.Drawing.Imaging.ImageFormat.Png)
               End Select
           End If
       End If
   End Sub
 
End Class



mas o menos el codigo es ese..

una ayudita porfaaaaaa!

buenas,

la duda de hoy es algo complidilla...

He encontrado en internet un codigo que genera codigos QR mediante codigo de VB.NET.

La cosa es que este codigo solo genera codigos QR de 1 en 1 y a mi me gustaría crar  una serie entera de codigos QR. Por ejemplo, que desde el numero 1 hasta el 20 genere 1 codigo QR por numero. Y no se como hacerlo. Esto sobrepasa mis conocimientos de vb.net.

Os adjuntaría el codigo que he encontrado pero es largo... largo largo.. ya que esta acompañado de un form que te da distintas opciones de generar el codigo QR..

¿ Alguien sabe como puedo hacerlo?

Una ayudita porfa.

Un saludo,
PETETE;)

60 horas de HTML5 muy exagerado? que hacen falta mas horas? o menos??

Un saludo de vuestro amigo y vecino,
PETETE:)