Visual Basic Forum

nd528_ · Tutorial Leser Anmeldedatum: 18.05.2007 Beiträge: 23

Hallo Leute,
Ich hab grad für my Class ein Lateinübersetzer geproggt und wie ihr vlt wisst gibs in den Lateinbüchern Lektion und zu jeder Lektion gibt es Vokabeln.Ich hab jetzt die Vokabeln von der 1.Lektion in mein Übersetzer eingefügt. Und jetzt kommt meine Frage

Also könnten man in diesem Programm ein Update einfügen das zb immer neue Vokabeln eingefügt werden in den Programm ohne das man es manuel bearbeiten muss (so ein Serverupdate) in der Art

Ich hoffe ihr versteht was ich meine. Wenn der Code zu umständlich ist dann sagt es mir bitte^^.

Programm Code:

[code]Private Sub ok_Click()
Dim est As String
Dim adest As String
Dim rogat As String
Dim stat As String
Dim vocat As String
Dim dolet As String
Dim gaudet As String
Dim ridet As String
Dim sedet As String
Dim et As String
Dim hic As String
Dim iam As String
Dim ibi As String
Dim nam As String
Dim subito As String
Dim ubi As String

est = txt_eingabe.Text
adest = txt_eingabe.Text
rogat = txt_eingabe.Text
stat = txt_eingabe.Text
vocat = txt_eingabe.Text
dolet = txt_eingabe.Text
gaudet = txt_eingabe.Text
ridet = txt_eingabe.Text
sedet = txt_eingabe.Text
et = txt_eingabe.Text
hic = txt_eingabe.Text
iam = txt_eingabe.Text
ibi = txt_eingabe.Text
nam = txt_eingabe.Text
subito = txt_eingabe.Text
ubi = txt_eingabe.Text

If est = "est" Then
lbl_ausgabe.Caption = "er/sie/es ist,befindet sich"
Else
lbl_ausgabe.Caption = "Falsche Vokabel"
End If

If adest = "adest" Then
lbl_ausgabe.Caption = "er/sie/es ist da,ist anwesend,steht bei;hilft"
End If

If rogat = "rogat" Then
lbl_ausgabe.Caption = "er/sie/es fragt,bittet"
End If

If stat = "stat" Then
lbl_ausgabe.Caption = "er/sie/es steht (da)"
End If

If vocat = "vocat" Then
lbl_ausgabe.Caption = "er/sie/es ruft,nennt"
End If

If dolet = "dolet" Then
lbl_ausgabe.Caption = "er/sie/es empfindet Schmerz,bedauert"
End If

If gaudet = "gaudet" Then
lbl_ausgabe.Caption = "er/sie/es freut sich"
End If

If ridet = "ridet" Then
lbl_ausgabe.Caption = "er/sie/es lacht"
End If

If sedet = "sedet" Then
lbl_ausgabe.Caption = "er/sie/es sitzt"
End If

If et = "et" Then
lbl_ausgabe.Caption = "und;auch"
End If

If hic = "hic" Then
lbl_ausgabe.Caption = "hier"
End If

If iam = "iam" Then
lbl_ausgabe.Caption = "schon,bereits;jetzt"
End If

If ibi = "ibi" Then
lbl_ausgabe.Caption = "da,dort"
End If

If nam = "nam" Then
lbl_ausgabe.Caption = "denn,nämlich"
End If

If subito = "subito" Then
lbl_ausgabe.Caption = "plötzlich"
End If

If ubi = "ubi" Then
lbl_ausgabe.Caption = "wo"
End If

End Sub[/code]

MFg

nd528

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

ja der ist umständlich oO

1. du brauchst nur eine variable um den inhalt des eingabetextfeldes zu speichern. du hast für jedes wort eine^^

2. if abfragen für so eine menge ist umständlich - benutz select case

die updatefunktion kannst du machen indem du die vokabeln beispielsweise in ein textfeld schreibst

nd528_ · Tutorial Leser Anmeldedatum: 18.05.2007 Beiträge: 23

danke danke für die antwort wie soll ich das mit select case machen und zu update ich will ya das es automatisch update

also sagen wir mal du hat jetzt diese programm so jetzt mache ich von zuhause aus eine neue lektion dann sollte es bei dem online drauf kommen

hoffe ihr versteht was ich meine^^

Marduk_ · « Moderator » Anmeldedatum: 17.06.2007 Beiträge: 389

Arbeite doch mit einer Datenbank, bzw speicher deine Vokabeln nicht im Code sondern in einer Datei. Dein Programm liest dann die Vokabeln aus der Datei aus. Hat den Vorteil, das du nur die Datei mit den Vokabeln austauschen musst.

nd528_ · Tutorial Leser Anmeldedatum: 18.05.2007 Beiträge: 23

danke danke jungs

aber ich bin noch newbie also ich kann schon programmieren aber datenbank und so kp könntet ihr mir vlt ein source code geben oder so ehrlich ^^

@select case
ich hab grad mit select case geproggt, aber das ist blöd ich mag select case net so
da muss man fast genau soviel schreiben^^.

mfg
nd528

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

ist aber übersichtlicher^^

nd528_ · Tutorial Leser Anmeldedatum: 18.05.2007 Beiträge: 23

ya das ist was anderes^^ danke aber

TheCoder_ · Verfasst am: 08.07.2007, 11:49

Benutz doch, was für dich als Anfänger auch am besten ist, eine Textdatei. Dort steht dann z.b. in jeder Zeile
Vokabel:Übersetzung
Also könnte die so aussehen:
bello:Krieg
ubi:Wo
ibi:dort
aedificare:bauen
und so weiter
dann brauchst du die textdatei nur einlesen und nach der Zeile suchen wo die Lateinische Vokabel steht. Danach nimmst du aus der Zeile einfach mithilfe von instr und mid alles was nach dem doppelpunkt steht und gibst es aus.
du solltest drauf achten das in der Textdatei alles klein ist und wenn du nach der lateinischen vokabel suchst du nach Lcase(Vokabel) suchst. sonst wird UbI nich gefunden weil es in der date vlt Ubi heißt.

Wenne fragen hast meld dich ^^
Latein is ne scheiß sprache. man muss zuviel lernen. Aber man kann tierisch mit angeben Very Happy

Bahamut_ · « Moderator » Anmeldedatum: 12.12.2006 Beiträge: 250

Wenn schon Lateinübersetzer dann vernünftig ^^

Erstmal wie gesagt ne Datenbank und in die etwas mehr Vokabeln, 17 Stück is nicht grad die Wucht. Und die dann in allen Zeiten bzw. Fällen, dein Programm weiß im Moment nicht, dass z.b "riderant" von "ridere" kommt und erst recht nicht was "riderant" dann heist.

Viel Spaß bei deinen nächsten paar 1000 Stunden Arbeit Wink

VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/

nd528_ · Tutorial Leser Anmeldedatum: 18.05.2007 Beiträge: 23

bammmm das dauert ya langeee na toll ich hab mit den zeiten gar nicht gedacht ohhh^^

da kann ich ya die ganze ferien durch machen danke nochmal könnt ihr mir sagen wie ich eine datenbank mache^^

Hamtaro_ · Verfasst am: 08.07.2007, 13:57

Wie Bahamut gesagt hat:
Du schreibst alle Vokablen in eine Textdatei, im von ihm vorgeschlagenen Format