Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.04.2012
Сообщений: 18
1

Создание блок схемы по коду

19.12.2012, 21:37. Просмотров 1447. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста составить блок-схему по коду программы! Заранее спасибо

Добавлено через 1 час 7 минут
Проблема решена. Пожалуйста удалите\закройте тему.

Я случайно вставил не тот код. Вот правильный
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Form_Activate()
CommonDialog1.ShowOpen
nm = CommonDialog1.FileName
If nm = "" Then
    End
End If
i = Len(nm)
If Mid(nm, Len(nm) - 3) <> ".jpg" And Mid(nm, Len(nm) - 3) <> ".JPG" Then
    MsgBox "Не выбран рисунок JPG", 0, ""
    End
End If
Do
    If Mid(nm, i, 1) = "/" Or Mid(nm, i, 1) = "\" Then
        Exit Do
    End If
    i = i - 1
Loop
dr = Mid(nm, 1, i - 1)
snext = Dir$(dr & "\*.jpg")
i = 1
mas(i) = snext
While snext <> ""
    snext = Dir$
    i = i + 1
    mas(i) = snext
Wend
n = i - 1
For i = 1 To n
    If dr & "\" & mas(i) = nm Then
        Exit For
    End If
Next
Image1.Picture = LoadPicture(nm)
Image1.Left = Form1.Left
Image1.Top = Form1.Top
Image1.Height = Form1.Height
Image1.Width = Form1.Width
StatusBar1.SimpleText = "Полное имя файла: " & nm
И вот что получилось
[битая ссылка]
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2012, 21:37
Ответы с готовыми решениями:

Создание блок схемы по коду
Собственно имеется код: Sub Ket() Dim a () n=Cells (4,2).Vallue Redim a(n) For i=1 To n...

Построение блок-схемы по готовому коду
Dim a As String, i As Integer, j As Integer Private Sub Form_Load() a = InputBox(&quot;введите...

Создание блок-схемы FreeBasic - Basic
cls dim as single n,i input n screen 12 window (-200,-200)-(200,200) x1=-190 y1=-190 ...

создание блок схемы по коду
Program mass2; {раздел описаний} var b, c, n, m: integer; a: array of real; d: real; {начало...

1
Апострофф
19.12.2012, 22:38     Создание блок схемы по коду
  #2

Не по теме:

Grimm669, раскажите всем (пожалуйста), как только по коду (не зная цели задачи) строится блок-схема?
Вопрос не риторический, ждёмс:-[

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2012, 22:38
Привет! Вот еще темы с ответами:

Создание блок-схемы по коду
Здравствуйте, срочно нужна ваша помощь!!! Завтра сдавать весь материал по диплому, а осталась у...

Создание блок-схемы по коду VBA
Ребят, подскажите, как переделать блок-схему, чтоб она была правильной. код VBA Private Sub...

Блок-схемы по коду
помогите сделать блок-схемы по коду в Делфи var Form1: TForm1; a, i, x, d, r, o, s :...

Блок-схемы к коду
Нужны блоксхемы к следующим задачам: 1) using System; using System.Collections.Generic; using...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.