LEREN & programma schrijven stap voor stap ik ben een be

Cursussen, tutorials
Plaats hier uw bijdrage.

HET EERSTE SCHERM HOE IK EROVER DENK

Berichtdoor mikadofazant » di sep 11, 2007 4:51 pm

'Form created with the help of Freeform 3 v03-27-03
'Generated on Sep 11, 2007 at 17:36:06


[setup.main.Window]

'-----Begin code for #main

nomainwin
WindowWidth = 1040
WindowHeight = 600
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)


'-----Begin GUI objects code

statictext #main.statictext1, "SCHERM 1", 430, 17, 86, 20
button #main.button4,"Welke kategorie",[button4Click], UL, 380, 37, 200, 25
button #main.button5,"groenten",[button5Click], UL, 25, 102, 115, 25
button #main.button4,"zuivel",[button4Click], UL, 150, 102, 115, 25
button #main.button5,"drank",[button5Click], UL, 270, 102, 115, 25
button #main.button6,"deegwaren",[button6Click], UL, 395, 102, 115, 25
button #main.button7,"nieuw onbekende kategorie",[button7Click], UL, 330, 137, 305, 25
button #main.button8,"afdeling keuken",[button8Click], UL, 380, 72, 200, 25
button #main.button9,"afdeling tuin",[button9Click], UL, 385, 167, 200, 25
button #main.button10,"afspanningsdraad",[button10Click], UL, 25, 197, 160, 25
button #main.button11,"golfplaaten",[button11Click], UL, 195, 197, 115, 25
button #main.button12,"hout",[button12Click], UL, 315, 197, 70, 25
button #main.button13,"nagels",[button13Click], UL, 390, 197, 90, 25
button #main.button14,"vijzen",[button14Click], UL, 490, 197, 85, 25
button #main.button16,"afdeling computer",[button16Click], UL, 390, 257, 200, 25
button #main.button17,"cd",[button17Click], UL, 25, 277, 85, 25
button #main.button18,"inktpatroon",[button18Click], UL, 115, 277, 105, 25
button #main.button19,"welke printer ",[button19Click], UL, 225, 277, 135, 25
button #main.button20,"nieuw onbekende kategorie",[button20Click], UL, 325, 227, 305, 25
button #main.button20,"nieuw onbekende kategorie",[button20Click], UL, 330, 307, 305, 25
statictext #main.statictext34, "OPMERKING", 80, 382, 101, 20
statictext #main.statictext35, "Dit komt niet op het scherm het is maar info hoe ik erover denk", 80, 402, 456, 20
statictext #main.statictext36, "Dit zijn de verschillende knoppen op 1 scherm de gebruiker", 80, 422, 432, 20
statictext #main.statictext37, "mag meer een knop indrukken daarna gaat het naar het volgende scherm", 80, 442, 531, 20
statictext #main.statictext38, "ofwel een nieuw scherm met nieuwe subcategorien of liefst", 80, 462, 432, 20
statictext #main.statictext39, "op hetzelfde scherm dus het scherm wissen daarna de nieuwe subcategorien tonen", 80, 482, 611, 20

'-----End GUI objects code

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


[main.inputLoop] 'wait here for input event
wait



[button4Click] 'Perform action for the button named 'button4'

'Insert your own code here

wait


[button5Click] 'Perform action for the button named 'button5'

'Insert your own code here

wait


[button6Click] 'Perform action for the button named 'button6'

'Insert your own code here

wait


[button7Click] 'Perform action for the button named 'button7'

'Insert your own code here

wait


[button8Click] 'Perform action for the button named 'button8'

'Insert your own code here

wait


[button9Click] 'Perform action for the button named 'button9'

'Insert your own code here

wait


[button10Click] 'Perform action for the button named 'button10'

'Insert your own code here

wait


[button11Click] 'Perform action for the button named 'button11'

'Insert your own code here

wait


[button12Click] 'Perform action for the button named 'button12'

'Insert your own code here

wait


[button13Click] 'Perform action for the button named 'button13'

'Insert your own code here

wait


[button14Click] 'Perform action for the button named 'button14'

'Insert your own code here

wait


[button16Click] 'Perform action for the button named 'button16'

'Insert your own code here

wait


[button17Click] 'Perform action for the button named 'button17'

'Insert your own code here

wait


[button18Click] 'Perform action for the button named 'button18'

'Insert your own code here

wait


[button19Click] 'Perform action for the button named 'button19'

'Insert your own code here

wait


[button20Click] 'Perform action for the button named 'button20'

'Insert your own code here

wait

[quit.main] 'End the program
close #main
end

Dit zou het eerste scherm moeten zijn voor de pc kassa om daarna verder te gaan naar een tweede ongeveer dezelfde opstelling maar natuurlijk andere sub kategorien op de knoppen om op die manier steeds dichter bij het produkt te gaan dat de gebruiker had gedacht de gebruier mag dus maar een knop kunnen indukken daarna komt er steeds een nieuw scherm mar liefst zou ik de subcategorien zien op hetzelfde scherm dus eerst scherm blanco daarna nieuwe knoppen is dit te doen in lb ???????????
mikadofazant
 
Berichten: 22
Geregistreerd: di aug 07, 2007 4:48 pm

Berichtdoor Gordon » di sep 11, 2007 8:20 pm

Oeps ik kan wel de berichten lezen,
maar ik zit even in het buitenland.

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

SCHERM twee eigenschappen van het produkt

Berichtdoor mikadofazant » di sep 11, 2007 9:04 pm

dit is he scherm van de INPUT over de eigenschappen vaneen produkt dat zou moeten bewaard worden in een soort data bank maar daarvan heb ik echt nog niet veel ervaring kunnen opdoen hoe begin je daar het best mee

'Form created with the help of Freeform 3 v03-27-03
'Generated on Sep 11, 2007 at 21:52:02


[setup.main.Window]

'-----Begin code for #main

nomainwin
WindowWidth = 1050
WindowHeight = 585
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)


'-----Begin GUI objects code

graphicbox #main.graphicbox2, 15, 52,1015, 400
button #main.button1,"info over het produkt",[button1Click], UL, 370, 7, 255, 25
statictext #main.statictext4, "INPUT eigenschappen van het produkt", 20, 17, 281, 20
statictext #main.statictext6, "1)--Kategorie van het produkt", 145, 72, 214, 20
statictext #main.statictext7, "2)--Subkategorie van het produkt", 145, 102, 240, 20
TextboxColor$ = "white"
textbox #main.textbox8, 435, 67, 380, 25
textbox #main.textbox7, 435, 97, 380, 25
statictext #main.statictext8, "3)--Subsub kategorie van het produkt", 145, 132, 240, 20
textbox #main.textbox9, 435, 127, 380, 25
statictext #main.statictext12, ".................", 360, 72, 90, 20
statictext #main.statictext11, "...........", 390, 102, 90, 20
statictext #main.statictext12, ".....", 415, 132, 90, 20
statictext #main.statictext14, "4)--Korte omschrijving van het produkt", 145, 162, 240, 20
statictext #main.statictext15, ".....", 430, 162, 90, 20
ListboxColor$ = "white"
listbox #main.listbox20, array$(, [listbox20DoubleClick], 460, 157, 355, 55
statictext #main.statictext16, "5)--Gewicht van het produkt", 145, 227, 240, 20
textbox #main.textbox17, 440, 222, 380, 25
statictext #main.statictext18, ".....................", 350, 227, 90, 20
statictext #main.statictext19, "6)--Lengte van het produkt", 145, 252, 240, 20
statictext #main.statictext20, ".....................", 345, 252, 90, 20
textbox #main.textbox21, 440, 247, 380, 25
statictext #main.statictext22, "7)--Afmeting van het produkt", 145, 277, 240, 20
textbox #main.textbox23, 440, 277, 380, 25
statictext #main.statictext24, "..................", 360, 277, 90, 20
statictext #main.statictext25, "8)--Aard van de verpakking", 145, 302, 240, 20
textbox #main.textbox26, 440, 302, 380, 25
statictext #main.statictext27, "..................", 360, 307, 90, 20
statictext #main.statictext28, "9)--Hoeveelheid in verpakking", 145, 337, 240, 20
textbox #main.textbox29, 440, 332, 380, 25
statictext #main.statictext30, "...............", 375, 337, 90, 20
statictext #main.statictext31, "10)--Van welke winkel komt het", 145, 362, 240, 20
textbox #main.textbox32, 440, 362, 380, 25
statictext #main.statictext33, "...............", 375, 362, 90, 20
statictext #main.statictext34, "11)--INKOOP PRIJS", 145, 392, 240, 20
textbox #main.textbox35, 440, 387, 380, 25
statictext #main.statictext36, "..................................", 300, 392, 90, 20
statictext #main.statictext37, "12)--VERKOOP PRIJS", 145, 417, 240, 20
textbox #main.textbox38, 440, 417, 380, 25
statictext #main.statictext39, ".........................", 335, 422, 90, 20
statictext #main.statictext48, "Dit komt niet op het scherm het is info hoe ik erover denk", 25, 457, 414, 20
statictext #main.statictext49, "Al deze gegevens zouden moeten bewaard kunnen worden", 25, 477, 429, 20
statictext #main.statictext50, "In een soort data bank en natuurlijk ook terug opgevraagd worden", 25, 497, 474, 20
statictext #main.statictext51, "En natuurlijk bij het code nummer bijeen blijven zodat de eigenschappen van verschillende produkten", 25, 517, 658, 20
statictext #main.statictext52, "niet onderling door elkaar gemengeld worden", 25, 537, 328, 20
statictext #main.statictext54, "CODE NUMMER", 855, 67, 140, 20
statictext #main.statictext55, "van het produkt", 870, 92, 112, 20
textbox #main.textbox47, 840, 112, 165, 25

'-----End GUI objects code

open "untitled" for window as #main
print #main.graphicbox2, "down; fill white; flush"
print #main, "font ms_sans_serif 10"
print #main, "trapclose [quit.main]"


[main.inputLoop] 'wait here for input event
wait



[button1Click] 'Perform action for the button named 'button1'

'Insert your own code here

wait


[listbox20DoubleClick] 'Perform action for the listbox named 'listbox20'

'Insert your own code here

wait

[quit.main] 'End the program
close #main
end

ben je op reis ik heb wel tijd want dit program zal zeker niet op 123 geschreven zijn en ik moet nog veel leren want van databanken heb ik zekers nog niet veel geleerd als dat stap voor stap kan mij goed
mikadofazant
 
Berichten: 22
Geregistreerd: di aug 07, 2007 4:48 pm

Vorige

Keer terug naar Leren programmeren met Liberty BASIC

Wie is er online

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

cron