Search found 27 matches
- 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...
- 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ä.
- 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...
- 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...
- 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).
- Fri Mar 07, 2008 9:44 pm
- Forum: Projektit
- Topic: S.M.T. (beta)
- Replies: 32
- Views: 17963
Re: S.M.T. (beta)
Ne eivät toimineet. Tein oman version windows perinteisen oikeilla väreillä.nevssons wrote:kyllä minä ne reunat tiedän. Mähän ne siihen laitoin!
- 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...
- 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....
- 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:
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
- 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öä.
- 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...
- 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ä...
- 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...
- 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...
- 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
Riveillä 20 - 40 ja 48 muuta POKEKSHORT -> POKESHORT
rivillä 53 puuttuu sulut opentoeditistä
rivillä 59 muuta PEEKKSHORT -> PEEKSHORT
- 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(...
- 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...
- 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...
- 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",""...
- 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:
Jos löytyy niin muuta se rivi tällaiseksi:
Code: Select all
PositionObject tähtäin, MouseX()-ScreenWidth()/2+CameraX(),-MouseY()+ScreenHeight()/2+CameraY()