Page 1 of 1

Linkki systeemi

Posted: Sun Oct 14, 2007 4:04 pm
by MaGetzUb
Tuli täs äske koodailtua linkki systeemi, se on aika yksin kertainen. Kommentit puuttuu älkää siis suotta vedä hernettä nenään. :D
Koodi:

Code: Select all

SCREEN 400,75
SetWindow "Link system by dsg"
Repeat
Color 0,0,255
link(15,15,"coolbasic","http://www.coolbasic.com/")
link(15,30,"keksi ite","http://www."+sano_itte$+".com/")

If MouseX()>15 And MouseX()<15+TextWidth("keksi ite: ") And MouseY()>45 And MouseY()<45+15
If MouseHit(1) Then aktivoitu=1
EndIf 

If MouseHit(2) Then aktivoitu=0
If aktivoitu = 1 Then 
sano_itte$=StypidInput(15,45,"keksi ite: ")
Else 
CloseInput()
Text 15,45,"keksi ite: "+sano_itte$
EndIf 

DrawScreen
Forever 


Function StypidInput(x,y,s$)
Locate x,y
ss$=Input(s$)

Return ss$
EndFunction 



Function link(x,y,otsikko$,URL$)
If MouseX()>X And MouseX()<X+TextWidth(URL$) And MouseY()>y And MouseY()<y+TextHeight("|")
If MouseHit(1) Then 
Execute Url$
EndIf 
Text x,y,otsikko$+"->"+Url$
Line x,y+TextHeight("|"),TextWidth(otsikko$+"-> "+URL$),y+TextHeight("|")

Else 

Text x,y,otsikko$+"->"+Url$

EndIf 



EndFunction 
HUOM! Tämä on yksin kertainen! :)

Re: Linkki systeemi

Posted: Mon Oct 15, 2007 1:37 pm
by MAVmaggot
Juu, ihan hyvä ja toimiva, mutta inputti ei toiminu. :(