Linkki systeemi

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Linkki systeemi

Post by MaGetzUb » Sun Oct 14, 2007 4:04 pm

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! :)
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.

User avatar
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: Linkki systeemi

Post by MAVmaggot » Mon Oct 15, 2007 1:37 pm

Juu, ihan hyvä ja toimiva, mutta inputti ei toiminu. :(

Post Reply