Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запись и чтение личных данных 
:(
    Опции темы
Guest
Дата 23.4.2005, 18:54 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











нужно сделать такую фишку:
при запуске программы она проверяет наличие файла user.txt
если такого файла нет, то задается несколько вопросов о пользователе (имя, дата рождения и т.п.)
ответы записываются в файл user.txt
при запуске программы если есть файл user.txt вопросы о пользователе не задаются, выводится сообщение "здравствуйте xxxx"
где вместо хххх - имя которое ты ввел ранее и которое сохранилось в user.txt
  Вверх
cardinal
Дата 23.4.2005, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Набросок:

Private Sub Form_Load()
If "FileExists Method" Then ' если файл существует
"Open Statement" ' открываем файл
"Get Statement" ' читаем данные из файла
"Close Statement" ' закрываем файл
"MsgBox Function" ' выводится сообщение "здравствуйте xxxx"
Else
"InputBox Function" ' вопросы о пользователе
"Open Statement" ' открываем файл
"Put Statement" ' запись данных в файл
"Close Statement" ' закрываем файл
End If
End Sub


То, что написано в ковычках тебе надо поискать на форуме (или в том же MSDN). Информация, которая находится на форуме тебе будет достаточно!


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Guest
Дата 23.4.2005, 21:42 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











а можно подробнее
  Вверх
cardinal
Дата 23.4.2005, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Если тебе с нуля то нет, а если не с нуля, то я жду конкретных вопросов...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Guest
Дата 24.4.2005, 07:36 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











там же небольшой листинг, подскажи очень надо.
  Вверх
Exception
Дата 24.4.2005, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186



Код


Private Sub Form_Load()
If Dir("C:\myfile.txt")<>"" Then
Open "C:\myfile.txt" For Input As #1
Dim str as string
Read #1,str
Close #1
MsgBox str
Else
dim name as string
name=InputBox("Введите имя:")
Open "C:\myfile.txt" For OutPut As #1
Print #1,name
Close #1
Msgbox name & " привет!"
End If
End Sub

PM   Вверх
Naghual
Дата 24.4.2005, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



2 Run-time error
Зря ты гостей так балуеш. К тому-же ленивых.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Exception
Дата 25.4.2005, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186



Цитата(Naghual @ 24.4.2005, 15:31)
Зря ты гостей так балуеш

Знаю-знаю... из жалости smile
PM   Вверх
Guest
Дата 25.4.2005, 20:33 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Read #1,str
пишет красным, типа ошибка почему?
  Вверх
amt
Дата 25.4.2005, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3



замени на Input
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
Exception
Дата 26.4.2005, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186



Блин... чего-то я и правда подзабыл операторы I/O smile
2 Guest
Не понимаю, зачем ты вообще программированием занялся? Если это тебе надо "чтобы получить 5 в зачетке", то смысла в таком учении? Если ты уже кем-то работаешь ( smile ), то это просто нонсенс - такое нежелание нормально учиться языку и лезть в хелп.
И под конец: мне кажется более чем не уважительно задавать такие вопросы, лениться полазить в MSDN, лениться написать хоть одну строчку кода и не зарегистрироваться. Все таки IMHO, это форум а не Сборище Пьяных Программистов smile
О как сказал smile
PM   Вверх
Guest
Дата 26.4.2005, 22:33 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Причина одна, мало времени много идей, а как сделать лучше спросить у знающих людей - всегда помогут и подскажут чем рыться в поисках ответа на свой вопрос в книгах и факах.
  Вверх
Naghual
Дата 27.4.2005, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Цитата
а как сделать лучше спросить...  чем рыться в поисках ответа...

А это основы. Если ты роешся в поисках ответа на такие вопросы, то может лучше сначала подучится, почитать?


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Ignis
Дата 4.5.2005, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Искатель



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 2.5.2005
Где: Баку

Репутация: нет
Всего: нет



Цитата(Guest @ 26.4.2005, 22:33)
Причина одна, мало времени много идей, а как сделать лучше спросить у знающих людей - всегда помогут и подскажут чем рыться в поисках ответа на свой вопрос в книгах и факах.

Ну да, кто-то годами опыт набирал и рылся в книгах до ослепления, а тут быстренько и просто...
Я не против помощи, всякое бывает, но таблицу умножения знать все же надо, тут не поможешь...
PM MAIL WWW Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0813 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.