15.07.2013 Views

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Microsoft Visual Basic - Encyclopaedia Gentium Boni

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

fctGrammaireGildersleeve - 1<br />

Public Sub GrammaireGildersleeve(recherche)<br />

If recherche = "participe présent" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23276"<br />

ElseIf recherche = "participe aoriste" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23286"<br />

ElseIf recherche = "participe parfait" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23295"<br />

ElseIf InStr(1, recherche, "accord") 0 And InStr(1, recherche, "adjectif") 0 Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23427"<br />

ElseIf InStr(1, recherche, "position") 0 And InStr(1, recherche, "adjectif") 0 Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23441"<br />

ElseIf InStr(1, recherche, "article") 0 And InStr(1, recherche, "omission") 0 Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23529"<br />

ElseIf InStr(1, recherche, "position") 0 And InStr(1, recherche, "article") 0 Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23524"<br />

'<br />

ElseIf recherche = "article" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23448"<br />

ElseIf recherche = "nominatif pour vocatif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%2312"<br />

ElseIf InStr(1, recherche, "nominatif") 0 And InStr(1, recherche, "vocatif") 0 Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%2312"<br />

ElseIf recherche = "nominatif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%233"<br />

ElseIf recherche = "vocatif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%2314"<br />

ElseIf recherche = "accusatif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%2395"<br />

ElseIf recherche = "datif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23424"<br />

ElseIf recherche = "génitif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23423"<br />

ElseIf recherche = "indicatif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23306"<br />

ElseIf recherche = "subjonctif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23314"<br />

ElseIf recherche = "impératif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23347"<br />

ElseIf recherche = "optatif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23333"<br />

ElseIf recherche = "infinitif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23267"<br />

ElseIf recherche = "participe" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%23274"<br />

ElseIf recherche = "adjectif" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />

d%3D%2327"<br />

ElseIf recherche = "adverbe" Then<br />

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!