Frågan#1
Jag har gjort en tabell där jag satsar på 5 nummer på rouletten.
Vinner jag blir det 31 gånger insatsen.
Mitt system går ut på att det ofta kommer upp ett nummer som kom upp för högst 5 nummer sen.
Jag tar bort markern som legat längst och satsar den på senast uppkomna nummer.
Vid dubbelslag ligger markerna kvar.
Tabellen fungerar men i rent utbildningssyfte så skulle det vara kul att få synpunkter på koden som gärna blir lite invecklad för oss amatörer. Misstänker att det går att göra koden mycket enklare.
Tabellen kan ses på
http://evesvensson.com/a077.asp
<HTML>
<HEAD>
<STYLE TYPE="text/css">
<!--
textarea { font-family: verdana; font-size: 10px; color: #000000; }
-->
</STYLE></HEAD>
<body bgcolor="#c0c0c0" text="#ff0000" link="#0000ff" vlink="#800080" alink="#ff0000">
<TABLE width=700 align=left border="1">
<TR>
<TD></TD><TD width=100% align=center>
<BASEFONT size="-1" face="Verdana" align="center">
<TABLE width=100% align=left border="1" bordercolor="#00c0c0"><TR>
<%
Dim Slumptal, Slingan, nr
For Slingan = 1 To 505
siffra7 = siffra6
siffra6 = siffra5
siffra5 = siffra4
siffra4 = siffra3
siffra3 = siffra2
siffra2 = siffra1
siffra1 = slumptal
a= 1
Randomize
Slumptal = Int(Rnd * 37)
If slumptal = siffra1 Then
betalt = 310
Else
betalt = -50
End If
nr=a+nr
insatser = nr -5
%>
<TD valign=top align="center"><BASEFONT size="-1" face="Verdana">
<%If insatser <1 Then%>
<br><BR>
<%Else%>
<NOBR><%=insatser%></NOBR><BR><BR>
<%End If%>
<%If insatser <1 Then%>
<br><BR>
<%Else%>
<NOBR><B><%=Slumptal%></NOBR></B><BR>
<%If slumptal = siffra1 Then%>
<FONT COLOR = "BLUE">
<%vinst1 ="OK"%>
<%End IF%>
<NOBR><%=siffra1%></NOBR><BR>
<%If slumptal = siffra1 Then%>
</FONT>
<%End If%>
<%If slumptal = siffra2 Then%>
<FONT COLOR = "BLUE">
<%vinst2 ="OK"%>
<%End IF%>
<NOBR><%=siffra2%></NOBR><BR>
<%If slumptal = siffra2 Then%>
</FONT>
<%End If%>
<%If slumptal = siffra3 Then%>
<FONT COLOR = "BLUE">
<%vinst3 ="OK"%>
<%End IF%>
<NOBR><%=siffra3%></NOBR><BR>
<%If slumptal = siffra3 Then%>
</FONT>
<%End If%>
<%If slumptal = siffra4 Then%>
<%vinst4 ="OK"%>
<FONT COLOR = "BLUE">
<%End IF%>
<NOBR><%=siffra4%></NOBR><BR>
<%If slumptal = siffra4 Then%>
</FONT>
<%End If%>
<%If slumptal = siffra5 Then%>
<%vinst5 ="OK"%>
<FONT COLOR = "BLUE">
<%End IF%>
<NOBR><%=siffra5%></NOBR><BR>
<%If slumptal = siffra5 Then%>
</FONT>
<%End If%>
<%End If%>
<%
If siffra1=siffra2 or siffra1=siffra3 or siffra1=siffra4 or siffra1=siffra5 or siffra2=siffra3 or siffra2=siffra3 or siffra2=siffra4 or siffra2=siffra5 or siffra3=siffra4 or siffra3=siffra5 or siffra4=siffra5 Then
Dubbel1 = "OK"
Else
Dubbel1 = ""
End If%>
<%If Dubbel1 = "OK" Then%>
<%If slumptal = siffra6 Then%>
<FONT COLOR = "BLUE">
<%vinst6 ="OK"%>
<%End IF%>
<NOBR><%=siffra6%></NOBR><BR>
<%If slumptal = siffra6 Then%>
</FONT>
<%End If%>
<%Else%>
<BR>
<%End If%>
<BR>
<%If vinst1 = "OK" OR vinst2 = "OK" OR vinst3 = "OK" OR vinst4 = "OK" OR vinst5 = "OK" OR vinst6 = "OK" Then
vinsten = "OK"
Else
vinsten = ""
End If%>
<%If insatser >0 AND vinsten = "" Then%>
<%summa = -50%>
<i><NOBR>-50 </NOBR></i><BR>
<%ElseIf insatser >0 AND vinsten = "OK" Then%>
<FONT COLOR = "Blue">
<%summa = 310%>
<i><NOBR>310</NOBR></i><BR>
</FONT>
<%End If%>
<%vinsten = "" %>
<%If insatser <2 Then
sum =summa
Else
sum =sum + summa
End If%>
<%If sum <0 Then%>
<FONT COLOR = "Red">
<%Else%>
<FONT COLOR = "Blue">
<%End IF%>
<NOBR><%=sum%></NOBR>
</FONT>
<%
vinst1=""
vinst2=""
vinst3=""
vinst4=""
vinst5=""
vinst6=""
%>
<%If insatser = 0 Then%>
</TD><TD colspan="20" align=left><BASEFONT size="-1" face="Verdana">
1. Antal satsade spel<BR>
<BR>
2. <B>Senaste nummer</B><BR>
3. Dina nummer<BR>
4. Dina nummer<BR>
5. Dina nummer<BR>
6. Dina nummer<BR>
7. Dina nummer<BR>
8. Dina nummer (Vid 2 lika ovanför)<BR>
<BR>
8. Aktuell förlust/<FONT COLOR = "BLUE">Vinst</FONT><BR>
9. Total förlust/<FONT COLOR = "BLUE">Vinst</FONT>
</TD></TR><TR><TD colspan="25" height="3">
</TD></TR><TR>
<%ElseIf insatser = 25 or insatser = 50 or insatser = 75 or insatser = 100 or insatser = 125 or insatser = 150 or insatser = 175 or insatser = 200 or insatser = 225 or insatser = 250 or insatser = 275 or insatser = 300 or insatser = 325 or insatser = 350 or insatser = 375 or insatser = 400 or insatser = 425 or insatser = 450 or insatser = 475 or insatser = 500 Then%>
</TD></TR><TR><TD colspan="25" height="3"></TD></TR><TR>
<%Else%>
</TD>
<%End IF%>
<%Next%>
</TR>
</TABLE></BASEFONT>
</TD></TR></TABLE></BODY></HTML>