Liberty BASIC Community Forum
« Second prototype database GUI is ready. Yeah ! »

Welcome Guest. Please Login or Register.
Sep 21st, 2017, 12:16am


Rules|Home|Help|Search|Recent Posts|Notification


« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: Second prototype database GUI is ready. Yeah !  (Read 202 times)
Zabo
Full Member
ImageImageImage


member is offline

Avatar

Yes. It work's. ha


PM

Gender: Male
Posts: 125
xx Second prototype database GUI is ready. Yeah !
« Thread started on: May 29th, 2017, 04:12am »

Yeah !

Code:


Rem  here comes the main GUI IN  ' for example normal code first level
                                                               ' made for small screens also

100 input "setup a new category ?  Y/N  :     " ; A$
200 if A$ = "Y" or A$ = "y" then [category]
300 print
400 print "Well done."
500 end



'============================GUI-1===============================================================

[category]


Rem database_prototype     HS Soft  Freakman Hans Schueren Germany
                                                           'this is the prototype for the INPUT GUI for a new Category by the user
                                                           'before he make a new record in that category.

WindowWidth = (DisplayWidth/100) *75
WindowHeight = (DisplayHeight/100) *50
UpperLeftX = (DisplayWidth/100) *12.5  :  X = WindowWidth/75
UpperLeftY = (WindowHeight/100)*12.5 :  Y = WindowHeight/75

textbox #second.1, X*3+170, Y*20, 500, 55



statictext #second.30, "CATEGORY   NAME  !", X*3+245, Y+360, 400, 50

button #second.35, "CANCEL AND BACK", [label3], UL, X*2, Y+360, 200, 50
button #second.36, "SAVE AND OUT",        [label4], UL, X*3+650,Y+360, 200, 50


BackgroundColor$="black"
ForegroundColor$ = "red"

open "GUI-Window_75%-of-machinescreensize" for window as #second

print #second.1 , "!font Times_New_Roman 28 , bold"

print #second.30, "!font Times_New_Roman 24 , bold"
print #second.35, "!font Times_New_Roman 12 bold"
print #second.36, "!font Times_New_Roman 12 bold"


print #second, "trapclose [quit2]"
wait


[quit2]
       close #second
       end




[label3]           'label will follow and get back to main GUI
close #second
goto 300






[label4]           'label will follow and will save the data from every field to a string variable and written to a file for recall on every new record which is
                         'written in this new category.
                         'The USER decide what the field names in every category are. 10 altogether for one record.
                         'AND the link to the file Folder for that record ! Unlimited files of every kind can take place in the records folder.
                         '100 categories are possible. individual setted. every category can hold 1000 records.  Means : 100000 records. ha
                         'Sledge Hamme : Trust me.  I know what i am doing !"

#second.1 "!contents?  newcategory$"

close #second

goto [categoryfields]





'=================================================GUI-2=============================================


[categoryfields]



Rem database_prototype     HS Soft  Freakman Hans Schueren Germany
                                                           'this is the prototype for the INPUT GUI for a new Category by the user
                                                           'before he make a new record in that category.

WindowWidth = (DisplayWidth/100) *75
WindowHeight = (DisplayHeight/100) *50
UpperLeftX = (DisplayWidth/100) *12.5  :  X = WindowWidth/75
UpperLeftY = (WindowHeight/100)*12.5 :  Y = WindowHeight/75

textbox #first.1, X, Y, 300, 30
textbox #first.2, X, Y+30, 300, 30
textbox #first.3, X, Y+60, 300, 30
textbox #first.4, X, Y+90, 300, 30
textbox #first.5, X, Y+120, 300, 30
textbox #first.6, X, Y+150, 300, 30
textbox #first.7, X, Y+180, 300, 30
textbox #first.8, X, Y+210, 300, 30
textbox #first.9, X, Y+240, 300, 30
textbox #first.10, X, Y+270, 300,30

textbox #first.11, X+300, Y, 600, 30
textbox #first.12, X+300, Y+30, 600, 30
textbox #first.13, X+300, Y+60, 600, 30
textbox #first.14, X+300, Y+90, 600, 30
textbox #first.15, X+300, Y+120, 600, 30
textbox #first.16, X+300, Y+150, 600, 30
textbox #first.17, X+300, Y+180, 600, 30
textbox #first.18, X+300, Y+210, 600, 30
textbox #first.19, X+300, Y+240, 600, 30
textbox #first.20, X+300, Y+270, 600,30



statictext #first.30, "NEW CATEGORY SETUP !", X*3+230, Y+330, 400, 50
statictext #first.31,  newcategory$  ,X*3+230, Y+370, 400, 50

button #first.35, "CANCEL AND BACK", [label1], UL, X*2, Y+360, 200, 50
button #first.36, "SAVE AND OUT",        [label2], UL, X*3+650,Y+360, 200, 50


BackgroundColor$="black"
ForegroundColor$ = "red"
open "GUI-Window_75%-of-machinescreensize" for window as #first

print #first.1 , "!font Times_New_Roman 11 , bold"
print #first.2 , "!font Times_New_Roman 11 , bold"
print #first.3 , "!font Times_New_Roman 11 , bold"
print #first.4 , "!font Times_New_Roman 11 , bold"
print #first.5 , "!font Times_New_Roman 11 , bold"
print #first.6 , "!font Times_New_Roman 11 , bold"
print #first.7 , "!font Times_New_Roman 11 , bold"
print #first.8 , "!font Times_New_Roman 11 , bold"
print #first.9 , "!font Times_New_Roman 11 , bold"
print #first.10 ,"!font Times_New_Roman 11 , bold"

print #first.11 , "!font Times_New_Roman 11 , bold" : print #first.11 , "Insert the name for the first field of your new created data category in the left box"
print #first.12 , "!font Times_New_Roman 11 , bold" : print #first.12 , "Insert the name for the second field of your new created data category in the left box"
print #first.13 , "!font Times_New_Roman 11 , bold" : print #first.13 , "Insert the name for the third field of your new created data category in the left box"
print #first.14 , "!font Times_New_Roman 11 , bold" : print #first.14 , "Insert the name for the fourth field of your new created data category in the left box"
print #first.15 , "!font Times_New_Roman 11 , bold" : print #first.15 , "Insert the name for the fifth field of your new created data category in the left box"
print #first.16 , "!font Times_New_Roman 11 , bold" : print #first.16 , "Insert the name for the sixth field of your new created data category in the left box"
print #first.17 , "!font Times_New_Roman 11 , bold" : print #first.17 , "Insert the name for the seventh field of your new created data category in the left box"
print #first.18 , "!font Times_New_Roman 11 , bold" : print #first.18 , "Insert the name for the eigths field of your new created data category in the left box"
print #first.19 , "!font Times_New_Roman 11 , bold" : print #first.19 , "Insert the name for the nineth field of your new created data category in the left box"
print #first.20 , "!font Times_New_Roman 11 , bold"  : print #first.20 , "Insert the name for the tenth field of your new created data category in the left box"

print #first.30, "!font Times_New_Roman 24 , bold"
print #first.31, "!font Times_New_Roman 24 , bold"
print #first.35, "!font Times_New_Roman 12 bold"
print #first.36, "!font Times_New_Roman 12 bold"


print #first, "trapclose [quit1]"
wait


[quit1]
       close #first
       goto 300





[label1]           'label will follow and get back to main GUI
close #first
goto 300





[label2]           'label will follow and will save the data from every field to a string variable and written to a file for recall on every new record which is
                         'written in this new category.
                         'The USER decide what the field names in every category are. 10 altogether for one record.
                         'AND the link to the file Folder for that record ! Unlimited files of every kind can take place in the records folder.
                         '100 categories are possible. individual setted. every category can hold 1000 records.  Means : 100000 records. ha
                         'Sledge Hamme : Trust me.  I know what i am doing !"
close #first
goto 300


 
User IP Logged

Valentin
New Member
Image


member is offline

Avatar




PM


Posts: 8
xx Re: Second prototype database GUI is ready. Yeah !
« Reply #1 on: Jun 5th, 2017, 02:42am »

Hello, It is prudent to test the code before to post it
« Last Edit: Jun 5th, 2017, 02:43am by Valentin » User IP Logged

Zabo
Full Member
ImageImageImage


member is offline

Avatar

Yes. It work's. ha


PM

Gender: Male
Posts: 125
xx Re: Second prototype database GUI is ready. Yeah !
« Reply #2 on: Jun 12th, 2017, 3:33pm »

Hello ,

i have checked the code twice and it works.

It's a pre assemly state.


WBR Zabo
User IP Logged

Pages: 1  Notify Send Topic Print
« Previous Topic | Next Topic »

Rules|Home|Help|Search|Recent Posts|Notification

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls