Uitdaging van het rijtjes overhoren

Opgaven en tips voor programmeerwedstrijden.

Uitdaging van het rijtjes overhoren

Berichtdoor Gordon » za jun 23, 2007 9:36 pm

Oké, kunt u een overhoor programma schrijven?

1. Gewoon eerst een bestand bestaande uit een Nederlands woord
en daarachter de Franse vertaling maken.
2. Toon de lijst op het scherm
3. De Franse of Nederlandse kolom uitzetten.

4. Controleren of de woordjes goed zijn onthouden.

Succes.

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor Gordon » za jun 30, 2007 1:47 pm

Hier is een voorbeeld

Code: Selecteer alles
'Form created with the help of Freeform 3 v05-15-07
'Generated on Jun 29, 2007 at 00:46:35



    'nomainwin
    WindowWidth = 550
    WindowHeight = 410
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)



    listbox #m.l1, array1$(, [listbox1DoubleClick],   95,  53, 135, 219
    listbox #m.l2, array2$(, [listbox2DoubleClick],  317,  52, 122, 220
    button #m.b1,"Controleer",[button1Click], UL,  93, 316,  96,  25

    statictext #m.s1, "Nederlands:", 10, 10, 80, 18
    statictext #m.sa1, "", 100, 10, 40, 18

    statictext #m.s2, "Frans:", 270, 10, 80, 18
    statictext #m.sa2, "", 320, 10, 40, 18


    open "untitled" for window as #m
    #m, "font ms_sans_serif 10"
    #m, "trapclose [quit.main]"


'----------data nederlandse woordjes
data "een","twee","drie","vier","vijf","zes"

'----------data franse woordjes
data "une","deux","trois","quatre","cinq","six"
wrd = 6 'aantal paren van woordjes

'------------------- woordjes inlezen nederlands
for dt = 1 to wrd
read dummy$
array1$(dt) = dummy$
next dt

'------------------- woordjes inlezen frans
    for dt = 1 to wrd
        read dummy$
        array2$(dt) = dummy$
        array3$(dt) = dummy$    '--- extra rijtje om de
                                '--- originele woordjes te onthouden
    next dt

'------------------- rijtjes array2 wordt door elkaar geschud
    for dt = 1 to wrd
        swap$ = array2$(1) :rand = int(rnd(0)*wrd)+1
        array2$(1) = array2$(rand):array2$(rand)=swap$
    next dt

'------------------ toon de laatste selectie
    index1 = rand : var1$ = array1$(index1)
'#m.l1 "selectindex ";index1
'#m.l1 "select ";var1$
'print var1$

    #m.l1 "reload"          '----- verversing
    #m.l2 "reload"          '----- verversing
    #m.l1 "select ";var1$   '----- focus
    #m.sa1, var1$
wait

[quit.main] 'End the program
    close #m
    END



[listbox1DoubleClick]
#m.l1 "selection? var1$"
#m.l1 "selectionindex? index1"
'print var1$
'print index1
#m.sa1 var1$
    wait



[listbox2DoubleClick]
#m.l2 "selection? var2$"
#m.l2 "selectionindex? index2"
'print var2$
'print index2
#m.sa2 var2$

    wait



[button1Click]   'Perform action for the button named 'button1'
'print
'print var1$
'print index1
'print
'print var2$
'print index2
'print
'print array1$(index1)
'print array2$(index1)
'print array3$(index1)


if var2$ = array3$(index1) then
print "goed"
else
print "fout"
end if
    wait




Succes.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » za jun 30, 2007 3:46 pm

mooi progje.
Misschien handig om de "singleclickselect" command er even tussen te smijten om misverstanden te vermijden.
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Gordon » za jun 30, 2007 9:27 pm

anthonio schreef:mooi progje.
Misschien handig om de "singleclickselect" command er even tussen te smijten om misverstanden te vermijden.


Zeker een goed idee.

BTW mijn programma ziet er heel anders uit.
Deze voorzet is bedoeld om beginners aan het programmeren te krijgen.

Om een Listbox goed te gebruiken zullen ze (de beginners)
ondervinden dat een gebruiker meer mogelijkheden met
zijn muis heeft dan ons (de programmeur) lief is.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » zo jul 01, 2007 2:48 am

daarom dat het handig is altijd je programma door iemand anders te laten testen en zelf proberen afgaan welke acties de gebruiken kan ondernemen.
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Abcott » ma jul 02, 2007 10:22 pm

Ik dacht dat het belangrijkste het maken van de
databank was.
Daar moesten we toch het eerst mee beginnen?

1. Gewoon eerst een bestand bestaande uit een Nederlands woord
en daarachter de Franse vertaling maken.


In het voorbeeld van Gordon kom ik geen bestand tegen.
Het aanmaken van de rijtjes lijkt mij het moeilijkst?

Gelukkig kom ik niet uit de wereld van het onderwijs.

Abcott
Avatar gebruiker
Abcott
 
Berichten: 115
Geregistreerd: wo mei 25, 2005 9:58 pm


Keer terug naar Uitdagingen en wedstrijden

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron