Escrito por carlosfmur1948 en Small Basicy etiquetada con , ,
file3
 
To learn programming, you must program, program and program.
I took several short exercises of the Curriculum and wrote these into a single program.
This exercise includes objects: ImageList; Network and File
Chapters 2.6 and 3.1 of the Curriculum Tutorial
  1. GraphicsWindow.Title = “Imagen”
  2. rutaImagen = “C:\Users\carlos\Pictures\conchilas.jpg”
  3. Imagen = ImageList.LoadImage(rutaImagen)
  4. GraphicsWindow.Width=ImageList.GetWidthOfImage(rutaImagen)
  5. GraphicsWindow.Height=ImageList.GetHeightOfImage(rutaImagen)
  6. GraphicsWindow.DrawImage(Imagen, 0, 0)
  7. ‘ Fin
  9. rutaarchivo1= “http://download.microsoft.com/download/9/0/6/90616372-C4BF-4628-BC82-BD709635220D/Introducing%20Small%20Basic.pdf”
  10. ArchivoDescargado= Network.DownloadFile(rutaarchivo1)
  11. TextWindow.WriteLine(” Archivo descargado: ” + ArchivoDescargado)
  12. ‘ Fin
  14. rutaarchivo2= “http://download.microsoft.com/”
  15. ContenidoPaginaWeb = Network.GetWebPageContents(rutaarchivo2)
  16. TextWindow.WriteLine(“Contenido de la pagina: “)
  17. TextWindow.WriteLine(ContenidoPaginaWeb)
  18. ‘ Fin
  20. TextWindow.WriteLine(” El objeto File “)
  21. rutaarchivo3= “c:\Users\carlos\temp\SubdirectorioTemp\mio.txt”
  22. TextWindow.WriteLine(“Escribir Contenido” + File.WriteLine(rutaarchivo3, 1, “Boca es un gran equipo de futbol”))
  23. TextWindow.WriteLine(“Agregar contenido” + File.AppendContents(rutaarchivo3, ” y ademas gano muchos trofeos”))
  24. TextWindow.WriteLine(“Leer contenido= ” + File.ReadContents(rutaarchivo3))
  25. ‘ Fin
  27. As Nonki says, to learn programming, program and program.
    I took several short exercises of the Curriculum and wrote these into a single program.
    This exercise includes objects: ImageList; Network
    and File
    Chapters 2.6 and 3.1 of the Curriculum
    Keep in mind that the paths of the files and directories must be such as we have in our physician C:
    Perhaps someone more novice than me, this will serve.
    regards
  30. rutaArchivoOrigen = “c:\Users\carlos\temp\SubdirectorioTemp\mio.txt”
  31. rutaArchivoDestino = “C:\Users\carlos\temp\SubdirectorioTemp\mover.txt”
  32. rutaDirectorio= “C:\Users\carlos\temp\SubdirectorioTemp”
  33. TextWindow.WriteLine(“Copiar archivo de operacion: ” +File.CopyFile(rutaArchivoOrigen,rutaArchivoDestino))
  34. TextWindow.WriteLine(” Archivos en el directorio: ” + File.GetFiles(rutaDirectorio))
  35. ‘ Fin
  37. rutaDirectorio1 = “C:\Users\carlos\temp\Small Basic”
  38. TextWindow.WriteLine(“Crear directorio: ” + File.CreateDirectory(rutaDirectorio1))
  39. rutaDirectorio2 = “C:\Users\carlos\temp”
  40. TextWindow.WriteLine(“Directorios: “+ File.GetDirectories(rutaDirectorio2))
  41. ‘ Fin
  42. TextWindow.WriteLine(” Ultimo error “)
  43. rutaarchivo4 = “c:\Users\carlos\temp\SubdirectorioTemp\mio.txt”
  44. TextWindow.WriteLine(” Operacion WriteLine: ” + File.WriteLine(rutaarchivo4, 1, ” como esta ? “))
  45. If File.LastError = ” ” Then
  46. TextWindow.WriteLine(“La operacion se completo con exito”)
  47. Else
  48. TextWindow.WriteLine(File.LastError)
  49. EndIf
  50. ‘Fin


                      http://www.empiezoinformatica.wordpress.com

Deja un comentario