Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoc oko racunanja bodova

[es] :: .NET :: .NET Desktop razvoj :: Pomoc oko racunanja bodova

[ Pregleda: 3132 | Odgovora: 17 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Pomoc oko racunanja bodova23.11.2012. u 12:32 - pre 138 meseci
Ovako nemam apsolutnu ideju kako to da uradim a treba mi :)
znaci imam 10 formi gde u svakoj formi postoje 3 buttona ili ti tri odgovora od kojih je jedno samo tacno.
treba mi da se u zavisnosti od broja tacnih odgovora saberu bodovi ili oduzmu bodovi.
nikada nisam to radio pa stoga molim za pomoc.
hvala
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Pomoc oko racunanja bodova23.11.2012. u 13:40 - pre 138 meseci
Dovoljna ti je jedna forma za to. I ujedno ti je lakse da odredis celu stvar.
 
Odgovor na temu

dvoglaviorao
Komp
KoTkuće, ono što volim

Član broj: 233319
Poruke: 179



+9 Profil

icon Re: Pomoc oko racunanja bodova23.11.2012. u 20:40 - pre 138 meseci
Ti bi gotov program a? :) Hajde polako razmisli kako bi moglo da se uradi pa se javi da razradimo ideju ;)
 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko racunanja bodova23.11.2012. u 21:02 - pre 138 meseci
taj deo sa testom je 10 deo aplikacije koju sam uradio
sinteza govora zatim icrtavanje po formi u odredjenom delu, ilustracije neke logicke igrice itd....
e oko ovoga nemam ideju sto se tice skorovanja
ideja je ta da ima tri ponudjena odgovora i da je jedan tacan
to mogu uraditi i preko checkbox-a tipa a b c
kao i obicno forum mi bas i ne daje neku pomoc vec sam resavam stvar :(
a inace imate neko resenje u predhodnom mom postu pa eto nije da trazim sve gotovo nego samo da skratim vreme kojeg nemam sebi ako neko zna.
pozdrav i hvala na pomoci velikoj.
 
Odgovor na temu

wex-alpha
Sarajevo

Član broj: 7580
Poruke: 845
*.dynamic.telemach.ba.



+13 Profil

icon Re: Pomoc oko racunanja bodova24.11.2012. u 09:33 - pre 138 meseci
MSSQLCE kao baza. Tu upisujes ne 10 pitanja, vec koliko ti treba nisi ogranicen.

A ako si sadomazohistican, mozes to isto raditi sa text fajlom i parsirati odgovore :P


 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko racunanja bodova24.11.2012. u 10:33 - pre 138 meseci
nema potrebe za bazom mada nije losa ideja jer mogu da pitanja menjaju :)
mogu da koristim i Access kao bazu ne mora MSsql zar ne?
 
Odgovor na temu

wex-alpha
Sarajevo

Član broj: 7580
Poruke: 845
*.dynamic.telemach.ba.



+13 Profil

icon Re: Pomoc oko racunanja bodova25.11.2012. u 10:01 - pre 138 meseci
Mozes bilo koju bazu, cak i access. Samo sto onda klijent masina mora imati instaliran access da bi mogla raditi, zar ne?


 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko racunanja bodova25.11.2012. u 12:39 - pre 138 meseci
mislim dfa je dovoljan samo runtime
nesto radim pa cu objaviti
 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko racunanja bodova26.11.2012. u 08:59 - pre 138 meseci
na ideju WEX-a uradio sam ovako nesto :


Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim t As Integer = 0
Public Function runquiz()
Try
If t <= nq - 1 Then
Timer1.Enabled = True
If con.State = ConnectionState.Open Then con.Close()
con.Open()
Dim adp As New OleDbDataAdapter("select * from pitanja", con)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt As DataTable
dt = ds.Tables(0)
qbox.Text = dt.Rows(t).Item(1)
optiona.Text = dt.Rows(t).Item(2)
optionb.Text = dt.Rows(t).Item(3)
optionc.Text = dt.Rows(t).Item(4)
optiond.Text = dt.Rows(t).Item(5)
t = t + 1
con.Close()
Else
Timer1.Enabled = False
qbox.Text = "Pitanje"
optiona.Text = "A"
optionb.Text = "B"
optionc.Text = "C"
optiond.Text = "D"
Button1.Enabled = True
MsgBox("Kontrolni je uradjen" & namebox.Text & vbCrLf & "osvojio si bodova: " & scorebox.Text, MsgBoxStyle.Information, "Kraj")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function validans()
Dim scr As Integer
If t = 1 And optiona.Checked Or t = 2 And optionc.Checked Or t = 3 And optionc.Checked Or t = 4 And optiona.Checked Or t = 5 And optionc.Checked Then
scr = scorebox.Text + 1
scorebox.Text = scr
ElseIf t = 6 And optionb.Checked Or t = 7 And optiona.Checked Or t = 8 And optiond.Checked Or t = 9 And optionb.Checked Or t = 10 And optiona.Checked Or t = 11 And optionb.Checked Then
scr = scorebox.Text + 1
scorebox.Text = scr
ElseIf t = 12 And optiond.Checked Or t = 13 And optiona.Checked Or t = 14 And optiond.Checked Or t = 15 And optionc.Checked Or t = 16 And optiona.Checked Or t = 17 And optionc.Checked Then
scr = scorebox.Text + 1
scorebox.Text = scr
ElseIf t = 18 And optionb.Checked Or t = 19 And optiond.Checked Or t = 20 And optiona.Checked Then
scr = scorebox.Text + 1
scorebox.Text = scr
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
t = 0
scorebox.Text = "00"
Dim dg1 As New Dialog1
If dg1.ShowDialog() = Windows.Forms.DialogResult.OK Then
namebox.Text = nme
agebox.Text = age
Button1.Enabled = False
tslbl6.Text = nq
runquiz()
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Integer
i = i + 1
If optiona.Checked = True Or optionb.Checked = True Or optionc.Checked = True Or optiond.Checked = True Then
validans()
GoTo ter
End If
timebox.Text = 30 - i
If i >= 30 Then
ter: Timer1.Enabled = False
If t <= nq Then
qbox.Text = ""
optiona.Text = ""
optionb.Text = ""
optionc.Text = ""
optiond.Text = ""
optiona.Checked = False
optionb.Checked = False
optionc.Checked = False
optiond.Checked = False
i = 0
runquiz()
Else
Exit Sub
End If
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Timer1.Enabled = True Then
Timer1.Enabled = False
qbox.Text = "Pitanje"
optiona.Text = "A"
optionb.Text = "B"
optionc.Text = "C"
optiond.Text = "D"
Button1.Enabled = True
MsgBox("Kontrolni je uradjen" & namebox.Text & vbCrLf & "osvojio si bodova: " & scorebox.Text, MsgBoxStyle.Information, "Kraj")
Else
Exit Sub
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
optiona.Checked = False
optionb.Checked = False
optionc.Checked = False
optiond.Checked = False
End Sub

Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusStrip1.ItemClicked

End Sub

Private Sub qbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qbox.Click

End Sub
End Class




i kao modul



Module Module1
Public nme As String
Public age, nq As Integer
Public con As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C:\kontrolni.mbd")
End Module




ali imam problem kada hocu da pozovem bazu jednostavno mi racunar kaze da nemam DB engine instaliran a znam da ga imam i sada jos veci fazon je sto ja koristim 64bit win7 jel to ima neke veze???
pizdim od ovoga nemam ideju vise za kako da resim konekciju.......
 
Odgovor na temu

wex-alpha
Sarajevo

Član broj: 7580
Poruke: 845
*.dynamic.telemach.ba.



+13 Profil

icon Re: Pomoc oko racunanja bodova26.11.2012. u 09:11 - pre 138 meseci
Probaj SQLCE, lakan za koristiti ali i brz. Imas sve potrebno za njega na netu. Osim ako bas zelis Access.
 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko racunanja bodova26.11.2012. u 09:13 - pre 138 meseci
mora Access jer ne mogu toj skoli da objasnim kako da na lak nacin menjaju pitanja a ne ja da trcim tamo i kuckam i ovako ovo radim sve za dz pa ne bi da jos i pitanja kuckam lakse im je sa access-om jer po njima vise to lici na excel
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Pomoc oko racunanja bodova27.11.2012. u 06:26 - pre 137 meseci
Citat:
crnjak1:
mora Access jer ne mogu toj skoli da objasnim kako da na lak nacin menjaju pitanja a ne ja da trcim tamo i kuckam i ovako ovo radim sve za dz pa ne bi da jos i pitanja kuckam lakse im je sa access-om jer po njima vise to lici na excel

Pa, napravi unos pitanja iz aplikacije.

 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko racunanja bodova27.11.2012. u 08:09 - pre 137 meseci
necu tako resio sam da radim sa access bazom i tacka ako neko moze da mi pomogne u zagonetci super ako ne molim bez suvisnih ideja
hvala
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Pomoc oko racunanja bodova27.11.2012. u 09:46 - pre 137 meseci
Sa takvim stavom tesko da ce neko hteti.
 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko racunanja bodova27.11.2012. u 09:53 - pre 137 meseci
i ovako sve sam radim od vas nikakve pomoci sve sami teoreticari
ajd posto si poceo i poruke da mi brises mozes i nalog
vozdra
 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko racunanja bodova27.11.2012. u 11:48 - pre 137 meseci
Kao i po obicaju sam resio problem evo i solucije za isti:
da bi ovo proradilo na win7-64bit "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\kontrolni.mdb" potrebno je uraditi sledece stelovanje VB 2010
Tools --> Options --> Projects and Solutions-->General i stiklirati "Show advanced build configurations"
pa nakon toga otici Active Solution Platform --> New --> ovde izabrati x86 platformu

sve radi kao saliveno
hvala Wex-u na ideji za bazu u mnogome mi je olaksala stvar
hvala Shadowed-u na pesimizmu (pederizmu) pa brisi i ovaj post i nalog ceo ako hoces
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Pomoc oko racunanja bodova27.11.2012. u 11:52 - pre 137 meseci
Znaci, ne verujem.. A obrisao sam poruku koja je odgovor na vec obrisanu poruku (koja je offtopic jer je covek paste-ovao nesto totalno nevezano za temu).
A poenta foruma i nije da ti neko radi nego da ti da savet kako da nesto uradis.
No, dobro, ti se samo duri, ljudi obozavaju da pomazu onima koji to rade
 
Odgovor na temu

AMD guy
Miroslav
.NET developer

Član broj: 128930
Poruke: 1007

Sajt: www.its.edu.rs


+38 Profil

icon Re: Pomoc oko racunanja bodova09.12.2012. u 14:06 - pre 137 meseci
Kao neka "alternativa" za sqlce moze da mu posluzi i XML
http://i.imgur.com/V3feW.jpg
http://on.wsj.com/H9yjz6 -- India Graduates Millions, but Too Few Are Fit to Hire
 
Odgovor na temu

[es] :: .NET :: .NET Desktop razvoj :: Pomoc oko racunanja bodova

[ Pregleda: 3132 | Odgovora: 17 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.