Pin_01: +5V DC Pin_02: Botón 1 Pin_03: Eje X para joystick 1 (0-100 kOhm) Pin_04: Tierra para Botón_1 Pin_05: Tierra para Botón_2 Pin_06: Eje Y para joystick 1 (0-100 kOhm) Pin_07: Botón 2 Pin_08: NC / +5V DC Pin_09: NC / +5V DC Pin_10: Botón_4 Pin_11: Eje X para joystick 2 (0-100 kOhm) Pin_12: Tierra para Botones 3 y 4 (o salida MIDI) Pin_13: Eje Y para joystick 2 (0-100 kOhm) Pin_14: Botón_3 Pin_15: +5V DC (o MIDI en ocasiones desconectado)

Giro de la Moto

Acelerador

Pulsador de START

Continuando con la apuesta por la tecnología de impresión 3D en este estudio de diseño, he adquirido la segunda impresora 3D que hará compañía a la anterior, la Dimension SST 1200. En esta ocasión es una Alaris 30 de Objet que utiliza resina curada por UV para realizar los prototipos. La impresora 3D Alaris 30 tiene una resolución y capacidad de detalle muy superior a la Dimension SST 1200, sin embargo, en este estudio de diseño cada una cumple su cometido: con la primera se realizan todos los prototipos para ver su funcionalidad y características básicas, y con la Alaris 30, la impresión final, incluyendo la fabricación de moldes para pequeñas series.

1. void wAppNameSet (const char *);
2. const char *wAppNameGet (void);
3. HWND wAppGetHWND (void);
4. HINSTANCE wAppGetInstance (void);
5. bool wAppGetFocus (void);

1. Private Sub MSComm1_OnComm()
2. Dim dataReceived As String
3. Dim valor As Integer, cntBytes As Integer
>
5. Select Case MSComm1.CommEvent
6. Case comEvReceive ' Recepcion de informacion.
7. If (MSComm1.InBufferCount > 0) Then
8. dataReceived = MSComm1.Input
9. For cntBytes = 0 To Len(dataReceived) - 1
10. valor = Asc(Mid(dataReceived, cntBytes + 1, 1))
11. List1.AddItem Hex(valor)
12. Next cntBytes
13. End If
14. End Select
15. End Sub

Estos días estoy unificando muchos diseños que, al no coincidir en el tiempo, usaban diferentes tecnologías de variación de frecuencia en sus motores de corriente alterna. Últimamente estoy usando Optidrive de Invertek, por tratarse de unos equipos de gran calidad y precio razonable. Estos inversores tienen diferentes posibilidades de control externo (Optibus, RS485 y Modbus, entre otros) y me he decidido a implementar en mis sistemas de automatización el protocolo Modbus RTU.

1. Function modbusCRC(Command As String) As Long
3. Dim Generator As Long, CRC As Long
4. Dim charCnt As Integer, j As Integer, Length As Integer
5. Dim Bit As Boolean
6. Dim Temp As Byte
8. Length = Len(Command)
9. CRC = 65535
10. Generator = 40961
12. For charCnt = 1 To Length
13. Temp = Asc(Mid(Command, charCnt, 1))
14. CRC = CRC Xor Temp
15. For j = 1 To 8
16. Bit = CRC And 1
17. CRC = CRC \ 2
18. If Bit = True Then
19. CRC = CRC Xor Generator
20. End If
21. Next j
22. Next charCnt
24. modbusCRC = CRC
26. End Function

1. int wArgsGetCount (void);
2. const char *wArgsGetArg (int);
3. int wArgsFindArg (const char *);

1. wDebugStr ("No. de Argumentos: %d\n\n", wArgsGetCount());
3. for (cntArgs = 0;cntArgs < wArgsGetCount();++cntArgs)
4. wDebugStr ("Argumento [%d]: %s\n", cntArgs, wArgsGetArg(cntArgs));
6. int argFound = wArgsFindArg("ARG02");
7. if (argFound != -1)
8. wDebugStr ("\nEncontrado ARG02 en [%dª] posicion.\n", argFound + 1);
9. else
10. wDebugStr ("\nNo se ha encontrado ARG02\n");

1. void wDisplayWindowed (int width, int height);
2. bool wDisplayFullScreen (int width, int height, int bpp, int frequency);

1. void wDesktopSettingsGet (int* width, int* height, int* bpp, int* frequency);
2. void wDisplaySettingsGet (int *width, int *height, bool *fullscreen, int *bpp, int *frequency);

1. wDesktopSettingsGet (&desktopSizeX, &desktopSizeY, &screenColorDepth, &screenRefresh);
3. wDebugStr ("Desktop Settings: %dx%d [bpp: %d][Fq: %d]\n", desktopSizeX, desktopSizeY, screenColorDepth, screenRefresh);

1. wDisplaySettingsGet (&screenSizeX, &screenSizeY, &screenfull, &screenColorDepth, &screenRefresh);
2. if (screenfull)
3. wDebugStr ("Display Settings: %dx%d [bpp: %d][Fq: %d]\n", screenSizeX, screenSizeY, screenColorDepth, screenRefresh);
4. else
5. wDebugStr ("Display Settings: %dx%d\n", screenSizeX, screenSizeY);

1. bool wAppMain (void)
2. {
3. wEventStartSet (sampleStartEvent);
4. wEventEndSet (sampleEndEvent);
5. wEventDeactivationSet(sampleDeactivationEvent);
6. wEventReactivationSet(sampleReactivationEvent);
7. wEventLoopSet(sampleLoopEvent);
8. wEventKeySet(sampleKeyEvent);
9. wEventCharSet(sampleCharEvent);
10. wEventMouseMoveSet(sampleMouseMoveEvent);

1. bool sampleKeyEvent (unsigned long time, unsigned char key, bool up)
2. {
3. bool ok = true;
4. if (key == VK_ESCAPE)
5. wAppEnd();
6. return ok;
7. }

SpacePilot (fabricado por 3DConnexion, subsidiaria de Logitech), es un dispositivo a mitad de camino entre un joystick y un ratón. Este modelo está actualmente descatalogado y ha sido sustituido por versiones más modernas, como por ejemplo SpacePilot Pro o SpaceExplorer. Posee una potencia sorprendente y está especialmente indicado para todas aquellas personas que se dedican al diseño 3D en cualquiera de sus variantes.

1. Este software sólo ha sido probado con SpacePilot, si algún lector de este blog ha podido testearlo en otro dispositivo compatible, ruego deje un comentario acerca del funcionamiento y respuesta de este programa.

2. Este software ha sido creado con Microsoft Visual Studio 2010 Ultimate y necesita Microsoft Framework v4.0 o superior.

.: Descargar SpacePilot Sample.zip (125 Kb) :.

Recientemente he añadido al estudio de diseño una impresora 3D modelo Dimension SST 1200 para la realización de prototipos en material ABS.

Continuando con la mejora del área de diseño, y tras valorar diferentes tecnologías de impresión 3D, he adquirido esta sorprendente herramienta de realización de prototipos que además posee una de las áreas de impresion más grande del mercado: 254x254x305 mm (10x10x12 pulgadas). No obstante, su característica más importate es la realización de piezas "funcionales", esto es, elementos que una vez impresos, pueden ser usados como parte de un todo más grande, como por ejemplo una maqueta.