DER KONJUGIERER
Code: Alles auswählen
;/
;/Konjugierer - Von Leonard Dahlmann
;/Konjugiert regelmäßige Verben
;/
; -################# DEBUGGER AN !!! ################
; -##################################################
; -################### Variablen ####################
;{-##################################################
Structure Person
p.s[7]
EndStructure
Structure Verb
Infinitiv.s
Partizip1.s
Partizip2.s
PP.Person
Perfekt.Person
Praet.Person
Praesens.Person
Futur1.Person
Futur2.Person
EndStructure
Dim pS.s(6)
pS(1) = "Ich"
pS(2) = "Du"
pS(3) = "Er/Sie/Es"
pS(4) = "Wir"
pS(5) = "Ihr"
pS(6) = "Sie"
;Hilfsverb 'haben'
Haben.Verb
Haben\Infinitiv = "haben"
Haben\Praesens\p[1] = "habe"
Haben\Praesens\p[2] = "hast"
Haben\Praesens\p[3] = "hat"
Haben\Praesens\p[4] = "haben"
Haben\Praesens\p[5] = "habt"
Haben\Praesens\p[6] = "haben"
Haben\Praet\p[1] = "hatte"
Haben\Praet\p[2] = "hattest"
Haben\Praet\p[3] = "hatte"
Haben\Praet\p[4] = "hatten"
Haben\Praet\p[5] = "hattet"
Haben\Praet\p[6] = "hatten"
;Hilfsverb 'werden'
Werden.Verb
Werden\Infinitiv = "werden"
Werden\Praesens\p[1] = "werde"
Werden\Praesens\p[2] = "wirst"
Werden\Praesens\p[3] = "wird"
Werden\Praesens\p[4] = "werden"
Werden\Praesens\p[5] = "werdet"
Werden\Praesens\p[6] = "werden"
;}
; -##################################################
; -##### Hier das Verb eingeben, das konjugiert #####
; -##### werden soll (nur regelmäßige Verben): #####
;{-##################################################
Verb.Verb\Infinitiv = "holen"
Inf.s = LCase(Verb\Infinitiv)
Len.l = Len(Inf)
;}
; -##################################################
; -################# Konjugieren ####################
;{-##################################################
;Partizipien
Verb\Partizip1 = Inf+"d"
Verb\Partizip2 = "ge"+Mid(Inf,0, Len-2) + "t"
Part2.s = Verb\Partizip2
;Präsens:
Verb\Praesens\p[1] = Mid(Inf,0, Len-1) ;Ich
Verb\Praesens\p[2] = Mid(Inf,0, Len-2) + "st" ;Du
Verb\Praesens\p[2] = ReplaceString(Verb\Praesens\p[2],"au","äu",1,0)
Verb\Praesens\p[3] = Mid(Inf,0, Len-2) + "t" ;Er/Sie/Es
Verb\Praesens\p[3] = ReplaceString(Verb\Praesens\p[3],"au","äu",1,0)
Verb\Praesens\p[4] = Inf ;Wir
Verb\Praesens\p[5] = Mid(Inf,0, Len-2) + "t" ;Ihr
Verb\Praesens\p[6] = Verb\Praesens\p[4] ;Sie
;Plusquamperfekt
For I = 1 To 6
Verb\PP\p[I] = Haben\Praet\p[I]+" "+Part2
Next
;Perfekt
For I = 1 To 6
Verb\Perfekt\p[I] = Haben\Praesens\p[I]+" "+Part2
Next
;Präteritum
Praet.s = Verb\Praesens\p[3]
Verb\Praet\p[1] = Praet + "e"
Verb\Praet\p[2] = Praet + "est"
Verb\Praet\p[3] = Praet + "e"
Verb\Praet\p[4] = Praet + "en"
Verb\Praet\p[5] = Praet + "et"
Verb\Praet\p[6] = Verb\Praet\p[4]
;Futur I
For I = 1 To 6
Verb\Futur1\p[I] = Werden\Praesens\p[I]+" "+Inf
Next
;Futur II
For I = 1 To 6
Verb\Futur2\p[I] = Werden\Praesens\p[I]+" "+Part2+" "+Haben\Infinitiv
Next
;}
; -##################################################
; -################### Debuggen #####################
;{-##################################################
Debug "Infinitiv: "+Inf
Debug "--------"
Debug "Partizip I: "+Verb\Partizip1
Debug "Partizip II: "+Verb\Partizip2
Debug "--------"
Debug "Präsens:"
For I = 1 To 6
Debug Str(I)+". "+pS(I)+" "+Verb\Praesens\p[I]
Next
Debug ""
Debug "Futur I:"
For I = 1 To 6
Debug Str(I)+". "+pS(I)+" "+Verb\Futur1\p[I]
Next
Debug ""
Debug "Futur II:"
For I = 1 To 6
Debug Str(I)+". "+pS(I)+" "+Verb\Futur2\p[I]
Next
Debug ""
Debug "Plusquamperfekt:"
For I = 1 To 6
Debug Str(I)+". "+pS(I)+" "+Verb\PP\p[I]
Next
Debug ""
Debug "Perfekt:"
For I = 1 To 6
Debug Str(I)+". "+pS(I)+" "+Verb\Perfekt\p[I]
Next
Debug ""
Debug "Präteritum:"
For I = 1 To 6
Debug Str(I)+". "+pS(I)+" "+Verb\Praet\p[I]
Next
;}
