10 svar · 139 visningar · startad av cHeMiCaL-X
Hur gör man? Fick ett förslag av farsan att man kunde ha en gemensan talk, dvs det binära talsystemet. Men jag fattar inte vad min über pappa menar..
------------------
"Where monkeys and nutty proffesors live. That's where i live"
[Redigerat av cHeMiCaL-X den 15 nov 2001]
hex
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfcthex.asp
------------------
essentitia preter non sans multiplicandum
då är det bara att se till att man skaffar ett javascript som inte tillåter ett värde större än 255 då :)
------------------
"Where monkeys and nutty proffesors live. That's where i live"
eller så kan man ju använda:
IF Request.Form("varde") > 255 Then
Response.Write "du får inte ange ett större decimalt värde än 255.
------------------
"Where monkeys and nutty proffesors live. That's where i live"
Har gjort den nu: http://chemical-x.dns2go.com/useful/rgb2hex.asp
Koden ser ut så här:
<html>
<head>
<title>[cHeMiCaL-X]'s superb rgb to hex converter</title>
</head>
<body>
<%
If Request.QueryString("red") > 255then
Response.write "You cannot enter a value greater then 255!"
End IF
If Request.QueryString("red") > 255then
Response.write "You cannot enter a value greater then 255!"
End IF
If Request.QueryString("red") > 255then
Response.write "You cannot enter a value greater then 255!"
Else
End If
Dim redvalue, greenvalue, bluevalue
Dim red, green, blue
Dim hexcode
redvalue = Request.QueryString("red")
greenvalue = Request.QueryString("green")
bluevalue = Request.QueryString("blue")
red = Hex(cInt(redvalue)) ' Returns the hex for the red value.
green = Hex(cInt(greenvalue)) ' Returns the hex for the green value.
blue = Hex(cInt(bluevalue)) ' Returns the hex for the blue value.
hexcode = red + green + blue
%>
<form method="Get" action="rgb2hex.asp">
Red:
<input type="text" name="red" size="20"><br>
Green:
<input type="text" name="green" size="20"><br>
Blue:
<input type="text" name="blue" size="20"><br>
<br>
<input type="submit" value="Convert!"><input type="reset" value="Reset"></p>
</form>
<% If Request.QueryString("red") = "" AND Request.QueryString("green") = "" AND Request.QueryString("blue") = "" Then
Response.Write "Enter your RGB Values"
Else
Response.Write hexcode
End IF
%>
</body>
</html>
Skulle vilja ha lite tips på kod som kan förbättra scriptet.
------------------
"Where monkeys and nutty proffesors live. That's where i live"
If Request.QueryString("red") > 255 then
Response.write "You cannot enter a value greater then 255!"
End IF
If Request.QueryString("green") > 255 then
Response.write "You cannot enter a value greater then 255!"
End IF
If Request.QueryString("blue") > 255 then
Response.write "You cannot enter a value greater then 255!"
------------------
essentitia preter non sans multiplicandum
Jag tänkte att man kanske kunde göra så här: Om man skriver in ett värde som är större än 255 så på ett eller variabler så ska den inte skriva ut någon hex kod eller något decimalt tal. utan bara säga att du har skrivit in ett värde som är högre än 255 på färgen: färg.
------------------
"Where monkeys and nutty proffesors live. That's where i live"
och att den bara tar dom 3 första siffrorna.. vill inte ha komplett kod utan bara ha kod på hur man tar ut dom 3 första siffrorna
annars lär man sig inget.
------------------
"Where monkeys and nutty proffesors live. That's where i live"
[Redigerat av cHeMiCaL-X den 15 nov 2001]
parse error near så på ett eller variabler Vad menar du?
3 första siffrorna
cint(left(variabel,3))
------------------
essentitia preter non sans multiplicandum
Skalade ner koden lite grann och nu ser den ut så här:
<head>
<title>[cHeMiCaL-X]'s superb rgb to hex converter</title>
</head>
<body>
<%
Dim redvalue, greenvalue, bluevalue
Dim red, green, blue
Dim hexcode
If Request.QueryString("red") = "" Then
redvalue = 0
else
redvalue = Request.QueryString("red")
End IF
If Request.QueryString("green") = "" Then
greenvalue = 0
else
greenvalue = Request.QueryString("green")
End IF
If Request.QueryString("blue") = "" Then
bluevalue = 0
else
bluevalue = Request.QueryString("blue")
End If
red = Hex(cInt(left(redvalue,3))) ' returns the hex for the red value
green = Hex(cInt(left(greenvalue,3))) ' returns the hex for the red value
blue = Hex(cInt(left(bluevalue,3))) ' returns the hex for the red value
hexcode = red + green + blue
%>
<form method="Get" action="rgb2hex.asp">
Red:
<input type="text" name="red" size="20"><br>
Green:
<input type="text" name="green" size="20"><br>
Blue:
<input type="text" name="blue" size="20"><br>
<br>
<input type="submit" value="Convert!"><input type="reset" value="Reset"></p>
</form>
<% If Request.QueryString("red") = "" AND Request.QueryString("green") = "" AND Request.QueryString("blue") = "" Then
Response.Write "<font face='verdana' size='1'><b>Enter your RGB Values</b></font>"
Else
Response.Write "<font face='verdana' size='1'> Theese RGB values (" & cInt(left(redvalue,3)) & " & " & cInt(left(greenvalue,3)) & " & " & cInt(left(bluevalue,3)) & ") makes the hexcode: " & hexcode & " wich results in this color:</font><br><br><br><br>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='200' height='200' id='AutoNumber1'>"
Response.Write "<tr>"
Response.Write "<td width='200' bgcolor='#" & hexcode & "' height='200'> </td>"
Response.Write "</tr></table>"
End IF
%>
</body>
</html>
------------------
"Where monkeys and nutty proffesors live. That's where i live"
[Redigerat av cHeMiCaL-X den 16 nov 2001]