Últimos Temas de: Psyke1

Mostrar Temas
Páginas: 1 2 [3] 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Programación / Desarrollo Web / [SRC] [javascript] Calculadora básica estilo Windows

en: 16 Octubre 2012, 11:42 am

Código

Sí, lo sé, las calculadoras están muy vistas, pero como lo tuve que hacer para clase de paso lo pongo aquí.

Código

<html>
	<head>
		<style>
			input{
				width: 42px;
			}
 
			#logs, #res, #igual{
				text-align: right;
				width: 180px;
			}
 
			.op, #igual{
				text-align: center;
			}
		</style>
 
		<script language="javascript"> 
			function getLastchar(){
				var mylogs = document.calc.logs.value;
				var len = mylogs.length;
 
				if (len){
					return mylogs[len - 1];
				}
 
				return "";
			}
 
			function anadir(x){
				var logstext = document.calc.logs;
				var restext = document.calc.res;
 
				if (logstext.value == "" && restext.value != ""){
					restext.value = "";
				}
 
				if ((". ".indexOf(getLastchar()) > -1 && isNaN(x)) == false){
					if (x.indexOf(" ") > -1){
						calcular();
					}
 
					logstext.value += x;
				}
			}
 
			function quitar(){
				var logstext = document.calc.logs;
				var num = (getLastchar() == " ") ? 3: 1;
 
				logstext.value = logstext.value.substring(0, logstext.value.length - num); 
			}
 
			function calcular() {
				document.calc.res.value = eval(document.calc.logs.value);
			}
 
			function getResult(){
				if (getLastchar() == " "){
					document.calc.res.value = "Syntax error";
				} else {
					calcular();
					document.calc.logs.value = "";
				}
			}
		</script>
	</head>
 
	<body>
		<form name="calc">
			<input type="text" id="logs" readonly="true"/>
			<br />
			<input type="text" id="res" readonly="true"/>
			<br />
 
			<input type="button" value="1" onclick="anadir('1')" />
			<input type="button" value="2" onclick="anadir('2')" />
			<input type="button" value="3" onclick="anadir('3')" />
			<input type="button" value="&larr;" onclick="quitar()" />
			<br />
 
			<input type="button" value="4" onclick="anadir('4')" />
			<input type="button" value="5" onclick="anadir('5')" />
			<input type="button" value="6" onclick="anadir('6')" />
			<input type="button" value="-" onclick="anadir(' - ')" />
			<br />
 
			<input type="button" value="7" onclick="anadir('7')" />
			<input type="button" value="8" onclick="anadir('8')" />
			<input type="button" value="9" onclick="anadir('9')" />
			<input type="button" value="+" onclick="anadir(' + ')" />
			<br />
 
			<input type="button" value="0" onclick="anadir('0')" />
			<input type="button" value="." onclick="anadir('.')" />
			<input type="button" value="*" onclick="anadir(' * ')" />
			<input type="button" value="/" onclick="anadir(' / ')" />
			<br />
 
			<input type="button" id="igual" value="=" onclick="getResult()" />
		</form>
	</body>
</html>

DoEvents!

Programación / Programación Visual Basic / [RETO/FAKE] Adivinador de MsgBox

en: 2 Octubre 2012, 20:51 pm

A ver quien hace una función que devuelva true si en el código de vb introducido se ejecutará un MsgBox o un Print con "Hola Mundo".

Estructura:

Código:

Private Function AdivinarMsgBox(ByVal sVBcode As String) As Boolean

Ejemplo de llamadas:

TRUE

Código:

Private Form Load()
   If 1<4 Then
      Msgbox "Hola Mundo"
   End If
End Sub

FALSE

Código:

Private Form Load()
      'Msgbox "Hola Mundo"
End Sub

TRUE

Código:

Private Form Load()
      Me.Print "Hola Mundo"
End Sub

FALSE

Código:

Private Form Load()
Dim a As Long, b As Long
   a=23
   b=234
   
   If a>b and 234>45634 Then
   if "asd" = "aasdsd" then
      Msgbox "Hola Mundo"
   end if
   End If
End Sub

Vale todo!

Suerte!

23	Programación / Desarrollo Web / XMPP Chat Visitante-Servidor [Duda]	en: 25 Septiembre 2012, 12:12 pm
Estoy intentando crear un chat visitante-administrador, algo similar a lo que podemos encontrar (abajo a la derecha) en esta web: Código: http://www.orbitadigital.com/ Ese en concreto es de ZOPIM Código: www.zopim.com Un vídeo explicativo: El caso es que el visitante envía un mensaje al administrador, quien los recibe y los contesta por medio de un cliente de mensajería XMPP, como por ejemplo GTalk, Skype, Msn... Mi duda es... ¿cómo envía y recibe el visitante si no ingresa ninguna información para logearse a un cliente XMPP? ¿Conocéis algún ejemplo así de código abierto que sea (más o menos) sencillo de entender? Si no es así... ¿Se os ocurre alguna alternativa a esto? Gracias DoEvents!

24	Programación / Bases de Datos / Duda con modelo relacional	en: 22 Agosto 2012, 12:34 pm
Hola chicos, vengo aquí con alguna dudilla acerda de modelos relacionales. Si tengo la relación: Código: Escuela (alumno, idioma, profesor) En todos los casos: Un idioma lo imparten varios profesores. Un idioma lo cursan varios alumnos. Un profesor tiene varios alumnos. Quiero determinar la forma normal, pasarlo a 3FN si fuera necesario y determinar la clave de la relación Escuela en los siguientes casos: Caso A: Un alumno cursa varios idiomas y un profesor imparte varios idiomas. Caso B: Un alumno solo cursa un idioma y un profesor imparte varios idiomas. Caso C: Un alumno solo cursa un idioma y un profesor sólo imparte un idioma. He mirado algo de documentación al respecto pero sigo sin aclararme. $:-\$ ¡Muchas gracias!

Programación / Bases de Datos / PL/SQL función boolean

en: 28 Junio 2012, 15:36 pm

Mirad este código:

Código

DECLARE
vsalario EMPLEADO.salario%TYPE;
 
CURSOR cmayor (mas NUMBER) IS
	SELECT nombre, salario
	FROM empleado
		WHERE salario=vsalario;
 
BEGIN
	SELECT MAX(SALARIO) INTO VSALARIO
	FROM EMPLEADO;
 
FOR VMAYOR IN CMAYOR (VSALARIO) LOOP
	DBMS_OUTPUT.PUT_LINE(‘NOMBRE’ || VMAYOR.NOMBRE);
	DBMS_OUTPUT.PUT_LINE(‘SALARIO’ || VMAYOR.SALARIO);
END LOOP;
END;

Fijaros que en el cursor:

Código:

CURSOR cmayor (mas number) is
	select nombre, salario
	from empleado
		where salario=vsalario;

El parámetro "mas" no se utiliza, en su lugar aparece "vsalario".
Es una pregunta que me han puesto en un examen, no pido saber si es lógica, quiero saber si el código funcionaría.

Gracias.

26	Programación / Programación Visual Basic / [Colabora] Desarrollo de mi algoritmo	en: 13 Junio 2012, 01:20 am
Voy a hacer una función que resuma un texto, para ello había pensado: Comprobar que hay una correcta ortografía con esto. Guardar oraciones en arrays y buscar palabras más repetidas (omitiendo artículos, preposiciones y demás usando un motor de análisis sintáctico) y dar prioridad a las oraciones dónde salgan éstas. Identificar títulos. Identificar palabras con mayúsculas. Utilizar sinónimos en las palabras no principales. Acortar enumeraciones largas que acaben en "etc" o "..." Información relevante: Documentación 1 Documentación 2 Documentación 3 Poned ideas, fragmentos de algoritmos o documentación interesante. DoEvents!

27	Media / Diseño Gráfico / ¿Cómo crear cómics?	en: 24 Mayo 2012, 16:48 pm
Me gustaría que me aconsejarais acerca de algún programa que facilite la creación de cómics. La idea que tengo en mente es hacer algo de este estilo: Gracias. DoEvents!

Programación / Programación Visual Basic / [RETO] Generador de DTD a partir de XML

en: 23 Mayo 2012, 13:00 pm

Pues eso, un generador de DTD's a partir de un XML. Los que he visto por la web son muy malos, a ver si somos capaces de hacer algo decente. :silbar:

Información:

XML
DTD

Código:

http://es.wikipedia.org/wiki/Definici%C3%B3n_de_tipo_de_documento
http://www.w3schools.com/dtd/dtd_intro.asp

Ejemplo:

Agregamos un TextBox con Multiline=True y le ponemos esto:

Código:

<?xml version="1.0"?>
<!DOCTYPE DatabaseInventory SYSTEM "DatabaseInventory.dtd">

<DatabaseInventory>

  <DatabaseName>
    <GlobalDatabaseName>production.iDevelopment.info</GlobalDatabaseName>
    <OracleSID>production</OracleSID>
    <DatabaseDomain>iDevelopment.info</DatabaseDomain>
    <Administrator EmailAlias="jhunter" Extension="6007">Jeffrey Hunter</Administrator>
    <DatabaseAttributes Type="Production" Version="9i"/>
    <Comments>
      The following database should be considered the most stable for
      up-to-date data. The backup strategy includes running the database
      in Archive Log Mode and performing nightly backups. All new accounts
      need to be approved by the DBA Group before being created.
    </Comments>
  </DatabaseName>

  <DatabaseName>
    <GlobalDatabaseName>development.iDevelopment.info</GlobalDatabaseName>
    <OracleSID>development</OracleSID>
    <DatabaseDomain>iDevelopment.info</DatabaseDomain>
    <Administrator EmailAlias="jhunter" Extension="6007">Jeffrey Hunter</Administrator>
    <Administrator EmailAlias="mhunter" Extension="6008">Melody Hunter</Administrator>
    <DatabaseAttributes Type="Development" Version="9i"/>
    <Comments>
      The following database should contain all hosted applications. Production
      data will be exported on a weekly basis to ensure all development environments
      have stable and current data.
    </Comments>
  </DatabaseName>

  <DatabaseName>
    <GlobalDatabaseName>testing.iDevelopment.info</GlobalDatabaseName>
    <OracleSID>testing</OracleSID>
    <DatabaseDomain>iDevelopment.info</DatabaseDomain>
    <Administrator EmailAlias="jhunter" Extension="6007">Jeffrey Hunter</Administrator>
    <Administrator EmailAlias="mhunter" Extension="6008">Melody Hunter</Administrator>
    <Administrator EmailAlias="ahunter">Alex Hunter</Administrator>
    <DatabaseAttributes Type="Testing" Version="9i"/>
    <Comments>
      The following database will host more than half of the testing
      for our hosting environment.
    </Comments>
  </DatabaseName>

</DatabaseInventory>

Llamamos a la función así:

Código

Option Explicit
 
Private Sub Form_Load()
Dim sDTD As String
 
    GetDTD_Psyke1_I Text1.Text, sDTD
    Debug.Print sDTD
End Sub

Y nos devolvería algo similar a esto:

Código:

<?xml version="1.0" encoding="UTF-8"?>
<!ELEMENT DatabaseInventory (DatabaseName+)>
<!ELEMENT DatabaseName (   GlobalDatabaseName
                         , OracleSID
                         , DatabaseDomain
                         , Administrator+
                         , DatabaseAttributes
                         , Comments)
>
<!ELEMENT GlobalDatabaseName (#PCDATA)>
<!ELEMENT OracleSID          (#PCDATA)>
<!ELEMENT DatabaseDomain     (#PCDATA)>
<!ELEMENT Administrator      (#PCDATA)>
<!ELEMENT DatabaseAttributes EMPTY>
<!ELEMENT Comments           (#PCDATA)>

<!ATTLIST Administrator       EmailAlias CDATA #REQUIRED>
<!ATTLIST Administrator       Extension  CDATA #IMPLIED>
<!ATTLIST DatabaseAttributes  Type       (Production|Development|Testing) #REQUIRED>
<!ATTLIST DatabaseAttributes  Version    (7|8|8i|9i) "9i">

<!ENTITY AUTHOR "Jeffrey Hunter">
<!ENTITY WEB    "www.iDevelopment.info">
<!ENTITY EMAIL  "jhunter@iDevelopment.info">

Otro ejemplo más sencillo:

Código:

http://www.comptechdoc.org/independent/web/xml/guide/xmlexample.html

Normas:

Formato (obligatorio):

Código

Public Sub GetDTD_{tu nick}_{versión en números romanos}(ByRef sXML As String, ByRef sDTDOutPut As String)

El XML ingresado no se debe modificar a lo largo de la función.
El más rápido y más completo gana.
Sin límite de entrega.
No se pueden utilizar clases hechas que faciliten el trabajo.
Damos por hecho que el XML está bien formateado.

¡Suerte!

DoEvents!

29	Programación / Desarrollo Web / función jQuery devolver valor	en: 20 Mayo 2012, 19:58 pm
Soy muy novato en esto, hice esta función: Código function getID(user){ $.getJSON('https://twitter.com/users/'+user+'.json?callback=?', function(data) { $('#followers').html(data.id_str); }); } Funciona bien, pero quiero que en vez de modificar el valor de #followers me devuelva un valor, probé así: Código function getID(user){ $.getJSON('https://twitter.com/users/'+user+'.json?callback=?', function(data) { return data.id_str; }); } Pero claro, me hace return a la función dentro de la que está, y no a getID. $:-\$ ¿Soluciones? DoEvents!

30	Foros Generales / Foro Libre / Buscar manager musical por internet	en: 2 Mayo 2012, 12:18 pm
Me gustaría encontrar un manager musical, alguien que apostara por mí y mi música. Si soy sincero no tengo medios para grabar una maqueta de calidad para darme a conocer, pero tengo una alternativa: Una vez a la semana suelo hacer una sesión en directo por webcam (vía twitcam.com), en la cual canto mis propias canciones, ofrecería a quien estuviera interesado asistir a una, tan sólo yo y mi guitarra. ¿Dónde puedo encontrar alguien (de España a poder ser) con el cual poder hablar acerca de este tema? ¡Muchas gracias! DoEvents!

Páginas: 1 2 [3] 4 5 6 7 8 9 10 11 12 13 14 15 16 17