Private s As String
Private Sub loadtema(rtb As RichTextBox, s As String)
rtb.LoadFile (s)
fonttext rtb
End Sub
Private Sub fonttext(rtb As RichTextBox)
rtb.SelLength = 5000
rtb.SelFontName = "Times/Kazakh"
rtb.SelFontSize = 12
rtb.SelLength = 0
End Sub
Private Sub Command1_Click()
Unload Me
Form5.Show
End Sub
Private Sub Command2_Click()
frmAbout.Show vbModal, Form1
End Sub
Private Sub Command3_Click()
Form1.Hide
Form2.Show vbModal, Form1
End Sub
Private Sub Command4_Click()
Form4.Show
End Sub
Private Sub Form_Load()
TreeView1.Nodes.Add , , "Tema1", "Êåñòåëåð.Îëàðäû êóðó ", 1
TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòå ðåæèìi", 2
TreeView1.Nodes.Add "Tema1", tvwChild, , "Êîíñòðóêòîð ðåæèìi", 2
TreeView1.Nodes.Add "Tema1", tvwChild, , "Îðíàëàñòûðó øåáåði", 2
TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòåëåð øåáåði", 2
TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòåëåðäi èìïîðòòàó", 2
TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòåëåðìåí áàéëàíûñ ðåæèìi", 2
TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòåëåð àðàñûíäà¹û áàéëàíûñòàðäû º½ðó", 2
TreeView1.Nodes.Add "Tema1", tvwChild, , "ѽðàºòàð ìåí òàïñûðìàëàð", 2
TreeView1.Nodes.Add , , "Tema2", "Êåñòåìåí æóìûñ iñòåó ", 1
TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòåëåðäåãi áåðiëãåíäåðäi iðiêòåï àëó (ôèëüòðëåó)", 2
TreeView1.Nodes.Add "Tema2", tvwChild, , "Êîíòåêñòi ì¸çiðëåð", 2
TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòå æàçáàëààðûí ê¼øiðó", 2
TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòå ¼ðiñòåðií ê¼øiðó", 2
TreeView1.Nodes.Add "Tema2", tvwChild, , "µÿøûºòàðäû» òiêá½ðûøòû á¼ëiãií ê¼øiðó", 2
TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòåëååðäi ê¼øiðó", 2
TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòåëåðäi æàñûðó ", 2
TreeView1.Nodes.Add "Tema2", tvwChild, , " Ñóðàêòàð ìåí òàïñûðìàëàð", 2
TreeView1.Nodes.Add , , "Tema3", "Ñóðàíûñòàð", 1
TreeView1.Nodes.Add "Tema3", tvwChild, , "²àðàïàéûì ñ½ðàíûñ", 2
TreeView1.Nodes.Add "Tema3", tvwChild, , "ѽðàíûñ êîíñòðóêòîðû", 2
TreeView1.Nodes.Add "Tema3", tvwChild, , "´ðíåê º½ðàñòûðóøû", 2
TreeView1.Nodes.Add "Tema3", tvwChild, , "Àéºàñºàí ñ½ðàíûñ", 2
TreeView1.Nodes.Add "Tema3", tvwChild, , "²àéòàëàíàòûí æàçáàëàðäû òà»äàó", 2
TreeView1.Nodes.Add "Tema3", tvwChild, , "ѽðàºòàð ìåí òàïñûðìàëàð", 2
TreeView1.Nodes.Add , , "Tema4", "Ôîðìàëàð ", 1
TreeView1.Nodes.Add "Tema4", tvwChild, , "Àâòîôîðìàëàð", 2
TreeView1.Nodes.Add "Tema4", tvwChild, , "Ôîðìà øåáåði ìåí Êîíñòðóêòîðû", 2
TreeView1.Nodes.Add "Tema4", tvwChild, "tema4.3", "Áàñºàðó ýëåìåíòòåði", 1
TreeView1.Nodes.Add "tema4.3", tvwChild, , "Îáúåêòiëåð ðàìàëàðû", 2
TreeView1.Nodes.Add "tema4.3", tvwChild, , "Àéûðûï-ºîñºûøòàðäû òîïòàñòûðó", 2
TreeView1.Nodes.Add "tema4.3", tvwChild, , "Áà¹ûíûøòû ôîðìà", 2
TreeView1.Nodes.Add "tema4.3", tvwChild, , "Òiçiìäåð", 2
TreeView1.Nodes.Add "tema4.3", tvwChild, , "Ôîðìàäà¹û içäåó", 2
TreeView1.Nodes.Add "tema4.3", tvwChild, , "Ò¾éìåëi ôîðìàëàðäû ò¸ðòiïòåóøi", 2
TreeView1.Nodes.Add "Tema4", tvwChild, , "ѽðàºòàð ìåí òàïñûðìàëàð", 2
TreeView1.Nodes.Add , , "Tema5", "Åñåïòåð", 1
TreeView1.Nodes.Add "Tema5", tvwChild, , "Àâòîåñåïòåð", 2
TreeView1.Nodes.Add "Tema5", tvwChild, , "Åñåï Êîíñòðóêòîðû", 2
TreeView1.Nodes.Add "Tema5", tvwChild, , "Ñîðòòàó æ¸íå òîïòàñòûðó", 2
TreeView1.Nodes.Add "Tema5", tvwChild, , "Åñåïòåð øåáåði", 2
TreeView1.Nodes.Add "Tema5", tvwChild, , "Äèàãðàììà ñàëó", 2
TreeView1.Nodes.Add "Tema5", tvwChild, , "Áåðiëãåíäåðäi áàñïà¹à øû¹àðó", 2
TreeView1.Nodes.Add "Tema5", tvwChild, , "ѽðàºòàð ìåí òàïñûðìàëàð", 2
s = App.Path
RichTextBox1.LoadFile (s + "\Tema\tema01.rtf")
fonttext RichTextBox1
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
If TreeView1.Nodes.Item(1).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema01.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema01.rtf"
End If
End If
If TreeView1.Nodes.Item(2).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema11.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema11.rtf"
End If
End If
If TreeView1.Nodes.Item(3).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema12.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema12.rtf"
End If
End If
If TreeView1.Nodes.Item(4).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema13-1.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema13-1.rtf"
End If
End If
If TreeView1.Nodes.Item(5).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema14.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema14.rtf"
End If
End If
If TreeView1.Nodes.Item(6).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema15.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema15.rtf"
End If
End If
If TreeView1.Nodes.Item(7).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema16.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema16.rtf"
End If
End If
If TreeView1.Nodes.Item(8).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema17.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema17.rtf"
End If
End If
If TreeView1.Nodes.Item(9).Selected Then
If RichTextBox1.FileName <> s + "\Tema\surak1.rtf" Then
loadtema RichTextBox1, s + "\Tema\surak1.rtf"
End If
End If
If TreeView1.Nodes.Item(10).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema2.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema2.rtf"
End If
End If
If TreeView1.Nodes.Item(11).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema21.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema21.rtf"
End If
End If
If TreeView1.Nodes.Item(12).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema22.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema22.rtf"
End If
End If
If TreeView1.Nodes.Item(13).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema23.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema23.rtf"
End If
End If
If TreeView1.Nodes.Item(14).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema24.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema24.rtf"
End If
End If
If TreeView1.Nodes.Item(15).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema25.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema25.rtf"
End If
End If
If TreeView1.Nodes.Item(16).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema26.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema26.rtf"
End If
End If
If TreeView1.Nodes.Item(17).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema27.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema27.rtf"
End If
End If
If TreeView1.Nodes.Item(18).Selected Then
If RichTextBox1.FileName <> s + "\Tema\surak2.rtf" Then
loadtema RichTextBox1, s + "\Tema\surak2.rtf"
End If
End If
If TreeView1.Nodes.Item(19).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema3.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema3.rtf"
End If
End If
If TreeView1.Nodes.Item(20).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema31.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema31.rtf"
End If
End If
If TreeView1.Nodes.Item(21).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema32.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema32.rtf"
End If
End If
If TreeView1.Nodes.Item(22).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema33.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema33.rtf"
End If
End If
If TreeView1.Nodes.Item(23).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema34.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema34.rtf"
End If
End If
If TreeView1.Nodes.Item(24).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema35.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema35.rtf"
End If
End If
If TreeView1.Nodes.Item(25).Selected Then
If RichTextBox1.FileName <> s + "\Tema\surak3.rtf" Then
loadtema RichTextBox1, s + "\Tema\surak3.rtf"
End If
End If
If TreeView1.Nodes.Item(26).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema4.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema4.rtf"
End If
End If
If TreeView1.Nodes.Item(27).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema41.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema41.rtf"
End If
End If
If TreeView1.Nodes.Item(28).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema42.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema42.rtf"
End If
End If
If TreeView1.Nodes.Item(29).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema43.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema43.rtf"
End If
End If
If TreeView1.Nodes.Item(30).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema44.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema44.rtf"
End If
End If
If TreeView1.Nodes.Item(31).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema45.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema45.rtf"
End If
End If
If TreeView1.Nodes.Item(32).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema46.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema46.rtf"
End If
End If
If TreeView1.Nodes.Item(33).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema47.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema47.rtf"
End If
End If
If TreeView1.Nodes.Item(34).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema48.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema48.rtf"
End If
End If
If TreeView1.Nodes.Item(35).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema49.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema49.rtf"
End If
End If
If TreeView1.Nodes.Item(36).Selected Then
If RichTextBox1.FileName <> s + "\Tema\surak4.rtf" Then
loadtema RichTextBox1, s + "\Tema\surak4.rtf"
End If
End If
If TreeView1.Nodes.Item(37).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema5-1.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema5-1.rtf"
End If
End If
If TreeView1.Nodes.Item(38).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema51.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema51.rtf"
End If
End If
If TreeView1.Nodes.Item(39).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema52.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema52.rtf"
End If
End If
If TreeView1.Nodes.Item(40).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema53.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema53.rtf"
End If
End If
If TreeView1.Nodes.Item(41).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema54.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema54.rtf"
End If
End If
If TreeView1.Nodes.Item(42).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema55.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema55.rtf"
End If
End If
If TreeView1.Nodes.Item(43).Selected Then
If RichTextBox1.FileName <> s + "\Tema\tema56.rtf" Then
loadtema RichTextBox1, s + "\Tema\tema56.rtf"
End If
End If
If TreeView1.Nodes.Item(44).Selected Then
If RichTextBox1.FileName <> s + "\Tema\surak5.rtf" Then
loadtema RichTextBox1, s + "\Tema\surak5.rtf"
End If
End If
End Sub
Private a() As String
Private b() As String
Private c(4) As Integer
Private s As String
Private s2 As String
Private k As Integer
Private j As Integer
Private ball As Integer
Private Sub randomidx()
Dim i As Integer
Dim f As Integer
Dim l As Integer
Dim y As Boolean
i = 1
Do While i <= 4
f = Int(Rnd * 10) + 1
y = True
If f <= 4 Then
l = 1
Do While l <= i - 1
If c(l) = f Then y = False
l = l + 1
Loop
If y Then
c(i) = f
i = i + 1
End If
End If
Loop
End Sub
Private Sub Command2_Click()
If Not ((Not Option1.Value) And (Not Option2.Value) And (Not Option3.Value) And (Not Option4.Value)) Then
If j < k Then
If Option1.Value Then
If Option1.Caption = b(j, 1) Then ball = ball + 1
End If
If Option2.Value Then
If Option2.Caption = b(j, 1) Then ball = ball + 1
End If
If Option2.Value Then
If Option2.Caption = b(j, 1) Then ball = ball + 1
End If
If Option2.Value Then
If Option2.Caption = b(j, 1) Then ball = ball + 1
End If
j = j + 1
'Text1.Text = CStr(Int(Rnd * 10) + 1)
Label2.Caption = CStr(j) + " - ñ½ðàº"
Label1.Caption = a(j)
randomidx
Option1.Caption = b(j, c(1))
Option2.Caption = b(j, c(2))
Option3.Caption = b(j, c(3))
Option4.Caption = b(j, c(4))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Else
If Option1.Value Then
If Option1.Caption = b(j, 1) Then ball = ball + 1
End If
If Option2.Value Then
If Option2.Caption = b(j, 1) Then ball = ball + 1
End If
If Option3.Value Then
If Option3.Caption = b(j, 1) Then ball = ball + 1
End If
If Option4.Value Then
If Option4.Caption = b(j, 1) Then ball = ball + 1
End If
Form3.Label1.Caption = "Ñiç " + CStr(k) + " ñ½ðàºòû» " + CStr(ball) + " ñ½ðà¹ûíà ä½ðûñ æàóàï áåðäi»iç"
Form3.Show vbModal, Form1
End If
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim vop As Boolean
Dim ot As Boolean
ball = 0
ReDim a(50)
ReDim b(50, 4)
s = App.Path + "\tema\accesstest.txt"
k = 0
j = 1
Open s For Input As #1
Do While Not EOF(1)
Input #1, s2
If s2 = "\\" Then
vop = True
ot = False
k = k + 1
s2 = ""
End If
If s2 = "\" Then
ot = True
vop = False
If i = 4 Then i = 0
i = i + 1
s2 = ""
End If
If vop Then a(k) = a(k) + s2
If ot Then b(k, i) = b(k, i) + s2
'Text2.Text = Text2.Text + "44" + s2
Loop
Close #1
Label2.Caption = CStr(j) + " - ñ½ðàº"
Label1.Caption = a(j)
randomidx
Option1.Caption = b(j, c(1))
Option2.Caption = b(j, c(2))
Option3.Caption = b(j, c(3))
Option4.Caption = b(j, c(4))
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Unload Form2
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Image1_Click()
Form5.Hide
Form1.Show
End Sub
Private Sub Image2_Click()
End
End Sub
|