Escrito por carlosfmur1948 en Small Basic y etiquetada con ,
aaaabbbb

Small Basic: TextWindow.WriteLine como ayuda de depuración
¿Cómo detectamos el error? Es hora de depurar el código otra vez…modificar
Puede el programa y usar TextWindow.WriteLine para mostrar el valor que devuelve la operación CopyFile en la ventana de texto – la cual puede ser SUCCESS o FAILED.
De esta manera, si el programa no es capaz de ejecutarse por un error en la operación CopyFile ¡lo sabrá inmediatamente!
Código:
GraphicsWindow.Width = 600
GraphicsWindow.Height = 450
GraphicsWindow.Top = (Desktop.Height-450) / 2
GraphicsWindow.left = (Desktop.Width-600) / 2
GraphicsWindow.Title = “Imágenes”
RutaImagen = “C:\Users\carlos\Pictures\aaaabbbb.jpg”
GUI()
ImagenSmallBasic = File.GetFiles(RutaImagen)
GraphicsWindow.DrawResizedImage(ImagenSmallBasic[i], 50, 50, 500, 300)
Controls.ButtonClicked = SlideShow
Sub GUI
GraphicsWindow.BackgroundColor =”LightSlateGray”
GraphicsWindow.FontSize=25
botónSgte = Controls.AddButton(“<”,50,370)
botónAtr = Controls.AddButton(“>”,500,370)
Controls.SetSize(botónSgte, 50, 50)
Controls.SetSize(botónAtr, 50, 50)
EndSub
Sub SlideShow
If Controls.GetButtonCaption(Controls.LastClickedButton) = “>” Then
If i < Array.GetItemCount(ImagenSmallBasic) Then
i = i + 1
imágenes[i] = ImageList.LoadImage(ImagenSmallBasic[i])
GraphicsWindow.DrawResizedImage(imágenes[i], 50, 50, 500, 300)
TextWindow.WriteLine(“Nombre de imagen: ” + ImagenSmallBasic[i])
EndIf
EndIf
If Controls.GetButtonCaption(Controls.LastClickedButton) = “<” Then
If i > 1 Then
i = i – 1
imágenes[i] = ImageList.LoadImage(ImagenSmallBasic[i])
GraphicsWindow.DrawResizedImage(imágenes[i], 50, 50, 500, 300)
TextWindow.WriteLine(“Nombre de imagen: ” + ImagenSmallBasic[i])
EndIf
EndIf
EndSub

Deja un comentario