Search found 27 matches

by project coder
Tue Apr 08, 2008 7:09 pm
Forum: Projektit
Topic: Tilekarttaeditori - Open Source
Replies: 26
Views: 17260

Re: Tilekarttaeditori - Open Source

Voin liittyä, jos editori toteutetaan cb:llä tai jollain muulla basicilla. Olen jo tehnyt yhden keskeneräisen editorin cb:llä ( Lataa ) ja toinen on tekeillä, mutta se on jäätymässä. Jos oot varma jäätymisestä, ni ainahan sitä voisi käyttää jonkinlaisena pohja? En ole varma jäätymisestä, mutta turh...
by project coder
Tue Apr 08, 2008 6:20 pm
Forum: Projektit
Topic: Tilekarttaeditori - Open Source
Replies: 26
Views: 17260

Re: Tilekarttaeditori - Open Source

Voin liittyä, jos editori toteutetaan cb:llä tai jollain muulla basicilla. Olen jo tehnyt yhden keskeneräisen editorin cb:llä (Lataa) ja toinen on tekeillä, mutta se on jäätymässä.
by project coder
Sat Mar 08, 2008 4:05 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Joo... okei! Onks tässä jotain vikaa? se ei tunnu toimivan! For tbrm=1 To txbd(1,0) WriteLine OT,txb(1,tbrm) Next tbrm Onko tekstilaatikon numerona 1? Ja jättääkö se kirjoittamatta vai jotain muita ongelmia? Toimii ihan hyvin liitettynä esimerkkiin: If KeyHit(28) Then OT=OpenToWrite("testi.txt...
by project coder
Sat Mar 08, 2008 1:32 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Rivien määrä tallennetaan taulukkoon txbd(laatikon numero,0). täytyyks nollan tilalle laittaa jotain? Ei. txbd() taulukon eka ulottuvuus kertoo tekstilaatikon numeron ja toinen ulottuvuus haetun tiedon solun: 0 = rivimäärä 1 = Kursorin välke 2,3 = Painallus ajat Seuraava koodi palauttaa ensimmäisen...
by project coder
Sat Mar 08, 2008 10:10 am
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Rivien määrä tallennetaan taulukkoon txbd(laatikon numero,0).
by project coder
Fri Mar 07, 2008 9:44 pm
Forum: Projektit
Topic: S.M.T. (beta)
Replies: 32
Views: 17963

Re: S.M.T. (beta)

nevssons wrote:kyllä minä ne reunat tiedän. Mähän ne siihen laitoin!
Ne eivät toimineet. Tein oman version windows perinteisen oikeilla väreillä.
by project coder
Fri Mar 07, 2008 9:25 pm
Forum: Projektit
Topic: S.M.T. (beta)
Replies: 32
Views: 17963

Re: S.M.T. (beta)

Onko ehdotuksia tohon tekstiin koska neljätoista ei riitä ja "TextBox" lukee näppäimistöä huonosti (liitettynä ohjelmaan) Jos käytit SDK:n inputfieldiä, niin sinne on varmaan jäänyt key=getkey() rivi, joka tyhjentää näppäinpainallukset ja textboxin getkey lukee vain sen jälkeen painalletu...
by project coder
Fri Mar 07, 2008 8:55 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Tekstilaatikon päivitys. Lisäsin tekstin valinnan ja tein pieniä muutoksia.Toisessa versiossa on ohjelman ulkopuolinen leikepöytä. Lisäsin myös Windows perinteisen tekstilaatikon reunat. Funktio ei oletuksena palauta mitään, mutta _return arvoa muuttamalla se paluattaa joko kaiken tai valitun rivin....
by project coder
Tue Mar 04, 2008 9:55 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Funktio ei palauta mitään vaan teksti tallennetaan txb(num,rivinumero) taulukkoon, josta jokainen rivi pitää lukea erikseen.
Kaiken tekstin saa yhteen muuttujaan esimerkiksi näin:

Code: Select all

Teksti$=""
For i=1 to rivimaara
    If txb(1,i)="" Then Exit
    Teksti=Teksti+txb(1,i)
Next i
by project coder
Tue Feb 12, 2008 6:05 pm
Forum: Äänestykset ja kilpailut
Topic: Viikkokisa XI
Replies: 77
Views: 44792

Re: Viikkokisa XI

Annan ääneni SPuntten Bob the GlassBoxille Jonez: Idea on hyvä ja ohjaus toimii. Liian vähän sisältöä. Harakka: Eniten sisältöä. Alkaa toistamaan itseään ja MAVejakin tulee välillä. SPuntte: Hieno 3D efekti ja hyvin toimivat fysiikat. Vaikka oli lyhyt, niin jo yhdessä kentässä oli paljon sisältöä.
by project coder
Sun Jan 06, 2008 10:19 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Voisit laittaa nuolet niihin pienempiin laatikoihin niin kuin Wintoosassa. Nämä ovat kyllä käteviä. Kauanko näiden pudotusvalikoiden tekeminen kesti ?(itse värkkäsin joskus viikon verran, mutta jätin kesken, kun ei toiminut) ps. Tarvitseeko nimeäsi mainita, jos näitä käyttää. Oho. piti laittaa ne n...
by project coder
Sun Jan 06, 2008 5:31 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Taas tuli tehtyä uutta ja päivitettyä vanhaa. Uutena on alasvetovalikko ja päivitin vierityspalkin. Nyt on myös enemmän kommentointia. Alasvetovalikkoja on kaksi versiota: Toisen osat on taulukossa ja toisen yhdessä merkkijonossa Alasvetovalikot: Versio 1: dropdownlist(x, y, leveys, numero, osien mä...
by project coder
Sat Dec 29, 2007 2:07 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 1480876

Re: Tyhmät kysymykset

koodia... Nyt on EndIf:it paikoillaan, ja koodia muutenkin korjailtu, muttei siltikään toimi. End riville kolme = ohjelma rullaa yhä vaikka maailmanloppuun asti. Voisiko joku oikeasti osaava auttaa? (Yhtään endifiä ei muuten edes puuttunut, yksi oli vain väärässä kohtaa) Onko DUDE ja MOVEGRID luotu...
by project coder
Fri Dec 28, 2007 1:04 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 1480876

Re: Tyhmät kysymykset

koodia... Nyt on EndIf:it paikoillaan, ja koodia muutenkin korjailtu, muttei siltikään toimi. End riville kolme = ohjelma rullaa yhä vaikka maailmanloppuun asti. Voisiko joku oikeasti osaava auttaa? (Yhtään endifiä ei muuten edes puuttunut, yksi oli vain väärässä kohtaa) Onko DUDE ja MOVEGRID luotu...
by project coder
Thu Dec 27, 2007 10:57 am
Forum: Ongelmat
Topic: Include ongelma
Replies: 2
Views: 2651

Re: Include ongelma

Vika on map_edit_functions.cb tiedostossa:
Riveillä 20 - 40 ja 48 muuta POKEKSHORT -> POKESHORT
rivillä 53 puuttuu sulut opentoeditistä
rivillä 59 muuta PEEKKSHORT -> PEEKSHORT
by project coder
Sun Dec 16, 2007 7:45 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Nyt on tekstilaatikko melkein valmis. vielä puuttuu tekstin valinta ja pari muuta asiaa, mutta tämä versio on jo toimiva. ClsColor 236,233,216:Cls rivimaara=100 Global clipboard As String'Leikepöytä Dim txb(4,rivimaara) As String'Teksti Dim txbd(4,2)'Muuta dataa (0=rivimäärä, 1=välke aika) Dim txbv(...
by project coder
Sun Dec 09, 2007 7:48 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Re: Käyttöliittymän osia

Hieno koodi! Taisi tuon tekemiseen mennä hieman aikaakin? - Listaan meni n. 1 päivä - Tekstilaatikkoon n. 3 päivää - Numerolaatikon tein tekstilaatikon pohjalta ja siihen meni n. 2 päivää - Napin ja valintaruudun tein 2 tunnissa. - Vierityspalkki n. 2 päivää Ja en koodannut 24 tuntia päivässä. Aino...
by project coder
Fri Dec 07, 2007 7:03 pm
Forum: Esimerkit ja tutoriaalit
Topic: Käyttöliittymän osia
Replies: 27
Views: 18447

Käyttöliittymän osia

Olin tehnyt muutamia käyttöliittymän osia ja kasasin ne nyt yhteen. Väritys on mustaa ja valkoista, mutta se on helposti muutettavissa. Nappi Valintapainike Lista (valinnalla ja ilman) Tekstilaatikko Numerolaatikko vierityspalkki (päivitys: nimi muuttui scrollbar:iin) Tekstilaatikkon vanha versio on...
by project coder
Mon Dec 03, 2007 10:17 am
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 1480876

Re: Tyhmät kysymykset

Miten inputtiin pistettävää teksii voi rajata? Siis että siihen ei voi kirjoittaa esim a eli jos vaikka kirjotan auto niin tulee uto Vai onko tämmönen edes mahdollista? Inputista saatavasta merkkijonosta voi poistaa tietyn merkin korvaamalla sen tyhjällä nimi=Replace(nimi,"a",""...
by project coder
Sat Dec 01, 2007 4:38 pm
Forum: Ongelmat
Topic: Tähtäin ammuskeluongelma
Replies: 6
Views: 5130

Re: Tähtäin ammuskeluongelma

Löytysköhän siitä vanhasta versiosta Camerax() ja Cameray() funktioita.
Jos löytyy niin muuta se rivi tällaiseksi:

Code: Select all

PositionObject tähtäin, MouseX()-ScreenWidth()/2+CameraX(),-MouseY()+ScreenHeight()/2+CameraY()