اطلاعیه

کاربر گرامی

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

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


  • 0
g1098g

مشکل در آیتم کلیک سوالات آزمونگیر به صورت اسکرول

سوال

با سلام 

سوالات به صورت اسکرول در یک اکتیویتی لود می شن .

متن سوالات رو میده با گزینه ها مثلا 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

 

در 12 ساعت قبل، g1098g گفته است :

 

اگه بشه راهنمایی کنین ممنون می شم

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تا کنون داده شده است

  • 0
در 12 ساعت قبل، g1098g گفته است :

با سلام 

سوالات به صورت اسکرول در یک اکتیویتی لود می شن .

متن سوالات رو میده با گزینه ها مثلا 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

 

اگه بشه راهنمایی کنین ممنون می شم

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

مطالب شما نیاز است به تایید مدیران برسد

مهمان
شما به عنوان کاربر مهمان در حال حاضر دیدگاه ارسال می کنید. اگر دارای حساب کاربری در سایت هستید لطفا وارد حساب کاربری خود شوید.
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.