Как добавлять записи в файл, делая проверку на пустые записи

@dekartkaine · Регистрация: 10.12.2011

Студворк — интернет-сервис помощи студентам

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
39
40
41
42
43
k = 0 'Ñ÷åò÷èê ïócòûõ çàïèñåé
For x = 0 To 7
    If Text1(x).Text = "" Then
        Shape1(x).Visible = True
        k = k + 1
    End If
Next x
 
For y = 0 To 4
    If Combo1(y).Text = "" Then
        Shape2(y).Visible = True
        k = k + 1
    Else
        k = 0
    End If
Next y
 
If k > 0 Then
    Label15.Visible = True
Else
    Label15.Visible = False
    For x = 0 To 7
        Shape1(x).Visible = False
    Next x
    For y = 0 To 4
        Shape2(y).Visible = False
    Next y
    db.mdl = Text1(0).Text
    db.pr = Text1(1).Text
    db.os = Combo1(0).Text
    db.cpu = Val(Text1(2).Text)
    db.ram = Val(Combo1(1).Text)
    db.mmr = Val(Text1(3).Text)
    db.bat = Val(Text1(4).Text)
    db.scr = Combo1(2).Text
    db.diag = Val(Text1(5).Text)
    db.rslw = Val(Text1(6).Text)
    db.rslh = Val(Text1(7).Text)
    db.bt = Combo1(3).Text
    db.wifi = Combo1(4).Text
    n = n + 1
    Put #1, n, db
End If

кнопка должна добавлять записи в файл, делая проверку на пустые записи
но записи не добавляются
не пойму что неправильно

@Апострофф · 28.05.2012, 14:11

Вставь в код перед проблемным участком строку

Visual Basic
1
Stop

или нажми [F9].
Запусти программу [F5], с точки остановки по [F8] отслеживай работу циклов и состояние переменных.
А гадать по картинке и фрагменту кода занятие неблагодарное

@dekartkaine · 28.05.2012, 14:16 **[ТС]**

так программа не останавливается, и не выдает ошибок)
просто не добавляет записи

@Апострофф · 28.05.2012, 14:27

Продолжаем гадать? Что у вас находится в двух обведенных зеленым комбобоксах?
И не лучше ли привести код полностью?

@dekartkaine · 28.05.2012, 14:29 **[ТС]**

ну я просто не знаю, код то вроде должен работать
я привел весь код кнопки "Добавить запись"

@Апострофф · 28.05.2012, 14:38

Нажми F9 на строке

Visual Basic
1
Private Sub Command_Добавить_запись_Click()

или как там она у вас называется?
Запусти программу. Нажми кнопку. Если остановки не произошло - значит, это не та кнопка.
Вы не ответили на вопрос по поводу двух обведенных зеленым комбобоксах?

@dekartkaine · 28.05.2012, 14:49 **[ТС]**

ааа, я туплю)
в комбобоксах cmdAdd и Click
при запуске и нажатию на кнопку вылазиет окно кода и ничего не присходит

@Апострофф · 28.05.2012, 15:00

Сообщение от dekartkaine

вылазиет окно кода и ничего не присходит

С этого момента давишь [F8] (идём по шагам), смотрим, что делает код, и почему в итоге k=0, т.е. нет записи в файл?

@dekartkaine · 28.05.2012, 15:10 **[ТС]**

ну если не обнулять k по нажатию кнопки то код же будет неправильно работать

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@dekartkaine 1 / 1 / 0 Регистрация: 10.12.2011 Сообщений: 47
	28.05.2012, 14:16 [ТС]
	так программа не останавливается, и не выдает ошибок) просто не добавляет записи 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	28.05.2012, 14:27
	Продолжаем гадать? Что у вас находится в двух обведенных зеленым комбобоксах? И не лучше ли привести код полностью? Миниатюры 0

@dekartkaine 1 / 1 / 0 Регистрация: 10.12.2011 Сообщений: 47
	28.05.2012, 14:29 [ТС]
	ну я просто не знаю, код то вроде должен работать я привел весь код кнопки "Добавить запись" 0

@dekartkaine 1 / 1 / 0 Регистрация: 10.12.2011 Сообщений: 47
	28.05.2012, 14:49 [ТС]
	ааа, я туплю) в комбобоксах cmdAdd и Click при запуске и нажатию на кнопку вылазиет окно кода и ничего не присходит Миниатюры 0

@dekartkaine 1 / 1 / 0 Регистрация: 10.12.2011 Сообщений: 47
	28.05.2012, 15:10 [ТС]
	ну если не обнулять k по нажатию кнопки то код же будет неправильно работать 0