Obtener Unidades Con vb-File system Drives

09/22/2017 por Jose Ortiz fernandez

Obtener Unidades Con vb-File system Drives

Hola a todos, siempre hemos querido hacer un control personalizado para guardar nuestros datos. Pues aqui te dejo un codigo que seguro que te gustará.

Leer másObtener Unidades Con vb-File system Drives

Forzar liberar RAM de nuestra aplicacion vb .net

08/29/2017 por Jose Ortiz fernandez

Forzar liberar RAM de nuestra aplicacion

Rebuscanco codigo que tenia almacena en ficheros de texto encontre este que forzaba la liberacion de la RAM no utilizada por nuestra aplicacion.

No siempre el GC (Garbage Collector) elimina la memoria disponible. asi que aqui os dejo esto que fueza esa liberacion usando el api de Kernell32.dll de windows.

Es 100% efectivo y lo he probado recientemente en windows 10 .

asi que aqui os dejo el codigo . espero que os sirva.

Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean

    Public Sub LiberarRAM()

     Try

      Dim MiProceso As Process
      MiProceso = Process.GetCurrentProcess()
      SetProcessWorkingSetSize(memoria.Handle, -1, -1)

     Catch ex As Exception

     End Try

    End Sub

Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean

Public Sub LiberarRAM()

Try

Dim MiProceso As Process

MiProceso = Process.GetCurrentProcess()

SetProcessWorkingSetSize(memoria.Handle, -1, -1)

Catch ex As Exception

End Try

End Sub

llamalo como quieras Limpiar Ram o Liberar. pero la ram es importante en nuestros equipos. y que la aplicacion consuma lo menos posible es una buena practica. eso significa que hacemos buen uso del codigo.

Un Saludo

Leer y escribir en el exif de una imagen

08/23/201708/23/2017 por Jose Ortiz fernandez

Exif : Leer y escribir los metadatos de una imagen

Leer másLeer y escribir en el exif de una imagen

SOLUCION Error al instalar Framework 1.0 en windows 10

07/25/201707/25/2017 por Jose Ortiz fernandez

SOLUCION Error al instalar Framework 1.0 en windows 10

Hola, la única manera que he encontrado hasta ahora es la siguiente.

Leer másSOLUCION Error al instalar Framework 1.0 en windows 10

Guardando el Estado de Los Objectos BinaryFormatter

11/14/201906/15/2017 por Jose Ortiz fernandez

Guardando el Estado de Los Objectos BinaryFormatter

Si alguna vez pensaste en como guardar el estado de los objetos que tienes en tu programa, no me refiero solo a los datos. si no a a clases completas, con esta clase, valga a redundancia lo podras hacer.

Para que ?, pues como te cuento en el ejemplo del video , para guardar el estado de una aplicacion cuando da error.

Lo que necesitas para este ejemplo es: 1 textbox, y 3 botones.

el codigo lo tienes a continuación del video. Miralo te vendra bien :).

Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form1

    Public Lst As New List(Of DtoCliente)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    <Serializable()>
    Partial Public Class DtoCliente
        Public Property Id As Integer
        Public Property Nombre As String
        Public Sub New()

        End Sub

    End Class
    Public id As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        id += 1
        Dim dto As New DtoCliente
        dto.Id = id
        dto.Nombre = Me.TextBox1.Text
        Me.TextBox1.Text = ""
        Lst.Add(dto)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Create)
        Dim bn As New BinaryFormatter()
        bn.Serialize(ms, Lst)
        ms.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Open)
        Dim bn As New BinaryFormatter()
        Lst = bn.Deserialize(ms)
        ms.Close()

        Dim z = ""
    End Sub
End Class

Imports System.Runtime.Serialization.Formatters.Binary

Public Class Form1

Public Lst As New List(Of DtoCliente)

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

End Sub

<Serializable()>

Partial Public Class DtoCliente

Public Property Id As Integer

Public Property Nombre As String

Public Sub New()

End Sub

End Class

Public id As Integer = 0

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

id += 1

Dim dto As New DtoCliente

dto.Id = id

dto.Nombre = Me.TextBox1.Text

Me.TextBox1.Text = ""

Lst.Add(dto)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Create)

Dim bn As New BinaryFormatter()

bn.Serialize(ms, Lst)

ms.Close()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Open)

Dim bn As New BinaryFormatter()

Lst = bn.Deserialize(ms)

ms.Close()

Dim z = ""

End Sub

End Class

espero que te sirva un Saludo… Jose Ortiz “Souslmakers.com”

DTO A DATATABLE Y VICEVERSA

10/02/201706/01/2017 por Jose Ortiz fernandez

DTO A DATATABLE Y VICEVERSA

Video y codigo con correcciones

Hola a todos. Vamos a ver como podemos transformar los datos que provienen de un datatable a un objeto contenedor , que contienen DTOs con los datos.

Partiendo de la Base del DTO vamos a crear una clase con una funcion que transformara esos datos.

Lo primero es la clase DTO que vamos a utilizar que podria ser como esta.

Public Class DTOCLIENTE
   Private _Id
   Public Property Id As Integer
       Get
           Return _Id
       End Get
       Set(value As Integer)
           _Id = value
       End Set
   End Property
   Private _Nombre
   Public Property Nombre As String
       Get
           Return _Nombre
       End Get
       Set(value As String)
           _Nombre = value
       End Set
   End Property
   Private _Apellidos
   Public Property Apellidos As String
       Get
           Return _Apellidos
       End Get
       Set(value As String)
           _Apellidos = value
       End Set
   End Property
   Public Sub New()
   End Sub
End Class

Public Class DTOCLIENTE

Private _Id

Public Property Id As Integer

Get

Return _Id

End Get

Set(value As Integer)

_Id = value

End Set

End Property

Private _Nombre

Public Property Nombre As String

Get

Return _Nombre

End Get

Set(value As String)

_Nombre = value

End Set

End Property

Private _Apellidos

Public Property Apellidos As String

Get

Return _Apellidos

End Get

Set(value As String)

_Apellidos = value

End Set

End Property

Public Sub New()

End Sub

End Class

Pues bien , ya tenemos el DTO general , ahora necesitamos los datos,
los puedes haber obtenido usando OLEDB, ADODB. o como sea yo los creare a mano para el ejemplo.

Como vas a ver , coinciden los formatos de campo con los formatos de campo del DTO, esto es importante por que si no dara error.

       Dim dt As New DataTable
       dt.Columns.Add("Id", GetType(Int32)) : dt.Columns.Add("Nombre", GetType(String)) : dt.Columns.Add("Apellidos", GetType(String))
       Dim dr As DataRow
       dr = dt.NewRow
       dr("id") = 1
       dr("Nombre") = "Juan"
       dr("Apellidos") = "Pardo"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 2
       dr("Nombre") = "Lucas"
       dr("Apellidos") = "Martinez"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 3
       dr("Nombre") = "Pablo"
       dr("Apellidos") = "Beltran"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 4
       dr("Nombre") = "Maria"
       dr("Apellidos") = "Juliana"
       dt.Rows.Add(dr)
       dt.TableName = "Clientes"

Dim dt As New DataTable

dt.Columns.Add("Id", GetType(Int32)) : dt.Columns.Add("Nombre", GetType(String)) : dt.Columns.Add("Apellidos", GetType(String))

Dim dr As DataRow

dr = dt.NewRow

dr("id") = 1

dr("Nombre") = "Juan"

dr("Apellidos") = "Pardo"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 2

dr("Nombre") = "Lucas"

dr("Apellidos") = "Martinez"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 3

dr("Nombre") = "Pablo"

dr("Apellidos") = "Beltran"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 4

dr("Nombre") = "Maria"

dr("Apellidos") = "Juliana"

dt.Rows.Add(dr)

dt.TableName = "Clientes"

Ya tenemos la estructura DTO y el Datatable, pues ahora solo nos falta el convertidor, que yo , lo cree en una nueva clase, que se llama DTToDTO
(Datatable to DTO) cuya funcion es ToDTO al cual le pasamos el Datatable y el type del DTO. Primero el convertidor.

Imports System.Reflection

Public Class DTToDTO
   Public Sub New()

   End Sub
   Public Function ToDTO(ByVal dt As DataTable, ByVal Type As Type)
       'Invocamos una instacia del type que va pasar a ser DTO
       Dim DTOBASE = Type.InvokeMember("new", Reflection.BindingFlags.CreateInstance, Nothing, Nothing, Nothing)
       'Creamos el contenedor de retorno
       Dim DTORETURN(-1)
       For Each dr As DataRow In dt.Rows
           ReDim Preserve DTORETURN(UBound(DTORETURN) + 1)
           Dim DTOADD = DTOBASE
           For Each dc As DataColumn In dt.Columns
               Dim Pr As PropertyInfo = DTOADD.GetType.GetProperty(dc.ColumnName)

               Pr.SetValue(DTOADD, dr(dc.ColumnName), Nothing)
           Next
           DTORETURN(UBound(DTORETURN)) = DTOADD
       Next
       Return DTORETURN
   End Function
End Class

Imports System.Reflection

Public Class DTToDTO

Public Sub New()

End Sub

Public Function ToDTO(ByVal dt As DataTable, ByVal Type As Type)

'Invocamos una instacia del type que va pasar a ser DTO

Dim DTOBASE = Type.InvokeMember("new", Reflection.BindingFlags.CreateInstance, Nothing, Nothing, Nothing)

'Creamos el contenedor de retorno

Dim DTORETURN(-1)

For Each dr As DataRow In dt.Rows

ReDim Preserve DTORETURN(UBound(DTORETURN) + 1)

Dim DTOADD = DTOBASE

For Each dc As DataColumn In dt.Columns

Dim Pr As PropertyInfo = DTOADD.GetType.GetProperty(dc.ColumnName)

Pr.SetValue(DTOADD, dr(dc.ColumnName), Nothing)

DTORETURN(UBound(DTORETURN)) = DTOADD

Return DTORETURN

End Function

End Class

Y Ahora al contrario.

Lo primero que haremos sera crear una clase a la que yo llame DTOToDTT(DTO to Datatable) y Crearemos una funcion que yo llame ToDTT que tendra como variable un Object y el valor de retorno sera el datatable, y vamos a utilizar la misma logica con reflection la cosa de momento queda asi.

Imports System.Reflection
Public Class DTOToDTT
   Public Sub New()

   End Sub
   Public Function ToDTT(ByVal DTOs As Object) As DataTable

   End Function
End Class

Imports System.Reflection

Public Class DTOToDTT

Public Sub New()

End Sub

Public Function ToDTT(ByVal DTOs As Object) As DataTable

End Function

End Class

A continuación vamos trazar los siguientes pasos para no liarnos, de tal forma que quedara una secuencia logica.

1 Columnas y tipo de dato
2 Datos

Creamos el datatable y vamos a empezar a crear las columnas a traves del reflection, yo lo desglosare y saldrán mas lineas de codigo pero se puede hacer en 1 linea por cada columna del datatable.

       Dim Dt As New DataTable
       For Each Pr As PropertyInfo In DTOs(0).GetType.GetProperties
           Dim NombreColumna = Pr.Name
           Dim TipoDato As Type = Pr.PropertyType
           Dt.Columns.Add(NombreColumna, TipoDato)
       Next

Dim Dt As New DataTable

For Each Pr As PropertyInfo In DTOs(0).GetType.GetProperties

Dim NombreColumna = Pr.Name

Dim TipoDato As Type = Pr.PropertyType

Dt.Columns.Add(NombreColumna, TipoDato)

La cosa va facil no??, creo que no necesita mucha explicación.
Bueno y ahora a rellenar los datos. Para ello vamos a repetir parte de la logica anterior añadimos un For para recorrer el Array y vamos creando los rows, como dije antes, lo voy a desglosar para que se entienda mejor,pero se puede hacer en menos lineas.

       For i As Integer = 0 To DTOs.length - 1
           Dim dr As DataRow
           dr = Dt.NewRow
           For Each pr As PropertyInfo In DTOs(i).GetType.GetProperties
               Dim NombreColumna = pr.Name
               Dim Valor = DTOs(i).GetType.GetProperty(NombreColumna).GetValue(DTOs(i))
               dr(NombreColumna) = Valor
           Next
           Dt.Rows.Add(dr)
       Next
Return Dt

For i As Integer = 0 To DTOs.length - 1

Dim dr As DataRow

dr = Dt.NewRow

For Each pr As PropertyInfo In DTOs(i).GetType.GetProperties

Dim NombreColumna = pr.Name

Dim Valor = DTOs(i).GetType.GetProperty(NombreColumna).GetValue(DTOs(i))

dr(NombreColumna) = Valor

Dt.Rows.Add(dr)

Return Dt

En 2 pasos, ya esta, ya lo tenemos resuelo. a continuacion os dejo todo el codigo completo.

Imports System.Reflection
Public Class DTOToDTT
   Public Sub New()

   End Sub
   Public Function ToDTT(ByVal DTOs As Object) As DataTable
       Dim Dt As New DataTable
       For Each Pr As PropertyInfo In DTOs(0).GetType.GetProperties
           Dim NombreColumna = Pr.Name
           Dim TipoDato As Type = Pr.PropertyType
           Dt.Columns.Add(NombreColumna, TipoDato)
       Next

       For i As Integer = 0 To DTOs.length - 1
           Dim dr As DataRow
           dr = Dt.NewRow
           For Each pr As PropertyInfo In DTOs(i).GetType.GetProperties
               Dim NombreColumna = pr.Name
               Dim Valor = DTOs(i).GetType.GetProperty(NombreColumna).GetValue(DTOs(i))
               dr(NombreColumna) = Valor
           Next
           Dt.Rows.Add(dr)
       Next
       Return Dt
   End Function
End Class

Imports System.Reflection

Public Class DTOToDTT

Public Sub New()

End Sub

Public Function ToDTT(ByVal DTOs As Object) As DataTable

Dim Dt As New DataTable

For Each Pr As PropertyInfo In DTOs(0).GetType.GetProperties

Dim NombreColumna = Pr.Name

Dim TipoDato As Type = Pr.PropertyType

Dt.Columns.Add(NombreColumna, TipoDato)

For i As Integer = 0 To DTOs.length - 1

Dim dr As DataRow

dr = Dt.NewRow

For Each pr As PropertyInfo In DTOs(i).GetType.GetProperties

Dim NombreColumna = pr.Name

Dim Valor = DTOs(i).GetType.GetProperty(NombreColumna).GetValue(DTOs(i))

dr(NombreColumna) = Valor

Dt.Rows.Add(dr)

Return Dt

End Function

End Class

Enlace corto a este post http://4go.es/?4

Ordenar TabIndex de Forma Automatica

11/14/201905/12/2017 por Jose Ortiz fernandez

Ordenar TabIndex de Forma Automatica

Buenos dias a todos.

De bien es sabido que en todo desarrollo que se precie, deben de estar ordenados los campos, para que aquellos usuario que normalmente se encargan de cargar datos en la aplicacion , ya sea pedidos, facturas u otro dato, suelen utilizar el tabulador para moverse mas rapido por los registros.

Tambien ocurre que como nos suelen pedir modificaciones , y solemos poner campos nuevos en la o las pantallas, estos ya estan desordenados.

Aqui os traigo una funcion que poniendola en el load de la pantalla reordenara los tabindex de los controles según su posición. asi cuando vayamos pulsando la tecla tab. estos pasaran por orden.

Para ello necesitamos usar un datatable , que ira guardando las posiciones X,Y y el nombre del control, un dataview para ordenarlos, un contador para asignarle el nuevo numero de index.

Aqui el codigo seguido. Espero que os sirva.

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Ordenar()
    End Sub
    Public Function Ordenar()
        Dim Orden As Integer = 0
        Dim dt As New DataTable
        Dim dv As New DataView
        dt.Columns.Add("X", GetType(Integer)) : dt.Columns.Add("Y", GetType(Integer)) : dt.Columns.Add("NAME", GetType(String))

        For Each cn As Control In Me.Controls
            Dim dr As DataRow = dt.NewRow
            dr("X") = cn.Location.X
            dr("Y") = cn.Location.Y
            dr("NAME") = cn.Name
            dt.Rows.Add(dr)
        Next

        dt.TableName = "ORDENAR CAMPOS"
        dv.Table = dt

        dv.Sort = "Y ASC,X ASC"

        For i As Integer = 0 To dv.Count - 1
            Me.Controls.Item(dv(i).Row("NAME")).TabIndex = Orden
            Orden += 1
        Next


    End Function

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

Ordenar()

End Sub

Public Function Ordenar()

Dim Orden As Integer = 0

Dim dt As New DataTable

Dim dv As New DataView

dt.Columns.Add("X", GetType(Integer)) : dt.Columns.Add("Y", GetType(Integer)) : dt.Columns.Add("NAME", GetType(String))

For Each cn As Control In Me.Controls

Dim dr As DataRow = dt.NewRow

dr("X") = cn.Location.X

dr("Y") = cn.Location.Y

dr("NAME") = cn.Name

dt.Rows.Add(dr)

dt.TableName = "ORDENAR CAMPOS"

dv.Table = dt

dv.Sort = "Y ASC,X ASC"

For i As Integer = 0 To dv.Count - 1

Me.Controls.Item(dv(i).Row("NAME")).TabIndex = Orden

Orden += 1

End Function

Un saludo a todos

Servicio ASMX con SQL – Dedicado a el canal Mario Briceño

11/18/201905/06/2017 por Jose Ortiz fernandez

Servicio ASMX con SQL – Dedicado a el canal Mario Briceño

Antes de comenzar gracias a todos los que me seguis en youtube o aqui , a traves del portal de soulsmakers.

Empecemos.

Cosas que os haran falta, la dll de adodb, lo podeis hacer con oledb, en este ejemplo uso ado.

1 crea el proyecto para el web service y agrega como referencia adodb para el acceso a bbdd

2 ten preparado la cadena de conexion .

3 crea un servicio web y aqui te dejo el codigo que se muestra en el video del web service.

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class ASMXSQL
    Inherits System.Web.Services.WebService
    Dim BBDD As ADODB.Connection
    <WebMethod()>
    Public Function DevolverDatosTabla1() As DataTable
        Dim str As String = "select * from tabla"
        Dim dt As New DataTable
        Dim da As New OleDb.OleDbDataAdapter
        PrepararCadena()
        BBDD.Open()
        da.Fill(dt, BBDD.Execute(str))
        BBDD.Close()
        dt.TableName = "Tabla"
        dt.AcceptChanges()
        Return dt
    End Function
    Private Function PrepararCadena()
        BBDD = New ADODB.Connection
        BBDD.ConnectionString = "AQUI LA CADENA DE CONEXION A BBDD"

    End Function
End Class

Imports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.ComponentModel

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.

' <System.Web.Script.Services.ScriptService()> _

<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _

<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _

<ToolboxItem(False)> _

Public Class ASMXSQL

Inherits System.Web.Services.WebService

Dim BBDD As ADODB.Connection

<WebMethod()>

Public Function DevolverDatosTabla1() As DataTable

Dim str As String = "select * from tabla"

Dim dt As New DataTable

Dim da As New OleDb.OleDbDataAdapter

PrepararCadena()

BBDD.Open()

da.Fill(dt, BBDD.Execute(str))

BBDD.Close()

dt.TableName = "Tabla"

dt.AcceptChanges()

Return dt

End Function

Private Function PrepararCadena()

BBDD = New ADODB.Connection

BBDD.ConnectionString = "AQUI LA CADENA DE CONEXION A BBDD"

End Function

End Class

Compila y e inicia la depuracion para que arranque el iis y te deje el servicio arrancado para poder añadirlo como indica el video.

4 crea un proyecto web.

5 añade como referencia de servico el servicio publicado en tu iis en local.

6 crea una pagina en blanco y añade un gridview, aqui el codigo de la webform.

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Prueba.aspx.vb" Inherits="WebParaConsumeAsmx.Prueba" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
        <asp:GridView ID="GridView1" runat="server">
        </asp:GridView>
    
    </div>
    </form>
</body>
</html>

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Prueba.aspx.vb" Inherits="WebParaConsumeAsmx.Prueba" %>

<!DOCTYPE html>

</head>

<body>

<div>

<asp:GridView ID="GridView1" runat="server">

</asp:GridView>

</div>

</form>

</body>

</html>

7 en el evento load añade el codigo que aparece aqui. Deberas cambia el nombre del servicio a el que has echo referencia por el que has puesto tu, yo te dejo el del video.

Public Class Prueba
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim MiPrueba As New PruebaSQL.ASMXSQLSoapClient
        Dim DtConDatos As DataTable = MiPrueba.DevolverDatosTabla1
        Me.GridView1.DataSource = DtConDatos
        Me.GridView1.DataBind()
    End Sub

End Class

Public Class Prueba

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim MiPrueba As New PruebaSQL.ASMXSQLSoapClient

Dim DtConDatos As DataTable = MiPrueba.DevolverDatosTabla1

Me.GridView1.DataSource = DtConDatos

Me.GridView1.DataBind()

End Sub

End Class

y esto es todo, Espero que te sirva. un saludo.

Creando un Random de string o texto aleatorio

11/14/201901/09/2017 por Jose Ortiz fernandez

Creando un Random de string o texto aleatorio

Hola amigos, aqui teneis el ejemplo de como crear un random de string o texto aleatorio.

la verdad es que es muy muy simple primero os dejo el video como siempre y a continuacion el codigo.

Leer másCreando un Random de string o texto aleatorio