Mensajes

SI SI Era eso ,gracias Novlucker , si quieren responder algo mas , por mp xD
PD:¿Tan difícil era? menos mal que está Novlucker

***** tu actitud es malisima. te aseguro que no llegaras lejos. ni como programador ni como persona.   

Gracias viene joya. 

saludos

@spiritdead
Pero todos notamos la diferencia de una pregunta y una tarea.

Y se ve a leguas quien quiere aprender.


saludos

Joder yo no soy programador. y Te aseguro que leyendo un poco sobre esas funciones doy una explicación del código en 5 minutos. 

deja lo vago 

Podrías hacer algo como esto.

Código (vb) [Seleccionar] Expandir

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal L As Long)

Private Sub Form_Load()
Dim file As String
Dim datos() As Byte
file = "C:\Users\Pink\Desktop\1.txt" 'tu archivo a cargar
Open file For Binary As #1
ReDim datos(LOF(1) - 1)  ' LOF(1) - 1 numero de offset de tu archivo
Get #1, , datos  ' obtenemos tu archivo en un array de byte
Close #1

'aqui seria el numero del offset
'datos(0) =  offset 0

Call CopyMemory(datos(0), Asc("h"), 1) ' aqui copiamos la letra h a nuestro offset 0 1 byte
'si quieres copiar 30 bytes seria algo asi
'Dim bytes2() As Byte
'bytes2() = StrConv("XXXXXXXXXXXXXXXXXXXXXXXXXXXX", vbFromUnicode)
'Call CopyMemory(datos(0), bytes2(0), 30)

Open file For Binary As #1
Put #1, , datos
Close #1



End Sub

saludos

Excelente Análisis gracias por compartirlo.

Código (vbnet) [Seleccionar] Expandir

CInt(Math.Ceiling(Rnd() * n))

saludos

edito: creo que entendi mal. esto es para un numero entre 1 y n.
:S

este si.

Código (vbnet) [Seleccionar] Expandir

Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
   Dim Generator As System.Random = New System.Random()
   Return Generator.Next(Min, Max)
End Function



edito otra vez. :S

seba123neo se adelanto.

hahaha

saludos

mmm claro porque el ejemplo por defecto tiene 800 x 600

usando GetSystemMetrics lo solucionas.

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
Const SM_CXSCREEN As Long = 0
Const SM_CYSCREEN As Long = 1

      Dim MyForm As FRMSIZE
      Dim DesignX As Integer
      Dim DesignY As Integer

      Private Sub Form_Load()
      Dim ScaleFactorX As Single, ScaleFactorY As Single  ' Scaling factors
      ' Size of Form in Pixels at design resolution
      DesignX = GetSystemMetrics(SM_CXSCREEN) ' aquí para X
      DesignY = GetSystemMetrics(SM_CYSCREEN) ' aquí para Y
      RePosForm = True   ' Flag for positioning Form
      DoResize = False   ' Flag for Resize Event
      ' Set up the screen values
      Xtwips = Screen.TwipsPerPixelX
      Ytwips = Screen.TwipsPerPixelY
      Ypixels = Screen.Height / Ytwips ' Y Pixel Resolution
      Xpixels = Screen.Width / Xtwips  ' X Pixel Resolution

      ' Determine scaling factors
      ScaleFactorX = (Xpixels / DesignX)
      ScaleFactorY = (Ypixels / DesignY)
      ScaleMode = 1  ' twips
      'Exit Sub  ' uncomment to see how Form1 looks without resizing
      Resize_For_Resolution ScaleFactorX, ScaleFactorY, Me
      Label1.Caption = "Current resolution is " & Str$(Xpixels) + _
       "  by " + Str$(Ypixels)
      MyForm.Height = Me.Height ' Remember the current size
      MyForm.Width = Me.Width
      End Sub

      Private Sub Form_Resize()
      Dim ScaleFactorX As Single, ScaleFactorY As Single

      If Not DoResize Then  ' To avoid infinite loop
         DoResize = True
         Exit Sub
      End If

      RePosForm = False
      ScaleFactorX = Me.Width / MyForm.Width   ' How much change?
      ScaleFactorY = Me.Height / MyForm.Height
      Resize_For_Resolution ScaleFactorX, ScaleFactorY, Me
      MyForm.Height = Me.Height ' Remember the current size
      MyForm.Width = Me.Width
      End Sub

      Private Sub Command1_Click()
      Dim ScaleFactorX As Single, ScaleFactorY As Single

      DesignX = Xpixels
      DesignY = Ypixels
      RePosForm = True
      DoResize = False
      ' Set up the screen values
      Xtwips = Screen.TwipsPerPixelX
      Ytwips = Screen.TwipsPerPixelY
      Ypixels = Screen.Height / Ytwips ' Y Pixel Resolution
      Xpixels = Screen.Width / Xtwips  ' X Pixel Resolution

      ' Determine scaling factors
      ScaleFactorX = (Xpixels / DesignX)
      ScaleFactorY = (Ypixels / DesignY)
      Resize_For_Resolution ScaleFactorX, ScaleFactorY, Me
      Label1.Caption = "Current resolution is " & Str$(Xpixels) + _
       "  by " + Str$(Ypixels)
      MyForm.Height = Me.Height ' Remember the current size
      MyForm.Width = Me.Width
      End Sub



saludos

No tanto la exigencia, digo como diablos respondemos una pregunta que no se entiende.

1.- descifrar la pregunta 

2.- dar la simple solución. 

La verdad todavía no entiendo.   mmm y no soy programador.