Mensajes

Buen aporte, aunque podrias poner un poco mas detalles de los manuales

Está muy bueno. Me gustaría algo de lo mismo pero con Visual Basic .NET, ahí si mataría 

ps estaria en la sección de .net no crees ?

[12 20 34 2 5 13 7495]

Ops, no vi la pagina 6

Código [Seleccionar] Expandir

2+4=6
6*6=36
(300+500)-700=100
100/100=1
36-1=35
Bastante ingenioso, pero lo logré... En un rato edito el mio.

12 20 34 2 5 13 7
495

Código [Seleccionar] Expandir

12*7+13*34=526
526-(13*2)=500
500-5=495

costo un poquito menos

1010-1000=10
111-110=1
10+11+1+2=24 (no 22 fue un error de tipeo seguro)
En breve coloco el mio

Ahi lo corregi, parece que el geshi no acepta unicode, y te devolvia el ascii de &

Código (vbnet) [Seleccionar] Expandir


Dim cadena() As Byte = {145, 37}
MsgBox(System.Text.Encoding.Unicode.GetString(cadena))




Otra forma es
MsgBox(ChrW(AscW("░")))
En lugar de ....

msgbox(ChrW(Asc("░"))))

Código [Seleccionar] Expandir

60/6=10
10*66=660
72-66=6
660+6=666


Pero el uso el resultado, no es su "culpa" que el resultado haya sido un numero para usar

Version un poquito mejorada de la de ignorantev1.1

Código (vb) [Seleccionar] Expandir

Function quitaLaScript(ByVal sCode as string) As String
  Dim iInicio as integer
  quitaLaScript=sCode
  iInicio=instr(sCode,"<!-- www.000webhost.com Analytics Code -->")
  if iInicio > 0  then quitaLaScript=mid$(sCode,1,iInicio-1)
End Function

A mi me funciona, me escribe en el registro

MM... ahora no tengo tiempo de fijarme, pero te dejo mi copia del modulo de leandro que si funciona, lo que pasa es que ahora la pagina de leandroA esta caida, siempre es bueno guardarse una copia offline xD

Código (vb) [Seleccionar] Expandir

Option Explicit
' http://www.leandroascierto.com.ar/categoria/M%C3%B3dulos/articulo/Inicio%20Aplicaci%C3%B3n%20con%20Windows.php
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Private Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Private Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)

Private Const RAMA_RUN_WINDOWS As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private Const REG_SZ As Long = 1
Private Const KEY_ALL_ACCESS = &H3F


Public Function SetAutoRun(value As Boolean) As Boolean

   Dim Path          As String
   Dim handle        As Long

   Path = Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34)

   RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, handle
   If value Then
       SetAutoRun = RegSetValueExString(handle, App.Title, 0&, REG_SZ, Path, Len(Path)) = 0
   Else
       SetAutoRun = RegDeleteValue(handle, App.Title) = 0
   End If
   RegCloseKey handle

End Function


Public Function IsAutoRun() As Boolean

   Dim Path          As String
   Dim handle        As Long
   Dim Data          As String
   Dim cch           As Long

   Path = Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34)

   RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, handle
   RegQueryValueExNULL handle, App.Title, 0&, 0&, 0&, cch

   If cch > 0 Then
       Data = String(cch - 1, 0)
       RegQueryValueExString handle, App.Title, 0&, 0&, Data, cch
       IsAutoRun = Path = Data
   End If

   RegCloseKey handle

End Function


[Pues eso mismo, VB te habitua MAL.]

Bueno, haber. El hilo se fue literalmente de tema.

Aparte que por el arrastrar y crear la "mitad" del code con clicks.
VB te habitua a una programación muy sencilla, un ejemplo es si pongo un valor BOOL si pongo el punto, ya me sale las dos opciones.

Si pongo tal objeto me salen todas sus funciones y eso quieras que no, te hace habituarte a eso.

Pues eso mismo, VB te habitua MAL.

PFFFF... empezemos, primero que nada, el IDE es donde uno trabaja, sea notepad, visual studio o cualquier derivado. Si no sabes que puede ir, de donde saberlo? Si tienes una plantilla con las cosas que puedes utilizar ES EXACTAMENTE LO MISMO que te salga el intellisense (la lista con las opciones que puedes poner)

Segundo, se nota que has programado en vb, en vb no existe el BOOL como dices, es Boolean y no te salen despues del punto, es despues de un igual, o una coma en un parametro!!

Lloreis o no crea malos hábitos, que puedas programar cosas buenas en VB es una cosa, que puedas migrar a otro lenguaje es otra cosa, pero que VB sea un buen lenguaje eso si que es otra cosa....Y que al migrar a un lenguaje como C cueste el doble que uno que haya empezado por Python o otro lenguaje también es verdad.

De que cosa terminas hablando entonces? Visual basic es un lenguaje VISUAL como es, C++, python y otros no lo son. tu mismo creas la ui por codigo. en vb ya esta hecho y no hay que hacerse problema por eso. Ademas, cuesta lo mismo pasarse de vb a otro que empezar de 0 en ese lenguaje. Cuando avanzas en otro lenguaje, avanzas tambien en vb. es todo retroalimentacion

Te respondo no te preocupes no voy a dejar ningún cabo suelto:
Es que el IDE y el lenguaje es LO MISMO.

Sin palabras

Feeeliciddades Skapunky!!!