Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Телефонный рейтинг с опросом. Добавлено: 27.10.10 18:47  

Автор вопроса:  Владимир | Web-сайт: aikomp.com
Знающие люди помогите написать курсовую! Задание такое: Система телефонного рейтинг опроса с обработкой данных, с фиксацией номера телефона, номера обращения и времени обращения.
Сам я почти в этом дуб...

Пока что удалось написать:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim F_S As New FileInfo("test1.txt")
        Dim streamWriter As StreamWriter = F_S.AppendText()
        TextBoxTTime.Text = "Сюда нужно вставить текущее время"
        If Not TextBoxNTel.Text = "" Then
            streamWriter.WriteLine("{0,0}{1,1}{2,1}{3,1}{4,1}{5,1}{6,1}", TextBoxNTel.Text, ";", NumericUpDown1.Value, ";", TextBoxTTime.Text, ";", NumericUpDown2.Value)
            streamWriter.Flush()
            streamWriter.Close()
        End If

        NumericUpDown1.UpButton()
        TextBoxNTel.Text = ""
    End Sub


Программа записывает в .txt файл номер телефона номер обращения и т.д

Теперь нужно считать базу, причем постолбцам, и составить рейтинг ответов... В это проблема(

Ответить

  Ответы Всего ответов: 13  

Номер ответа: 1
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #1 Добавлено: 27.10.10 20:46
Чёт всех в последнее время на курсовые пробило)))
1)Как получить время :
  1.  
  2. DateTime.Now.Hour.ToString() + "." + DateTime.Now.Minute.ToString() + "." + DateTime.Now.Second.ToString() ///час.минута.секунда на бейсике может и не работать


2)
streamWriter.WriteLine("{0,0}{1,1}{2,1}{3,1}{4,1}{5,1}{6,1}", TextBoxNTel.Text, ";", NumericUpDown1.Value, ";", TextBoxTTime.Text, ";", NumericUpDown2.Value)

 а)вместо запятой между символами пиши "&"
 б)после строчки в кавычках тоже добавь ";"
3) как считать базу
  1.  
  2. Dim SR as StreamReader = new StreamReader(application.startuppath & "\test.txt")
  3. Dim s as string = ""
  4. While(Sr.endofstream = false)
  5. s = sr.readline();
  6. ///s.Split(";")(0) первый элемент массива т.е. те странные циферки в скобочках, s.Split(";")(1) - второй т.е. значение TextBoxNTel.Text и т.д.
  7. end while /// нипомню как на бейсике закрывается цикл while, вроде так


4)избавься от привычки прописывать путь к файлу так:
Dim F_S As New FileInfo("test1.txt";)

разве сложно написать:
  1. Dim F_S As New FileInfo(application.startuppath & "\test.txt")

???
5)переменную Streamwriter лучше написать не
Dim streamWriter As StreamWriter = F_S.AppendText()

а
  1. Dim streamWriter As StreamWriter = new StreamWriter(application.startuppath & "\test.txt")

6)и последнее лучше не создавай переменных названия которых совпадают с зарезервироваными словами, могут быть начаться глюки %_%)))

Ответить

Номер ответа: 2
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #2 Добавлено: 27.10.10 21:20
UnDeAdZak пишет:
1)Как получить время :  
DateTime.Now.Hour.ToString() + "." + DateTime.Now.Minute.ToString() + "." + DateTime.Now.Second.ToString() ///час.минута.секунда на бейсике может и не работать

  1. Dim Time As String = DateTime.Now.ToString("HH.mm.ss")


UnDeAdZak пишет:
2)
streamWriter.WriteLine("{0,0}{1,1}{2,1}{3,1}{4,1}{5,1}{6,1}", TextBoxNTel.Text, ";", NumericUpDown1.Value, ";", TextBoxTTime.Text, ";", NumericUpDown2.Value)

  1. streamWriter.WriteLine("{0}{1} {2}{1} {3}{1} {4}}", TextBoxNTel.Text, ";", NumericUpDown1.Value, TextBoxTime.Text, NumericUpDown2.Value)


UnDeAdZak пишет:
разве сложно написать:
Dim F_S As New FileInfo(application.startuppath & "\test.txt";)

  1. Try
  2.     Dim F_S As New FileInfo(application.startuppath & "\test.txt")
  3. Catch ex As Exception
  4.     MessageBox.Show("whoops, we failed there")
  5. End Try


UnDeAdZak пишет:
5)переменную Streamwriter лучше написать не
Dim streamWriter As StreamWriter = F_S.AppendText()

а
Dim streamWriter As StreamWriter = new StreamWriter(application.startuppath & "\test.txt";)

  1. Using <disposable object>
  2.     ...
  3. End Using

Ответить

Номер ответа: 3
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #3 Добавлено: 28.10.10 10:57
AgentFire Ну это ты уже придераешся)

Ответить

Номер ответа: 4
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #4 Добавлено: 28.10.10 11:17
вообще-то, поправляю вот-вот бы нагрянувшие ошибки. ОШИБКИ. он чуть было их не допустил изза тебя
UnDeAdZak пишет:
переменную Streamwriter лучше написать не

и почему же лучше? (допустим, что ему надо дописать текст)

Ответить

Номер ответа: 5
Автор ответа:
 Владимир



Вопросов: 1
Ответов: 6
  Web-сайт: aikomp.com
 Профиль | | #5 		Добавлено: 28.10.10 19:46
Читаю базу:

  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim SR As StreamReader = New StreamReader(Application.StartupPath & "\test.txt")
  3.         Dim s As String = ""
  4.         While (SR.EndOfStream = False)
  5.             s = SR.ReadLine()
  6.             s.Split(";")(0) \\\ вот сдесь выдает ошибочку "Выражение является методом"
  7.         End While
  8.         Label8.Text = s
  9.         SR.Close()
  10.     End Sub


Насчет вот этого спасибо!
  1. streamWriter.WriteLine("{0}{1} {2}{1} {3}{1} {4}}", TextBoxNTel.Text, ";", NumericUpDown1.Value, TextBoxTime.Text, NumericUpDown2.Value)


Время тоже без проблемм встало)

Ответить

Номер ответа: 6
Автор ответа:
 Владимир



Вопросов: 1
Ответов: 6
  Web-сайт: aikomp.com
 Профиль | | #6 		Добавлено: 28.10.10 19:47
Ой тоесть "Выражение НЕ является методом"

Ответить

Номер ответа: 7
Автор ответа:
 Владимир



Вопросов: 1
Ответов: 6
  Web-сайт: aikomp.com
 Профиль | | #7 		Добавлено: 28.10.10 19:50
О все разобрался!:
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim SR As StreamReader = New StreamReader(Application.StartupPath & "\test.txt")
  3.         Dim s As String = ""
  4.         While (SR.EndOfStream = False)
  5.             s = SR.ReadLine()
  6.         End While
  7.         Label8.Text = s.Split(";")(0)
  8.         SR.Close()
  9.     End Sub


Но мне в Label8 выводит только пследнее значение из базы, а мне нужны все значения, чтобы потом составить рейтинг из них.

Ответить

Номер ответа: 8
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #8 Добавлено: 28.10.10 20:24
попробуй скажем так:
  1. Using SR As New IO.StreamReader(Application.StartupPath & "\test.txt")
  2.     Label8.Text = String.Join("; ", SR.ReadToEnd.Split(ControlChars.NewLine).Select(Function(T) T.Split(";")(0)).ToArray)
  3. End Using

Ответить

Номер ответа: 9
Автор ответа:
 Владимир



Вопросов: 1
Ответов: 6
  Web-сайт: aikomp.com
 Профиль | | #9 		Добавлено: 28.10.10 21:14
да вроде так работает)))
Только вот так написал, без ; а то в поле выводит значение и на конце ;
  1. Using SR As New IO.StreamReader(Application.StartupPath & "\test.txt")
  2.     Label8.Text = String.Join("", SR.ReadToEnd.Split(ControlChars.NewLine).Select(Function(T) T.Split(";")(0)).ToArray)
  3. End Using

Ответить

Номер ответа: 10
Автор ответа:
 Владимир



Вопросов: 1
Ответов: 6
  Web-сайт: aikomp.com
 Профиль | | #10 		Добавлено: 28.10.10 21:25
При T.Split(";";)(0) все нормально выводится
При T.Split(";";)(1) и т.д выше 0 выдает ошибку "индекс находится вне границ масива"

Ответить

Номер ответа: 11
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #11 Добавлено: 28.10.10 21:39
AgentFire

и почему же лучше? (допустим, что ему надо дописать текст)

а что в new StreamReader([Filename],[append]) просто вместо арренд поставить true нельзя?

Ответить

Номер ответа: 12
Автор ответа:
 Владимир



Вопросов: 1
Ответов: 6
  Web-сайт: aikomp.com
 Профиль | | #12 		Добавлено: 28.10.10 21:41
Еще нашел трудую для меня задачу: Это сделать рейтинг из вариантов ответов. Нужно найти одинаковые ответы в базе, и посчтать количество каждого, и вывести рейтинг.

Ответить

Номер ответа: 13
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #13 Добавлено: 28.10.10 23:21
делай. находи, считай, выводи.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам