Здраствуйте народ! У меня дипломный! Есть программа на VB6.0 с БД SQL SERVER 2008! я создал клиент на Вижуал Бэйсике! Но программа так как для него нужен 1 тест! О дипломе коротка это у меня Электронный книга! Или же скажем так электронный учитель, в программе есть управление БД удаленно, Лекций, Дом работы, Журнал в котором можно смотреть как хочешь( ну филтр с разных таблиц смотря ты как выберешь). Проблема у меня в одном у меня нет теста! Тест должен как то импортироватся с Ворда! И отчет (ну например оценка 5 ) дать в SQL Server таблицу или же в text.txt или TextBOX а дальше я могу с них в SQL Server перевести!
Есть такое в примете?

-тстOrkenЗдраствуйте народ!
У меня дипломный!
Есть программа на VB6.0 с БД SQL SERVER 2008! я создал клиент на Вижуал Бэйсике!
Но программа так как для него нужен 1 тест!
О дипломе коротка это у меня Электронный книга!
Или же скажем так электронный учитель, в программе есть управление БД удаленно,
Лекций, Дом работы, Журнал в котором можно смотреть как хочешь( ну филтр с разных таблиц смотря ты как выберешь).
Проблема у меня в одном у меня нет теста!
Тест должен как то импортироватся с Ворда!
И отчет (ну например оценка 5 ) дать в SQL Server таблицу или же в text.txt
или TextBOX а дальше я могу с них в SQL Server перевести!
Есть такое в примете?типа
тебе нужен
набор Вопросов и Ответов ?
из некоего теста ?
нет МНЕ НУЖЕН ПРОГРАММА на подове

Orken,

Const N_LEV = 4 ' êîëè÷åñòâî óðîâíåé îöåíêè
Const N_ANS = 4 ' ìàêñèìàëüíîå êîëè÷åñòâî
' âàðèàíòîâ îòâåòà
Dim fileName As String ' èìÿ ôàéëà òåñòà
Dim summa As Integer ' êîëè÷åñòâî íàáðàííûõ î÷êîâ
' (ïðàâèëüíûõ îòâåòîâ)
Dim vopros As Integer ' íîìåð òåêóùåãî âîïðîñà
Dim otv As Integer ' íîìåð âûáðàííîãî îòâåòà
Dim f As String ' áóôåð ÷òåíèÿ

' ñóììà, ñîîòâåòñòâóþùàÿ óðîâíþ îöåíêè
Dim level(1 To N_LEV) As Integer
' ñîîáùåíèå, ñîîòâåòñòâóþùåå óðîâíþ
Dim mes(1 To N_LEV) As String
' îöåíêà çà âûáîð îòâåòà
Dim score(1 To N_ANS) As Integer

' ùåë÷îê íà êíîïêå Ok\Äàëüøå
Private Sub Command1_Click()
Select Case Command1.Tag
' âûâîä ïåðâîãî âîïðîñà
Case 0:
Command1.Enabled = False

Call resetForm
Call voprosToScr

Command1.Tag = 1
Command1.Caption = "Äàëüøå"

' âûâîä îñòàëüíûõ âîïðîñîâ
Case 1:
summa = summa + score(otv)
Command1.Enabled = False

Call resetForm

If Not EOF(1) Then
Call voprosToScr
Else
Close #1
Command1.Caption = "Ok"
Form1.Caption = "Ðåçóëüòàò"
Command1.Tag = 2
Command1.Enabled = True
Call itog ' âûâåñòè ðåçóëüòàò
End If

' çàâåðøåíèå ðàáîòû
Case 2:
Unload Me
End Select
End Sub

' íàæàòèå êíîïêè Âûõîä
Private Sub Command2_Click()
Unload Me
End Sub

' èíèöèàëèçàöèÿ ôîðìû
Private Sub Form_Initialize()
fileName = CurDir + "\test.txt"

' îòêðûòèå ôàéëà äëÿ ÷òåíèÿ
Open fileName For Input As #1

Call resetForm
Call info ' âûâîä èíôîðìàöèè î òåñòå
Call getLevel ' ÷òåíèå èíôîðìàöèè îá îöåíêàõ

Form1.ScaleMode = vbPixels
Command1.Tag = 0

Label1.WordWrap = True
Label1.AutoSize = True
End Sub

' âûâîä èíôîðìàöèè î òåñòå
Sub info()
Dim buf As String

Line Input #1, f ' ÷òåíèå íàçâàíèå òåñòà
Form1.Caption = f ' âûâîä íàçâàíèå òåñòà
buf = ""

Do ' ÷òåíèå èíôîðìàöèè î òåñòå
Line Input #1, f
If Mid(f, 1, 1) <> "." Then _
buf = buf + f + vbCrLf
Loop Until Mid(f, 1, 1) = "."
' Mid(f, 1, 1) ñ÷èòûâàåò èç ñòðîêè f ñ ïåðâîé ïîçèöèè
' 1 ñèìâîë

' âûâîä èíôîðìàöèè î òåñòå
Label1.Caption = buf

Command1.Caption = "Ok"
End Sub

' ÷òåíèå èíôîðìàöèþ îá îöåíêàõ çà òåñò
Sub getLevel()
Dim i As Integer
i = 1

Do
Line Input #1, f
If Mid(f, 1, 1) <> "." Then
mes(i) = f ' ñîîáùåíèå
Line Input #1, f ' îöåíêà
level(i) = f
i = i + 1
End If
Loop Until Mid(f, 1, 1) = "."
End Sub

' óñòàíîâêè äëÿ íà÷àëà òåñòà
Sub resetForm()
' êíîïêè âàðèàíòîâ îòâåòà è Picture1 íåâèäèìû
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False

Option1.Caption = ""
Option2.Caption = ""
Option3.Caption = ""
Option4.Caption = ""

Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False

Image1.Visible = False
End Sub

' ìàñøòàáèðîâàíèå èëëþñòðàöèè
Sub showPicture()
Dim w As Integer, h As Integer ' ìàêñèìàëüíî âîçìîæíûå
' ðàçìåðû èëëþñòðàöèè

' êîýôôèöèåíò ïðîïîðöèîíàëüíîñòè ïðè ìàñøòàáèðîâàíèè
Dim resize As Single

Image1.Stretch = False
Image1.Top = Label1.Top + Label1.Height + 7

' âû÷èñëåíèå äîïóñòèìûõ ðàçìåðîâ êàðòèíêè
w = Form1.ScaleWidth - Label1.Left * 2
h = Command1.Top - Label1.Top - Label1.Height - 7 * 2

' ðàçìåð îáëàñòè âûâîäà èëëþñòðàöèè çàâèñèò îò êîëè÷åñòâà
' âàðèàíòîâ àëüòåðíàòèâíûõ îòâåòîâ - ÷åì ìåíüøå êîëè÷åñòâî
' âàðèàíòîâ îòâåòà, òåì áîëüøå îáëàñòü
If Option1.Caption <> "" Then h = h - Option1.Height - 7
If Option2.Caption <> "" Then h = h - Option2.Height - 7
If Option3.Caption <> "" Then h = h - Option3.Height - 7
If Option4.Caption <> "" Then h = h - Option4.Height - 7

' åñëè ðàçìåð êàðòèíêè ìåíüøå w íà h, òî îíà
' íå ìàñøòàáèðóåòñÿ

' ìàñøòàáèðîâàíèå ïî äëèíå
If (Image1.Height > h) Then
resize = Image1.Width / Image1.Height
Image1.Stretch = True
Image1.Width = h * resize
Image1.Height = h
End If

' ìàñøòàáèðîâàíèå ïî øèðèíå
If (Image1.Width > w) Then
Image1.Stretch = True
Image1.Width = w
Image1.Height = w / resize
End If

Image1.Visible = True
End Sub

' âûâîä âîïðîñà
Sub voprosToScr()
Dim i As Integer
Dim s As String, buf As String
Dim ifn As String ' ôàéë èëëþñòðàöèè

vopros = vopros + 1
Form1.Caption = "Âîïðîñ " + Str(vopros)
buf = ""

' ÷òåíèå âîïðîñà
Do
Line Input #1, f
If Mid(f, 1, 1) <> "." And Mid(f, 1, 1) <> "\" _
Then
buf = buf + f + " "
End If
Loop Until Mid(f, 1, 1) = "." Or Mid(f, 1, 1) = "\"

' âûâîä âîïðîñà
Label1.Caption = buf

' èëëþñòðàöèÿ çàãðóæàåòñÿ, íî âûâîäèòñÿ òîëüêî ïîñëå òîãî,
' êàê áóäóò ïðî÷èòàíû àëüòåðíàòèâíûå îòâåòû è îïðåäåëåí
' ìàêñèìàëüíî âîçìîæíûé ðàçìåð îáëàñòè ôîðìû, êîòîðûé ìîæíî
' èñïîëüçîâàòü äëÿ åå âûâîäà
If Mid(f, 1, 1) <> "\" Then
Image1.Tag = 0 ' ê âîïðîñó íåò èëëþñòðàöèè
Else ' ê âîïðîñó åñòü èëëþñòðàöèÿ
Image1.Tag = 1
ifn = Mid(f, 2)
' Mid(f, 2) - ñ÷èòûâàíèå âñåõ ñèìâîëîâ èç ñòðîêè f
' íà÷èíàÿ ñî 2-é ïîçèöèè

' ïðè ÷òåíèè èëëþñòðàöèè ïðîèçîøëà îøèáêà
' (ôàéë èëëþñòðàöèè íå íàéäåí)
On Error Resume Next
Image1.Picture = LoadPicture(CurDir + "\" + ifn)
If Err Then Image1.Tag = 0
End If

i = 1

' ñ÷èòûâàíèå âàðèàíòîâ îòâåòà
Do
buf = ""
Do ' ñ÷èòûâàíèå òåêñòà âàðèàíòà îòâåòà
Line Input #1, f
If Mid(f, 1, 1) <> "." And Mid(f, 1, 1) <> "," _
Then
buf = buf + f + " "
End If
Loop Until Mid(f, 1, 1) = "." Or Mid(f, 1, 1) = ","

' ïðî÷èòàí àëüòåðíàòèâíûé îòâåò
score(i) = Int(Mid(f, 2, 1))

Select Case i
Case 1: Option1.Caption = buf
Case 2: Option2.Caption = buf
Case 3: Option3.Caption = buf
Case 4: Option4.Caption = buf
End Select
i = i + 1
Loop Until Mid(f, 1, 1) = "."
' òåïåðü ïðî÷èòàíà èëëþñòðàöèÿ è àëüòåðíàòèâíûå îòâåòû

' òåêñò âîïðîñà óæå âûâåäåí, èëëþñòðàöèÿ - íåò
If Image1.Tag = 1 Then ' åñòü èëëþñòðàöèÿ ê âîïðîñó
Call showPicture
End If

' âûâîä àëüòåðíàòèâíûõ îòâåòîâ
If Option1.Caption <> "" Then
If Image1.Tag = 1 Then
Option1.Top = Image1.Top + Image1.Height + 7
Else: Option1.Top = Label1.Top + Label1.Height + 7
End If
Option1.Visible = True
End If

If Option2.Caption <> "" Then
Option2.Top = Option1.Top + Option1.Height + 7
Option2.Visible = True
End If

If Option3.Caption <> "" Then
Option3.Top = Option2.Top + Option2.Height + 7
Option3.Visible = True
End If

If Option4.Caption <> "" Then
Option4.Top = Option3.Top + Option3.Height + 7
Option4.Visible = True
End If
End Sub

' îïðåäåëåíèå äîñòèãíóòîãî óðîâíÿ
Sub itog()
Dim i As Integer
Dim buf As String

buf = "Ðåçóëüòàòû òåñòèðîâàíèÿ:" + vbCrLf + _
"Âñåãî áàëëîâ: " + Str(summa)

i = 1
While (summa < level(i)) And (i < N_LEV)
i = i + 1
Wend

buf = buf + vbCrLf + mes(i)
Label1.Caption = buf
End Sub

' âûáîð 1-ãî âàðèàíòà îòâåòà
Private Sub Option1_Click()
otv = 1
Command1.Enabled = True
End Sub

' âûáîð 2-ãî âàðèàíòà îòâåòà
Private Sub Option2_Click()
otv = 2
Command1.Enabled = True
End Sub

' âûáîð 3-ãî âàðèàíòà îòâåòà
Private Sub Option3_Click()
otv = 3
Command1.Enabled = True
End Sub

' âûáîð 4-ãî âàðèàíòà îòâåòà
Private Sub Option4_Click()
otv = 4
Command1.Enabled = True
End Sub