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

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Чтение из текстового файла Добавлено: 14.02.11 08:31  

Автор вопроса:  SlapShop
Доброго времени суток! Пишу что-то вроде игры.
Public Class Form1
    Dim a(10)
    Dim i, b, t, y, u, o
    Dim p As Byte
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Enabled = True
        Button2.Enabled = True
        Randomize()
        Label2.Text = ""
        p = Rnd() * 3
        TextBox2.Text = p
        a(1) = "телефон"
        a(2) = "стол"
        a(3) = "наушники"
        a(4) = "калькулятор"
        a(5) = "колонки"
        a(6) = "принтер"
        a(7) = "тетрадь"
        a(8) = "коробка"
        a(9) = "книги"
        a(10) = "монитор"
        b = Rnd() * 10
        y = Mid(a(b), 3, 10) & Mid(a(b), 1, 2)
        u = Mid(a(b), 3, 10) & Mid(a(b), 2, 1) & Mid(a(b), 1, 1)
        o = Mid(a(b), 4, 10) & Mid(a(b), 2, 2) & Mid(a(b), 1, 1)
        If p = 0 Then Label1.Text = y
        If p = 1 Then Label1.Text = u
        If p = 2 Then Label1.Text = o
        TextBox3.Text = a(b)
        TextBox4.Text = Label1.Text
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox3.Text = TextBox1.Text Then Label2.Text = "Вы совершенно ПРАВЫ!!!" Else Label2.Text = "Вы проигралли!"
        If TextBox3.Text = TextBox1.Text Then Label1.Text = "" Else Label1.Text = ""
        If TextBox3.Text = TextBox1.Text Then Label3.Text = Val(Label3.Text) + 1 Else Label4.Text = Val(Label4.Text) + 1
        TextBox3.Text = ""
        TextBox1.Text = ""
        Button2.Enabled = False
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Enabled = False
    End Sub
End Class

А именно вопрос такой: как сделать так чтобы слова не как в этом примере забивать вручную в коде, а взять их из текстового файла и они поочередно заносились в массив?

Ответить

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

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



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #1 Добавлено: 14.02.11 13:54
IO.File.ReadAllLines

Ответить

Номер ответа: 2
Автор ответа:
 Захарка



Вопросов: 0
Ответов: 42
  Профиль | | #2 Добавлено: 14.02.11 14:17
А что за строчка
Dim i, b, t, y, u, o

переменных без типа????

Ответить

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



Вопросов: 1
Ответов: 4
  Профиль | | #3 Добавлено: 14.02.11 14:46
Я над этим не заморачиваюсь. Все-же работает =)

Ответить

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



Вопросов: 1
Ответов: 4
  Профиль | | #4 Добавлено: 14.02.11 14:49
Кстати я со всем этим разобрался, вот ссылка на рабочую программу http://rghost.ru/4354450

Ответить

Номер ответа: 5
Автор ответа:
 SlapShop



Вопросов: 1
Ответов: 4
  Профиль | | #5 Добавлено: 14.02.11 14:49
Кстати кто скачает скажите не низкий-ли уровень для 9 класса.

Ответить

Номер ответа: 6
Автор ответа:
 Jonn



ICQ: 610650385 

Вопросов: 3
Ответов: 8
  Web-сайт: kwttj122.narod.ru
 Профиль | | #6 		Добавлено: 14.02.11 18:24
4-й ржал...

Ответить

Номер ответа: 7
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #7 		Добавлено: 14.02.11 21:36
:) ОПЯТЬ Д/З ПО ИКТ. я ща в 6, но написать такое на vb6 смогбы

Ответить

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



Вопросов: 1
Ответов: 4
  Профиль | | #8 Добавлено: 16.02.11 15:49
  1.     Dim p As Byte
  2.     Dim y, u, o
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.         Label2.Visible = False
  5.         Button2.Enabled = True
  6.         TextBox1.Text = ""
  7.         Randomize()
  8.         p = Rnd() * 3
  9.         If p = 3 Then p = 1
  10.         Dim cht As New System.IO.StreamReader("Слова.txt")
  11.         Dim str As String
  12.         Dim a(50)
  13.         Dim i As Integer
  14.         Dim b As Integer
  15.         For i = 1 To 50
  16.             str = cht.ReadLine
  17.             a(i) = str
  18.         Next
  19.         b = Rnd() * 50
  20.         If b = 0 Then b = 23
  21.         Label1.Text = a(b)
  22.         y = Mid(a(b), 3, 10) & Mid(a(b), 1, 2)
  23.         u = Mid(a(b), 3, 10) & Mid(a(b), 2, 1) & Mid(a(b), 1, 1)
  24.         o = Mid(a(b), 3, 10) & Mid(a(b), 2, 1) & Mid(a(b), 1, 1)
  25.         If p = 0 Then Label1.Text = y
  26.         If p = 1 Then Label1.Text = u
  27.         If p = 2 Then Label1.Text = o
  28.         TextBox3.Text = a(b)
  29.         TextBox4.Text = Label1.Text
  30.         TextBox2.Text = p
  31.     End Sub
  32.  
  33.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  34.         Label2.Visible = True
  35.         If TextBox3.Text = TextBox1.Text Then Label2.Text = "Вы совершенно ПРАВЫ!!!" Else Label2.Text = "Вы проигралли!"
  36.         If TextBox3.Text = TextBox1.Text Then Label1.Text = "" Else Label1.Text = ""
  37.         If TextBox3.Text = TextBox1.Text Then Label3.Text = Val(Label3.Text) + 1 Else Label4.Text = Val(Label4.Text) + 1
  38.         Button2.Enabled = False
  39.         TextBox1.Text = ""
  40.     End Sub
  41.  
  42.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  43.         Button2.Enabled = False
  44.     End Sub


Исправленный код, может кому пригодится =)

Ответить

Страница: 1 |

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



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