Блок-схема по программному коду - VB
Формулировка задачи:
Решение задачи: «Блок-схема по программному коду»
textual
Листинг программы
Dim mas(100) As String, i As Integer, n As Integer, dr As String, nf As String, j As Integer, ret As Integer Private Sub Form_Activate() yst End Sub Private Sub Form_Resize() Image1.Left = Form1.Left Image1.Top = Form1.Top Image1.Height = Form1.Height Image1.Width = Form1.Width End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) On Error GoTo 1: If Button.Key = "kl3" Then i = 0 Do CommonDialog1.FileName = "" CommonDialog1.ShowOpen Toolbar1.Buttons(1).Enabled = False nm = CommonDialog1.FileName If nm = "" Then Exit Do End If i = i + 1 mas(i) = nm ret = MsgBox("Продолжить выборку файлов?", 1 + 32 + 0 + 0, "Выборка файлов") If ret <> 1 Then Exit Do End If Loop If i = 0 Then MsgBox "Ни выбрано ни одного файла!", 0, "" yst Exit Sub End If n = i i = 1 nm = mas(i) Image1.Picture = LoadPicture(nm) Image1.Left = Form1.Left Image1.Top = Form1.Top Image1.Height = Form1.Height Image1.Width = Form1.Width StatusBar1.SimpleText = "Полное имя файла: " & nm Toolbar1.Buttons(4).Enabled = True If i <> 1 Then Toolbar1.Buttons(2).Enabled = True Else Toolbar1.Buttons(2).Enabled = False End If If i <> n Then Toolbar1.Buttons(3).Enabled = True Else Toolbar1.Buttons(3).Enabled = False End If End If If Button.Key = "kl1" Then If i <> 1 Then i = i - 1 nm = mas(i) Image1.Picture = LoadPicture(nm) StatusBar1.SimpleText = " Полное имя файла: " & nm End If If i <> 1 Then Toolbar1.Buttons(2).Enabled = True Else Toolbar1.Buttons(2).Enabled = False End If If i <> n Then Toolbar1.Buttons(3).Enabled = True Else Toolbar1.Buttons(3).Enabled = False End If End If If Button.Key = "kl2" Then If i <> n Then i = i + 1 nm = mas(i) Image1.Picture = LoadPicture(nm) StatusBar1.SimpleText = " Полное имя файла: " & nm End If If i <> 1 Then Toolbar1.Buttons(2).Enabled = True Else Toolbar1.Buttons(2).Enabled = False End If If i <> n Then Toolbar1.Buttons(3).Enabled = True Else Toolbar1.Buttons(3).Enabled = False End If End If If Button.Key = "kl4" Then Image1.Picture = LoadPicture() StatusBar1.SimpleText = "" yst End If Exit Sub 1: If Button.Key = "kl2" Or Button.Key = "kl3" Then MsgBox "Файл " & nm & " Не является изображением!", 0, "" If Button.Key = "kl2" Then i = i - 1 End If If Button.Key = "kl3" Then yst End If End If End Sub Sub yst() Toolbar1.Buttons(1).Enabled = True Toolbar1.Buttons(2).Enabled = False Toolbar1.Buttons(3).Enabled = False Toolbar1.Buttons(4).Enabled = False End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д