Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Şimdi Ara
@Crixus01
gececi
En az 100 Farklı Gece DH’deydi
onbaşı
"onbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.
Diğer rütbeleri gör

1 takipçi
Özel Mesaj

Onbaşı
29 Kasım 2013
Tarihinde Katıldı
Takip Ettikleri
2 üye
Görüntülenme
Toplam: 32 (Bu ay: 0)
Fırsat Ekle
Gönderileri
Crixus01 · Sinema Genel altına konu açtı. 9 yıl

Pulp Fiction Tarzı Film Önerisi?

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 :)
21 Yanıt Yanıtla Favorilere Ekle 0
Crixus01 · Asp / Asp.NET altına konu açtı. 9 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
Yanıt Yok Yanıtla Favorilere Ekle 0
Crixus01 · Asp / Asp.NET altına konu açtı. 9 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.
Yanıt Yok Yanıtla Favorilere Ekle 0
Crixus01 · Monitör altına konu açtı. 9 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
15 Yanıt Yanıtla Favorilere Ekle 0
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.
7 Yanıt Yanıtla Favorilere Ekle 1
Crixus01 · Lenovo (IBM) altına konu açtı. 10 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.


1 Yanıt Yanıtla Favorilere Ekle 0
Crixus01 · Notebook - Ultrabook - Oyuncu Dizüstü Tavsiye Bölümü altına konu açtı. 10 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?
4 Yanıt Yanıtla Favorilere Ekle 0
Crixus01 · Konu Dışı altına konu açtı. 10 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
2 Yanıt Yanıtla Favorilere Ekle 0
Crixus01 · Konu Dışı altına konu açtı. 11 yıl

bu filmi bilen var mı ?



Uzun zamandır araştırıyorum ama bulamadım.Bilen var mı bu filmi
7 Yanıt Yanıtla Favorilere Ekle 0
Crixus01 · Konu Dışı altına konu açtı. 11 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 ?
10 Yanıt Yanıtla Favorilere Ekle 0
Hakkında
Konum: Antalya,Konyaaltı
Temel Bilgiler ve İstatistikler
Aktiflik: Şu anda DH'de değil
Son Giriş: 2 ay önce
Son Mesaj Zamanı: 4 ay
Mesaj Sayısı: 39
Gerçek Toplam Mesaj Sayısı: 162
İkinci El Bölümü Mesajları: 1
Konularının görüntülenme sayısı: 9.510 (Bu ay: 150)
Toplam aldığı artı oy sayısı: 30 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Konu Dışı / Off Topic
Mesajları
İkinci El Referansları
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız