• Viernes 8 de Noviembre de 2024, 18:39

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - gdonaire

Páginas: [1]
1
C/C++ / Re: Correcion de Algoritmo en Dev c++
« en: Miércoles 12 de Noviembre de 2008, 23:38 »
Cita de: "sergios_"
Hola Kamikasi,

Si no has conseguido compilarlo a lo mejor ha sido porque usas dos variables en el código que no has declarado en ningún sitio. Si te fijas bien hay dos líneas en las que usas la variable "Radius" en vez de "Radio".

cout << "Valor del radio positivo = " << Radius << endl;
cout << "El área y volumen de la esfera del radio = " << Radius << endl;

Y un poco más adelante utilizas la variable "Volume" en vez de "Volumen" que es como la tienes declarada.

cout << "Volumen = " << Volume << endl;

Prueba si poniendo los nombres correctos te funciona bien.

Un saludo.

Hola Kamikasi

A parte de las alcaraciones de sergios_, creo recordar que para C++ y concretamente Dev-C++ las librerias de C++ Standard se incluian sin el .h
Ademas te falta definir el espacio de nombres para que encuentre cout y cin.

Seria una cosa tal como

#include <iostream>
using namespace std;

int main ()
{
  /// Tu codigo
  return 0;
}

Saludos

2
VB .NET / Re: Duda Control Joystick VB.NET
« en: Miércoles 12 de Noviembre de 2008, 23:30 »
Hola Nebire

Gracias por tus aclaraciones, siguiendo algunas indicaciones tuyas he cambiado los prototipos de las importaciones de DLL ya que eran erroneas.
Ahora el codigo funciona y me devuelve la informacion sobre el joystick conectado.

Código: Text
  1. Imports System.Runtime.InteropServices
  2.  
  3. Public Class joystick
  4.     ' Joystick API functions
  5.     Private Declare Function joyGetPosEx Lib "winmm.dll" (ByVal uJoyID As Integer, ByRef pji As JOYINFOEX) As Integer
  6.     Private Declare Function joyGetDevCaps Lib "winmm.dll" Alias "joyGetDevCapsA" (ByVal uJoyID As Integer, ByRef pjc As JOYCAPS, ByVal cjc As Integer) As Integer
  7.     Private Declare Function joyGetNumDevs Lib "winmm.dll" () As Integer
  8.  
  9.     <StructLayout(LayoutKind.Sequential)> _
  10.     Public Structure JOYCAPS
  11.         Dim wMid As Short
  12.         Dim wPid As Short
  13.         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
  14.         Dim szPname As String
  15.         Dim wXmin As Integer
  16.         Dim wXmax As Integer
  17.         Dim wYmin As Integer
  18.         Dim wYmax As Integer
  19.         Dim wZmin As Integer
  20.         Dim wZmax As Integer
  21.         Dim wNumButtons As Integer
  22.         Dim wPeriodMin As Integer
  23.         Dim wPeriodMax As Integer
  24.         Dim wRmin As Integer
  25.         Dim wRmax As Integer
  26.         Dim wUmin As Integer
  27.         Dim wUmax As Integer
  28.         Dim wVmin As Integer
  29.         Dim wVmax As Integer
  30.         Dim wCaps As Integer
  31.         Dim wMaxAxes As Integer
  32.         Dim wNumAxes As Integer
  33.         Dim wMaxButtons As Integer
  34.         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
  35.         Dim szRegKey As String
  36.         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
  37.         Dim szOEMVxD As String
  38.     End Structure
  39.  
  40.     Public Structure JOYINFOEX
  41.         Dim dwSize As Integer
  42.         Dim dwFlags As Integer
  43.         Dim dwXpos As Integer
  44.         Dim dwYpos As Integer
  45.         Dim dwZpos As Integer
  46.         Dim dwRpos As Integer
  47.         Dim dwUpos As Integer
  48.         Dim dwVpos As Integer
  49.         Dim dwButtons As Integer
  50.         Dim dwButtonNumber As Integer
  51.         Dim dwPOV As Integer
  52.         Dim dwReserved1 As Integer
  53.         Dim dwReserved2 As Integer
  54.     End Structure
  55.  
  56.     '***  joyGetPosEx  Constants  ***
  57.  
  58.     Public Const JOYSTICKID1 = 0
  59.     Public Const JOYSTICKID2 = 1
  60.     Public Const MMSYSERR_BASE = 0
  61.     ' The joystick driver is not present.
  62.     Public Const MMSYSERR_NODRIVER = (MMSYSERR_BASE + 6)
  63.     ' An invalid parameter was passed.
  64.     Public Const MMSYSERR_INVALPARAM = (MMSYSERR_BASE + 11)
  65.     ' Windows 95/98/Me: The specified joystick identifier is invalid.
  66.     Public Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2)
  67.     Public Const JOYERR_NOERROR = 0
  68.     'if successful or one of the following error values.
  69.     Public Const JOYERR_BASE = 160
  70.     ' Windows NT/2000/XP: The specified joystick identifier is invalid.
  71.     Public Const JOYERR_PARMS = (JOYERR_BASE + 5)
  72.     ' The specified joystick is not connected to the system.
  73.     Public Const JOYERR_UNPLUGGED = (JOYERR_BASE + 7)
  74.  
  75.     Public JoyNum As Long
  76.     Private JoyInfoExtended As JOYINFOEX
  77.     Public MYJOYEX As JOYINFOEX
  78.  
  79.      Public Sub InitJoy()
  80.         'Get the joystick number in the system and about information
  81.         Dim xJa, xRj As Long
  82.         Dim xJn As Integer
  83.         Dim sDJ As String
  84.         Dim CapX As JOYCAPS
  85.  
  86.         xJa = joyGetNumDevs
  87.         ' The joyGetNumDevs function returns the number of joysticks supported by the
  88.         ' current driver or zero if no driver is installed.
  89.         If (xJa = 0) Then
  90.             MsgBox("There is no joystick driver installed.", MsgBoxStyle.Critical)
  91.         End If
  92.         Debug.Print("There are " & xJa & " joysticks")
  93.         For xJn = 0 To (xJa - 1)
  94.             Debug.Print(xJn)
  95.             xRj = joyGetDevCaps(xJn, CapX, 404)
  96.             Select Case xRj
  97.                 Case MMSYSERR_NODRIVER
  98.                     'The joystick driver is not present or joystick identifier is invalid
  99.                     MsgBox("The joystick driver is not present or joystick identifier is invalid", MsgBoxStyle.Critical)
  100.                 Case MMSYSERR_INVALPARAM
  101.                     ' An invalid parameter was passed or joystick identifier is invalid
  102.                     MsgBox("An invalid parameter was passed or joystick identifier is invalid", MsgBoxStyle.Critical)
  103.                 Case Else
  104.                     ' default
  105.             End Select
  106.  
  107.             If Val(CapX.wPid) <> 0 Then
  108.                 sDJ = "Joystick " & Trim(Str(xJn + 1))
  109.                 sDJ &= Str(CapX.wNumAxes) & " Axes"
  110.                 sDJ &= Str(CapX.wNumButtons) & " Buttons "
  111.                 sDJ &= CapX.szPname
  112.                 Debug.Print(sDJ)
  113.             End If
  114.         Next
  115.     End Sub
  116.    End Class
  117.  
  118.  

Gracias por la ayuda.

Saludos

3
VB .NET / Duda Control Joystick VB.NET
« en: Miércoles 12 de Noviembre de 2008, 01:39 »
Hola a todos

Soy nuevo en el foro y tengo una duda sobre como controlar un Joystick con VB.NET, utilizo Microsoft Visual Basic 2008 Express Edition
El ejemplo esta sacado de otro enlace

He intentado adaptar este codigo a VB.NET, bueno estoy empezando pero me da errores.
A continuacion muestro la clase utilizada para manejar el jostick

Código: Text
  1.  
  2. Imports System.Runtime.InteropServices
  3.  
  4. Public Class joystick
  5.     ' Joystick API functions
  6.     Public Declare Function joyGetPosEx Lib "winmm.dll" (ByVal uJoyID As Long, ByRef pji As JOYINFOEX) As Long
  7.     Public Declare Function joyGetDevCapsA Lib "winmm.dll" (ByVal uJoyID As Long, ByRef pjc As JOYCAPS, ByVal cjc As Long) As Long
  8.     Public Declare Function joyGetNumDevs Lib "winmm.dll" () As Integer
  9.  
  10.  
  11.     <StructLayout(LayoutKind.Sequential)> _
  12.     Public Structure JOYCAPS
  13.         Dim wMid As Short
  14.         Dim wPid As Short
  15.         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
  16.         Dim szPname As String
  17.         Dim wXmin As Integer
  18.         Dim wXmax As Integer
  19.         Dim wYmin As Integer
  20.         Dim wYmax As Integer
  21.         Dim wZmin As Integer
  22.         Dim wZmax As Integer
  23.         Dim wNumButtons As Integer
  24.         Dim wPeriodMin As Integer
  25.         Dim wPeriodMax As Integer
  26.         Dim wRmin As Integer
  27.         Dim wRmax As Integer
  28.         Dim wUmin As Integer
  29.         Dim wUmax As Integer
  30.         Dim wVmin As Integer
  31.         Dim wVmax As Integer
  32.         Dim wCaps As Integer
  33.         Dim wMaxAxes As Integer
  34.         Dim wNumAxes As Integer
  35.         Dim wMaxButtons As Integer
  36.         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
  37.         Dim szRegKey As String
  38.         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
  39.         Dim szOEMVxD As String
  40.     End Structure
  41.  
  42.     Public Structure JOYINFOEX
  43.         Dim dwSize As Integer
  44.         Dim dwFlags As Integer
  45.         Dim dwXpos As Integer
  46.         Dim dwYpos As Integer
  47.         Dim dwZpos As Integer
  48.         Dim dwRpos As Integer
  49.         Dim dwUpos As Integer
  50.         Dim dwVpos As Integer
  51.         Dim dwButtons As Integer
  52.         Dim dwButtonNumber As Integer
  53.         Dim dwPOV As Integer
  54.         Dim dwReserved1 As Integer
  55.         Dim dwReserved2 As Integer
  56.     End Structure
  57.  
  58.     Public MYJOYEX As JOYINFOEX
  59.     Public MYJOYCAPS As JOYCAPS
  60.  
  61.     Public Sub InitJoy()
  62.         'Get the joystick number in the system and about information
  63.         Dim xJa, xRj As Long
  64.         Dim xJn As Integer
  65.         xJa = joyGetNumDevs
  66.         Debug.Print("There are " & xJa & " joysticks")
  67.         Debug.Print("Longitud MYJOYCAPS: " & Len(MYJOYCAPS))
  68.         For xJn = 0 To xJa
  69.             Debug.Print(xJn)
  70.             xRj = joyGetDevCapsA(xJn, MYJOYCAPS, 404)
  71.  
  72.             If Val(MYJOYCAPS.wPid) <> 0 Then
  73.                 Debug.Print(MYJOYCAPS.wPid)
  74.            End If
  75.  
  76.         Next
  77.  
  78.     End Sub
  79. End Class
  80.  
  81.  

El problema es que cuando llamo al metodo InitJoy no me detecta ningun joystick (todos los wPid son cero).
No se si estoy realizando algo mal, agradeceria cualquier ayuda y/o comentario.

Gracias a todos.

Páginas: [1]