Offtopic

[zHelmet]

Kuinka vaihtaa phpBB3 foorumissa viestien hyväksyntä pois??

[nevssons]

Itse toivon lahjaksi 200mW:n lases osotinta (Osotin laaserit on yleensä -1mW). Ihan vain uudeksi leluksi.

Ettei vaan olisi laittomia Suomessa?

Luulisin. Mutta kyllä se tullin läpi pääsee. (Olen kuullut)

[m1c]

Itse toivon lahjaksi 200mW:n lases osotinta (Osotin laaserit on yleensä -1mW). Ihan vain uudeksi leluksi.

Ettei vaan olisi laittomia Suomessa?

Luulisin. Mutta kyllä se tullin läpi pääsee. (Olen kuullut)

Sano näkemiin sekä tuotteelle, että rahoille jos avaavat paketin tullissa tai pakkauslistassa lukee mitä paketti sisältää. Lisäksi 200mW laserit taitaa maksaa jo lähemmäs 40e jolloin tulee alvit päälle ja paketti tarkistetaan melko varmasti.

Lisäksi 200mW on jo ihan jumalaton teho laserissa. Kannattaa varoa sohimasta sitä mihinkään heijastavaan, nimittäin jo hajaheijastukset pystyvät vauriottamaan verkkokalvoja. Suoraa silmäkontakti on välitön, peruuttamaton silmävaurio. Jos kyseessä on vielä halpa kiinanmalli, saattaa infrapunasuotimet olla melko kehnoja jolloin oikea teho voi olla paljon suurempi. Näkymätön valo on yhtä vaarallista kuin näkyväkin.

[Olwi]

Nyyssons käyttääki sitä itsepuolustukseen
Hyvää itsenäisyyspäivän aatonaattoa kaikille

[otto90x]

Tulipahan pelleiltyä muistipalojen kanssa ja tein tälläisen dynaamisen muistivirta systeemin, joka mahdollistaa kokonais- ja desimaalilukujen, tavujen että merkkijonojen käyttämisen samassa "taulukossa". Lyhyesti selitettynä tämä on muistipalassa oleva dynaaminen pointterilista erilaisia tietotyyppejä sisältäviin muistipaloihin.

Code: Select all

//          MemStream for CoolBasic 
//         by MetalRain a.k.a. Otto90x


// Luodaan uusi muistivirta
stream = makemem("|") 


// Lisätään muistivirtaan kymmenen kokonaislukua (1-10) siten että ensimmäiseksi laitettu säilyy ensimmäisenä
// Tämä saadaan aikaiseksi parametrillä -1 jossa miinus tarkoittaa että aloitetaan virran lopusta
// ja numero kertoo kuinka mones. -1 tarkoittaa siis että luvut menevät muistivirran viimeiseksi.

For o = 1 To 10
    pushmem(stream,makemem("%",o),-1) 
Next o

// Tarkistetaan muistivirran solujen määrä, se saadaan PopMemin toisen parametrin arvolla 0.
// Toinen vaihtoehto on käyttää ReturnMem komentoa joka palauttaa muistivirtojen tapauksessa
// virrassa olevien solujen määrän.

streamlen = Popmem(stream,0)


For i=1 To streamlen

    // Muistivirrasta voi vain "popsautella" soluja pois PopMemillä, ensimmäinen parametri kertoo kuinka mones 
    // solu halutaan saada selville ja toinen halutaanko soluun osoitin (0) vai halutaanko palauttaa solun arvo (1).
    // Nyt siis vain popsauttelemme solut pois ja kirjoitamme niiden sisällön ruudulle. PopMemiä käytettäessä ei
    // tarvitse tietää mitä tietotyyppiä solut sisältävät, sillä kaikkia käsitellään samalla tavalla, paitsi
    // kun halutaan palauttaa solun arvo eli sisältö.
    
    Print Popmem(stream,1,1,1) 
    
Next i


// Pistetääs tähän odotus että nähdään

Print "Press any key to continue"
WaitKey

// Ja koska tälläiseen riittäisi tavallinen taulukkokin niin tietenkin tietotyyppejä (kokonaisluvut, tavut, 
// desimaaliluvut, merkkijonot) voidaan käyttää muistivirrassa aivan sekaisin.

// Poistetaan vanha muistivirta ja tehdään uusi, toki näitä voi olla useampikin, mutta hyviin tapoihin kuuluu 
// vapauttaa tarpeettomat muistipalat.
DeleteMem(stream)

// MakeMem on yleiskäyttöinen funktio joka tekee sekä muistivirtaan tarvittavia soluja että itse muistivirtoja.
// Tehtävän objektin tyyppi riippuu ensimmäisestä parametristä. Virroille käyvät sekä | että Stream

stream = makemem("Stream") 

// Annetaan kuva ja muutama tieto muistivirran hoidettavaksi.

// Coolbasicin kuva- ja objektimuuttujat ovat oikeasti kokonaislukumuuttujia  

pushmem(stream,makemem("%",LoadImage("media\guy.bmp")))

//pistetääs vihun nimeksi vaikka Tauno

pushmem(stream,makemem("$",0,0,"Tauno"),-1)

//ja taunon nopeudeksi 2.5

pushmem(stream,makemem("#",0,2.5),-1)

// No niin sitten voimmekin alkaa piirtelemään Taunoa.

// Popsautukset kannattaa tehdä ennen päälooppia, etenkin nyt kun solujen arvot eivät muutu.

kuva=Popmem(stream,1,1,0,"%")
nimi$=Popmem(stream,2,1,0,"$")
nopeus#=Popmem(stream,3,1,0,"#")

// soluja voi joko popsautella muistivirrasta oikealla numerolla, tai varmistuakseen voi laittaa myös
// oikean tietotyypin.

Repeat

    DrawImage kuva,MouseX()+ScreenWidth()/2,MouseY()+ScreenHeight()/2
    
    Text MouseX(),-MouseY()+40,nimi$+":n  nopeus: "+nopeus#
    
    DrawScreen 

Forever

// Jos käytät kuvia, objekteja tai ääniä muistivirran soluissa niin muista poistaa ne ennen muistivirran poistamista.

DeleteImage Popmem(stream,1,0,0,"%")


// Muistivirran poistaminen poistaa automaattisesti sen solut
DeleteMem(stream)

// MemStream Functions

Function PushMem(_stream,_mem,_pos=1,_callername$="")
    If _stream Then
        If PeekByte (_stream,0)=4 Then
            
            Memstreamvariables=PeekInt (_stream,1)
    
            If _mem Then 
            
                
                
                If _pos>0 Then 
                    
                    position=5+((_pos-1)*4)
                ElseIf _pos<0 Then
                    position=5+(Memstreamvariables+(_pos+1))*4
                EndIf
                
                position=Max(position,5)
            
                memtype=PeekByte (_mem,0)

                Select memtype
                    Case 1, 2, 3, 5
                    
                        ResizeMEMBlock _stream,5+Memstreamvariables*4+4+4
                        
                        MemCopy _stream,position,_stream,position+4, 5+(Memstreamvariables)*4+4-position
                        
                        PokeInt _stream,Int(position),_mem
                        PokeInt _stream,1,(Memstreamvariables+1)
                        
                    Case 4
                    
                        mems=PeekInt(_mem,1)
                        
                        If mems Then 
                            

                            ResizeMEMBlock _stream,5+(mems+Memstreamvariables)*4+4

                            MemCopy _stream,position,_stream,position+mems*4, 5+(Memstreamvariables)*4+4-position
                            
                            MemCopy _mem,5,_stream,position,mems*4
                            
                            PokeInt _stream,1,Memstreamvariables+mems

                            
                            ResizeMEMBlock _mem,5
                            PokeInt _mem,1,0

                        EndIf
                End Select
                
            EndIf
        EndIf 
    Else 
        MakeError "Error in PushMem called by ("+_callername$+"): No memstream available"
    EndIf
End Function 

// _pos=0 palauttaa alkoiden lukumäärän
// _return=1 palauttaa arvo
// _return=0 paluttaa pointterin
// _delete=1 poistaa popatun alkion
// _memtype$ palauttaa vain jos solu on oikeaa tietotyyppiä
Function PopMem(_stream,_pos=1,_return=1,_delete=0,_memtype$="",_callername$="")  
    If _stream Then
        If PeekByte (_stream,0)=4 Then
            
            Memstreamvariables=PeekInt (_stream,1)
            
            If _pos=0 Then Return Memstreamvariables
            
            If Abs(pos)<=Memstreamvariables And Memstreamvariables>0 Then
                If _pos>0 Then 
                    
                    position=5+((_pos-1)*4)
                Else
                    position=5+(Memstreamvariables+(_pos))*4
                EndIf
                
                position=Max(position,5)
                
                If MEMBlockSize(_stream)>=position+4 Then variable=PeekInt (_stream,position) Else variable=0
            EndIf

            If _memtype$<>"" And variable Then 
                Select _memtype$
                    Case "String", "Str", "$"
                        If PeekByte (variable,0)<>1 Then Return 0 
                    Case "Int", "Integer", "%"
                        If PeekByte (variable,0)<>2 Then Return 0 
                    Case "Float", "Desimal", "#"
                        If PeekByte (variable,0)<>3 Then Return 0 
                    Case "Byte", "b"
                        If PeekByte (variable,0)<>5 Then Return 0 
                End Select       
            EndIf
            
            If _delete And variable Then 
                If MEMBlockSize(_stream)>=position+4 Then MemCopy _stream,position+4,_stream,position,MEMBlockSize(_stream)-position
                If Memstreamvariables>0 Then PokeInt _stream,1,Memstreamvariables-1
                If MEMBlockSize(_stream)=>9 Then ResizeMEMBlock _stream,MEMBlockSize(_stream)-4
            EndIf

            
            If variable Then
                If _return Then 
                    Return ReturnMem(variable,_callername$+"-> PopMem") 
                Else 
                    Return variable
                EndIf
            EndIf
            
            Return 0
            
        Else 
            MakeError "Error in PopMem called by  ("+_callername$+"): Wrong memtype. Use stream memtype."

        EndIf
    Else 
        MakeError "Error in PopMem called by  ("+_callername$+"): No memstream available"
    EndIf
End Function 

Function MakeMem(_type$="",_int=0,_float#=0.0,_string$="",_mem=0)
    If _mem<>0 Then DeleteMEMBlock _mem
    Select _type$
        Case "String", "Str", "$"
            _mem=MakeMEMBlock(3+Len(_string$))
            PokeByte _mem,0,1
            PokeShort _mem,1,Int(Len(_string$))
            For i=1 To Len(_string$)
                PokeByte _mem,3+(i-1),Asc(Mid(_string$,i,1))
            Next i
        Case "Int", "Integer", "%"
            _mem=MakeMEMBlock(1+4)
            PokeByte _mem,0,2
            PokeInt _mem,1,_int
        Case "Float", "Desimal", "#"
            _mem=MakeMEMBlock(1+4)
            PokeByte _mem,0,3
            PokeFloat _mem,1,_float#
        Case "Stream", "|"
            _mem=MakeMEMBlock(1+4)
            PokeByte _mem,0,4
            PokeInt _mem,1,0
        Case "Byte", "b"
            _mem=MakeMEMBlock(1+1)
            PokeByte _mem,0,5
            PokeByte _mem,1,Min(Max(_int,0),255)
        Default 
            MakeError "Invalid memtype: "+_type$+" Please use $ for strings, b for bytes, % for integers, # for floats and | for streams." 
    End Select 
    
    If _mem=0 Then MakeError "Error in MakeMem: No mem available"
    
    Return _mem
End Function 

Function ReturnMem(_mem,_callername$="")
    If _mem Then
        memtype=PeekByte (_mem,0)
        Select memtype
            Case 1
                memlen=PeekShort (_mem,1)
                txt$=""
                For i=1 To memlen
                    txt$=txt$+Chr(int(PeekByte (_mem,3+(i-1))))
                Next i
                Return Str(txt$)
            Case 2
                Return Int(PeekInt (_mem,1))
            Case 3
                Return Float(PeekFloat (_mem,1))
            Case 4
                Return Int(PeekInt (_mem,1))
            Case 5
                Return Int(PeekByte (_mem,1))
        End Select
        
    Else 
        MakeError "Error in ReturnMem called by ("+_callername$+"): No mem available"
    EndIf
    
End Function 

Function DeleteMem(_mem,_callername$="")
    If _mem Then

        If PeekByte (_mem,0)=4
            mems=PeekInt (_mem,1)
            For i=1 To mems
                If PeekInt (_mem,5+(i-1)*4) Then DeleteMEMBlock PeekInt (_mem,5+(i-1)*4)
            Next i
        EndIf
        
        DeleteMEMBlock _mem
        _mem=0
        Return _mem
    Else 
        MakeError "Error in DeleteMem called by ("+_callername$+"): No mem available"
    EndIf
End Function 

Jos joku sille vaikka käyttöä sattuisi keksimään.

[nevssons]

Nyyssons käyttääki sitä itsepuolustukseen
Hyvää itsenäisyyspäivän aatonaattoa kaikille

Joka nörtin itsepuolustus väline
Harrastan kyllä karatea, mutta onhan se kätevää kun ei tarvitse rasittaa itseään yhden yrmyn takia!
Ja alle 45€ maksavat pääse tullista ilman veroja.

Tässä on video siitä laaserista

EDIT:

mic: parasta ettei vanhempani kuule tuota

[Olwi]

Kiva lelu;D Mitenhän tuolla syttyis vaatteet?

Tänään sain 70 euron palkinnon siitä että voitin sen matikkakisan;)

[nevssons]

Kiva lelu;D Mitenhän tuolla syttyis vaatteet?

Varmaan vaatteet alkais vaan kytemään. Mutta tietääkö joku miten tää läppärin hiiri toimii? Miten se tunnistaa että siihen koskettaa elävä aine?

[JATothrim]

Juma! Paras ( ja tehokkain ) "kynä" lazeri tähän mennessä, ja aivan hilpeän halpa! Rupesin miettimään miten vaivattomasti tuon saisi omaksi, eli ne laki jutut. Tuleeko kotia asti ilman ongelmia? Jos homma selviää tarpeeksi ajoissa, niin saattaa olla, että tuolla sytytetään uutena vuotena raketteja. ( langan ruuti syttyy luultavasti helpommin ku tulitikku )

EDIT:

Nevsons: Öööh tosian miten se touchpad toimii? otta tosiaankin vain "elävästä", mm. kynnellä ei toimi. Ensin veikkasin että homma pelaa sähköllä, mutta sähköä johtavallakaan jutulla toimi. Veikkaan infrapuna säteilyä.

[-Z-]

Kiva lelu;D Mitenhän tuolla syttyis vaatteet?

Varmaan vaatteet alkais vaan kytemään. Mutta tietääkö joku miten tää läppärin hiiri toimii? Miten se tunnistaa että siihen koskettaa elävä aine?

Se perustuu sähkönjohtavuuteen. Touchpad tunnistaa vain esineet jotka johtavat sähköä (esim. sormen, muttei viivoitinta ja sitä rataa) Korjatkaa toki jos olen väärässä (vähän tuntuu pikkasen siltä )

[Koodiapina]

Nevssons: En ole asiaa tutkinut, mutta voisiko kyseessä olla jokin lämpötunnistus?

Kiva tuo laserisi, kannattaa tosiaan varoa ihmisten silmiä, koska se lasku ei ole siitä pienimmästä päästä. Ajattelin itsekkin pyytää joulupukilta laserlamppua tosin hieman turvallisempaa.

[nevssons]

Ei se ole lämmöstä tai sähkön johtavuudesta! Olen testannut avaimella ja lampulla, mutta kun otin (puun)lehden niin heti toimi! Ja se tunnistaa sormen vaatteen ja paperin läpi

EDIT:

Ja se laaseri tulee ihan ongelmitta perille.

[JATothrim]

Göh. miten kävisi radioaktivisuus. Hiili-14 isotooppi näääs. Kokeileppa purkaa (ei ihan kokonaan sentään ) palovaroitin ja kokeile sillä

[nevssons]

Göh. miten kävisi radioaktivisuus. Hiili-14 isotooppi näääs. Kokeileppa purkaa (ei ihan kokonaan sentään ) palovaroitin ja kokeile sillä

SEHÄN SE! Testasin ja toimi! Mysteeri ratkaistu.

[KilledWhale]

Kyllä tuo ihan johtavuudella tuntuu pelaavan. Kokeilin pinseteillä ja kyllä ainakin tässä koneessa toimi.

[JATothrim]

WUT!?! ihan oikeesti? LOL (<- todella isolla) empä olisi arvannut tuota! No nyt jokaisella kannettavan omistajalla on eräänlainen "geigermittari" käytössä. TouchPadeja on monen laisia, yksi padi ottaa jo ilmasta liikkeitä toinen, niin kuin minulla, vasta kosketuksesta. KilledWhale: pinsettisi olivat radioaktiiviset siksi ne toimi, suosittelen että valat ne pikaisesti lyijyyn...

[-Z-]

Tulee mieleen eräs harvinaisen paikkansa pitävä sananlasku: "Miksi lähteä merta edemmäs kalaan?"
http://en.wikipedia.org/wiki/Touchpad

Edit: Voi jeesus, ei kai joku teistä perkeleistä käynyt mutuilemassa wiki-vitun-pediaan?!

Miten kosketuslevyt toimii?

Kosketuslevyt mittaavat radioaktiivisuutta, jota elävästä aineesta säteilee.

http://fi.wikipedia.org/wiki/Kosketuslevy

[Awaclus]

Miten muuten määritellään "peli"? Nyky-Suomen sivistyssanakirja ei antanut mitään vastausta ja mistään muualtakaan en löytänyt.

[Ozcar]

Mikä vattu tässä maassa on vialla? http://fi.wikipedia.org/wiki/Peli. Ei se ole sen vaikeampaa tökätä sitä kysymystä wikipediaan kuin tänne foorumeille. Ja wikipedian-artikkelista, se kosketuslevy ei aisti sähkönjohtavuutta vaan sähkövarauksen. Eli varautuneilla pinseteillä toimii (radioaktiivisuutta, hyvä ihme..).

[mikeful]

Viikonloppu alkaa ja offtopic-ketjun huumoriarvo lisääntyy merkittävästi. :D