Tekst kleur

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

Tekst kleur

Berichtdoor riny assink » do dec 28, 2006 1:04 pm

Goedenmiddag,

Ik ben zeer verrukt over Liberty Basic en het lijkt me heel leuk te leren programmeren.

Ik heb het volgende stukje code gemaakt en dat werkt.

locate 5,5
Print "Berekenen toerental."
locate 10,7
input "Snijsnelheid Vc mtr/min ";snijsnelheid
locate 10,9
input "Diameter frees ";diameter
locate 10,11
print "Correctiefactor Vc"
locate 10,12
print "HSS ............ = 0.6"
locate 10,13
print "HSS/Tin ........ = 0.8"
locate 10,14
print "Carbide/VHM .... = 1.2"
locate 10,16
input "Correctiefactor Vc ";correctiefactorvc
toerental=((snijsnelheid*1000)/(3.14*diameter))*correctiefactorvc
locate 10,18

print "Het toerental = ";using("#####",toerental)
print " ====================="
locate 5,21
print "Bereken Voeding in mm"
locate 10,23
input "Voeding per tand ";voedingpertand
locate 10,25
input "Aantal snijkanten ";snijkanten
locate 10,27
print "Correctiefactor - 1/4 diameter frees ... = 1"
locate 10,28
print "Correctiefactor - 1/2 diameter frees ... = 0.8"
locate 10,29
print "Correctiefactor - Frees vol in materiaal = 0.5"
locate 10,31
input "Correctiefactor f2 ";correctiefactorf2
voeding=voedingpertand*snijkanten*toerental*correctiefactorf2
locate 10,33
print "De voeding = ";using("#####",voeding),"mm/min"
print " ========================================"


Maar nu zou ik graag sommige tekst een andere kleur willen geven, maar ik nergens vinden hoe dat zou moeten.

Kan iemand mij dit uileggen?

Alvast hartelijk dank

Riny
Het gaat er niet om wat je hebt, maar wie je bent.
Ook dat moet je leren, besef je pas later.
Ben je een mier, dan heb je geen cent.
Wel kun je baden in slechts één druppel water.
Avatar gebruiker
riny assink
 
Berichten: 11
Geregistreerd: wo dec 27, 2006 6:06 pm
Woonplaats: Haringhuizen

Berichtdoor Gordon » do dec 28, 2006 5:46 pm

Hmm.....

Ik heb nog geen oplossing.
Voorlopig heb ik gewoon even een stukje met Freeform gemaakt.
Over een kwartiertje upload ik het.

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

Berichtdoor Gordon » do dec 28, 2006 6:07 pm

Ik weet niet of het mogelijk is om de kleuren de tekst in
de mainwin eenvoudig te wijzigen.

Zelfs met staticteksten lukt het niet zonder API's.

Dit heb ik voorlopig gebouwd....
Code: Selecteer alles
'GUI Produced by Freeform  4.03.01
'Dec 28, 2006   18:00:13


'programma van R. Assink

    ForegroundColor$ = "black"
    BackgroundColor$ = "buttonface"
    TextboxColor$ = "white"
    TexteditorColor$ = "white"
    ComboboxColor$ = "white"
    ListboxColor$ = "white"

    NOMAINWIN
    WindowWidth = 800 : WindowHeight = 495
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)

    statictext #main.statictext1, "Assink TOERENTALLEN (c) 2006", 144, 20, 248, 20
    statictext #main.statictext2, "Snijsnelheid  Vc mtr/min", 80, 110, 180, 20
    statictext #main.statictext3, "Diameter frees mtr", 80, 160, 180, 20
    statictext #main.statictext4, "Correctiefactor Vc", 80, 210, 180, 20
    statictext #main.statictext5, "HSS..............= 0.6", 80, 230, 180, 20
    statictext #main.statictext6, "HSS/Tin..........= 0.8", 80, 250, 180, 20
    statictext #main.statictext7, "Carbide/VHM......= 1.2", 80, 270, 180, 20
    statictext #main.statictext8, "Correctiefactor Vc", 80, 310, 180, 20
    statictext #main.statictext9, "", 80, 340, 160, 20

    groupbox #main.groupbox2, "Berekenen toerental", 40, 70, 350, 305
    groupbox #main.groupbox3, "Berekenen voeding", 400, 70, 350, 305
    stylebits #main.button4, _BS_MULTILINE, 0, 0, 0
    button #main.button4, "Button4", [button4Click], UL, 40, 405, 88, 25
    textbox #main.textbox5, 300, 110, 50, 25
    textbox #main.textbox6, 300, 160, 50, 25
    textbox #main.textbox7, 300, 310, 50, 25
    textbox #main.textbox8, 250, 340, 100, 25

    open "untitled" for window as #main
    #main.statictext1 "!font ms_sans_serif 12"
    #main.statictext2 "!font ms_sans_serif 12"
    #main.statictext3 "!font ms_sans_serif 12"
    #main.statictext4 "!font ms_sans_serif 10"
    #main.statictext5 "!font ms_sans_serif 10"
    #main.statictext8 "!font ms_sans_serif 12"
    #main.statictext9 "!font ms_sans_serif 12"
    #main.groupbox2 "!font ms_sans_serif 12"
    #main.groupbox3 "!font ms_sans_serif 12"
    #main.button4 "!font ms_sans_serif 10"
    #main.textbox5 "!font ms_sans_serif 10"
    #main.textbox6 "!font ms_sans_serif 10"
    #main "trapclose Quit"
    #main.textbox8 "!hide"
[mainInputLoop]   'wait here for input event
    wait

SUB Quit handle$
    close #handle$
    end
    END SUB


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

'input "Correctiefactor Vc ";correctiefactorvc

    #main.textbox5 "!contents? snijsnelheid"
    #main.textbox6 "!contents? diameter"
    #main.textbox7 "!contents? correctiefactorvc"

    if diameter = 0 then wait

    #main.statictext9, "Het toerental = "

    toerental=((snijsnelheid*1000)/(3.14*diameter))*correctiefactorvc
    #main.textbox8 "!show"
    #main.textbox8 using("#####",toerental)

'print " ====================="

    'Insert your own code here
    wait




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

Hoi Gordon,

Berichtdoor riny assink » do dec 28, 2006 7:20 pm

Te gek, dat je zo snel antwoord.

Wat je gemaakt hebt, vind ik nog veel mooier dan met kleurtjes werken.
Ziet er super uit.

Ik ga de code goed bekijken en probeer het één en ander aan te passen.

Het kan een zinnig stukje gereedschap worden. Als hobby heb ik een freesbank omgebouwd naar CNC met Mach3 als besturing. Dus hulpprogrammaatjes lijken me zinnig om te maken. Dat scheelt een boel vergissingen.
Vroeger heb ik wel wat met GFA basic voor de Atari gestoeid, maar dit is toch weer anders. Eerst maar het overzicht zien te krijgen.

Heel hartelijk bedankt voor de super service.

Riny
Het gaat er niet om wat je hebt, maar wie je bent.
Ook dat moet je leren, besef je pas later.
Ben je een mier, dan heb je geen cent.
Wel kun je baden in slechts één druppel water.
Avatar gebruiker
riny assink
 
Berichten: 11
Geregistreerd: wo dec 27, 2006 6:06 pm
Woonplaats: Haringhuizen

Berichtdoor Gordon » do dec 28, 2006 8:02 pm

Ik ga even "nou ja even?" de RICHEDIT DLL bestuderen.
Ene Richmond heeft in het verleden een DLL geschreven om
teksten in een editor (TEXTEDITOR) of de mainwin te kunnen doen
veranderen van kleur.

Het schijnt goed te kunnen. Ik begin met het bestuderen van de Newsletter 88.

Tot nogtoe heb ik alleen in grafische vensters de teksten van kleur doen veranderen. Dat is natuurlijk zoete koek (eenvoudig)

Statictext(en) kan ik natuurlijk ook niet van kleur veranderen. Misschien met een stylebit wel.

Ik heb dus nog veel uit te zoeken.

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

Succes

Berichtdoor riny assink » vr dec 29, 2006 12:35 am

Ik ben de hele avond bezig geweest om in feedform het moduultje te maken en dat is wonderwel helemaal gelukt.
Ongeloofelijk wat je in een dag kunt leren met de juiste vingerwijzing.

De tekstkleur veranderen in het mainwindow is hierdoor voor mij veel minder belangrijk geworden, maar blijft interessant.

Nogmaals hartelijk dank.

Riny
Het gaat er niet om wat je hebt, maar wie je bent.
Ook dat moet je leren, besef je pas later.
Ben je een mier, dan heb je geen cent.
Wel kun je baden in slechts één druppel water.
Avatar gebruiker
riny assink
 
Berichten: 11
Geregistreerd: wo dec 27, 2006 6:06 pm
Woonplaats: Haringhuizen

Re: Succes

Berichtdoor Gordon » za dec 30, 2006 11:05 pm

riny assink schreef:
........

De tekstkleur veranderen in het mainwindow is hierdoor voor mij veel minder belangrijk geworden, maar blijft interessant.

Nogmaals hartelijk dank.

Riny


Ik moet nog heel veel uitzoeken over Richedit API.
Ik maak even mijn Blackbox game af. Het speelbord heeft meer tijd in beslag genomen dan ik verwachtte.
Ik ben nog niet superhandig met Photoshop!
Een hele avond (zeven modellen) getekend en ik ben nog
niet echt tevreden.

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

Tekstkleur

Berichtdoor riny assink » zo dec 31, 2006 9:45 am

Goedenmorgen Gordon,

Maak je niet druk hoor. Nu ik een beetje begrijp hoe je een Freeform kunt maken, ben ik al een heel eind op weg. Ik heb nu ook een dropdown menuutje en dat werkt nu ook. Het is de bedoeling, dat ik een tabel maak, waar de snijgegevens en materiaalsoorten bekeken en aangeklikt kunnen worden, die dan weer in de formules verwerkt worden. Ook dat heb ik nu werkend. De tabel ben ik ook in Freeform aan het maken. Dat gaat goed zolang het form niet te lang wordt. Het lukt mij nog niet om een form te maken waar een lange tabel in kan die scrolt. Maar door te zoeken leer je veel heb ik gemerkt. Je komt tal van zaken tegen waar je niet naar op zoek bent, maar wel oppikt.
Al met al gaat er een wereld voor mij open.

Ik heb trouwens begrepen, dat je in Haarlem de twee zaterdagen van de maand les geeft in basic. Daar zou ik graag willen komen kijken. Vanaf wanneer is dat?

Leuk dat je ook met fotobewerking bezig bent, dat doe ik ook veel en daar is het eind ook zoek.

Rest mij nog je een fijne jaarwisseling en veel programmeer plezier in het komende jaar toe te wensen.

Riny
Het gaat er niet om wat je hebt, maar wie je bent.
Ook dat moet je leren, besef je pas later.
Ben je een mier, dan heb je geen cent.
Wel kun je baden in slechts één druppel water.
Avatar gebruiker
riny assink
 
Berichten: 11
Geregistreerd: wo dec 27, 2006 6:06 pm
Woonplaats: Haringhuizen

Berichtdoor Gordon » wo jan 03, 2007 12:20 am

Hallo Riny,

Normaliter ben ik elke tweede zaterdag van de maand op de afdelingsbijeenkomsten van Kennemerland aanwezig.
Daar beman ik een LibertyBASIC corner.
Vaak (zeer regelmatig) geef ik ook voordrachten. Dat zal ook in 2007
weer het geval zijn.

Er is in januari een uitzondering.... Nieuwjaarsreceptie.....
maar ik moet nog iets uitzoeken.

Ik vrees dat ik jouw dus pas in februari zal treffen.

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

Cursus

Berichtdoor riny assink » wo jan 03, 2007 8:59 am

Hoi Gordon,

We treffen elkaar dan in februari.

Het programmeren loopt voorspoedig. Dus ik vermaak me best.

Tot dan.

Riny
Het gaat er niet om wat je hebt, maar wie je bent.
Ook dat moet je leren, besef je pas later.
Ben je een mier, dan heb je geen cent.
Wel kun je baden in slechts één druppel water.
Avatar gebruiker
riny assink
 
Berichten: 11
Geregistreerd: wo dec 27, 2006 6:06 pm
Woonplaats: Haringhuizen

Berichtdoor Gordon » za jan 06, 2007 4:18 pm

Hallo Riny,

Ik kan mij herinneren dat we iemand vreselijk goed geholpen hebben om
een programma te maken waarmee hij "gaskets" (dat zijn volgens mij pakkingen) kon doen uitsnijden op een CNC gestuurde freesmachine.

Misschien is het wat voor jouw om daar ook naar te kijken.
Die meneer Sfillippo maakt daar werkelijk de blits mee
met het programma...

http://libertybasic.conforums.com/index ... 1106456963

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

CNC g-code

Berichtdoor riny assink » za jan 06, 2007 5:01 pm

Hoi Gordon,

Te gek dat je hier mee hebt kunnen helpen. Ik heb er naar gekeken en natuurlijk de code gedownload. Daar kan ik zeker wat mee doen.

Onlangs heb ik voor iemand een houtdraaibank cnc bestuurd gemaakt.
De electronica hiervoor heb ik zelf gemaakt en voor de software Mach3 gebruikt. Het bijzondere aan deze draaibank is, dat de eigenaar hem zelf gebouwd heeft en waarschijnlijk de grootste ter wereld is.
Er kan n.l. "en je leest het goed!" 20 meter lang en 2.5 mtr in diameter op gedraaid worden.

Je kunt hem zien op http://www.dehoutdraaier.nl kijk maar bij Extreem

Het programma waar ik nu in Liberty Basic mee bezig ben vordert gestaag en wordt steeds groter.. Het gaat er al aardig uitzien. Het wordt voor de metaalbewerker een zeer handig stuk gereedschap en ik leer er waanzinnig van door. Je aanzet was een schot in de roos.


Groeten vanuit een bedrijvig Haringhuizen.

Riny
Het gaat er niet om wat je hebt, maar wie je bent.
Ook dat moet je leren, besef je pas later.
Ben je een mier, dan heb je geen cent.
Wel kun je baden in slechts één druppel water.
Avatar gebruiker
riny assink
 
Berichten: 11
Geregistreerd: wo dec 27, 2006 6:06 pm
Woonplaats: Haringhuizen

Re: Tekst kleur

Berichtdoor Newbie » di jul 29, 2008 1:13 pm

Even voor de duidelijkheid.

Met Liberty basic kan je toch geen programmas schrijven die hardware aansturen?
Newbie
 
Berichten: 32
Geregistreerd: wo mei 14, 2008 4:53 pm


Keer terug naar Beginner

Wie is er online

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

cron