Olisi tarkoituksena saada aikaiseksi kyselylomake, jolla voi tutkia nettiriippuvuutta:
Ohjelma esittää lomakkeella seuraavat kysymykset ja esittää niihin perässä tulevat vastausvaihtoehdot. Kunkin vastauksen tuottamat pisteet näkyvät ko kohdan perässä.
Kuinka pian herättyäsi luet sähköpostisi tai käytät nettiä ?
alle 10 min 3p
10-30 min 2p
30-60 min 1p
yli 60 min 0p
Onko Sinun vaikea olla surffailematta oppitunnilla ?
Kyllä 1p
Ei 0p
Kuinka kauan käytät nettiä vuorokaudessa ?
Alle 1 h 0p
1-4 h 1p
4-8 h 2p
yli 8 h 3p
Surffailetko enemmän yöllä kuin päivällä ?
Kyllä 1p
Ei 0p
Käytätkö nettiä jos olet niin sairas että joudut olemaan vuoteessa suurimman osan päivästä ?
Kyllä 1p
Ei 0p
Pisteytys
•jos yhteispisteet 3 tai alle, riippuvuus on vähäinen
•jos yhteispisteet 4-5, riippuvuus on kohtalainen
•jos yhteispisteet 6-8, riippuvuus on voimakas
•jos yhteispisteet yli 8, riippuvuus wwwakawwwaaa…
Pitäisi tehdä lomakkeelle ko. kysely käyttäen sopivia kontrolleja ja painikkeeseen riippuvuusindeksin laskenta ja tuloksen ilmoittaminen. Lopputulos pitäisi ilmoittaa jollakin sopivalla Windows-lomakkeen komponentilla (label, tekstikenttä tms)
OLISIKO HYVIÄ NEUVOJA - VALMISTA KOODIA JOLLA TOTEUTTAA?
Ohjelma esittää lomakkeella seuraavat kysymykset ja esittää niihin perässä tulevat vastausvaihtoehdot. Kunkin vastauksen tuottamat pisteet näkyvät ko kohdan perässä.
Kuinka pian herättyäsi luet sähköpostisi tai käytät nettiä ?
alle 10 min 3p
10-30 min 2p
30-60 min 1p
yli 60 min 0p
Onko Sinun vaikea olla surffailematta oppitunnilla ?
Kyllä 1p
Ei 0p
Kuinka kauan käytät nettiä vuorokaudessa ?
Alle 1 h 0p
1-4 h 1p
4-8 h 2p
yli 8 h 3p
Surffailetko enemmän yöllä kuin päivällä ?
Kyllä 1p
Ei 0p
Käytätkö nettiä jos olet niin sairas että joudut olemaan vuoteessa suurimman osan päivästä ?
Kyllä 1p
Ei 0p
Pisteytys
•jos yhteispisteet 3 tai alle, riippuvuus on vähäinen
•jos yhteispisteet 4-5, riippuvuus on kohtalainen
•jos yhteispisteet 6-8, riippuvuus on voimakas
•jos yhteispisteet yli 8, riippuvuus wwwakawwwaaa…
Pitäisi tehdä lomakkeelle ko. kysely käyttäen sopivia kontrolleja ja painikkeeseen riippuvuusindeksin laskenta ja tuloksen ilmoittaminen. Lopputulos pitäisi ilmoittaa jollakin sopivalla Windows-lomakkeen komponentilla (label, tekstikenttä tms)
OLISIKO HYVIÄ NEUVOJA - VALMISTA KOODIA JOLLA TOTEUTTAA?
Vastaukset 17
Vanhimmat
http://www.pela.fi/nettivihje/nettitesti.html
Kuinka toteuttaa Visual Basicillä???
niin, olennainen kysymys.
Onko sitä tarkoitus käyttää netissä vai paikallisesti PC:ssa?
Netti-ohjelmointia en ole harrastanut, sensijaan PC-ympäristössä onnistunee mikä juttu vaan.
PC:ssä siis käyttö, ei nettipohjaista! Ja Visual Basicilla toteutus!
MSDN on ystäväsi tässä tapauksessa, sieltä löytynee about kaikki visual basiciin liittyvä.
Katsoppa vaikka löytyiskö apua noista:
http://msdn.microsoft.com/library/en-us/vbcon98/html/vbmscVisualBasicDocumentationMap.asp
http://msdn.microsoft.com/library/en-us/VBRef98/html/vbmscLROverview.asp
...ei sellaista kyselylomakkeen koodia jonka tarvitsisin?
...sitä jonkinlaista koodia sellaiseen kyselylomakkeen toteutukseen visual basicillä? Jotain peruskoodia, jota voisin sitten soveltaa omaan tarpeeseen?
jos vielä ehtii
Take your time ! :)
Tässä koodia.
Laita projektin Form1:een Frame1, johon lisäät valintanapit Option1....Option5.
Lisää Form1:een Label:it nimellä "lblkysymys" ja "lblriippuvuus".
Lisää Form1:een Command-painikkeet nimellä:
"prev", "next" ja "ready".
Kielet ovat sekaisin tuossakin, eli on Englantia ja Suomea mutta kyllä se silti toimii.
Oheisen koodin pitäisi mennä ihan oikein kun tästä maalaat ja kopioit.
'-------------------------------------------------
Dim kysymys1, kysymys2, kysymys3, kysymys4, kysymys5 As String
Dim vast1(4) As String
Dim vast2(4) As String
Dim vast3(4) As String
Dim vast4(4) As String
Dim vast5(4) As String
Dim k As Integer
Dim kv1(5) As Boolean
Dim kv2(5) As Boolean
Dim kv3(5) As Boolean
Dim kv4(5) As Boolean
Dim kv5(5) As Boolean
Dim pist1(4) As Integer
Dim pist2(4) As Integer
Dim pist3(4) As Integer
Dim pist4(4) As Integer
Dim pist5(4) As Integer
Dim pisteet(5) As Integer
Dim total As Integer
Dim riippuvuus As String
Private Sub valinnat()
Option1.Value = kv1(k)
Option2.Value = kv2(k)
Option3.Value = kv3(k)
Option4.Value = kv4(k)
If k = 1 Then
lblkysymys.Caption = kysymys1
Option1.Caption = vast1(1)
Option2.Caption = vast1(2)
Option3.Caption = vast1(3)
Option4.Caption = vast1(4)
Option3.Visible = True
Option4.Visible = True
End If
If k = 2 Then
lblkysymys.Caption = kysymys2
Option1.Caption = vast2(1)
Option2.Caption = vast2(2)
Option3.Caption = vast2(3)
Option4.Caption = vast2(4)
Option3.Visible = False
Option4.Visible = False
End If
If k = 3 Then
lblkysymys.Caption = kysymys3
Option1.Caption = vast3(1)
Option2.Caption = vast3(2)
Option3.Caption = vast3(3)
Option4.Caption = vast3(4)
Option3.Visible = True
Option4.Visible = True
End If
If k = 4 Then
lblkysymys.Caption = kysymys4
Option1.Caption = vast4(1)
Option2.Caption = vast4(2)
Option3.Caption = vast4(3)
Option4.Caption = vast4(4)
Option3.Visible = False
Option4.Visible = False
End If
If k = 5 Then
lblkysymys.Caption = kysymys5
Option1.Caption = vast5(1)
Option2.Caption = vast5(2)
Option3.Caption = vast5(3)
Option4.Caption = vast5(4)
Option3.Visible = False
Option4.Visible = False
End If
End Sub
Private Sub ready_Click()
total = 0
For s = 1 To 5
total = total pisteet(s)
Next s
'Pisteytys
'•jos yhteispisteet 3 tai alle, riippuvuus on vähäinen
'•jos yhteispisteet 4-5, riippuvuus on kohtalainen
'•jos yhteispisteet 6-8, riippuvuus on voimakas
'•jos yhteispisteet yli 8, riippuvuus wwwakawwwaaa…
If total < 4 Then riippuvuus = "riippuvuus on vähäinen"
If total > 3 And total < 5 Then riippuvuus = "riippuvuus on kohtalainen"
If total > 5 And total < 9 Then riippuvuus = "riippuvuus on voimakas"
If total > 8 Then riippuvuus = "riippuvuus wwwakawwwaaa!"
lblriippuvuus.Caption = total & " p. " & riippuvuus
End Sub
Private Sub Form_Load()
k = 1
'Kuinka pian herättyäsi luet sähköpostisi tai käytät nettiä ?
kysymys1 = "Kuinka pian herättyäsi luet sähköpostisi tai käytät nettiä ?"
' alle 10 min 3p
' 10-30 min 2p
' 30-60 min 1p
' yli 60 min 0p
vast1(1) = "alle 10 min"
vast1(2) = "10-30 min"
vast1(3) = "30-60 min"
vast1(4) = "yli 60 min"
pist1(1) = 3
pist1(2) = 2
pist1(3) = 1
pist1(4) = 0
'Onko Sinun vaikea olla surffailematta oppitunnilla ?
kysymys2 = "Onko Sinun vaikea olla surffailematta oppitunnilla ?"
' Kyllä 1p
' Ei 0p
vast2(1) = "Kyllä"
vast2(2) = "Ei"
pist2(1) = 1
pist2(2) = 0
'Kuinka kauan käytät nettiä vuorokaudessa ?
kysymys3 = "Kuinka kauan käytät nettiä vuorokaudessa ?"
' Alle 1 h 0p
' 1-4 h 1p
' 4-8 h 2p
' yli 8 h 3p
vast3(1) = "Alle 1 h"
vast3(2) = "1-4 h"
vast3(3) = "4-8 h"
vast3(4) = "yli 8 h"
pist3(1) = 0
pist3(2) = 1
pist3(3) = 2
pist3(4) = 3
'Surffailetko enemmän yöllä kuin päivällä ?
kysymys4 = "Surffailetko enemmän yöllä kuin päivällä ?"
' Kyllä 1p
' Ei 0p
vast4(1) = "Kyllä"
vast4(2) = "Ei"
pist4(1) = 1
pist4(2) = 0
'Käytätkö nettiä jos olet niin sairas että joudut olemaan vuoteessa suurimman osan päivästä ?
kysymys5 = "Käytätkö nettiä jos olet niin sairas että joudut olemaan vuoteessa suurimman osan päivästä ?"
' Kyllä 1p
' Ei 0p
vast5(1) = "Kyllä"
vast5(2) = "Ei"
pist5(1) = 1
pist5(2) = 0
'Pisteytys
'•jos yhteispisteet 3 tai alle, riippuvuus on vähäinen
'•jos yhteispisteet 4-5, riippuvuus on kohtalainen
'•jos yhteispisteet 6-8, riippuvuus on voimakas
'•jos yhteispisteet yli 8, riippuvuus wwwakawwwaaa…
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = True
'Option5.Visible = False
Call valinnat
End Sub
Private Sub next_Click()
If k < 5 Then
k = k 1
End If
Call valinnat
End Sub
Private Sub Option1_Click()
If k = 1 Then pisteet(k) = pist1(1)
If k = 2 Then pisteet(k) = pist2(1)
If k = 3 Then pisteet(k) = pist3(1)
If k = 4 Then pisteet(k) = pist4(1)
If k = 5 Then pisteet(k) = pist5(1)
kv1(k) = True
kv2(k) = False
kv3(k) = False
kv4(k) = False
End Sub
Private Sub Option2_Click()
If k = 1 Then pisteet(k) = pist1(2)
If k = 2 Then pisteet(k) = pist2(2)
If k = 3 Then pisteet(k) = pist3(2)
If k = 4 Then pisteet(k) = pist4(2)
If k = 5 Then pisteet(k) = pist5(2)
kv1(k) = False
kv2(k) = True
kv3(k) = False
kv4(k) = False
End Sub
Private Sub Option3_Click()
If k = 1 Then pisteet(k) = pist1(3)
If k = 2 Then pisteet(k) = pist2(3)
If k = 3 Then pisteet(k) = pist3(3)
If k = 4 Then pisteet(k) = pist4(3)
If k = 5 Then pisteet(k) = pist5(3)
kv1(k) = False
kv2(k) = False
kv3(k) = True
kv4(k) = False
End Sub
Private Sub Option4_Click()
If k = 1 Then pisteet(k) = pist1(4)
If k = 2 Then pisteet(k) = pist2(4)
If k = 3 Then pisteet(k) = pist3(4)
If k = 4 Then pisteet(k) = pist4(4)
If k = 5 Then pisteet(k) = pist5(4)
kv1(k) = False
kv2(k) = False
kv3(k) = False
kv4(k) = True
End Sub
Private Sub prev_Click()
If k > 1 Then
k = k - 1
End If
Call valinnat
End Sub
tuo kannattaa vielä laittaa, eli piilottaa tuo viides valintanappua.
Kiittää ja kumartaa mahtavaa gurua! ;)
ole hyvä vaan, mukava jos kelpasi.
Sen olen huomannut, että kaikkea mitä olen VB:lla ryhtynyt toteuttamaan, kaikki on onnistunut. Jotkut asiat vaikeammin mutta silti.
Taas on menossa mielenkiintoinen projekti, vb-projekti :)
Tee jokaiselle kysymykselle oma muuttuja, ja kirjota painikkeseen koodi joka tarkastaa, että mikä on mistäkin kysymyksestä valittu, antaa muuttujalle valitun vaihtoehdon perusteella arvon ja lopuksi laskee nämä yhteen. Kysy koodia tarkemmin jos tarttet...
Olisi hyvä, jos olisi valmiina tuota koodia, koska omat taidot ovat aika rajalliset??
Eikö miestä auteta mäessä - kaivattaisiin nopeasti apua kyseiset jutun toteutukseen?
toi sun kysymyksesi on, jos ei kellään ole tollasta valmiina, niin sen tekeminen ihan vaan sua varten alkaa olla ajankäytöllisesti vähän liikaa.
Jos jollain on valmiina vastaavaa, luultavasti saat haluamas, mutta, mean while, käytä hakuroboja ja käyttämäsi ohjelman alirutiinihelppejä - silleen tässä muutkin... :X