Sub adjectives()

MsgBox prompt:="articles" & " " & "h:\document and settings\Deutsch2\Kap09\"

MsgBox prompt:="Deutsch article CONJUGATION"

Dim pres$(50), past$(50)

Dim tense1$(10), ARV1$(10), ARV2$(10), ARV3$(10), ARV4$(10), ARV5$(10), ARV6$(10)

Dim tense2$(10), eRV1$(10), eRV2$(10), eRV3$(10), eRV4$(10), eRV5$(10), eRV6$(10)

Dim tense3$(10), iRV1$(10), iRV2$(10), iRV3$(10), iRV4$(10), iRV5$(10), iRV6$(10)

Dim PRONOUNS$(6)

PRONOUNS$(1) = "masc"

PRONOUNS$(2) = "neut"

PRONOUNS$(3) = "fem"

PRONOUNS$(4) = "pl"

Open "H:\Private\My Documents\Deutsch2\Kap09\der.csv" For Input As #1

 

1 If EOF(1) Then GoTo 2

For i = 1 To 4

Input #1, ten1$, Ar1$, Ar2$, Ar3$, Ar4$, Ar5$, Ar6$

 

tense1$(i) = ten1$

ARV1$(i) = Ar1$

ARV2$(i) = Ar2$

ARV3$(i) = Ar3$

ARV4$(i) = Ar4$

ARV5$(i) = Ar5$

ARV6$(i) = Ar6$

 

Next i

2 Close #1

MsgBox prompt:=ARV1$(1) & " " & ARV1$(2) & " " & ARV1$(3) & " " & ARV1$(4) & " der"

i = 0

Open "H:\Private\My Documents\Deutsch2\Kap09\ein.csv" For Input As #2

3 If EOF(2) Then GoTo 4

For i = 1 To 4

Input #2, ten2$, ev1$, ev2$, ev3$, ev4$, ev5$, ev6$

tense2$(i) = ten2$

eRV1$(i) = ev1$

eRV2$(i) = ev2$

eRV3$(i) = ev3$

eRV4$(i) = ev4$

eRV5$(i) = ev5$

eRV6$(i) = ev6$

Next i

4 Close #2

i = 0

MsgBox prompt:=eRV1$(1) & " " & eRV1$(2) & " " & eRV1$(3) & " " & eRV1$(4) & " " & "ein"

Open "H:\Private\My Documents\Deutsch2\Kap09\no.csv" For Input As #3

5 If EOF(3) Then GoTo 6

i = i + 1

Input #3, ten3$, V1$, V2$, V3$, V4$, V5$, V6$

tense3$(i) = ten3$

iRV1$(i) = V1$

iRV2$(i) = V2$

iRV3$(i) = V3$

iRV4$(i) = V4$

iRV5$(i) = V5$

iRV6$(i) = V6$

GoTo 5

6 Close #3

MsgBox prompt:=iRV1$(1) & " " & iRV1$(2) & " " & iRV1$(3) & " " & iRV1$(4) & " no"

Open "H:\Private\My Documents\Deutsch2\Kap09\adjective.txt" For Input As #4

9 If EOF(4) Then GoTo 11

i = i + 1

Input #4, numb, presverb$, pastverb$, mean$

past$(i) = pastverb$

pres$(i) = presverb$

MsgBox prompt:=pres$(i) & " "

GoTo 9

10 Close #4

11 noun1$ = InputBox(prompt:="enter noun", Title:=noun)

inf$ = InputBox(prompt:="adjective:", Title:="conjugate")

If inf$ = "end" Then GoTo 3000

Per$ = InputBox(prompt:="enter masc:neut;fem;pl ", Title:="Gender:")

For i = 1 To 6

If Per$ = PRONOUNS$(i) Then GoTo 12

Next i

GoTo 11

12 xper = i

For v = 1 To 50

If inf$ = pres$(v) Then GoTo 14

Next v

GoTo 15

14 xx$ = InputBox(prompt:="old adjective")

   noun1$ = InputBox(prompt:="noun")

15 paststem$ = inf$

Teststem$ = Mid$(paststem$, Len(paststem$) - 1, 2)

stem$ = Mid$(paststem$, 1, Len(paststem$) - 2)

stem$ = inf$

Teststem$ = InputBox(prompt:="enter der;ein;no", Title:="teststem")

If Teststem$ = "der" Then GoTo 100

If Teststem$ = "ein" Then GoTo 200

If Teststem$ = "no" Then GoTo 300

GoTo 11

100 MsgBox prompt:="der adj" & " " & noun1$

 

 

For i = 1 To 4

129 Verb$ = stem$

GoTo 140

130 MsgBox prompt:="miss"

GoTo 11

140 On xper GoTo 141, 142, 143, 144, 145, 146

GoTo 130

141 MsgBox prompt:=Per$ & " " & Verb$ + ARV1$(i) & " " & noun1$

GoTo 149

142 MsgBox prompt:=Per$ & " " & Verb$ + ARV2$(i) & " " & noun1$

GoTo 149

143 MsgBox prompt:=Per$ & " " & Verb$ + ARV3$(i) & " " & noun1$

GoTo 149

144 MsgBox prompt:=Per$ & " " & Verb$ + ARV4$(i) & " " & noun1$

GoTo 149

145 MsgBox prompt:=Per$ & " " & Verb$ + ARV5$(i)

GoTo 149

146 MsgBox prompt:=Per$ & " " & Verb$ + ARV6$(i)

149 Next i

GoTo 11

200 MsgBox prompt:="ein adj"

Verb$ = stem$

For i = 1 To 4

On xper GoTo 241, 242, 243, 244, 245, 246

241   MsgBox prompt:=Per$ & " " & Verb$ + eRV1$(i) & " " & noun1$

GoTo 249

242    MsgBox prompt:=Per$ & " " & Verb$ + eRV2$(i) & " " & noun1$

GoTo 249

243   MsgBox prompt:=Per$ & " " & Verb$ + eRV3$(i) & " " & noun1$

GoTo 249

244   MsgBox prompt:=Per$ & " " & Verb$ + eRV4$(i) & " " & noun1$

GoTo 249

245   MsgBox prompt:=Per$ & " " & Verb$ + eRV5$(i)

GoTo 249

246 MsgBox prompt:=Per$ & " " & Verb$ + eRV6$(i)

249 Next i

GoTo 11

300 MsgBox prompt:=" no adj"

Verb$ = stem$

For i = 1 To 4

On xper GoTo 341, 342, 343, 344, 345, 346

341  MsgBox prompt:=Per$ & " " & Verb$ + iRV1$(i) & " " & noun1$

GoTo 349

342   MsgBox prompt:=Per$ & " " & Verb$ + iRV2$(i) & " " & noun1$

GoTo 349

343  MsgBox prompt:=Per$ & " " & Verb$ + iRV3$(i) & " " & noun1$

GoTo 349

344  MsgBox prompt:=Per$ & " " & Verb$ + iRV4$(i) & " " & noun1$

GoTo 349

345   MsgBox prompt:=Per$ & " " & Verb$ + iRV5$(i) & " " & noun1$

GoTo 349

346   MsgBox prompt:=Per$ & " " & Verb$ + iRV6$(i)

349 Next i

GoTo 11

3000 End

 

End Sub