PureBoard

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
;}