Mensajes

dejate de borradeses...

Vamos a decir 2 cosas:
1º: el buscador es una /&$·&(&·"·$%%·
2º: usa Google

En lugar de insultar al sistema que esta para algo, mejor insultemos a los usuarios que escriben en los buscadores como si le estubieran hablando en lugar de poner Palabras claves.. o que ni siquiera lo conocen... y si conocen Google, ya mero le andan preguntando a google que si es virgen

Usuario a Google
Eres virgen?....

Google
Procesando...

Dulces Lunas!¡¡.

es muy nuevo eso, apenas hay implementanciones sobre C++ (que yo haya visto)

y.....(no te va a gustar)........ se puede hacer programacion paralela en .net 4.0 (visual 2010, pero aun es beta...creo)

es beta pero existe en c++ perfecto ya busco sobre ello igual

Una duda gente: Como puedo añadir un programa a la carpeta de Inicio?
Quiza suene un poco confuso
Thanks

Revisa los temas que estan con Chincheta por dios usen el buscador...

Alguien sabe sobre el tema? o una liga a algun lenguaje open source que aplique la utilizacion de los dos nucleo?

Dulces Lunas!¡.

para los textbox haces un for each

mira esta pagina:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/163-for-each-deshabilitar-frame.htm

No se si funcione bien lo acabo de hace con el Block de Notas...

Corregido: Solo ingresa numeros con coma decimal el codigo te devuelve la suma con las comas decimales pertinentes.

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
   Dim res  As String
   res = SumaFormatodecimal(3, "3,454.456,45", "3,454.456,45")
   Call ReplacePuntoPorcomaDescimal(res)
   Call MsgBox(res)
End Sub

Public Function SumaFormatodecimal(ParamArray Numeros()) As String
Dim Num             As Variant
Dim Aux             As String

   For Each Num In Numeros
       Aux = Num
       Call ReplaceComaDescimal(Aux)
       SumaFormatodecimal = Val(SumaFormatodecimal) + Val(Aux)
   Next
End Function

Public Sub ReplaceComaDescimal(ByRef ValStr As String)
   ValStr = Replace(ValStr, ",", "")
End Sub

Public Sub ReplacePuntoPorcomaDescimal(ByRef ValStr)
Dim spl()               As String
Dim LenAfter          as integer
   spl = Split(CStr(ValStr), ".")
   LenAfter = IIf(IniArray(spl), Len(spl(1)), 0)
   ValStr = FormatNumber(ValStr, LenAfter, vbTrue, vbTrue, vbTrue)
End Sub

Public Function IniArray(varArray() As String) As Boolean
On Error Resume Next
   If ((Not varArray) = -1) Then
       IniArray = False
   Else
       IniArray = True
   End If
End Function



Dulces Lunas!¡.

No es una tarea. Me dijeron que tenia que hacer eso en UNA empresa

Usa el buscador, respondi a una duda con ADO y Excel hace tiempo.

PD.: Leete un manual sobre el tema antes de postear o Contrata a un Programador.

Este codigo es especialmente para los juegos o lo que este dentro de un Do/While o similar (Juegos, o Cantroles DIbUJAdOS, o sencillamente procesos en un Do/While por decir alguno).


En un Modulo Tipo Clase:

CLSFrameLimiter.cls

Código (vb) [Seleccionar] Expandir



''   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////

Option Explicit

Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long

Private m_CurFrequency As Currency
Private m_HasCounter As Boolean
Private m_FrameStart As Currency
Private m_FrameEnd As Currency
Private m_CurTime As Currency
Private m_Delay As Currency
Private m_LastSecond As Long
Private m_LastSecondCount As Long
Private m_FrameCount As Long

Private Sub Class_Initialize()
   m_HasCounter = QueryPerformanceFrequency(m_CurFrequency)
   m_CurFrequency = m_CurFrequency * 10000
End Sub

Public Function GetFPS() As Long
   GetFPS = m_LastSecondCount
End Function

Public Sub LimitFrames(ByVal nFPS As Integer)
   If Second(Now) <> m_LastSecond Then
       m_LastSecond = Second(Now)
       m_LastSecondCount = m_FrameCount
       m_FrameCount = 0
   End If
   m_FrameCount = m_FrameCount + 1
   QueryPerformanceCounter m_FrameEnd
   '   //  m_Delay = ((1000 / nFPS) * m_CurFrequency / 10000000) - (m_FrameEnd - m_FrameStart)
   m_Delay = ((1 / nFPS) * m_CurFrequency / 10000) - (m_FrameEnd - m_FrameStart)
   Do
       DoEvents
       QueryPerformanceCounter m_CurTime
   Loop Until (m_CurTime - m_FrameEnd) >= m_Delay
   
   QueryPerformanceCounter m_FrameStart
End Sub


Forma de USO

Código (vb) [Seleccionar] Expandir



Dim FrameLimit                      As New CLSFrameLimiter
Dim NoSalir                         as boolean

Private Sub Form_Click()
   NoSalir=not NoSalir
End Sub

Private Sub Form_Load()
   NoSalir = false
   show
   While NoSalir
       '   //  No es nesesario DoEvents, Sleep() o waitMessage() {En algun caso es usado NO?}
       Call FrameLimit.LimitFrames(40)
       caption = FrameLimit.GetFPS
   Wend
End Sub





Ejemplo Demostrativo:

Código (vb) [Seleccionar] Expandir


Option Explicit

'Used to just grab framerates.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim NoSalir                         As Boolean
Dim FrameLimit                      As New CLSFrameLimiter

Private Sub Form_Click()
   NoSalir = Not NoSalir
   Call PruebaFrameSecunds
End Sub

Private Sub PruebaFrameSecunds()
Dim lngCount                        As Long
Dim lngFPS                          As Long
Dim lngTick                         As Long
Dim okFPS                           As Long
   While NoSalir
       '   //  No es nesesario DoEvents, Sleep() o waitMessage() {En algun caso es usado NO?}
       Call FrameLimit.LimitFrames(40)
       Cls
       lngFPS = lngFPS + 1
       If lngTick < GetBetterTick Then
           okFPS = lngFPS
           lngTick = GetBetterTick + 1000
           lngFPS = 0
       End If
       Print "Frames por calculo: " & CStr(okFPS)
       Print "Frames por la Funcion: " & FrameLimit.GetFPS
   Wend
End Sub

Private Function GetBetterTick() As Long
   Static LastTime As Long
   If LastTime >= 0 And GetTickCount < 0 Then LastTime = GetTickCount
   If LastTime <= 0 And GetTickCount > 0 Then LastTime = GetTickCount
   GetBetterTick = GetTickCount - LastTime
End Function

Private Sub Form_Load()
   AutoRedraw = True
End Sub


Dulces Lunas!¡.

20

pense que tenias menos

luego hasta me calculan 16 ¬¬" pero como rayos mido 1.78 y ya cumplo mis 21 en un mes xP