Ptrprz

Hola todos. Buscando algo relacionado con la extension .rmvb encontré este reproductor, lo descargé, y me pareció bastante convincente, ya que este tipo de extension en la última version del VLC no me permite adelantar, ya que se "despixela" la imagen, en este reproductor el video anda de 10. Además instala un complemento para bajar videos de Youtube u otra pagina en donde se visualize video. Los guarda en formato flv, pero no me gusta el volumen del sonido, así que lo reproducí en el VLC y andó de 10 con una excelente calidad de video. También ofrece una posibilidad de conversion a Ipod, BlackBerry y otros medios. Descargar = Comentar es agradecer

Todos. Revisando cosas de mate para la universidad encontré este sitio. http://www.numberempire.com/ Es bastante completo, tiene herramientas como calculo de integrales y derivadas, graficador de funciones, calculo de series, etc. A continuación un pantallazo del site Y de las herramientas Espero les sirva tanto como me ha servido a mi, el sitio esta diseñado en HTML5, compatible para el iPad, complematente comprobado. Comentar es agradecer.

Publico esto, ya que haciendo una tarea de la universidad me costo bastante trabajo conseguir estos codigos para Visual Basic .Net Public Class Form1 Dim Datos(9) As Integer Dim Temp, a, b As Integer Dim Temp2, minimo, i, j As Integer Dim k, l, index As Integer Private Sub BTNCARGAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Datos(0) = TXTDATO1.Text Datos(1) = TXTDATO2.Text Datos(2) = TXTDATO3.Text Datos(3) = TXTDATO4.Text Datos(4) = TXTDATO5.Text Datos(5) = TXTDATO6.Text Datos(6) = TXTDATO7.Text Datos(7) = TXTDATO8.Text Datos(8) = TXTDATO9.Text Datos(9) = TXTDATO10.Text End Sub Private Sub BTNORDENAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNORDENAR.Click 'Metodo BURBUJA If RBTBURBUJA.Checked = True Then Datos(0) = TXTDATO1.Text Datos(1) = TXTDATO2.Text Datos(2) = TXTDATO3.Text Datos(3) = TXTDATO4.Text Datos(4) = TXTDATO5.Text Datos(5) = TXTDATO6.Text Datos(6) = TXTDATO7.Text Datos(7) = TXTDATO8.Text Datos(8) = TXTDATO9.Text Datos(9) = TXTDATO10.Text For b = 0 To 8 For a = 0 To 8 If Datos(a) > Datos(a + 1) Then 'con solo cambiar el < se puede cambiar el orden Temp = Datos(a + 1) Datos(a + 1) = Datos(a) Datos(a) = Temp End If Next Next TXTDATOOUT1.Text = Datos(0) TXTDATOOUT2.Text = Datos(1) TXTDATOOUT3.Text = Datos(2) TXTDATOOUT4.Text = Datos(3) TXTDATOOUT5.Text = Datos(4) TXTDATOOUT6.Text = Datos(5) TXTDATOOUT7.Text = Datos(6) TXTDATOOUT8.Text = Datos(7) TXTDATOOUT9.Text = Datos(8) TXTDATOOUT10.Text = Datos(9) End If 'Metodo INSERCION If RBTINSERCCION.Checked = True Then Datos(0) = TXTDATO1.Text Datos(1) = TXTDATO2.Text Datos(2) = TXTDATO3.Text Datos(3) = TXTDATO4.Text Datos(4) = TXTDATO5.Text Datos(5) = TXTDATO6.Text Datos(6) = TXTDATO7.Text Datos(7) = TXTDATO8.Text Datos(8) = TXTDATO9.Text Datos(9) = TXTDATO10.Text For i = 1 To 9 index = Datos(i) j = i - 1 Do While (j >= 0) If index > Datos(j) Then Exit Do Else Datos(j + 1) = Datos(j) j = j - 1 End If Loop Datos(j + 1) = index Next i TXTDATOOUT1.Text = Datos(0) TXTDATOOUT2.Text = Datos(1) TXTDATOOUT3.Text = Datos(2) TXTDATOOUT4.Text = Datos(3) TXTDATOOUT5.Text = Datos(4) TXTDATOOUT6.Text = Datos(5) TXTDATOOUT7.Text = Datos(6) TXTDATOOUT8.Text = Datos(7) TXTDATOOUT9.Text = Datos(8) TXTDATOOUT10.Text = Datos(9) End If 'Metodo SELECCION If RBTSELECCION.Checked = True Then Datos(0) = TXTDATO1.Text Datos(1) = TXTDATO2.Text Datos(2) = TXTDATO3.Text Datos(3) = TXTDATO4.Text Datos(4) = TXTDATO5.Text Datos(5) = TXTDATO6.Text Datos(6) = TXTDATO7.Text Datos(7) = TXTDATO8.Text Datos(8) = TXTDATO9.Text Datos(9) = TXTDATO10.Text For i = 0 To 8 minimo = i For j = i + 1 To 9 If Datos(minimo) > Datos(j) Then minimo = j End If Next j Temp2 = Datos(i) Datos(i) = Datos(minimo) Datos(minimo) = Temp2 Next i TXTDATOOUT1.Text = Datos(0) TXTDATOOUT2.Text = Datos(1) TXTDATOOUT3.Text = Datos(2) TXTDATOOUT4.Text = Datos(3) TXTDATOOUT5.Text = Datos(4) TXTDATOOUT6.Text = Datos(5) TXTDATOOUT7.Text = Datos(6) TXTDATOOUT8.Text = Datos(7) TXTDATOOUT9.Text = Datos(8) TXTDATOOUT10.Text = Datos(9) End If End Sub Comentar es agradecer..

Hola. Revisando, y revisando en la web, encontre un site bastante interesante, con varios ejemplos, para aprender a programar en HTML, HTML5, CSS, ASP, entre otros. El site es: http://www.w3schools.com/ Les dejo un screenshot, para que vean que no es una web maliciosa o algo asi. Espero que les sirva. Saludos.