Mensajes

Parece que solo participaré yo

Danos tiempo!

[Hola amigos,]

Hola amigos, pues aquí os dejo un code un poco editado por mí para que vuestro ordenador diga un piropo by the face.

Hay 3 versiones, la del Troleo con Festival, la del Troleo con el comando "Espeak" o solamente con una notificación.
Para ejecutar dicha versión solo tenéis que quitar el # de dicho code para que funcione.

Código (bash) [Seleccionar] Expandir

#!/bin/sh

#script created by James Jara (google codes)

#url
url='http://gadget.citasyrefranes.com/gadget_xml.php?t=PI&r=83'

#get data
data=` wget -q -O - $url | sed -n -e 's/.*<texto>\(.*\)<\/texto>.*/\1/p'`

#subir volumen a tope xD
amixer sset Master 100%

#decir piropo
#echo "${data}" | festival --tts

#por si no tenéis instalado el festival
#espeak "${data}"

#opción alternativa sin trolleo
#notify-send "Frase Piropo" "${data}"

Un saludo.
PD: Que vaya bien esos ligues xD

[TextBox]

Voltear Texto de un TextBox y pasarlo a otro.

Código (vbnet) [Seleccionar] Expandir

Public Function Voltear(ByVal Texto As String) As String
Dim i As Long, l As Long
l = Len(Texto)
For i = 1 To l
Voltear = Voltear & Mid(Texto, l, 1)
l = l - 1
Next
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
textbox2.text = voltear(textbox1.text) 'voltea texto
End Sub

Un saludo.

Por cierto, las flechas de tu proyecto me gustan me las puedes pasar?

[Elektro]

Bueno Elektro con tu creación Dinámica de controles no me llevaba muy bien, así que, mira lo que he hecho. (Bueno me he encontrado hecho, ahora tenéis que transportarlo, transformarlo, adaptarlo, etc a lo que vosotros queráis como he hecho yo)

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
  Private Sub NewButton(ByVal ButtonNumber As Integer)
    ' Create a new button
    Dim oButton As Button
    oButton = New Button
    ' Set properties. Change these as you like and set other props if needed
    oButton.Enabled = True
    oButton.Location = New Point(ButtonNumber * 30, ButtonNumber * 30)
    oButton.Name = "MyButton" & ButtonNumber.ToString
    oButton.Size = New Size(75, 23)
    oButton.Text = "Button" & ButtonNumber.ToString
    oButton.Visible = True
    ' Use Tag property to store "which button" information
    oButton.Tag = ButtonNumber
    ' Add button click handler
    AddHandler oButton.Click, AddressOf onButtonClick
    ' Add to this forms controls collection
    Me.Controls.Add(oButton)
  End Sub
  Private Sub MyFunc(ByVal ButtonNumber As Integer)
    ' Do your stuff here
    MessageBox.Show("You clicked button: " & ButtonNumber.ToString, "Click", MessageBoxButtons.OK, MessageBoxIcon.Information)
  End Sub
  Private Sub onButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ' Handle button click and check which button is clicked
    Dim ButtonNumber As Integer
    ' Get Tag property. Cast sender to Button first
    If CType(sender, Button).Tag IsNot Nothing Then
      ' Check that button's Tag property contains a valid integer
      If Integer.TryParse(CType(sender, Button).Tag.ToString, ButtonNumber) Then
        ' Now we have a valid button number to be used
        MyFunc(ButtonNumber)
      End If
    End If
  End Sub
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    ' Create buttons dynamically on form load
    Dim i As Integer
    For i = 0 To 30
      NewButton(i)
    Next i
  End Sub
End Class

Con esta maravilla, si la sabéis transformar, podéis sacar el numero del Button que habéis pulsado, lo que os hace la vida más fácil al manejar el dichoso Ini_Manager


Que os parece?

Como lo cambias? XD

Sobre lo del TeamSpeak, estoy mirando a ver si hay algún host gratis pero vamos es super difícil de encontrar uno xD

Estaría bastante bien que le pusieran un IFrame en la página principal
Así se podrían meter más gente.

Por si alguien se quiere meter:

http://webchat.freenode.net/?channels=ircehn

Soy OP.

No me carga el IRC, por cieto, felicidades por tu 1000 mensajes

Ya veo aquí a OmarHack xD