Keskustelu: Ohjelmointikysymykset: VB6: Tietovisa

Mikäköhän tossa mättää kun inputbox aukeaa ja syötät tietoo ja painat OK tai Cancel nappia niin tulee errorii. Sit kun syöttää tiedon ja painaa enteriä niin toimii!!??

Private Sub cmdPelaa_Click()
Dim kysy1 As Integer
Dim kysy2 As Integer
Dim kysy3 As Integer
Dim kysy4 As Integer
Dim kysy5 As Integer
Dim kysy6 As Integer
Dim kysy7 As Integer
Dim kysy8 As Integer
Dim kysy9 As Integer
Dim kysy10 As Integer

kysy1 = InputBox("Mikä vuosi nyt on?")
If kysy1 = 2005 Then lblTulos = 1 Else MsgBox "Väärin"

kysy2 = InputBox("Laske (90*90*90)/5+1=?")
If kysy2 = 145801 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"

kysy3 = InputBox("Jos neliön sivujen pituus on 6m, niin paljon on neliöt?")
If kysy3 = 36 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"

kysy4 = InputBox("Mikä vuosi oli 47 vuotta sitten?")
If kysy4 = 1958 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"

kysy5 = InputBox("Minä vuonna Kekkonen kuoli?")
If kysy5 = 1986 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"

kysy6 = InputBox("Minä vuonna Suomi itsenäistyi?")
If kysy6 = 1917 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"

kysy7 = InputBox("Mikä oli vuosi kun Keke voitti ensimmäisen MM:n?")
If kysy7 = 1982 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"

kysy8 = InputBox("Milloin kortsu on keksitty?")
If kysy8 = 1564 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"

kysy9 = InputBox("Minä vuonna ensimmänen Games järjestettiin?")
If kysy9 = 2003 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"

kysy10 = InputBox("Kuinka moneen kysymykseen vastasit?")
If kysy10 = 10 Then lblTulos = lblTulos + 1 Else MsgBox "Väärin"


End Sub

Ö? en iha tajunnut kysymystäs mutta varmaan liittyy siihe et jos inputboxi palauttaa ei mitään (tyhjän stringin).
Vähän offtopic, mut liittyy tohon koodiisi: kannattaa opetella taulukot.

Kai OK kuitenkin toimii? Sooda on ihan oikeessa, jos painat cancel niin saat muuttujaan tyhjän "", ja sitä et voi integerin kanssa käyttää. Muuta vaikka muuttujasi stringiksi ja käytä CInt:iä vertaillessa esim.

If kysy1 <> "" Then
    If CInt(kysy1) = 2005 Then lblTulos = 1 Else MsgBox "Väärin"
Else
    MsgBox "Et antanut vastausta, lopetetaan peli."
    Exit Sub
End If

Ja sooda on oikeassa siinäkin, että taulukoilla ja tietueilla tuo menee tyylikkäämmin, onnea opiskeluun...

Tuollahan on ihan hyvä esimerkki:

https://www.ohjelmointiputka.net/keskustelu/1753-tietokilpailu-vb-koodivinkki

Kiitos!! Auttoi paljon aloittelijaa... Mut viel yks ongelma! Miten ton tietovisan sais web-sivulle?? Vai saako edes...

Käännät EXE:ksi ja päivität serverille. Tosin, jos haluat, että se suoritetaan selaimessa, niin kannattaa tutustua .NET systeemiin(ei kyllä tämäkään suoriteta selaimessa, mutta latausta ei tarvitse suorittaa).

Nettisivulle tuleva tietokilpailu tehdään ihan muulla kuin VB:llä. Minä käyttäisin PHP:tä, ja muut nettiohjelmointikielet kelpaavat myös.

Tai sitten käytät tuota remontti-reiskan mainitsemaa .NET systeemiä (ei onnistu vb6:lla, vaan uudemmilla) ja teetkin ASP.NET sovelluksen. Tosin vaatii sitten serveriltä tuon ASP.NET tuen ja sitä ei kaikilla palveluntarjoajilla todellakaan ole. Helpoin saattaa ehkä olla tehdä VBScripti (katso ohjeita http://www.intranetjournal.com/corner/wrox/progref/vbt/ sivulta) mutta sitten selaimessa pitää olla scriptituki päällä...

Ja VBScript on vain IE:ssä. Käytä PHP:tä.
Itse asiassa mulla onkin siitä koodivinkki vetämässä: https://www.ohjelmointiputka.net/koodivinkit/24641-php-tietovisajärjestelmä