Offtopic (I/2011)

Muu yhteisön välinen keskustelu.
Locked
Latexi95
Guru
Posts: 1166
Joined: Sat Sep 20, 2008 5:10 pm
Location: Lempäälä

Re: Offtopic (I/2011)

Post by Latexi95 »

ItzRaines wrote: En oikein usko, että pystyt käyttämään tuota väylää minkäänlaiseen datansiirtoon. Näyttää hyvin omituiselta sellaiseksi liittimeksi. Yritän tutkia asiaa lähempää, jos löydän vielä samanlaisen jostain kaapista. Jos haluat harjoittaa haksaamista, sekä muuta datansiirtoa niin suosittelen lämpimästi muutamaa vuotta uudempaa Nokialaista, jossa on jo usb - kytkentä. Kai infrapuna mahdollisuuskin riittää?
Juu... USB - liitäntä olisi syytä olla tai sellainen leveämpi päinen jonka toinen pää on USB. Bluetoothilla voisi onnistua, mutta tuskin infrapunalla, sillä aika harvalla on tietokoneessa infrapunaa ja muutenkaankännykän infrapunan protokolla tuskin sopii muuhun kuin tiedostojen siirtoon.
User avatar
ItzRaines
Active Member
Posts: 211
Joined: Sat Feb 05, 2011 6:59 pm

Re: Offtopic (I/2011)

Post by ItzRaines »

Latexi95 wrote:
ItzRaines wrote: En oikein usko, että pystyt käyttämään tuota väylää minkäänlaiseen datansiirtoon. Näyttää hyvin omituiselta sellaiseksi liittimeksi. Yritän tutkia asiaa lähempää, jos löydän vielä samanlaisen jostain kaapista. Jos haluat harjoittaa haksaamista, sekä muuta datansiirtoa niin suosittelen lämpimästi muutamaa vuotta uudempaa Nokialaista, jossa on jo usb - kytkentä. Kai infrapuna mahdollisuuskin riittää?
Juu... USB - liitäntä olisi syytä olla tai sellainen leveämpi päinen jonka toinen pää on USB. Bluetoothilla voisi onnistua, mutta tuskin infrapunalla, sillä aika harvalla on tietokoneessa infrapunaa ja muutenkaankännykän infrapunan protokolla tuskin sopii muuhun kuin tiedostojen siirtoon.
Tuolla infrapunalla tarkoitin, että siirrettävät tiedostot laitettaisiin koneelta uudempaan puhelimeen, jolta voitaisiin sitten infrapunalla lähettää nämä puhelimeen, jossa ei ole usb - liitäntää. Helpoimmalla pääsee, kun saa liittimen usb- väylään.
User avatar
Peltsi
Active Member
Posts: 121
Joined: Thu Sep 30, 2010 12:16 pm

Re: Offtopic (I/2011)

Post by Peltsi »

Iltaa! Väkersimpä pari nappulafunkkaria (joo, ulkonäkö vanhahtavan "hieno" ja yksinkertainen :) ). Kommentoikaa jos jaksatte :D .

Funktioiden käyttö:
OnOffButton (x,y,(muuttuja mihin napin tila asetetaan),[merkkivalo, oletus 0])
nappi = OnOffButton (x,y,nappi,[1 tai 0])

OnOffButton2 (x,y,(muuttuja mihin napin tila asetetaan),[merkkivalo, oletus 0])
nappi2 = OnOffButton (x,y,nappi2,[1 tai 0])

OnOffButton

Code: Select all

Function OnOffButton (x,y,t,v = 0)
	
s = t
	

	mx = MouseX ()
	my = MouseY ()
	
	If s  = 0 And mx > x  And mx < x  + 14 And my > y  And my < y  + 17 And MouseHit (1) Then
		s  = 1
		ClearMouse
	EndIf
	
	If s  = 1 And mx > x  And mx < x  + 14 And my > y  +17 And my < y  + 34 And MouseHit (1) Then
		s  = 0
		ClearMouse
	EndIf

	If s  = 1 Then
		Color 212,208,200		
		Box x  ,y  ,14,17
		
		Color cbblack		
		Text x + 3 ,y + 2 ,"1"
		
		Color 65,65,65		
		Line x ,y  + 17,x  + 14,y  + 17
		
		Color 109,109,109		
		Box x ,y  + 17,14,17
		
		Color 212,208,200		
		Line x ,y  + 18,x  + 2,y  + 32
		Line x , y  + 33, x  + 2,y  + 32
		Line x  + 3, y  + 31,x  + 13, y  + 31
		Line x + 13 , y + 31, x + 12 , y + 18
		Line x + 12, y + 33, x + 13, y + 31
		
		Color cbblack
		Text x + 3 , y + 2  + 17, "0"
		
		If v = 1 Then
			Color 212,208,200
			Circle x + 2, y - 14,9
			Color 14,172,22
			Circle x + 4, y - 12,5
		EndIf
		
		Return s
	EndIf
	
	If s = 0 Then
		Color 65,65,65
		Line x ,y  + 17,x  + 14,y  + 17
		
		Color 109,109,109
		Box x ,y,14,17
		
		Color 212,208,200
		Line x ,y, x + 2,y + 2
		Line x , y  + 16, x  + 2,y  + 2
		Line x  + 3, y  + 2,x  + 13, y  + 2
		Line x + 13 , y + 2, x + 12, y
		Line x + 13, y + 3, x + 12, y + 16
		
		Color cbblack
		Text x + 3 , y + 2, "1"
		
		Color 212,208,200
		Box x  ,y + 18 ,14,17
		
		Color cbblack
		Text x + 3 ,y + 20 ,"0"
		
		If v = 1 Then
			Color 212,208,200
			Circle x + 2, y - 14,9
			Color 249,72,42
			Circle x + 4, y - 12,5
		EndIf
		
		Return s
		
	EndIf
	
				
EndFunction
OnOffButton2

Code: Select all

Function OnOffButton2 (x,y,t,v = 0)
	
s = t
	

	mx = MouseX ()
	my = MouseY ()
	
	If s  = 0 And mx > x  And mx < x  + 17 And my > y  And my < y  + 17 And MouseHit (1) Then
		s  = 1
		ClearMouse		
	EndIf
	
	If s  = 1 And mx > x  And mx < x  + 12 And my > y  +12 And my < y  + 29 And MouseHit (1) Then
		s  = 0
		ClearMouse		
	EndIf

	If s  = 0 Then
		


		Color 212,208,200		
		Circle x  ,y + 15  ,17	
		Color 212,208,200	
	
		Box x ,y + 10 ,17,15
		

		Color 109,109,109		
		Circle x  ,y  ,17
		
		Line x + 4, y + 5, x + 4, y + 30
		Line x + 12, y + 5, x + 12, y + 30

		Color cbblack		
		Text x + 3 ,y + 2 ,"0"
				
		If v = 1 Then
			Color 212,208,200
			Circle x + 2, y - 14,9
			Color 249,72,42
			Circle x + 4, y - 12,5
		EndIf
		
		Return s
	EndIf
	
	If s = 1 Then
	
		Color 212,208,200		
		Circle x  ,y + 20  ,17	
		Color 212,208,200	
	
		Box x ,y + 21 ,17,4
		
		Color 109,109,109		
		Circle x  ,y + 15  ,17	
		
		Line x + 4, y + 20, x + 4, y + 35
		Line x + 12, y + 20, x + 12, y + 35
		
		Color cbblack
		Text x + 3 ,y + 15 ,"1"		
		
		If v = 1 Then
			Color 212,208,200
			Circle x + 2, y - 14,9
			Color 14,172,22
			Circle x + 4, y - 12,5
		EndIf
		
		Return s
		
	EndIf
	
				
EndFunction
Valmis testauskoodi laiskoille ;) (lyö tämä editoriin ja aja):

Code: Select all

lehma = LoadObject ("Media\cow.bmp",2)

PositionObject lehma, -100,20

Repeat
	
	SetWindow "OnOffButton ja OnOffButton2 by Peltsi. FPS: " + FPS()
	
	nappi  = OnOffButton2 (10,50,nappi,1)'Viimeinen 1 valinnainen
	nappi2  = OnOffButton2 (30,50,nappi2,1)'Viimeinen 1 valinnainen
	nappi3  = OnOffButton2 (50,50,nappi3,1)'Viimeinen 1 valinnainen
	nappi4  = OnOffButton2 (70,50,nappi4,1)'Viimeinen 1 valinnainen		
	
	Color cbred
	Text 10,200,"Paina kytkimiä! :D"
	Color cbwhite
	Text 100,50,"Pyöreiden nappien tilat: "+nappi +" "+ nappi2 +" "+ nappi3 +" "+ nappi4
	
	Color cbwhite
	Text 10,10,"OnOffButton2:"
	Text 10,90,"OnOffButton:"
	liiku  = OnOffButton (10,120,liiku,1)'Viimeinen 1 valinnainen
		
	If liiku = 1 Then
		MoveObject lehma, 1
	EndIf
	
	DrawScreen
Forever

///////////////////FUNKTIOT/////////////////////

Function OnOffButton2 (x,y,t,v = 0)
	
s = t
	

	mx = MouseX ()
	my = MouseY ()
	
	If s  = 0 And mx > x  And mx < x  + 17 And my > y  And my < y  + 17 And MouseHit (1) Then
		s  = 1
		ClearMouse		
	EndIf
	
	If s  = 1 And mx > x  And mx < x  + 12 And my > y  +12 And my < y  + 29 And MouseHit (1) Then
		s  = 0
		ClearMouse		
	EndIf

	If s  = 0 Then
		


		Color 212,208,200		
		Circle x  ,y + 15  ,17	
		Color 212,208,200	
	
		Box x ,y + 10 ,17,15
		

		Color 109,109,109		
		Circle x  ,y  ,17
		
		Line x + 4, y + 5, x + 4, y + 30
		Line x + 12, y + 5, x + 12, y + 30

		Color cbblack		
		Text x + 3 ,y + 2 ,"0"
				
		If v = 1 Then
			Color 212,208,200
			Circle x + 2, y - 14,9
			Color 249,72,42
			Circle x + 4, y - 12,5
		EndIf
		
		Return s
	EndIf
	
	If s = 1 Then
	
		Color 212,208,200		
		Circle x  ,y + 20  ,17	
		Color 212,208,200	
	
		Box x ,y + 21 ,17,4
		
		Color 109,109,109		
		Circle x  ,y + 15  ,17	
		
		Line x + 4, y + 20, x + 4, y + 35
		Line x + 12, y + 20, x + 12, y + 35
		
		Color cbblack
		Text x + 3 ,y + 15 ,"1"		
		
		If v = 1 Then
			Color 212,208,200
			Circle x + 2, y - 14,9
			Color 14,172,22
			Circle x + 4, y - 12,5
		EndIf
		
		Return s
		
	EndIf
	
				
EndFunction


Function OnOffButton (x,y,t,v = 0)
	
s = t
	

	mx = MouseX ()
	my = MouseY ()
	
	If s  = 0 And mx > x  And mx < x  + 14 And my > y  And my < y  + 17 And MouseHit (1) Then
		s  = 1
		ClearMouse
	EndIf
	
	If s  = 1 And mx > x  And mx < x  + 14 And my > y  +17 And my < y  + 34 And MouseHit (1) Then
		s  = 0
		ClearMouse
	EndIf

	If s  = 1 Then
		Color 212,208,200		
		Box x  ,y  ,14,17
		
		Color cbblack		
		Text x + 3 ,y + 2 ,"1"
		
		Color 65,65,65		
		Line x ,y  + 17,x  + 14,y  + 17
		
		Color 109,109,109		
		Box x ,y  + 17,14,17
		
		Color 212,208,200		
		Line x ,y  + 18,x  + 2,y  + 32
		Line x , y  + 33, x  + 2,y  + 32
		Line x  + 3, y  + 31,x  + 13, y  + 31
		Line x + 13 , y + 31, x + 12 , y + 18
		Line x + 12, y + 33, x + 13, y + 31
		
		Color cbblack
		Text x + 3 , y + 2  + 17, "0"
		
		If v = 1 Then
			Color 212,208,200
			Circle x + 2, y - 14,9
			Color 14,172,22
			Circle x + 4, y - 12,5
		EndIf
		
		Return s
	EndIf
	
	If s = 0 Then
		Color 65,65,65
		Line x ,y  + 17,x  + 14,y  + 17
		
		Color 109,109,109
		Box x ,y,14,17
		
		Color 212,208,200
		Line x ,y, x + 2,y + 2
		Line x , y  + 16, x  + 2,y  + 2
		Line x  + 3, y  + 2,x  + 13, y  + 2
		Line x + 13 , y + 2, x + 12, y
		Line x + 13, y + 3, x + 12, y + 16
		
		Color cbblack
		Text x + 3 , y + 2, "1"
		
		Color 212,208,200
		Box x  ,y + 18 ,14,17
		
		Color cbblack
		Text x + 3 ,y + 20 ,"0"
		
		If v = 1 Then
			Color 212,208,200
			Circle x + 2, y - 14,9
			Color 249,72,42
			Circle x + 4, y - 12,5
		EndIf
		
		Return s
		
	EndIf
	
				
EndFunction
User avatar
Timblex
Advanced Member
Posts: 252
Joined: Sun Apr 11, 2010 10:37 am
Location: Kouvola

Re: Offtopic (I/2011)

Post by Timblex »

aika hienoja mutta onoffbuttonin 0-puolen viivat on oudon näköiset :?
Entinen timpe99...
Demokisa 2013 demo valmis, Check it out!
User avatar
Timblex
Advanced Member
Posts: 252
Joined: Sun Apr 11, 2010 10:37 am
Location: Kouvola

Re: Offtopic (I/2011)

Post by Timblex »

Olin tänään iskäni mukana utin koulussa apuopettajana kun oli viimeinen coolbasic-tunti :D
Hämmästyin siitä että luokassa oli 3 pöytäkonetta, 3 miniläppäriä ja kannettava ja luokalla on 14 oppilasta :o
Entinen timpe99...
Demokisa 2013 demo valmis, Check it out!
TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: Offtopic (I/2011)

Post by TheFish »

timpe99 wrote:Olin tänään iskäni mukana utin koulussa apuopettajana kun oli viimeinen coolbasic-tunti :D
Hämmästyin siitä että luokassa oli 3 pöytäkonetta, 3 miniläppäriä ja kannettava ja luokalla on 14 oppilasta :o
Elikkä koneet riittivät juuri pariohjelmoinnin opettelemiseen.
CoolBasic henkilökuntaa
Kehittäjä
DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 2:18 pm

Re: Offtopic (I/2011)

Post by DJ-Filbe »

Aika ankeaa.
Kuinka suuri kunta on kyseessä kun rahaa ei riitä..?
User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Offtopic (I/2011)

Post by esa94 »

DJ-Filbe wrote:Aika ankeaa.
Kuinka suuri kunta on kyseessä kun rahaa ei riitä..?
Kuka sanoi että raha ei riitä?

Se, ja siksi toisekseen kyseessä on todennäköisesti pinta-alaltaan melko suuri kunta. Asukasluvulta suurten kuntien verotus voidaan yleensä säätää niin että vuosittaiset tappiot pysyvät suhteellisen pieninä.
User avatar
Timblex
Advanced Member
Posts: 252
Joined: Sun Apr 11, 2010 10:37 am
Location: Kouvola

Re: Offtopic (I/2011)

Post by Timblex »

Ei ole minun mielestä ankeaa kun ei ollut mikään atk-luokka ja kaikki oppilaat eivät edes opiskele coolbasicia
Entinen timpe99...
Demokisa 2013 demo valmis, Check it out!
naputtelija
Devoted Member
Posts: 718
Joined: Wed Nov 03, 2010 7:56 pm
Location: Joku piste pohjoisessa.

Re: Offtopic (I/2011)

Post by naputtelija »

No niin, koulu on loppunut, ja keskiarvoksi tulikin sitten 8.66. Lukuaineiden keskiarvo varmaankin hieman ysin alle. Huom. en ole eläissäni lukenut juuri yhteenkään kokeeseen. Mites teillä?
<Ize> Pitäs tehä allekirjotus..
<Ize> Vois keksiä jonkin nasahtavan sanonnan..
<Ize> Siitä tulis upea legenda ja kaikki vaihtaisivat allekirjoituksensa siihen.
<Ize> Ehkä ei kuitenkaa...
User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Offtopic (I/2011)

Post by TheDuck »

Kaikki aineet 8.8, lukuaineet 9. Ysille siis menossa.
^^
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Offtopic (I/2011)

Post by Viltzu »

7,44 en laskenu kyl mukaa ATK:ta ja näppistä(konekirjotus) jotka olivat 10 molemmat. Edit: Aivan peruskoulun päättötodistus
Last edited by Viltzu on Sat Jun 04, 2011 11:37 am, edited 1 time in total.
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Offtopic (I/2011)

Post by MaGetzUb »

Peruskoulu pulkassa, pulkassa on hanskat hanskat ei oo hukassa. Jaarittelu sikseen joo keskiarvoksi tuli 7,6. =D Ja lukioon siis seuraavaksi. :P
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
Latexi95
Guru
Posts: 1166
Joined: Sat Sep 20, 2008 5:10 pm
Location: Lempäälä

Re: Offtopic (I/2011)

Post by Latexi95 »

Minullakin peruskoulu pulkassa keskiarvolla 9.47 ja lompakko on 100€ pulskempi. :D
User avatar
Peltsi
Active Member
Posts: 121
Joined: Thu Sep 30, 2010 12:16 pm

Re: Offtopic (I/2011)

Post by Peltsi »

Keskiarvo 8.857 eli 8.86 :D. ATK, terroristitieto (terveystieto) ja historia 10. Ja ysille ollaan menossa. :)
User avatar
Timblex
Advanced Member
Posts: 252
Joined: Sun Apr 11, 2010 10:37 am
Location: Kouvola

Re: Offtopic (I/2011)

Post by Timblex »

Keskiarvoni oli 8.92 :D
Entinen timpe99...
Demokisa 2013 demo valmis, Check it out!
Wingman
Devoted Member
Posts: 594
Joined: Tue Sep 30, 2008 4:30 pm
Location: Ruudun toisella puolella

Re: Offtopic (I/2011)

Post by Wingman »

9.43 keskiarvolla mennään ysiluokalle :P
EDIT:

Stipendejä ei tullut

Last edited by Wingman on Sat Jun 04, 2011 12:11 pm, edited 1 time in total.
- - - -
Tuxi
Active Member
Posts: 190
Joined: Wed Jan 21, 2009 10:25 pm
Contact:

Re: Offtopic (I/2011)

Post by Tuxi »

9,4 keskiarvo kaikista aineista ysin päästötodistuksessa. Stipendeistä yhteensä 105€.
Projektit:
Jotain pientä (Ehkä vähän suurempaakin)

-Tuxi- (myös Tuxi4321)
Feuer
Devoted Member
Posts: 520
Joined: Tue Jun 16, 2009 11:13 am
Contact:

Re: Offtopic (I/2011)

Post by Feuer »

Peruskouluni päättyi muistaakseni samana vuonna kun tänne rekisteröidyin. Sen jälkeen, ammattikoulussa, tullut tasaisesti 2:a ja 3:a kursseista. Syksyllä alkaa sitten viimeinen amisvuosi, ja ensimmäiset oikeat kurssit.
Asus P8P67 LE/Intel Core i5 2500K/ GTX560/ 8GT RAM/750GT HDDt + 120GT SSD + 13" Macbook Pro
Blogi - Peräpohjola - MERPG
TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: Offtopic (I/2011)

Post by TheFish »

Feuer wrote:Peruskouluni päättyi muistaakseni samana vuonna kun tänne rekisteröidyin. Sen jälkeen, ammattikoulussa, tullut tasaisesti 2:a ja 3:a kursseista. Syksyllä alkaa sitten viimeinen amisvuosi, ja ensimmäiset oikeat kurssit.
2 ja 3 asteikolla 1-3, vai asteikolla 1-5 (sehän taisi vaihtua kaikkialla pari vuotta sitten)?
CoolBasic henkilökuntaa
Kehittäjä
Locked