Hola, estoy tratando de hacer el siguiente ejercicio y no encuentro la forma de resolverlo. Cabe aclarar que no se puede usar arrays ni nada de eso, solo IF y ciclos de repeticion.

Enunciado:

Un numero N es especial si cada digito que esta en N aparece tantas veces como su propia magnitud. Por ejemplo si  el digito 3 aparece en un numero entonces debera aparecer en exactamente 3 posiciones distintas para que dicho numero sea especial, el 1 debera aparecer solo una vez, el 2 aparecera dos veces, etc. Por ejemplo, los numeros 333, 3313, 4234132434 son numeros especiales.

a) Escriba un programa en Pascal que solicite al usuario un numero entero N y determine si es especial o no. Por ejemplo si el usuario ingresa 33223, debera mostrar "El numero 33223 es especial" y si ingresa 121 debera mostrar "El numero 121 no es especial".


Lo pense y no encuentro la manera de resolverlo,
Espero me puedan ayudar.
Un saludo a todos!

Hola que tal a todos. Quisiera saber que necesito para poder leer el contenido de una tarjeta magnética y poder luego modificarlo.

Espero que me puedan dar una mano.
Un saludo!

Hola gente, gracias por entrar al mensaje. Les paso a comentar mi problema, hace ya unos dias que mi maquina anda lenta, los programas tardan mucho en cargar y muy seguido se cuelga(a veces es por unos minutos y otras veces debo reiniciar). El nod32 cuando hice el analisis completo me marco que no tengo ninguna infeccion pero no estoy tan seguro que sea asi. Les dejo mi log de hijackthis para ver si me pueden decir si tengo algun virus:

Logfile of HijackThis v1.99.1
Scan saved at 0:39:12, on 22/08/2010
Platform: Windows XP SP2 (WinNT 5.01.2600)
MSIE: Internet Explorer v8.00 (8.00.6001.18702)

Running processes:
C:\WINDOWS\System32\smss.exe
C:\WINDOWS\system32\winlogon.exe
C:\WINDOWS\system32\services.exe
C:\WINDOWS\system32\lsass.exe
C:\WINDOWS\system32\svchost.exe
C:\WINDOWS\System32\svchost.exe
C:\WINDOWS\Explorer.EXE
C:\WINDOWS\system32\spoolsv.exe
C:\Archivos de programa\Analog Devices\SoundMAX\SMax4PNP.exe
C:\Archivos de programa\Analog Devices\SoundMAX\Smax4.exe
C:\Archivos de programa\Eset\nod32kui.exe
C:\WINDOWS\VdCap03C\StillMnt.exe
C:\Archivos de programa\Archivos comunes\Java\Java Update\jusched.exe
C:\WINDOWS\system32\ctfmon.exe
C:\Archivos de programa\Spyware Doctor\spydoctor.exe
C:\WINDOWS\system32\rundll32.exe
C:\Archivos de programa\Java\jre6\bin\jqs.exe
C:\Archivos de programa\Archivos comunes\Microsoft Shared\VS7DEBUG\MDM.EXE
C:\Archivos de programa\Eset\nod32krn.exe
C:\WINDOWS\system32\nvsvc32.exe
C:\Archivos de programa\Microsoft\Search Enhancement Pack\SeaPort\SeaPort.exe
C:\Archivos de programa\Analog Devices\SoundMAX\SMAgent.exe
C:\WINDOWS\system32\svchost.exe
C:\WINDOWS\system32\wbem\wmiapsrv.exe
C:\WINDOWS\System32\svchost.exe
C:\Archivos de programa\Mozilla Firefox\firefox.exe
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\mscorsvw.exe
C:\WINDOWS\system32\msiexec.exe
C:\descargas\HijackThis.exe

R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Search Bar = http://search.live.com/sphome.aspx
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://go.microsoft.com/fwlink/?LinkId=69157
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Search_URL = http://go.microsoft.com/fwlink/?LinkId=54896
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896
R0 - HKLM\Software\Microsoft\Internet Explorer\Search,SearchAssistant = http://search.live.com/sphome.aspx
R1 - HKCU\Software\Microsoft\Internet Explorer\SearchURL,(Default) = http://g.latam.msn.com/0SEESXL/SAOS01?FORM=TOOLBR
R0 - HKCU\Software\Microsoft\Internet Explorer\Toolbar,LinksFolderName = Vínculos
O2 - BHO: (no name) - {5C255C8A-E604-49b4-9D64-90988571CECB} - (no file)
O2 - BHO: Search Helper - {6EBF7485-159F-4bff-A14F-B9E3AAC4465B} - C:\Archivos de programa\Microsoft\Search Enhancement Pack\Search Helper\SEPsearchhelperie.dll
O2 - BHO: Windows Live Aplicación auxiliar de inicio de sesión - {9030D464-4C02-4ABF-8ECC-5164760863C6} - C:\Archivos de programa\Archivos comunes\Microsoft Shared\Windows Live\WindowsLiveLogin.dll
O2 - BHO: Ask Toolbar BHO - {D4027C7F-154A-4066-A1AD-4243D8127440} - (no file)
O2 - BHO: Java(tm) Plug-In 2 SSV Helper - {DBC80044-A445-435b-BC74-9C25C1C588A9} - C:\Archivos de programa\Java\jre6\bin\jp2ssv.dll
O2 - BHO: Windows Live Toolbar Helper - {E15A8DC0-8516-42A1-81EA-DC94EC1ACF10} - C:\Archivos de programa\Windows Live\Toolbar\wltcore.dll
O2 - BHO: JQSIEStartDetectorImpl - {E7E6F031-17CE-4C07-BC86-EABFE594F69C} - C:\Archivos de programa\Java\jre6\lib\deploy\jqs\ie\jqs_plugin.dll
O3 - Toolbar: &Windows Live Toolbar - {21FA44EF-376D-4D53-9B0F-8A89D3229068} - C:\Archivos de programa\Windows Live\Toolbar\wltcore.dll
O3 - Toolbar: (no name) - {D4027C7F-154A-4066-A1AD-4243D8127440} - (no file)
O4 - HKLM\..\Run: [SoundMAXPnP] C:\Archivos de programa\Analog Devices\SoundMAX\SMax4PNP.exe
O4 - HKLM\..\Run: [SoundMAX] "C:\Archivos de programa\Analog Devices\SoundMAX\Smax4.exe" /tray
O4 - HKLM\..\Run: [nod32kui] "C:\Archivos de programa\Eset\nod32kui.exe" /WAITSERVICE
O4 - HKLM\..\Run: [anvshell] anvshell.exe
O4 - HKLM\..\Run: [nwiz] nwiz.exe /install
O4 - HKLM\..\Run: [NvMediaCenter] RUNDLL32.EXE C:\WINDOWS\system32\NvMcTray.dll,NvTaskbarInit
O4 - HKLM\..\Run: [StillMnt] WCamRmv.exe /StartStillMnt
O4 - HKLM\..\Run: [QuickTime Task] "C:\Archivos de programa\QuickTime\QTTask.exe" -atboottime
O4 - HKLM\..\Run: [NvCplDaemon] RUNDLL32.EXE C:\WINDOWS\system32\NvCpl.dll,NvStartup
O4 - HKLM\..\Run: [KernelFaultCheck] %systemroot%\system32\dumprep 0 -k
O4 - HKLM\..\Run: [SunJavaUpdateSched] "C:\Archivos de programa\Archivos comunes\Java\Java Update\jusched.exe"
O4 - HKLM\..\RunOnce: [MessengerPlusUninstall] C:\WINDOWS\system32\cmd.exe /C "C:\DOCUME~1\chicos\CONFIG~1\Temp\MsgPlusUninst.bat"
O4 - HKCU\..\Run: [CTFMON.EXE] C:\WINDOWS\system32\ctfmon.exe
O4 - HKCU\..\Run: [Spyware Doctor] "C:\Archivos de programa\Spyware Doctor\spydoctor.exe" /Q
O4 - HKCU\..\Run: [Uniblue Registry Booster] C:\Archivos de programa\Uniblue\RegistryBooster\RegistryBooster.exe /S
O4 - HKCU\..\Run: [MSMSGS] "C:\Archivos de programa\Messenger\msmsgs.exe" /background
O4 - HKCU\..\Run: [HijackThis startup scan] C:\descargas\HijackThis.exe /startupscan
O8 - Extra context menu item: E&xportar a Microsoft Excel - res://C:\ARCHIV~1\MICROS~2\OFFICE11\EXCEL.EXE/3000
O9 - Extra button: Agregar entrada - {219C3416-8CB2-491a-A3C7-D9FCDDC9D600} - C:\Archivos de programa\Windows Live\Writer\WriterBrowserExtension.dll
O9 - Extra 'Tools' menuitem: &Agregar entrada en Windows Live Writer - {219C3416-8CB2-491a-A3C7-D9FCDDC9D600} - C:\Archivos de programa\Windows Live\Writer\WriterBrowserExtension.dll
O9 - Extra button: Referencia - {92780B25-18CC-41C8-B9BE-3C9C571A8263} - C:\ARCHIV~1\MICROS~2\OFFICE11\REFIEBAR.DLL
O9 - Extra button: Messenger - {FB5F1910-F110-11d2-BB9E-00C04F795683} - C:\Archivos de programa\Messenger\msmsgs.exe
O9 - Extra 'Tools' menuitem: Windows Messenger - {FB5F1910-F110-11d2-BB9E-00C04F795683} - C:\Archivos de programa\Messenger\msmsgs.exe
O11 - Options group: [INTERNATIONAL] International
O16 - DPF: {5D6F45B3-9043-443D-A792-115447494D24} (UnoCtrl Class) - http://messenger.zone.msn.com/MessengerGamesContent/GameContent/es/uno1/GAME_UNO1.cab
O16 - DPF: {8E0D4DE5-3180-4024-A327-4DFAD1796A8D} (MessengerStatsClient Class) - http://messenger.zone.msn.com/binary/MessengerStatsClient.cab31267.cab
O16 - DPF: {C3F79A2B-B9B4-4A66-B012-3EE46475B072} (MessengerStatsClient Class) - http://messenger.zone.msn.com/binary/MessengerStatsPAClient.cab56907.cab
O18 - Protocol: livecall - {828030A1-22C1-4009-854F-8E305202313F} - C:\ARCHIV~1\WI1F86~1\MESSEN~1\MSGRAP~1.DLL
O18 - Protocol: msnim - {828030A1-22C1-4009-854F-8E305202313F} - C:\ARCHIV~1\WI1F86~1\MESSEN~1\MSGRAP~1.DLL
O18 - Protocol: wlmailhtml - {03C514A3-1EFB-4856-9F99-10D7BE1653C0} - C:\Archivos de programa\Windows Live\Mail\mailcomm.dll
O23 - Service: ASUSKeyboardService - Unknown owner - C:\WINDOWS\asuskbservice.exe (file missing)
O23 - Service: InstallDriver Table Manager (IDriverT) - Macrovision Corporation - C:\Archivos de programa\Archivos comunes\InstallShield\Driver\11\Intel 32\IDriverT.exe
O23 - Service: Java Quick Starter (JavaQuickStarterService) - Unknown owner - C:\Archivos de programa\Java\jre6\bin\jqs.exe" -service -config "C:\Archivos de programa\Java\jre6\lib\deploy\jqs\jqs.conf (file missing)
O23 - Service: NOD32 Kernel Service (NOD32krn) - Unknown owner - C:\Archivos de programa\Eset\nod32krn.exe
O23 - Service: NVIDIA Display Driver Service (NVSvc) - NVIDIA Corporation - C:\WINDOWS\system32\nvsvc32.exe
O23 - Service: SoundMAX Agent Service (SoundMAX Agent Service (default)) - Analog Devices, Inc. - C:\Archivos de programa\Analog Devices\SoundMAX\SMAgent.exe

Muchas gracias por todo

Hola que tal. Gracias por ingresar. Les comento mi problema. Yo tengo hecho un programa, que todo va bien pero cuando lo pruebo en otra pc salta el error del Winsock. Busque en internet y vi que tenia que usar el CsocketMaster, lo configuro todo tal cual es pero ahora no me conecta ni en modo de ejecucion. Quisiera saber si alguien me puede ayudar a poder hacerlo andar bien.

Codigo Cliente:

Private Sub Command1_Click()
    On Error GoTo ssig:
    With Winsock1:
                    .Close
                    .RemotePort = Val(Text2.Text)
                    .RemoteHost = Text1.Text
                    .Connect
    End With
    If Winsock1.State <> 7 Then
        Caption = "Desconectado"
    Else
        Caption = "Conectado"
    Exit Sub
ssig:
    MsgBox Err.Description, vbCritical + vbOKOnly, Err.Source
    Err.Clear
    End If
End Sub
 
Private Sub Command3_Click()
    Text3.Text = Text3.Text & vbCrLf & "-->" & Text4.Text
    Winsock1.SendData "Cliente --> " & Text4.Text
End Sub
 
Private Sub Form_Load()
    Form2.Hide
    Command3.Enabled = False
End Sub
 
Private Sub PaneldeControl_Click()
Form2.Show
End Sub
 
Private Sub Salir_Click()
End
End Sub
 
Private Sub Text4_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then Command3_Click
End Sub
 
Private Sub Winsock1_Close()
 Caption = "Desconectado"
    Command3.Enabled = False
End Sub
 
Private Sub Winsock1_connect()
 Caption = "Conectado"
    Command3.Enabled = True
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 Dim datos As String
 Winsock1.GetData datos, vbString
 Text3 = Text3 & vbCrLf & datos
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Caption = "Error"
    Err.Clear
End Sub
 

Codigo Servidor:

Option Explicit
Dim WithEvents Winsock1 As CSocketMaster
 
Private Sub Command1_Click()
    Text1.Text = Text1.Text & vbCrLf & "-->" & Text2.Text
    Winsock1.SendData "Servidor --> " & Text2.Text
End Sub
 
Private Sub Form_Load()
Set Winsock1 = New CSocketMaster
    With Winsock1
            .CloseSck
            .LocalPort = 4576
            .Listen
    End With
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Command1_Click
End Sub
 
Private Sub Winsock1_CloseSck()
 Caption = "Desconectado"
End Sub
 
Private Sub Winsock1_Connect()
 Caption = "Conectado"
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.CloseSck
    Winsock1.Accept requestID
    If Winsock1.State <> 7 Then: Caption = "Desconectado": Else: Caption = "Conectado"
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    Winsock1.GetData datos, vbString
    Text1 = Text1 & vbCrLf & datos
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Caption = "Error"
End Sub
 
Private Sub Text1_Change(): Text1.SelStart = Len(Text1.Text): End Sub
 

Muchas Gracias por atender mi problema
Que tengan un buen dia!

Hola gente como andan? Paso a comentarles mi problema. Estoy haciendo un programa tipo chat en el que yo mediante un textbox que tengo en el cliente , le envio informacion a el server. El problema es que no puedo lograr la conexión( siempre se queda en Estado - Esperando Conexión...) , estuve leyendo muchos tutoriales hoy y la verdad es que no se en que la estoy pifiando... Quisiera saber si alguno puede ver el error y me diga asi lo puedo corregir.

Trate de subir el programa a un servidor pero se procucía un error

Codigo Cliente Chat:

Private Sub Boton_Conexion_Click()
On Error Resume Next
WS.Close
WS.Connect TxtIP.Text, 1066
End Sub
 
Private Sub WS_Connect()
SB.Caption = "Estado - Conectado (" & WS.RemoteHostIP & ")"
End Sub
Private Sub Boton_Desconexion_Click()
WS.Close
SB.Caption = "Estado - Desconectado (" & WS.RemoteHostIP & ")"
End Sub
 
Private Sub WS_Close()
SB.Caption = " Estado - Cerrando Conexión (" & WS.RemoteHostIP & ")" & vbCrLf
SB.Caption = "Estado - Esperando Conexión..." & vbCrLf
WS.Listen
End Sub
 
Private Sub Command1_Click()
WS.SendData Text2.Text
End Sub

Codigo server chat

Public WithEvents WS As CSocketMaster
 
Private Sub Form_Load()
Set WS = New CSocketMaster
On Error Resume Next
WS.LocalPort = 1066
WS.Listen
End Sub
 
Private Sub WS_onClose()
WS.CloseSck
WS.Listen
End Sub
 
Private Sub WS_onConnectionRequest(ByVal requestID As Long)
WS.CloseSck
WS.Accept requestID
End Sub
 
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Temp = Text2.Text
WS.GetData Temp

Eso es todo. Graciar por haber entrado para ayudarme con este problema.
Saludos y que tengan un buen día

hola que tal bueno mi problema es el siguiente, instalo el juego y todo bien lo ejecuto y anda lo mas bien pero cuando pongo para hacer una carrera se pone la pantalla toda blanca y se escucha el sonido. Tengo una placa de video Nvidia 4000.

Espero me puedan ayudar... Muchas Gracias.... Salu2


Mardek