Kanji Trainer selbstgemacht mit BlitzBasic

shinjidershizo · 22.10.04 11:31

habe mit einer Computersprache einen kanjitrainer geschrieben

Man muß nur die Lesungen und Übersetzungen selber initialisieren oder man erweitert das programm mit einer Dateifunktion

Was man braucht sind die Kanjis, die mit bmp daherkommen und 100mal100 pixel groß sind, kann man mit paint machen

1.bmp für Mensch
2.bmp für Tag,Sonne
3.bmp für Mond Monat

ich habe die Wörter strickt nach irgendeinem Wörterbuch oder Kanjilexikon eingegeben wenn mehrere Wörter gefragt sind Kommas dazwischen setzen

Graphics 800,600,32,2
SetBuffer BackBuffer()
Global KAnzahl = 4
Dim KBild(KAnzahl)
Dim gesehen(KAnzahl)
;
For i = 1 To KAnzahl
KBild(i) = LoadImage(Str$(i)+".bmp")
Next
; die erste Auswahl:
Global wahl = Rand(KAnzahl)
gesehen(wahl) = 1
;---------------------------------------------------
Dim V_Bedeutung$(KAnzahl)
Dim V_japanisch$(KAnzahl)
Dim V_OnLesung$(KAnzahl)
;--------------------------------------------------
V_Bedeutung$(1)="Mensch"
V_Bedeutung$(2)="Tag,Sonne"
V_Bedeutung$(3)="Mond,Monat"
V_Bedeutung$(4)="Tag"
;---------------------------------------------------
V_japanisch$(1)="hito"
V_japanisch$(2)="hi,ka"
V_japanisch$(3)="tsuki"
V_japanisch$(4)=""
;---------------------------------------------------
V_OnLesung$(1)="JIN,NIN"
V_OnLesung$(2)="NICHI,JITSU"
V_OnLesung$(3)="GETSU,GATSU"
V_OnLesung$(4)="YOO"
;---------------------------------------------------

zeichne_Zeichen

Function Abfrage()
Locate 10,10
Bedeutung$=Input$("Bedeutung:")
Locate 10,20
japanisch$=Input$("japanisch:")
Locate 10,30
OnLesung$=Input$("On_Lesung:")
End Function

Function zeichne_Zeichen()
Repeat
Cls
Locate 10,100
Print wahl
DrawBlock KBild(wahl),512-ImageWidth(KBild(wahl))/2,130
If MouseHit(1) Then
wahl=0
wahl = Rand(KAnzahl)
gesehen(wahl) = 1
Abfrage()
;--------------------------------------------------
If V_Bedeutung$(wahl)=Bedeutung$ Then
Locate 10,50
Print "Bedeutung richtig"
Else
Locate 10,50
Print "Bedeutung falsch"
EndIf

If V_japanisch$(wahl)=japanisch$ Then
Locate 10,70
Print "japanisch richtig"
Else
Locate 10,70
Print "japanisch falsch"
EndIf

If V_OnLesung$(wahl)=OnLesung$ Then
Locate 10,90
Print "On_Lesung richtig"
Else
Locate 10,90
Print "on_Lesung_falsch"
EndIf
Locate 10,130
Print wahl
Delay 800
;---------------------------------------
; sind alle Kanjis angesehen?
For i = 1 To KAnzahl
If gesehen(i) = 0 Then ; nein, denn es gibt noch eins
Repeat
wahl = Rand(KAnzahl)
If gesehen(wahl) = 1 Then
wahl = 0 ; nochmal Zufallsauswahl
Else
gesehen(wahl) = 1
EndIf
Until wahl > 0
Exit
EndIf
Next
If wahl = 0 Then ; keins mehr da
Text 10,10,"Das war das letzte. Ende: ESC, nochmal: Leertaste."
Flip
WaitKey()
For i = 1 To KAnzahl
gesehen(i) = 0
Next
; Neustart
wahl = Rand(KAnzahl)
gesehen(wahl) = 1
EndIf
EndIf
;
Flip
Forever
End Function

Function vergleich()
If V_Bedeutung$(wahl)=Bedeutung$ Then
Locate 10,50
Print "Bedeutung richtig"
Else
Locate 10,50
Print "Bedeutung falsch"
EndIf

If V_japanisch$(wahl)=japanisch$ Then
Locate 10,70
Print "japanisch richtig"
Else
Locate 10,70
Print "japanisch falsch"
EndIf

If V_OnLesung$(wahl)=OnLesung$ Then
Locate 10,90
Print "On_Lesung richtig"
Else
Locate 10,90
Print "on_Lesung_falsch"
EndIf
Locate 10,130
Print wahl
Delay 800
End Function

Man könnte ihn mit einem Menü-auswahl oder Lektionen versehen Man kann auch die Kanjis mit Word machen, sofern man alles umgestellt hat, dann auf Print drücken und mit Paint einfügen

Man kann so auch japanische Vokabeln abfragen oder Verbfelxionen

habe leider keine Homepage

shinjidershizo · 22.10.04 11:53

Jetzt sollte es aber richtig funktionieren, weil oben einige kleine Fehler waren

Graphics 800,600,32,2
SetBuffer BackBuffer()
Global KAnzahl = 4
Dim KBild(KAnzahl)
Dim gesehen(KAnzahl)
;
For i = 1 To KAnzahl
KBild(i) = LoadImage(Str$(i)+".bmp")
Next
; die erste Auswahl:
Global wahl = Rand(KAnzahl)
gesehen(wahl) = 1
;---------------------------------------------------
Dim V_Bedeutung$(KAnzahl)
Dim V_japanisch$(KAnzahl)
Dim V_OnLesung$(KAnzahl)
;--------------------------------------------------
V_Bedeutung$(1)="Mensch"
V_Bedeutung$(2)="Tag,Sonne"
V_Bedeutung$(3)="Mond,Monat"
V_Bedeutung$(4)="Tag"
;---------------------------------------------------
V_japanisch$(1)="hito"
V_japanisch$(2)="hi,ka"
V_japanisch$(3)="tsuki"
V_japanisch$(4)=""
;---------------------------------------------------
V_OnLesung$(1)="JIN,NIN"
V_OnLesung$(2)="NICHI,JITSU"
V_OnLesung$(3)="GETSU,GATSU"
V_OnLesung$(4)="YOO"
;---------------------------------------------------
Global Bedeutung$
Global japanisch$
Global OnLesung$
;---------------------------------------------------
zeichne_Zeichen

Function Abfrage()
Locate 10,10
Bedeutung$=Input$("Bedeutung:")
Locate 10,20
japanisch$=Input$("japanisch:")
Locate 10,30
OnLesung$=Input$("On_Lesung:")
End Function

Function zeichne_Zeichen()
Repeat
Cls
Locate 10,100
Print wahl
DrawBlock KBild(wahl),512-ImageWidth(KBild(wahl))/2,130
If MouseHit(1) Then

Abfrage()
;--------------------------------------------------
Vergleich()
wahl=0
;---------------------------------------
; sind alle Kanjis angesehen?
For i = 1 To KAnzahl
If gesehen(i) = 0 Then ; nein, denn es gibt noch eins
Repeat
wahl = Rand(KAnzahl)
If gesehen(wahl) = 1 Then
wahl = 0 ; nochmal Zufallsauswahl
Else
gesehen(wahl) = 1
EndIf
Until wahl > 0
Exit
EndIf
Next
If wahl = 0 Then ; keins mehr da
Text 10,10,"Das war das letzte. Ende: ESC, nochmal: Leertaste."
Flip
WaitKey()
For i = 1 To KAnzahl
gesehen(i) = 0
Next
; Neustart
wahl = Rand(KAnzahl)
gesehen(wahl) = 1
EndIf
EndIf
;

Flip
Forever
End Function

Function vergleich()
If V_Bedeutung$(wahl)=Bedeutung$ Then
Locate 10,50
Print "Bedeutung richtig"
Else
Locate 10,50
Print "Bedeutung falsch"
EndIf

If V_japanisch$(wahl)=japanisch$ Then
Locate 10,70
Print "japanisch richtig"
Else
Locate 10,70
Print "japanisch falsch"
EndIf

If V_OnLesung$(wahl)=OnLesung$ Then
Locate 10,90
Print "On_Lesung richtig"
Else
Locate 10,90
Print "on_Lesung_falsch"
EndIf
Locate 10,130
Print wahl
Delay 800
End Function

Bitfresser · 22.10.04 13:18

Blitzbasic ist bestimmt eine tolle Sache. Aber denkst Du nicht, es waere besser, das fertige Programm irgendwo auf einem Server abzulegen, und es dann nach hier zu verlinken? Dies ist doch keine Fachhomepage fuer Softwareentwickler oder fuer Programmierer. Zudem was erwartest Du auf Deinen Code? Ich glaube kaum, dass jemand das ganze hier zu Hause ueber seinen Blitz-Basic-Interpreter laufen lassen wuerde.

Sieh doch mal im Bereich "Anmerkungen zum Forum" nach, da wurden Links zu kostenlosen Webspaceprovidern gegeben.

shinjidershizo · 22.10.04 17:11

Wenn mir jemand sagt wie.

shinjidershizo · 22.10.04 17:13

Werde irgendwie versuchen bei meinem Provider Platz zu bekommen

Bitfresser · 22.10.04 19:14

Das einfachste ist, Du fragst Nora, sie stellt es fuer Dich gerne ins Netz und Du brauchst hier nur noch drauf zu verweisen. Schrieb ihr einfach ne PN.

Nora · 22.10.04 19:23

Genau, schreib mir einfach eine PM oder schick mir gleich das Programm per Mail, dann lade ich es hoch.

shinjidershizo · 23.10.04 09:20

Ok ich muß das Programm dann nur noch fertig schreiben, das dauert dann ne woche

was ist ne PM M für mail

Bitfresser · 23.10.04 09:57

Wenn Du auf das Profil des jeweiligen Mitglied klickst, kannst Du ihm unter "Private Nachricht" eine senden.

shinjidershizo · 23.10.04 14:11

habe das prog an nora gesendet

Möglicherweise verwandte Themen...
Thema:	Verfasser	Antworten:	Ansichten:	Letzter Beitrag
kanji pict-o-graphix	mazzpi	45	18.418	07.11.24 01:01 Letzter Beitrag: yamaneko
Kanji Übungsbuch von Hadamitzky	yamaneko	9	3.570	04.08.22 19:42 Letzter Beitrag: 梨ノ木
dt.- jap. Wörterbuch für Muttersprachlerin aber ohne Kanji	tamgunda	5	2.668	03.01.22 09:40 Letzter Beitrag: Kikunosuke
Kanji lernen und wann ist die beste Zeit dafür	MisakiSaeko	15	6.267	03.12.21 10:47 Letzter Beitrag: MisakiSaeko
Rezension zu Kanji und Kana	Hellstorm	37	20.293	30.11.20 02:33 Letzter Beitrag: yamaneko

Kanji Trainer selbstgemacht mit BlitzBasic
Verfasser	Nachricht