Profil: Crixus01

C

Crixus01
Sinema Genel altına konu açtı.

10 yıl

Geçen gün izledim ama bir türlü etkisinden çıkamadım.Hatta her gün kesit kesit izliyorum.Bu tarz önerebileceğiniz filmler varsa yazarsanız çok sevinirim :)

C

Crixus01
Asp / Asp.NET altına konu açtı.

10 yıl

Dizi Sorunu

Beyler online sınav portalı projem var.Ekrana sadece 4 soru getirebiliyorum veritabanından.İleri butonuna bastıgımda 5 konumunda satır yok hatası alıyorum.Bilen biri yardımcı olursa çok sevinirim.Projeyi tamamlamam için son gunum

Imports System.Data.OleDb

Public Class sinav
Inherits System.Web.UI.Page
Dim count As Integer
Dim ans As String
Dim a(4), t As Integer
Dim adp As New OleDbDataAdapter
Dim ds As New DataSet
Dim ctr As Integer
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & HttpContext.Current.Server.MapPath("App_Data/data.mdb"))
Dim zaman As DateTime
Dim cmd As New OleDbCommand
Dim dt As New DataTable
Dim dr As DataRow
Sub Show()

Dim v As View = Me.View1
dt = Session("Cevaplar")
Dim l As Label
l = CType(v.FindControl("Label1"), Label)
l.Text = dt.Rows(ctr).Item("soruid") & "."
l = CType(v.FindControl("Label2"), Label)
l.Text = dt.Rows(ctr).Item("sorubaslik")

Dim r As RadioButtonList
r = CType(v.FindControl("RadioButtonList1"), RadioButtonList)
r.Items.Clear()
r.Items.Add(dt.Rows(ctr).Item("cevapa"))
r.Items.Add(dt.Rows(ctr).Item("cevapb"))
r.Items.Add(dt.Rows(ctr).Item("cevapc"))
r.Items.Add(dt.Rows(ctr).Item("cevapd"))
r.SelectedIndex = dt.Rows(ctr).Item("secilen")
Session("ctr") = ctr
End Sub
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
Dim suan As DateTime = Now
Dim kalanzaman As DateTime
Try
kalanzaman = (zaman - suan).ToString
Me.Label5.Text = "Kalan Zaman: " & kalanzaman.ToShortTimeString
Catch ex As Exception
Me.Label5.Text = "Zaman Ayarı Bozuk.Yönetici ile İletişime Geçiniz!"
End Try
If kalanzaman.ToShortTimeString = "00:00:00" Then
Dim puan As Integer
dt = Session("Cevaplar")
For Each x In dt.Rows
If x("secilen") + 1 = x("dogrucevap") Then
puan += 1
End If
Next
Response.Redirect("sonuc.aspx?puan=" & puan)
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

If Not IsPostBack Then
Me.MultiView1.ActiveViewIndex = 0
cnn.Open()
cmd.Connection = cnn

Dim arbit As New Random
Randomize()

X: For i = 0 To a.GetUpperBound(0)
t = arbit.Next(1, 10)

If Array.IndexOf(a, t) = -1 Then
a(i) = t

Else
GoTo X
End If

Next
For i = 0 To 4
cmd.CommandText = "select * from sorular where soruid=" & a(i)
adp.SelectCommand = cmd
adp.Fill(ds, "sorular")
Next

cnn.Close()

dt = New DataTable("Cevaplar")
dt.Columns.Add("soruid", GetType(Integer))
dt.Columns.Add("sorubaslik", GetType(String))
dt.Columns.Add("cevapa", GetType(String))
dt.Columns.Add("cevapb", GetType(String))
dt.Columns.Add("cevapc", GetType(String))
dt.Columns.Add("cevapd", GetType(String))
dt.Columns.Add("dogrucevap", GetType(String))
dt.Columns.Add("secilen", GetType(Integer))

Dim r As DataRow

For Each r In ds.Tables("sorular").Rows
dr = dt.NewRow
dr("soruid") = dt.Rows.Count + 1
dr("sorubaslik") = r.Item("sorubaslik")
dr("cevapa") = r.Item("cevapa")
dr("cevapb") = r.Item("cevapb")
dr("cevapc") = r.Item("cevapc")
dr("cevapd") = r.Item("cevapd")
dr("dogrucevap") = r.Item("dogrucevap")
dr("secilen") = -1
dt.Rows.Add(dr)

Next

Session("Cevaplar") = dt

Call Show()

End If
End Sub

Protected Sub btnileri_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnileri.Click
ctr = Session("ctr")
dt = Session("Cevaplar")
Session("ctr") = ctr
ctr += 1
Show()
If ctr = 9 Then
Me.btnileri.Enabled = False

End If
Me.btnGeri.Enabled = True
End Sub

Protected Sub btnGeri_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGeri.Click
ctr = Session("ctr")
dt = Session("Cevaplar")
ctr = ctr - 1
If ctr = 0 Then
Me.btnGeri.Enabled = False

End If
Session("ctr") = ctr
Me.btnileri.Enabled = True
Show()
End Sub

Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButtonList1.SelectedIndexChanged
dt = Session("Cevaplar")
For Each drow In dt.Rows
If drow("soruid") = Me.Label1.Text Then
drow("secilen") = Me.RadioButtonList1.SelectedIndex
Exit For

End If
Next

Session("Cevaplar") = dt

End Sub

Protected Sub btnPuan_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPuan.Click
Dim puan As Integer
dt = Session("Cevaplar")

For Each x In dt.Rows
If x("secilen") + 1 = x("dogrucevap") Then
puan += 1

End If
Next
Response.Redirect("sonuc.aspx?puan=" & puan)
End Sub

End Class

C

Crixus01
Asp / Asp.NET altına konu açtı.

10 yıl

Asp.net Online Sınav Portalı

Merhabalar..Vb dilini kullanarak asp.net tabanlı online sınav portalı proje ödevim var.Nereden başlayacağımı bilemiyorum.Bu proje için önerdiğiniz adımlar veya kaynaklar var mı ? Birde access tablolarını yapamadım.

C

Crixus01
Monitör altına konu açtı.

10 yıl

Hangi Monitörü almalıyım ?

Merhaba.Asus VS228DE ve Philips 227E4LSB monitör arasında kaldım.Hangisini almalıyım.1980x1080 olma şartıyla 350-400 tl fiyat aralığında önerdiğiniz başka monitör var mı ?

http://www.akakce.com/monitor/en-ucuz-asus-vs228de-21-5-led-fiyati,2532310.html

http://www.akakce.com/monitor/en-ucuz-philips-227e4lsb-21-5-led-fiyati,986679.html

C

Crixus01
Diğer İnternet Servis Sağlayıcıları altına konu açtı.

10 yıl

VodafoneNet saçmalığı

10 gün önce vodafone adsl bağlatmak için başvurdum.Mevcut altyapınız ile 16 megabitlik interneti rahat bir şekilde alırsınız dediler.Ama gel gelelim 3 ün 1'ini bile alamadık.Hız 2 megabitti.Sonra aradım sorun altyapı dediler.Türk Telekom ekipleri geldi onlarda bu altyapıyla en fazla 4 megabiti görürsün dediler.Bende bir daha aradım biraz sert konuştum tabi.İnternet hızımı 6 megabit yaptılar.Bir daha arayacağım diyorum ama kendimede acıyorum.Yani söyleyeceğim ülkemizde hiçkimse adam gibi işini yapmıyor.

C

Crixus01
Lenovo (IBM) altına konu açtı.

11 yıl

Lenovo G510 Recovery Bölüm Sorunu

Merhabalar 1 ay önce Lenovo g510 Win8.1 Single Language yüklü laptop satın aldım.C diskine 800 gb D diskine ise 25-30 gb civarı bölüm ayırmıstı.Bende D diskini büyüttüm bir sekılde ama bunu yaparken yanlıslıkla recovery bölüm oldugunu tahmin ettiğim 2 gb lık bölümü biçimlendirmişim.One key recovery bölümüne programından yedek almaya çalışınca "gecerli sistem yedeklemeyi desteklemiyor" hatası alıyorum.Bu konuda yardımcı olursanız minettar olurum.

< Resime gitmek için tıklayın >

C

Crixus01
Notebook - Ultrabook - Oyuncu Dizüstü Tavsiye Bölümü altına konu açtı.

11 yıl

max 1300 tlye laptop tavsiyesi

telefon icin ayri butce ayirdigim icin 1300 tl anca ayirabildim.Bu fiyata alinabilecek en iyi laptopu ariyorum.Yardimci olabilecek var mi?

C

Crixus01
Konu Dışı altına konu açtı.

11 yıl

Yurtdışından ayakkabı alma

iyi aksamlar.linkteki ayakkabıyı begendım ama 240 civarı satılıyor ülkemizde.Yurtdısında 50-60 euro civarı.Ebaydan sipariş versem gümrük sorun çıkarır mı ?

http://www.sporjinal.com/adidas-culver-vulc-erkek-lacivert-spor-ayakkabi-c75267.html

C

Crixus01
Konu Dışı altına konu açtı.

12 yıl

bu filmi bilen var mı ?

< Resime gitmek için tıklayın >

Uzun zamandır araştırıyorum ama bulamadım.Bilen var mı bu filmi

C

Crixus01
Konu Dışı altına konu açtı.

12 yıl

Avrupa vatandaşı olmak istiyorum

Beyler durumlari biliyorsunuz.Avrupa vatandasi olmak kolay degil surekli engel cikariyorlar.Bir insan istedigi yerde yasayamiyorsa bu insan asla ozgur degildir.Birde Avrupada ozgurluk varmis.Gecenlerde gazetede okudum herifin biri dava acmis..Ben ingilterede yasamak istiyorum diye.Davayi kazanmis.Sizin var mi bi fikriniz beyler ?