اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


g1098g

کاربر عادی
  • تعداد ارسال ها

    3
  • تاریخ عضویت

  • آخرین بازدید

درباره g1098g

  • درجه
    کاربر تازه وارد
  1. با سلام . چگونه می توان جدول نتایج آزمون در بیبسیک ایجاد کرد . آیا کتابخونه مشخصی در این زمینه هست . با سپاس
  2. با سلام سوالات به صورت اسکرول در یک اکتیویتی لود می شن . متن سوالات رو میده با گزینه ها مثلا 10 سوال رو برای گزینه درست هر سوال ، فقط یک گزینه رو می ده Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("laytest") codes.farsizeToolbar(ACToolBarDark1) codes.addBackToolbar(ACToolBarDark1,"ic_arrow_right_white_24dp") ACToolBarDark1.Title=cur1.GetString("onvan") sql1.Initialize(File.DirDefaultExternal,"ravan arshad.db",False) cur1 = te.sql1.ExecQuery2("SELECT * FROM test WHERE TestId = ? " ,Array As String(te.meghdar&"")) cur1.Position = 0 Dim p As Panel For i = 0 To cur1.RowCount - 1 cur1.Position = i p.Initialize("") ScrollView1.Panel.AddView(p,3%x,top,94%x,510dip) p.LoadLayout("test2") Label8.Text = cur1.GetInt("ID") Label1.Text = cur1.GetString("Question") Label1.Tag = cur1.GetInt("GTrue") g1.Text = cur1.GetString("G1") g2.Text = cur1.GetString("G2") g3.Text = cur1.GetString("G3") g4.Text = cur1.GetString("G4") javab= cur1.GetInt("GTrue") gt.Tag = cur1.GetInt("GTrue") gp.Tag = cur1.GetString("Gtashrihi") top = top + 510dip + 0%x Panel1.Tag = cur1.Position Next ScrollView1.Panel.Height = top For i = 0 To cur1.RowCount non=i Next cur1.Close Log(javab) Log(cq) End Sub Sub ScrollView1_ScrollChanged(Position As Int) If (ScrollView1.Height + Position) >=ScrollView1.Panel.Height Then ' Msgbox("لطفا جهت مشاهده نتایج کلیک کنید","آزمون شما به پایان رسد") Dim darsad As Double = ((tru-fals/3) / non)*100 darsad = Round2(darsad,2) Dim nn As Int = non-(tru+fals) Msgbox2("آزمون به پایان رسید" & CRLF _ & "تعداد پاسخ صحیح : " & tru & CRLF & "تعداد پاسخ غلط : " & fals & CRLF & "تعداد پاسخ نزده : " & nn _ & CRLF & "درصد آزمون : " & darsad & " درصد" _ ,"نتایج آزمون","","بازگشت","",Null) Activity.Finish ' Activity.Finish ' StartActivity(nataiej) End If End Sub Sub answer End Sub Sub ACToolBarDark1_NavigationItemClick Activity.Finish End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub gt_Click Dim bt As Button bt = Sender Msgbox(bt.Tag,"جواب صحیح") ToastMessageShow(bt.Tag,False) End Sub Sub gp_Click Dim bt As Button bt = Sender Msgbox(bt.Tag,"جواب تشریحی") End Sub Sub g4_click If Label1.Tag = 4 Then tru = tru +1 Log(True) cq=cq+1 Log(javab) Else fals=fals+1 Log(False) cq=cq+1 Log(javab) End If End Sub Sub g3_click If Label1.Tag = 3 Then tru = tru +1 Log(True) cq=cq+1 Log(javab) Else fals=fals+1 Log(False) cq=cq+1 Log(javab) End If End Sub Sub g2_click If Label1.Tag = 2 Then tru = tru +1 Log(True) cq=cq+1 Log(javab) Else fals=fals+1 Log(False) cq=cq+1 Log(javab) End If End Sub Sub g1_click If Label1.Tag = 1 Then tru = tru +1 Log(True) cq=cq+1 Log(javab) Else fals=fals+1 Log(False) cq=cq+1 Log(javab) End If End Sub اگه بشه راهنمایی کنین ممنون می شم