Niko KusumaRelated papers
Agreement Maintenance Based on Schema and Ontology Change in P2P Environment
2010
This paper is concern about developing a semantic agreement maintenance method based on semantic distance by calculating the change of local schema or ontology. This approach is important in dynamic and autonomous environment, in which the current approach assumed that agreement or mapping in static environment. The contribution of this research is to develop a framework based on semantic agreement maintenance approach for P2P environment. This framework based on two level hybrid P2P model architecture, which consist of two peer type: (1) super peer that use to register and manage the other peers, and (2) simple peer, as a simple peer, it exports and shares its contents with others. This research develop a model to maintain the semantic agreement in P2P environment, so the current approach which does not have the mechanism to know the change, since it assumed that ontology and local schema are in the static condition, and it is different in dynamic condition. The main issues are how to calculate the change of local schema or common ontology and the calculation result is used to determine which algorithm in maintaining the agreement. The experiment on the job matching domain in Indonesia have been done to show how far the performance of the approach. From the experiment, the main result are (i) the more change so the F-measure value tend to be decreased, (ii) there is no significant different in F-measure value for various modification type (add, delete, rename), and (iii) the correct choice of algorithm would improve the F-measure value.
Effect of Age of Crusher Screen on Properties of Concrete
TJPRC, 2013
The purpose of this study is to know the effects of coarse aggregate on the properties of concrete with the change in age of crusher screen. Location selected for the study purpose has been limited to Durg district of Chhattisgarh region. Two numbers of quarries have been selected having lime stone as a major source. Samples from both the quarries have been collected keeping in mind the age of screen age of crushers of that particular area. The study investigates various test that has been conducted on the samples collected from the selected quarries. Using the same make of cement, mix design has been prepared with the sample collected after getting their specific gravity and the water cement ratio has been kept same for both the mix design. The test like slump and compressive strength were performed. The grade of concrete considered for this study purpose is M20. It is found that as the age of aggregate crusher screen increases from 0-2 years, 2-4 years, 4-6 years and more than 6 years the fineness modulus increases it shows that older the crusher screen, the average particle size of coarse aggregates increases. The study resulted – though the age of crusher screen increases the workability decreases as well as the compressive strength also decreases but without affecting the target mean strength.
LOG-SINE EVALUATIONS OF MAHLER MEASURES
Journal of the Australian Mathematical Society, 2012
We provide evaluations of several recently studied higher and multiple Mahler measures using log-sine integrals. This is complemented with an analysis of generating functions and identities for log-sine integrals which allows the evaluations to be expressed in terms of zeta values or more general polylogarithmic terms. The machinery developed is then applied to evaluation of further families of multiple Mahler measures.
FACTORS THAT AFFECT FRUIT CONSUMPTION IN SCHOOLS OF THE METROPOLITAN REGION (CHILE): THE CASE OF TWO SCHOOLS IN THE DISTRICT OF LO PRADO
This research identifies the influence of environmental, social and consumer habits on decision making of children’s fruit consumption. The characteristics that influence children’s fruit consumption in school and their willingness to change these consumption behaviors are also studied. The study is performed on 5th and 8th grade students who attend public and private elementary schools in the municipality of Lo Prado, Santiago. The level of fruit consumption significantly depends on the family and school support that children receive. Statements such as: “Fruits are good for my health” and “Fruits are rich in vitamins” are very important for parents and children who attend private and public schools. From a strategic point of view, this research concludes that a more proactive and consistent approach is needed from parents and school communities to encourage fruit consumption among children. This approach results in either maintaining or improving children´s fruit consumption as they grow older. Also, the actions of parents and schools towards the preparation of desserts using fruits are proven to be an effective way to increase fruit consumption.
Acoustic emission monitoring of a reinforced concrete structure by applying new fiber-optic sensors
Smart Materials & Structures, 2005
Development and characterization of nine polymorphic microsatellite markers in the sand goby Pomatoschistus minutus (Gobiidae): PRIMER NOTE
Molecular Ecology Notes, 2006
A microsatellite-enriched genomic library was constructed for the sand goby, Pomatoschistus minutus (Pallas 1770), and nine polymorphic DNA microsatellite markers of high quality were successfully optimized. Characterization of 96 individuals from the Vaccarès lagoon (France) showed moderate to high levels of polymorphism (two to 54 alleles). All the markers conformed to Hardy–Weinberg equilibrium and showed no evidence of null alleles, large allele dropout, stuttering and linkage disequilibrium between pairs of loci. These markers successfully amplify in three closely related species and can be employed to investigate population genetic structure and to clarify paternity in Pomatoschistus species.
Gaussian mixture modeling of acoustic emissions for structural health monitoring of reinforced concrete structures
Sensors and Smart Structures Technologies for Civil, Mechanical, and Aerospace Systems 2013, 2013
Reinforced Concrete (RC) has been widely used in construction of infrastructures for many decades. The cracking behavior in concrete is crucial due to the harmful effects on structural performance such as serviceability and durability requirements. In general, in loading such structures until failure, tensile cracks develop at the initial stages of loading, while shear cracks dominate later. Therefore, monitoring the cracking modes is of paramount importance as it can lead to the prediction of the structural performance. In the past two decades, significant efforts have been made toward the development of automated structural health monitoring (SHM) systems. Among them, a technique that shows promises for monitoring RC structures is the acoustic emission (AE). This paper introduces a novel probabilistic approach based on Gaussian Mixture Modeling (GMM) to classify AE signals related to each crack mode. The system provides an early warning by recognizing nucleation of numerous critical shear cracks. The algorithm is validated through an experimental study on a full-scale reinforced concrete shear wall subjected to a reversed cyclic loading. A modified conventional classification scheme and a new criterion for crack classification are also proposed.
Damage Assessment of Reinforced Concrete Structures Using Fractal Analysis of Residual Crack Patterns
Experimental Mechanics, 2013
Currently, assessing the performance and safety of reinforced concrete structures relies on routine-based visual inspection (VI). Cracks width measurements are commonly used as a convenient indicator of damage; however other factors, such as distribution and pattern of the cracks should be considered equally important in measuring the extent of damage present in the structure. As a result, condition assessed by VI is subjective in nature and depends on the experience, knowledge, expertise, and judgment of the inspector carrying out the assessment. A new approach based on the fractal analysis of residual crack patterns is proposed in this paper to assess the structural integrity of reinforced concrete elements. A new damage index is presented to quantitatively perform a damage classification. The methodology is validated through experimental studies on two largescale reinforced concrete shear walls subjected to a displacement controlled reversed cyclic loading. Damage grades are also identified based on width of cracks and proposed damage index (DI). The results demonstrate a more accurate estimation of damage grades using DI. Furthermore, it is demonstrated that the DI can estimate the relative stiffness loss of the specimens with acceptable accuracy.
TUGAS PROYEK
SISTEM BILANGAN REAL
KELOMPOK III
Disusun oleh :
Adik Niko Heri Mukti Kusuma
(5215122652)
Albinus Andy Kurniawan
(5215122663)
Andhika Wiradharma
(5215122633)
Atanasius Agung Novian Yolanda P.
(5215120367)
Dini Anggraini
(5215122639)
Lidya Setiawati
(5215122680)
Puspa Dwi Aryani
(5215122670)
Ridwan Saputra
(5215122665)
PENDIDIKAN TEKNIK ELEKTRONIKA
FAKULTAS TEKNIK UNIVERSITAS NEGERI JAKARTA
2012/2013
KATA PENGANTAR
Puji syukur kehadirat Tuhan Yang Maha Kuasa.Berkat rahmat, nikmat, serta
limpahan karunia-Nya Makalah Proyek Sistem
Bilangan Real ini dapat
diselesaikan tepat pada waktunya.
Penulisan makalah proyek ini sebagai sarana pemenuhan tugas mata kuliah
pendidikan matematika I, pendidikan teknik elektronika semester 097 tahun
pelajaran 2012/2013.
Dalam penyelesaian makalah proyek ini penulis banyak mengalami kesulitan
karena kurangnya materi yang diperoleh.Namun berkat bantuan dari berbagai
pihak,akhirnya makalah ini dapat diselesaikan.Oleh karena itu, penulis
mengucapkan terima kasih kepada:
1. Dr.Ir.Rusmono sebagai Dosen Pembimbing Matematika I
2. Tim sebagai pencari informasi tambahan
Penulis menyadari makalah proyek ini masih jauh dari sempurna.Oleh karena
itu,penulis meminta kritik dan saran yang membangun makalah proyek ini
menjadi lebih baik.
Semoga makalah ini dapat bermanfaat bagi yang membaca, khususnya
penulis.
Jakarta, 31 Desember 2012
PENULIS
ii
DAFTAR ISI
Cover ....................................................................................................................... i
Kata pengantar ....................................................................................................... ii
Daftar Isi ................................................................................................................. iii
BAB I PENDAHULUAN
1.1 Latar belakang .................................................................................................. 1
1.2 Perumusan Masalah .......................................................................................... 2
1.3 Tujuan .............................................................................................................. 2
BAB II PEMBAHASAN
2.1 Definisi Sistem Bilangan Real .......................................................................... 3
2.2 Contoh Soal ..................................................................................................... 9
a. Aljabar ........................................................................................................ 9
b. Trigonometri ............................................................................................... 10
c. Eksponensial ............................................................................................... 10
2.3 Latihan Soal ..................................................................................................... 11
a. Aljabar ........................................................................................................ 11
b. Trigonometri ............................................................................................... 12
c. Eksponensial ............................................................................................... 12
BAB III LAMPIRAN
3.1 Algoritma Program............................................................................................ 13
3.2 Flowchart Program ........................................................................................... 14
3.3 List Program .................................................................................................... 15
3.4 Hasil Program .................................................................................................. 73
BAB IV PENUTUP
4.1 Kesimpulan ...................................................................................................... 83
4.2 Saran ................................................................................................................ 83
DAFTAR PUSTAKA
iii
1
BAB I
PENDAHULUAN
1.1
Latar Belakang
Di dalam perkuliahan matematika I terdapat bab yang menjelaskan mengenai
Sistem Bilangan Real. Bilangan-bilangan real adalah tinjauan himpunan semua bilangan
(rasional dan irasional) yang dapat mengukur panjang, bersama-sama dengan negatifnya
dan nol.
Dalam rangka memenuhi proyek akhir perkuliahan matematika I maka dibuatlah
suatu aplikasi untuk memenuhi penyelesaian beberapa persoalan matematika yang secara
khusus mengenai bilangan real. Software yang digunakan dalam pembuatan aplikasi ini
adalah VISUAL BASIC 6.0. Algoritma yang sudah dirancang lalu di aplikasikan pada
syntax visual basic, kemudian di uji cobakan dengan membandingkan antara hasil
perhitungan manual dengan hasil dari output program aplikasi ini sehingga terdapat
kesesuaian hasil yang sama dan valid.
Dengan adanya aplikasi untuk menyelesaikan permasalahan matematika, khususnya
bilangan real maka diharapkan pengguna aplikasi ini dapat menggunakannya dalam
menyelesaikan persoalan bilangan real dengan lebih cepat, mudah, dan akurat karena
menggunakan aplikasi yang didesain praktis. Para pengguna aplikasi inipun diharapkan
dapat mengerti juga cara membuat program ini karena syntax dari program ini bisa dilihat
dalam VISUAL BASIC 6.0 . Adapun aplikasi ini dapat dijadikan pembanding untuk
mengkalibrasi (calibrate)/adjustment hasil perhitungan manual dengan perhitungan hasil
operasi program dari aplikasi sistem bilangan real ini.
2
1.2
Perumusan Masalah
1. Apakah para pengguna dapat mengerti cara membuat program ini dan sistem kerja
program ini dengan melihat informasi syntax/list program yang tersedia?
2. Apakah penyajian dari aplikasi ini sudah memudahkan pengguna aplikasi ini?
3. Apakah aplikasi ini sudah bisa membantu menyelesaikan persoalan matematika
khususnya sistem bilangan real?
4. Apakah aplikasi ini dapat dijadikan acuan tetap atau hanya sebatas media
pembanding antara perhitungan manual dengan perhitungan program?
1.3
Tujuan
1. Dapat mengerti pembuatan program sehingga menjadi suatu aplikasi dengan bantuan
software VISUAL BASIC 6.0, dari mulai perancangan algoritma sampai
menkonversinya menjadi suatu syntax sehingga program dapat dijalankan dan
berfungsi dengan baik.
2. Menyajikan aplikasi sistem bilangan real dengan penggunaan yang mudah.
3. Membantu menyelesaikan persoalan sistem bilangan real dengan cara praktis dan
cepat dengan bantuan aplikasi yang dibuat dengan software VISUAL BASIC 6.0.
4. Sebagai acuan tetap pembantu perhitungan atau sebagai media pembanding antara
hasil perhitungan manual dengan output perhitungan program komputer.
3
BAB II
PEMBAHASAN
2.1
Definisi Sistem Bilangan Real
2.1.1 Sistem bilangan real
Bilangan rasional adalah bilangan-bilangan yang dapat dituliskan dalam
dengan m dan n adalah bilangan-bilangan bulat dengan n ≠ 0.
bentuk
Bilangan irasional adalah bilangan yang tidak dapat dituliskan sebagai suatu
hasil bagi dari dua bilangan bulat, contoh:
Sifat-Sifat Medan
1. Hukum Komutatif,
dan
2. Hukum Asosiatif,
dan
3. Hukum Distributif,
4. Elemen-Elemen Identitas: Terdapat dua bilangan real yang berlainan 0 dan 1
yang memenuhi
dan
5. Balikan (Invers): Setiap bilangan
negatif) yaitu
untuk setiap bilangan real
mempunyai balikan penambahan (disebut
yang memenuhi
. Juga setiap bilangan
0 mempunyai balikan perkalian (disebut juga kebalikan),
kecuali
yang memenuhi
.1
Sifat-Sifat Urutan
1. Trikotomi, jika
dan
adalah bilangan-bilangan, maka pastilah salah satu
diantara yang berikut ini berlaku:
2. Ketransitifan,
atau
atau
.
dan
3. Penambahan,
4. Perkalian, bilamana
5. Bilamana
1
positif maka
negative maka
Edwin J. Purcell, Dale Vanberg, Steven E. Ringdon, Kalkulus Edisi Kedelapan Jilid 1 (Jakarta :
Erlangga, 2003), hlm. 2.
4
2.1.2 Ketaksamaan
Untuk menyelesaikan suatu
ketaksamaan berarti mencari semua
himpunan bilangan real yang membuat ketaksamaan itu berlaku. Berbeda dengan
persamaan, himpunan penyelesaian suatu ketaksamaan biasanya terdiri dari suatu
keseluruhan selang bilangan atau, dalam beberapa kasus, gabungan dari selangselang yang demikian.
Ketaksamaan ganda
menggambarkan selang terbuka yang
terdiri dari semua bilangan antara a dan b,tidak termasuk titik titik ujung a dan b.
Sebaliknya ketaksamaan
menggambarkan selang tertutup, yang
mencakup titik- titik ujung a dan b.
Sama halnya dengan persamaan, prosedur untuk menyelesaikan
ketaksamaan terdiri atas pengubahan ketaksamaan satu langkah tiap kali sampai
himpunan penyelesaiannya jelas. Alat utamanya adalah sifat-sifat urutan.
Khususnya :
1.
2.
3.
Kita dapat menambahkan bilangan yang sama pada kedua ruas suatu
ketaksamaan.
Kita dapat mengalihkan kedua ruas suatu ketaksamaan dengan suatu
bilangan positif.
Kita dapat mengalihkan kedua ruas dengan suatu bilangan negatif, tetapi
kemudian kita harus membalikkan arah tanda ketaksamaan.2
2.1.3 Nilai Mutlak, Akar Kuadrat, Kuadrat
Nilai mutlak suatu bilangan real x, dinyatakan dengan |x|, didefinisikan sebagai
Jika
Jika
Sifat sifat nilai mutlak berperilaku manis dibawah perkalian dan pembagian tetapi
tidak begitu baik dalam penambahan dan pengurangan.
2
Edwin J. Purcell, Dale Vanberg, Steven E. Ringdon, Kalkulus Edisi Kedelapan Jilid 1 (Jakarta :
Erlangga, 2003), hlm. 11.
5
Sifat-sifat Nilai Mutlak
1.
2.
3.
4.
(Ketaksamaan segitiga)
3
Ketaksamaan yang Melibatkan Nilai Mutlak.
atau
Akar Kuadrat
Setiap bilangan positif mempunyai dua akar kuadrat.
Rumus Kuadrat
Penyelesaian untuk
3
diberikan oleh
Edwin J. Purcell, Dale Vanberg, Steven E. Ringdon, Kalkulus Edisi Kedelapan Jilid 1 (Jakarta :
Erlangga, 2003), hlm. 15.
6
FUNGSI EKSPONENSIAL DAN LOGARITMA YANG LAIN
Jika
Bentuk pada ruas kiri (1) dinamakan fungsi eksponensial dengan absis
DEFINISI
Jika bilangan positif sebarang dan
didefinisikan oleh
bilangan riil sebarang, maka fungsi
yang
Dinamakan fungsi eksponensial dengan basis
Fungsi eksponensial dengan basis
eksponensial asli
► Ilustrasi 1, jika
dan
memenuhi sifat-sifat yang sama dengan fungsi
bilangan riil sebarang dari
positif, maka dari (1)
◄
Dari ilustrasi 1 kita peroleh
Kita juga dapat memeroleh sifat berikut:
4
Bukti (3) sampai dengan (6) diserahkan kepada pembaca sebagai latihan untuk
menentukan turunan fungsi eksponensial dengan basis kita ambil
dan kita
terapkan aturan rantai.
7
4
4
Louis Leithold, Kalkulusdan Ilmu Ukur Analitik Edisi Kelima Jilid 2 (Jakarta : Erlangga, 1993),
hlm. 132.
8
Rumus Jumlah Dua Perbandingan Trigonometri.
a.
Bukti :
Dari
Bila
Terbukti dengan jalan yang sama diperoleh :
b.
c.
d.
5
5
Soedadyatmodjo, Buku Materi Pokok Trigonometri (Jakarta : Universitas Terbuka, 1986), hlm.
2.14.
9
2.2
Contoh soal
a. Aljabar
1. Selesaikan ketaksamaan
dan perlihatkan grafik himpunan
Penyelesaian:
(Tambahkan 7)
(Tambahkan
)
(Kalikan dengan
)
Himpunan penyelesaian:
Pemisahan selang penyelesaian:
Grafik:
6
(
2. Selesaikan
dan perlihatkan grafik himpunan
Penyelesaian:
(Tambahkan -6)
(Kalikan dengan
)
Himpunan penyelesaian:
Pemisahan selang penyelesaian:
Grafik:
3. Selesaikan
|
)
ketaksamaan
7
dan
perlihatkan
himpunan
penyelesaiannya pada garis real.
Penyelesaian Ketaksamaan ini dapat ditulis secara beruntun sebagai
atau
6 Louis Leithold, Kalkulusdan Ilmu Ukur Analitik Edisi Kelima Jilid 2 (Jakarta : Erlangga, 1993), hlm. 132.
003), hlm. 11.
7
Edwin J. Purcell, Dale Vanberg, Steven E. Ringdon, Kalkulus Edisi Kedelapan Jilid 1 (Jakarta :
Erlangga, 2003), hlm. 12.
10
atau
atau
Himpunan penyelesaian:
Pemisahan selang penyelesaian:
Grafik:
|
|
8
b. Trigonometri
1. Selesaikan: cos 30o + cos 180o
Cos 300 + cos 180o
=
=
=
c. Eksponensial
1.
24
8
6
Edwin J. Purcell, Dale Vanberg, Steven E. Ringdon, Kalkulus Edisi Kedelapan Jilid 1 (Jakarta :
Erlangga, 2003), hlm. 16.
11
2.3
Latihan Soal
a.
Aljabar
1. Selesaikanlah ketaksamaan
penyelesaiannya !
dan perlihatkan grafik himpunan
Penyelesaian :
Himpunan penyelesaian :
Pemisahan selang penyelesaian :
Grafik:
(
4
2. Selesaikan
dan perlihatkan grafik himpunan
Penyelesaian:
Himpunan penyelesaian:
Pemisahan selang penyelesaian:
Grafik:
)
|
3. Selesaikan ketaksaman
dan perlihatkan himpunan penyelesaiannya
pada garis real.
Penyelesaian Ketaksamaan ini dapat ditulis secara beruntun sebagai
atau
atau
12
atau
atau
Himpunan penyelesaian
:
Pemisahan selang penyelesaian :
Grafik:
|
a. Trigonometri
1. Selesaikan: cos 90o + cos 270o!
Cos 900 + cos 270o
=
0
b. Eksponensial
1.
|
13
BAB III
LAMPIRAN
3.1
Algoritma Program
1.
Start.
2.
Judul program = Sistem Bilangan Real.
3.
Variabel yang digunakan = x dan e.
4.
Input soal .
5.
Proses = Aljabar, Trigonemetri, Eksponen..
6.
Hasil.
7.
Selesai.
14
3.2
Flowchart Program
START
Command 1-5
Presentasi
Aplikasi
Play file flash0.swf
Contoh Soal
Hasil
Input Angka
1-5
About Me
Informasi
C_Panel
Input Alamat File Flash
Apply
Reset
No
Keluar
Yes
Stop
Merubah Alamat
Reset Alamat
15
3.3
List Program
a. List Program Form 1 :
Private Sub lp1_Click()
frm2a.Visible = False
Frame12.Visible = True
a = Val(Form1.T1)
b = Val(Form1.T2)
c = Val(Form1.T3)
d = Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
Label2a = Form1.Label1
'Menampilkan caption Label3
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0 And
0 Then
Label3a.Caption = a & "x < " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3a.Caption = a & "x < " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3a.Caption = a & "x < -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3a.Caption = a & "x < -" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f >= 0 Then
Label3a.Caption = "-" & a & "x < " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3a.Caption = "-" & a & "x < " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3a.Caption = "-" & a & "x < -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3a.Caption = "-" & a & "x < -" & c & "x " & f
f >=
And
And
And
And
And
And
And
16
End If
Label4a.Caption = E & "x < " & f
If f = 0 Then
Label5a.Caption = "x < 0"
Else
Label5a.Caption = "x < " & f & "/" & E
End If
End Sub
Private Sub lp2_Click()
frm2b.Visible = False
Frame16.Visible = True
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
If a < c And Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
0 Then
G = c - a
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
G = c + a
ElseIf a > c And Form1.Ls1.ListIndex = 1 And
Form1.Ls3.ListIndex = 1 Then
G = a - c
End If
If b > d And Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex =
0 Or b > d And Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex
= 0 Then
H = b - d
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
H = b + d
ElseIf b < d And Form1.Ls2.ListIndex = 1 And
Form1.Ls4.ListIndex = 1 Then
H = d - b
17
End If
Label2b = Form1.Label1
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0 And
0 Then
Label3b.Caption = a & "x < " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3b.Caption = a & "x < " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3b.Caption = a & "x < -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3b.Caption = a & "x < -" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f >= 0 Then
Label3b.Caption = "-" & a & "x < " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3b.Caption = "-" & a & "x < " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3b.Caption = "-" & a & "x < -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3b.Caption = "-" & a & "x < -" & c & "x " & f
End If
f >=
And
And
And
And
And
And
And
Label4b.Caption = E & "x < " & f
If f = 0 Then
Label5b.Caption = "x > 0"
ElseIf f > 0 Then
Label5b.Caption = "x > -" & f & "/" & G
Else
Label5b.Caption = "x > " & H & "/" & G
End If
End Sub
Private Sub lp3_Click()
frm3a.Visible = False
Frame17.Visible = True
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
18
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
Label2c = Form1.Label1
'Menampilkan caption Label3
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0 And
0 Then
Label3c.Caption = a & "x <= " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3c.Caption = a & "x <= " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3c.Caption = a & "x <= -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3c.Caption = a & "x <= -" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f >= 0 Then
Label3c.Caption = "-" & a & "x <= " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3c.Caption = "-" & a & "x <=" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3c.Caption = "-" & a & "x <= -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3c.Caption = "-" & a & "x <= -" & c & "x " & f
End If
Label4c.Caption = E & "x <= " & f
If f = 0 Then
Label5c.Caption = "x <= 0"
Else
Label5c.Caption = "x <= " & f & "/" & E
End If
End Sub
Private Sub lp4_Click()
frm3b.Visible = False
Frame18.Visible = True
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
f >=
And
And
And
And
And
And
And
19
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
If a < c And Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
0 Then
G = c - a
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
G = c + a
ElseIf a > c And Form1.Ls1.ListIndex = 1 And
Form1.Ls3.ListIndex = 1 Then
G = a - c
End If
If b > d And Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex =
0 Or b > d And Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex
= 0 Then
H = b - d
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
H = b + d
ElseIf b < d And Form1.Ls2.ListIndex = 1 And
Form1.Ls4.ListIndex = 1 Then
H = d - b
End If
Label2d = Form1.Label1
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0
0 Then
Label3d.Caption = a & "x <= " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex
f < 0 Then
Label3d.Caption = a & "x <= " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex
f >= 0 Then
Label3d.Caption = a & "x <= -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex
f < 0 Then
Label3d.Caption = a & "x <= -" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex
f >= 0 Then
Label3d.Caption = "-" & a & "x <= " & c & "x + " &
And f >=
= 0 And
= 1 And
= 1 And
= 0 And
f
20
ElseIf Form1.Ls1.ListIndex = 1 And
f < 0 Then
Label3d.Caption = "-" & a & "x
ElseIf Form1.Ls1.ListIndex = 1 And
f >= 0 Then
Label3d.Caption = "-" & a & "x
ElseIf Form1.Ls1.ListIndex = 1 And
f < 0 Then
Label3d.Caption = "-" & a & "x
End If
Form1.Ls3.ListIndex = 0 And
<= " & c & "x " & f
Form1.Ls3.ListIndex = 1 And
<= -" & c & "x + " & f
Form1.Ls3.ListIndex = 1 And
<= -" & c & "x " & f
Label4d.Caption = E & "x <= " & f
If f = 0 Then
Label5d.Caption = "x >= 0"
ElseIf f > 0 Then
Label5d.Caption = "x >= -" & f & "/" & G
Else
Label5d.Caption = "x >= " & H & "/" & G
End If
End Sub
Private Sub lp5_Click()
frm4a.Visible = False
Frame22.Visible = True
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
Label2e = Form1.Label1
'Menampilkan caption Label3
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0 And f >=
0 Then
21
Label3e.Caption = a & "x > " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
f < 0 Then
Label3e.Caption = a & "x > " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
f >= 0 Then
Label3e.Caption = a & "x > -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
f < 0 Then
Label3e.Caption = a & "x > -" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex =
f >= 0 Then
Label3e.Caption = "-" & a & "x > " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex =
f < 0 Then
Label3e.Caption = "-" & a & "x > " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex =
f >= 0 Then
Label3e.Caption = "-" & a & "x > -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex =
f < 0 Then
Label3e.Caption = "-" & a & "x > -" & c & "x " & f
End If
0 And
1 And
1 And
0 And
0 And
1 And
1 And
Label4e.Caption = E & "x > " & f
If f = 0 Then
Label5e.Caption = "x > 0"
Else
Label5e.Caption = "x > " & f & "/" & E
End If
End Sub
Private Sub lp6_Click()
frm4b.Visible = False
Frame23.Visible = True
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
22
End If
If a < c And Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
0 Then
G = c - a
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
G = c + a
ElseIf a > c And Form1.Ls1.ListIndex = 1 And
Form1.Ls3.ListIndex = 1 Then
G = a - c
End If
If b > d And Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex =
0 Or b > d And Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex
= 0 Then
H = b - d
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
H = b + d
ElseIf b < d And Form1.Ls2.ListIndex = 1 And
Form1.Ls4.ListIndex = 1 Then
H = d - b
End If
Label2f = Form1.Label1
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0 And
0 Then
Label3f.Caption = a & "x > " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3f.Caption = a & "x > " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3f.Caption = a & "x > -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3f.Caption = a & "x > -" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f >= 0 Then
Label3f.Caption = "-" & a & "x > " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3f.Caption = "-" & a & "x > " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3f.Caption = "-" & a & "x > -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3f.Caption = "-" & a & "x > -" & c & "x " & f
End If
Label4f.Caption = E & "x > " & f
If f = 0 Then
Label5f.Caption = "x < 0"
ElseIf f > 0 Then
Label5f.Caption = "x < -" & f & "/" & G
Else
f >=
And
And
And
And
And
And
And
23
Label5f.Caption = "x < " & H & "/" & G
End If
End Sub
Private Sub lp7_Click()
frm5a.Visible = False
Frame24.Visible = True
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
Label2g = Form1.Label1
'Menampilkan caption Label3
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0
0 Then
Label3g.Caption = a & "x >= " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex
f < 0 Then
Label3g.Caption = a & "x >= " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex
f >= 0 Then
Label3g.Caption = a & "x >= -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex
f < 0 Then
Label3g.Caption = a & "x >= -" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex
f >= 0 Then
Label3g.Caption = "-" & a & "x >= " & c & "x + " &
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex
f < 0 Then
Label3g.Caption = "-" & a & "x >= " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex
f >= 0 Then
And f >=
= 0 And
= 1 And
= 1 And
= 0 And
f
= 0 And
= 1 And
24
Label3g.Caption = "-" & a & "x >= -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1 And
f < 0 Then
Label3g.Caption = "-" & a & "x >= -" & c & "x " & f
End If
Label4g.Caption = E & "x >= " & f
If f = 0 Then
Label5g.Caption = "x >= 0"
Else
Label5g.Caption = "x >= " & f & "/" & E
End If
End Sub
Private Sub lp8_Click()
frm5b.Visible = False
Frame28.Visible = True
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
If a < c And Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
0 Then
G = c - a
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
G = c + a
ElseIf a > c And Form1.Ls1.ListIndex = 1 And
Form1.Ls3.ListIndex = 1 Then
G = a - c
End If
If b > d And Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex =
0 Or b > d And Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex
= 0 Then
H = b - d
25
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
H = b + d
ElseIf b < d And Form1.Ls2.ListIndex = 1 And
Form1.Ls4.ListIndex = 1 Then
H = d - b
End If
Label2h = Form1.Label1
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0 And
0 Then
Label3h.Caption = a & "x >= " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3h.Caption = a & "x >= " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3h.Caption = a & "x >= -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3h.Caption = a & "x >= -" & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f >= 0 Then
Label3h.Caption = "-" & a & "x >= " & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0
f < 0 Then
Label3h.Caption = "-" & a & "x >= " & c & "x " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f >= 0 Then
Label3h.Caption = "-" & a & "x >= -" & c & "x + " & f
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1
f < 0 Then
Label3h.Caption = "-" & a & "x >= -" & c & "x " & f
End If
f >=
And
And
And
And
And
And
And
Label4h.Caption = E & "x >= " & f
If f = 0 Then
Label5h.Caption = "x <= 0"
ElseIf f > 0 Then
Label5h.Caption = "x <= -" & f & "/" & G
Else
Label5h.Caption = "x <= " & H & "/" & G
End If
End Sub
Private Sub lp9_Click()
frm6.Visible = False
Frame29.Visible = True
I
J
K
L
=
=
=
=
Val(Form1.T5)
Val(Form1.T6)
Val(Form1.T7)
Val(Form1.T8)
If Form1.Ls5.ListIndex = 0 And Form1.Ls6.ListIndex = 0 Then
26
M = I - K
ElseIf Form1.Ls5.ListIndex = 0 And Form1.Ls6.ListIndex = 1 Then
M = I + K
ElseIf Form1.Ls5.ListIndex = 1 And Form1.Ls6.ListIndex = 0 Then
M = -I - K
ElseIf Form1.Ls5.ListIndex = 1 And Form1.Ls6.ListIndex = 1 Then
M = -I + K
End If
If Form1.Ls6.ListIndex = 0
N = L - K
ElseIf Form1.Ls6.ListIndex
N = -L - K
ElseIf Form1.Ls6.ListIndex
N = L + K
ElseIf Form1.Ls6.ListIndex
N = -L + K
End If
And Form1.Ls7.ListIndex = 0 Then
= 0 And Form1.Ls7.ListIndex = 1 Then
= 1 And Form1.Ls7.ListIndex = 0 Then
= 1 And Form1.Ls7.ListIndex = 1 Then
Label2i = Form1.Label1
Label3i.Caption = M & " < " & J & "x < " & N
Label4i.Caption = M & "/" & J & " < x < " & N & "/" & J
End Sub
Private Sub lp10_Click()
frm7.Visible = False
Frame30.Visible = True
I
J
K
L
=
=
=
=
Val(Form1.T5)
Val(Form1.T6)
Val(Form1.T7)
Val(Form1.T8)
If Form1.Ls5.ListIndex = 0
M = I - K
ElseIf Form1.Ls5.ListIndex
M = I + K
ElseIf Form1.Ls5.ListIndex
M = -I - K
ElseIf Form1.Ls5.ListIndex
M = -I + K
End If
If Form1.Ls6.ListIndex = 0
N = L - K
ElseIf Form1.Ls6.ListIndex
N = -L - K
ElseIf Form1.Ls6.ListIndex
N = L + K
ElseIf Form1.Ls6.ListIndex
N = -L + K
End If
Label2j = Form1.Label1
And Form1.Ls6.ListIndex = 0 Then
= 0 And Form1.Ls6.ListIndex = 1 Then
= 1 And Form1.Ls6.ListIndex = 0 Then
= 1 And Form1.Ls6.ListIndex = 1 Then
And Form1.Ls7.ListIndex = 0 Then
= 0 And Form1.Ls7.ListIndex = 1 Then
= 1 And Form1.Ls7.ListIndex = 0 Then
= 1 And Form1.Ls7.ListIndex = 1 Then
27
Label3j.Caption = M & " < " & J & "x <= " & N
Label4j.Caption = M & "/" & J & " < x <= " & N & "/" & J
End Sub
Private Sub lp11_Click()
frm8.Visible = False
Frame34.Visible = True
I
J
K
L
=
=
=
=
Val(Form1.T5)
Val(Form1.T6)
Val(Form1.T7)
Val(Form1.T8)
If Form1.Ls5.ListIndex = 0
M = I - K
ElseIf Form1.Ls5.ListIndex
M = I + K
ElseIf Form1.Ls5.ListIndex
M = -I - K
ElseIf Form1.Ls5.ListIndex
M = -I + K
End If
If Form1.Ls6.ListIndex = 0
N = L - K
ElseIf Form1.Ls6.ListIndex
N = -L - K
ElseIf Form1.Ls6.ListIndex
N = L + K
ElseIf Form1.Ls6.ListIndex
N = -L + K
End If
And Form1.Ls6.ListIndex = 0 Then
= 0 And Form1.Ls6.ListIndex = 1 Then
= 1 And Form1.Ls6.ListIndex = 0 Then
= 1 And Form1.Ls6.ListIndex = 1 Then
And Form1.Ls7.ListIndex = 0 Then
= 0 And Form1.Ls7.ListIndex = 1 Then
= 1 And Form1.Ls7.ListIndex = 0 Then
= 1 And Form1.Ls7.ListIndex = 1 Then
Label2k = Form1.Label1
Label3k.Caption = M & " <= " & J & "x < " & N
Label4k.Caption = M & "/" & J & " <= x < " & N & "/" & J
End Sub
Private Sub lp12_Click()
frm9.Visible = False
Frame35.Visible = True
I
J
K
L
=
=
=
=
Val(Form1.T5)
Val(Form1.T6)
Val(Form1.T7)
Val(Form1.T8)
If Form1.Ls5.ListIndex = 0 And Form1.Ls6.ListIndex = 0 Then
M = I - K
ElseIf Form1.Ls5.ListIndex = 0 And Form1.Ls6.ListIndex = 1 Then
M = I + K
ElseIf Form1.Ls5.ListIndex = 1 And Form1.Ls6.ListIndex = 0 Then
28
M = -I - K
ElseIf Form1.Ls5.ListIndex = 1 And Form1.Ls6.ListIndex = 1 Then
M = -I + K
End If
If Form1.Ls6.ListIndex = 0
N = L - K
ElseIf Form1.Ls6.ListIndex
N = -L - K
ElseIf Form1.Ls6.ListIndex
N = L + K
ElseIf Form1.Ls6.ListIndex
N = -L + K
End If
And Form1.Ls7.ListIndex = 0 Then
= 0 And Form1.Ls7.ListIndex = 1 Then
= 1 And Form1.Ls7.ListIndex = 0 Then
= 1 And Form1.Ls7.ListIndex = 1 Then
Label2l = Form1.Label1
Label3l.Caption = M & " <= " & J & "x <= " & N
Label4l.Caption = M & "/" & J & " <= x <= " & N & "/" & J
End Sub
Private Sub Command1_Click()
Form1.Cmd1.Enabled = False
Form1.Enabled = True
Form1.Label1.Caption = "Soal Yang Anda Buat"
Form1.Show
Form1.T1.Text = ""
Form1.T2.Text = ""
Form1.T3.Text = ""
Form1.T4.Text = ""
Form1.T5.Text = ""
Form1.T6.Text = ""
Form1.T7.Text = ""
Form1.T8.Text = ""
Form1.Ls8.Text = ""
Form1.Ls9.Text = ""
Form1.Ls10.Text = ""
Form1.T9.Text = ""
Form1.T10.Text = ""
Form1.T11.Text = ""
Form1.Lsa.Text = ""
Form1.Lsc.Text = ""
Form1.T12.Text = ""
Form1.T13.Text = ""
Form1.Lsd.Text = ""
Form1.Lse.Text = ""
Form1.Lsf.Text = ""
Form1.T14.Text = ""
Form1.T15.Text = ""
Form1.T16.Text = ""
Form1.gog1.Text = ""
Form1.gog2.Text = ""
Form1.gog3.Text = ""
Unload Me
End Sub
29
b. List Program Form 2 :
Private Sub Form_Unload(Cancel As Integer)
Dim Response As Integer
Response = MsgBox("Apakah anda yakin ingin keluar ?", vbYesNo,
"Exit")
If Response = vbYes Then
End
Else
Me.Show
End If
End Sub
Private Sub apl_Click()
azx = filepres.Text
bzx = filewell.Text
ShockwaveFlash1.Movie = azx
ShockwaveFlash2.Movie = bzx
End Sub
Private Sub exit_Click()
Dim Response As Integer
Response = MsgBox("Apakah anda yakin ingin keluar ?", vbYesNo,
"Exit")
If Response = vbYes Then
End
Else
Me.Show
End If
End Sub
Private Sub Timmers_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = "0" &
Xmili.Caption
If Xmili.Caption = "60" Then
Xmili.Caption = "00"
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = "0" &
xdetik.Caption
End If
If xdetik.Caption = "60" Then
xdetik.Caption = "00"
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = "0" &
xmenit.Caption
End If
End Sub
Private Sub bk1_Click()
ShockwaveFlash2.Playing = False
well.Visible = False
Powerpoint.Visible = True
ShockwaveFlash1.Playing = True
Aboutme.Visible = False
Latihan.Visible = False
cpanel.Visible = False
30
End Sub
Private Sub bk2_Click()
well.Visible = False
Powerpoint.Visible = False
ShockwaveFlash1.Playing = False
ShockwaveFlash2.Playing = False
Aboutme.Visible = False
Latihan.Visible = True
cpanel.Visible = False
End Sub
Private Sub bk3_Click()
well.Visible = False
Powerpoint.Visible = False
ShockwaveFlash1.Playing = False
ShockwaveFlash2.Playing = False
Aboutme.Visible = True
Latihan.Visible = False
cpanel.Visible = False
End Sub
Private Sub bk4_Click()
well.Visible = False
Powerpoint.Visible = False
ShockwaveFlash1.Playing = False
ShockwaveFlash2.Playing = False
cpanel.Visible = True
Aboutme.Visible = False
Latihan.Visible = False
End Sub
'Task Bar'
Private Sub hlo_Click()
tutup.Enabled = True
Timmers.Enabled = True
End Sub
Private Sub opn_Click()
buka.Enabled = True
End Sub
Private Sub buka_Timer()
'tskbar.Move Left = tskbar.Left, Top = tskbar.Top + 120
tskbar.Top = tskbar.Top - 120
If tskbar.Top = -480 Then
buka.Enabled = False
opn.Visible = False
hlo.Visible = True
End If
End Sub
Private Sub tutup_Timer()
tskbar.Top = tskbar.Top + 120
If tskbar.Top = 480 Then
tutup.Enabled = False
opn.Visible = True
31
hlo.Visible = False
End If
End Sub
'Task Bawah'
Private Sub Jam1_Timer()
'Frm1.Move Left = Frm1.Left, Top = Frm1.Top - 120
Frm1.Top = Frm1.Top - 120
If Frm1.Top = 7680 Then
Jam1.Enabled = False
End If
End Sub
Private Sub Jam2_Timer()
'Frm1.Move Left = Frm1.Left, Top = Frm1.Top - 120
Frm1.Top = Frm1.Top + 120
If Frm1.Top = 8400 Then
Jam2.Enabled = False
End If
End Sub
Private Sub Tmbl1_Click()
If Frm1.Top = 8400 Then
Jam1.Enabled = True
Jam2.Enabled = False
ElseIf Frm1.Top = 7680 Then
Jam1.Enabled = False
Jam2.Enabled = True
Slideshow.Visible = True
End If
End Sub
Private Sub mr1_Timer()
a = Me.iklan.Caption
b = Left(a, 1)
c = Right(a, Len(a) - 1)
Me.iklan.Caption = c + b
End Sub
'Tmbol Sesi'
Private Sub k1_Click()
End Sub
'Source Code aplikasi perhitungan bilangan real'
Private Sub Cb1_Click()
Cmd2.Enabled = True
If Cb1.ListIndex = 0 Then
Frame1.Enabled = True
Frame2.Enabled = False
Frame4.Enabled = False
Frame5.Enabled = False
32
Frame6.Enabled = False
Frame1.BackColor = &HFFFF80
Frame2.BackColor = &HFFFFFF
Frame4.BackColor = &HFFFFFF
Frame5.BackColor = &HFFFFFF
Frame6.BackColor = &HFFFFFF
Label6.BackColor = &HFFFFFF
Label7.BackColor = &HFFFFFF
Label9.BackColor = &HFFFFFF
Label5.BackColor = &HFFFFFF
Label19.BackColor = &HFFFFFF
ElseIf Cb1.ListIndex = 1 Then
Frame1.Enabled = False
Frame2.Enabled = True
Frame4.Enabled = False
Frame5.Enabled = False
Frame6.Enabled = False
Frame1.BackColor = &HFFFFFF
Frame2.BackColor = &HFFFF80
Frame4.BackColor = &HFFFFFF
Frame5.BackColor = &HFFFFFF
Frame6.BackColor = &HFFFFFF
Label6.BackColor = &HFFFFFF
Label7.BackColor = &HFFFFFF
Label9.BackColor = &HFFFFFF
Label5.BackColor = &HFFFFFF
Label19.BackColor = &HFFFFFF
ElseIf Cb1.ListIndex = 2 Then
Frame1.Enabled = False
Frame2.Enabled = False
Frame4.Enabled = True
Frame5.Enabled = False
Frame6.Enabled = False
Frame1.BackColor = &HFFFFFF
Frame2.BackColor = &HFFFFFF
Frame4.BackColor = &HFFFF80
Frame5.BackColor = &HFFFFFF
Frame6.BackColor = &HFFFFFF
Label6.BackColor = &HFFFF80
Label7.BackColor = &HFFFFFF
Label9.BackColor = &HFFFFFF
Label5.BackColor = &HFFFFFF
Label19.BackColor = &HFFFFFF
ElseIf Cb1.ListIndex = 3 Then
Frame1.Enabled = False
Frame2.Enabled = False
Frame4.Enabled = False
Frame5.Enabled = True
Frame6.Enabled = False
Frame1.BackColor = &HFFFFFF
Frame2.BackColor = &HFFFFFF
Frame4.BackColor = &HFFFFFF
Frame5.BackColor = &HFFFF80
Frame6.BackColor = &HFFFFFF
Label6.BackColor = &HFFFFFF
33
Label7.BackColor = &HFFFF80
Label9.BackColor = &HFFFF80
Label5.BackColor = &HFFFF80
Label19.BackColor = &HFFFFFF
ElseIf Cb1.ListIndex = 4 Then
Frame1.Enabled = False
Frame2.Enabled = False
Frame4.Enabled = False
Frame5.Enabled = False
Frame6.Enabled = True
Frame1.BackColor = &HFFFFFF
Frame2.BackColor = &HFFFFFF
Frame4.BackColor = &HFFFFFF
Frame5.BackColor = &HFFFFFF
Frame6.BackColor = &HFFFF80
Label6.BackColor = &HFFFFFF
Label7.BackColor = &HFFFFFF
Label9.BackColor = &HFFFFFF
Label5.BackColor = &HFFFFFF
Label19.BackColor = &HFFFF80
End If
End Sub
Private Sub Cmd1_Click()
If Frame1.Enabled = True Then
Form2.Show
ElseIf Frame2.Enabled = True Then
Form2.Show
ElseIf Frame4.Enabled = True Then
Form2.Show
ElseIf Frame5.Enabled = True Then
Form2.Show
End If
If Frame6.Enabled = True Then
Form2.Show
Form2.ekw.Visible = True
End If
'Eksponen'
q = Val(T14)
w = Val(T15)
t = Val(T16)
If Frame6.Enabled = True And Lsd.ListIndex = 0
Lse.ListIndex = 0 And Lsf.ListIndex = 0 Then
u = q * w * t
ElseIf Frame6.Enabled = True And Lsd.ListIndex
Lse.ListIndex = 1 And Lsf.ListIndex = 1 Then
u = -q * -w * -t
ElseIf Frame6.Enabled = True And Lsd.ListIndex
Lse.ListIndex = 0 And Lsf.ListIndex = 0 Then
u = -q * w * t
ElseIf Frame6.Enabled = True And Lsd.ListIndex
Lse.ListIndex = 0 And Lsf.ListIndex = 1 Then
And
= 1 And
= 1 And
= 0 And
34
u = q * w * -t
ElseIf Frame6.Enabled
Lse.ListIndex = 1 And
u = -q * -w * t
ElseIf Frame6.Enabled
Lse.ListIndex = 1 And
u = q * -w * -t
ElseIf Frame6.Enabled
Lse.ListIndex = 1 And
u = q * -w * t
ElseIf Frame6.Enabled
Lse.ListIndex = 0 And
u = -q * w * -t
End If
= True And Lsd.ListIndex = 1 And
Lsf.ListIndex = 0 Then
= True And Lsd.ListIndex = 0 And
Lsf.ListIndex = 1 Then
= True And Lsd.ListIndex = 0 And
Lsf.ListIndex = 0 Then
= True And Lsd.ListIndex = 1 And
Lsf.ListIndex = 1 Then
da = Val(gog1)
db = Val(gog2)
dc = Val(gog3)
mn = da + db + dc
If Frame6.Enabled = True And Lsd.ListIndex = 0 And
Lse.ListIndex = 0 And Lsf.ListIndex = 0 Then
Form2.loto1.Caption = " = ( " & q & " x " & w & " x " & t & "
)" & "e"
Form2.pangkat.Caption = gog1 & " + " & gog2 & " + " & gog3
Form2.loto2.Caption = " = " & u & "e"
Form2.Loto3.Caption = mn
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 1 And
Lse.ListIndex = 1 And Lsf.ListIndex = 1 Then
Form2.loto1.Caption = " = ( " & -q & " x " & -w & " x " & -t &
" )" & "e"
Form2.pangkat.Caption = " e ^ " & " - " & gog1 & " - " & gog2 &
" - " & gog3
Form2.loto2.Caption = " = " & u & "e"
Form2.Loto3.Caption = mn
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 1 And
Lse.ListIndex = 0 And Lsf.ListIndex = 0 Then
Form2.loto1.Caption = " = ( " & -q & " x " & w & " x " & t & "
)" & "e"
Form2.pangkat.Caption = " e ^ " & " - " & gog1 & " + " & gog2 &
" + " & gog3
Form2.loto2.Caption = " = " & u & "e"
Form2.Loto3.Caption = mn
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 0 And
Lse.ListIndex = 0 And Lsf.ListIndex = 1 Then
Form2.loto1.Caption = " = ( " & q & " x " & w & " x " & -t & "
)" & "e"
Form2.pangkat.Caption = " e ^ " & gog1 & " + " & gog2 & " - " &
gog3
Form2.loto2.Caption = " = " & u & "e"
Form2.Loto3.Caption = mn
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 1 And
Lse.ListIndex = 1 And Lsf.ListIndex = 0 Then
Form2.loto1.Caption = " = ( " & -q & " x " & -w & " x " & t & "
)" & "e"
Form2.pangkat.Caption = " e ^ " & " - " & gog1 & " - " & gog2 &
" + " & gog3
Form2.loto2.Caption = " = " & u & "e"
35
Form2.Loto3.Caption = mn
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 0 And
Lse.ListIndex = 1 And Lsf.ListIndex = 1 Then
Form2.Label1.Caption = " = ( " & q & " x " & -w & " x " & -t &
" )" & "e"
Form2.pangkat.Caption = " e ^ " & gog1 & " - " & gog2 & " - " &
gog3
Form2.loto2.Caption = " = " & u & "e"
Form2.Loto3.Caption = mn
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 0 And
Lse.ListIndex = 1 And Lsf.ListIndex = 0 Then
Form2.loto1.Caption = " = ( " & q & " x " & -w & " x " & t & "
)" & "e"
Form2.pangkat.Caption = " e ^ " & gog1 & " - " & gog2 & " + " &
gog3
Form2.loto2.Caption = " = " & u & "e"
Form2.Loto3.Caption = mn
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 1 And
Lse.ListIndex = 0 And Lsf.ListIndex = 1 Then
Form2.loto1.Caption = " = ( " & -q & " x " & w & " x " & -t & "
)" & "e"
Form2.pangkat.Caption = " e ^ " & " - " & gog1 & " + " & gog2 &
" - " & gog3
Form2.loto2.Caption = " = " & u & "e"
Form2.Loto3.Caption = mn
End If
If u > 125 Then
Form2.pangkat.Left = 2400
Form2.loto1.Width = 2300
End If
If u > 125 Then
Form2.loto2.Width = 2000
Form2.Loto3.Left = 1200
End If
If u > 8000 Then
Form2.pangkat.Left = 2500
Form2.loto1.Width = 2400
End If
If u > 8000 Then
Form2.loto2.Width = 2100
Form2.Loto3.Left = 1300
End If
'Eksponen'
'Aljabar 1'
a
b
c
d
=
=
=
=
Val(T1)
Val(T2)
Val(T3)
Val(T4)
If Ls1.ListIndex = 0 And Ls3.ListIndex = 0 Then
E = a - c
ElseIf Ls1.ListIndex = 0 And Ls3.ListIndex = 1 Then
E = a + c
ElseIf Ls1.ListIndex = 1 And Ls3.ListIndex = 0 Then
36
E = -a - c
ElseIf Ls1.ListIndex = 1 And Ls3.ListIndex = 1 Then
E = -a + c
End If
'frm2a'
If Cb2.ListIndex = 0 And E > 0 Then
Form2.Show
Form2.frm2a.Visible = True
Form1.Enabled = False
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
If f = 0 Then
Form2.Label6a.Caption
Form2.Label7a.Caption
Form2.Label8a.Caption
Else
Form2.Label6a.Caption
Form2.Label7a.Caption
Form2.Label8a.Caption
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
= "{x: x < 0}"
= "( -~ , 0 )"
= "0"
= "{x: x < " & f & "/" & E & "}"
= "(-~ , " & f & "/" & E & ")"
= f & "/" & E
'frm2a'
'frm2b'
ElseIf Cb2.ListIndex = 0 And E < 0 Then
Form2.Show
Form2.frm2b.Visible = True
Form1.Enabled = False
a = Val(Form1.T1)
b = Val(Form1.T2)
37
c = Val(Form1.T3)
d = Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
If a < c And Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
0 Then
G = c - a
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
G = c + a
ElseIf a > c And Form1.Ls1.ListIndex = 1 And
Form1.Ls3.ListIndex = 1 Then
G = a - c
End If
If b > d And Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex =
0 Or b > d And Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex
= 0 Then
H = b - d
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
H = b + d
ElseIf b < d And Form1.Ls2.ListIndex = 1 And
Form1.Ls4.ListIndex = 1 Then
H = d - b
End If
If f = 0 Then
Form2.Label6b.Caption = "{x: x > 0}"
Form2.Label7b.Caption = "( 0 , ~ )"
Form2.Label8b.Caption = "0"
ElseIf f > 0 Then
Form2.Label6b.Caption
Form2.Label7b.Caption
Form2.Label8b.Caption
Else
Form2.Label6b.Caption
Form2.Label7b.Caption
Form2.Label8b.Caption
End If
'End of frm2b'
= "{x: x > -" & f & "/" & G & "}"
= "( -" & f & "/" & G & " , ~ )"
= "-" & f & "/" & G
= "{x: x > " & H & "/" & G & "}"
= "( " & H & "/" & G & " , ~ )"
= H & "/" & G
38
'frm3a'
ElseIf Cb2.ListIndex = 1 And E > 0 Then
Form2.Show
Form2.frm3a.Visible = True
Form1.Enabled = False
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
If f = 0 Then
Form2.Label6c.Caption
Form2.Label7c.Caption
Form2.Label8c.Caption
Else
Form2.Label6c.Caption
Form2.Label7c.Caption
Form2.Label8c.Caption
End If
'End of frm3a'
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
= "{x: x <= 0}"
= "( -~ , 0 ]"
= "0"
= "{x: x <= " & f & "/" & E & "}"
= "(-~ , " & f & "/" & E & "]"
= f & "/" & E
'frm3b'
ElseIf Cb2.ListIndex = 1 And E < 0 Then
Form2.Show
Form2.frm3b.Visible = True
Form1.Enabled = False
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0 Then
E = a - c
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1 Then
E = a + c
39
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
E = -a - c
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1 Then
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
If a < c And Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
0 Then
G = c - a
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
G = c + a
ElseIf a > c And Form1.Ls1.ListIndex = 1 And
Form1.Ls3.ListIndex = 1 Then
G = a - c
End If
If b > d And Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex =
0 Or b > d And Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex
= 0 Then
H = b - d
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
H = b + d
ElseIf b < d And Form1.Ls2.ListIndex = 1 And
Form1.Ls4.ListIndex = 1 Then
H = d - b
End If
If f = 0 Then
Form2.Label6d.Caption = "{x: x >= 0}"
Form2.Label7d.Caption = "[ 0 , ~ )"
Form2.Label8d.Caption = "0"
ElseIf f > 0 Then
Form2.Label6d.Caption
Form2.Label7d.Caption
Form2.Label8d.Caption
Else
Form2.Label6d.Caption
Form2.Label7d.Caption
Form2.Label8d.Caption
End If
'End of frm3b'
= "{x: x >= -" & f & "/" & G & "}"
= "[ -" & f & "/" & G & " , ~ )"
= "-" & f & "/" & G
= "{x: x >= " & H & "/" & G & "}"
= "[ " & H & "/" & G & " , ~ )"
= H & "/" & G
'frm4a'
ElseIf Cb2.ListIndex = 2 And E > 0 Then
Form2.Show
Form2.frm4a.Visible = True
Form1.Enabled = False
40
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
If f = 0 Then
Form2.Label6e.Caption
Form2.Label7e.Caption
Form2.Label8e.Caption
Else
Form2.Label6e.Caption
Form2.Label7e.Caption
Form2.Label8e.Caption
End If
'End of frm4a'
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
= "{x: x > 0}"
= "( 0 , ~ )"
= "0"
= "{x: x > " & f & "/" & E & "}"
= "(" & f & "/" & E & ", ~ )"
= f & "/" & E
'frm4b'
ElseIf Cb2.ListIndex = 2 And E < 0 Then
Form2.Show
Form2.frm4b.Visible = True
Form1.Enabled = False
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
If Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 0 Then
f = -b + d
41
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
f = -d - b
ElseIf Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex = 0 Then
f = b + d
ElseIf Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex = 1 Then
f = b - d
End If
If a < c And Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
0 Then
G = c - a
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
G = c + a
ElseIf a > c And Form1.Ls1.ListIndex = 1 And
Form1.Ls3.ListIndex = 1 Then
G = a - c
End If
If b > d And Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex =
0 Or b > d And Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex
= 0 Then
H = b - d
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
H = b + d
ElseIf b < d And Form1.Ls2.ListIndex = 1 And
Form1.Ls4.ListIndex = 1 Then
H = d - b
End If
If f = 0 Then
Form2.Label6f.Caption = "{x: x < 0}"
Form2.Label7f.Caption = "( -~ , 0 )"
Form2.Label8f.Caption = "0"
ElseIf f > 0 Then
Form2.Label6f.Caption
Form2.Label7f.Caption
Form2.Label8f.Caption
Else
Form2.Label6f.Caption
Form2.Label7f.Caption
Form2.Label8f.Caption
End If
'End of frm4b'
= "{x: x < -" & f & "/" & G & "}"
= "( -~ , -" & f & "/" & G & " )"
= "-" & f & "/" & G
= "{x: x < " & H & "/" & G & "}"
= "( -~ , " & H & "/" & G & " )"
= H & "/" & G
'frm5a'
ElseIf Cb2.ListIndex = 3 And E > 0 Then
Form2.Show
Form2.frm5a.Visible = True
Form1.Enabled = False
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 0 Then
E = a - c
ElseIf Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex = 1 Then
42
E = a + c
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
E = -a - c
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 1 Then
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
If f = 0 Then
Form2.Label6g.Caption
Form2.Label7g.Caption
Form2.Label8g.Caption
Else
Form2.Label6g.Caption
Form2.Label7g.Caption
Form2.Label8g.Caption
End If
'End of frm5a'
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
= "{x: x >= 0}"
= "[ 0 , ~ )"
= "0"
= "{x: x >= " & f & "/" & E & "}"
= "[" & f & "/" & E & ", ~ )"
= f & "/" & E
'frm5b'
ElseIf Cb2.ListIndex = 3 And E < 0 Then
Form2.Show
Form2.frm5b.Visible = True
Form1.Enabled = False
a
b
c
d
=
=
=
=
Val(Form1.T1)
Val(Form1.T2)
Val(Form1.T3)
Val(Form1.T4)
If Form1.Ls1.ListIndex = 0
E = a - c
ElseIf Form1.Ls1.ListIndex
E = a + c
ElseIf Form1.Ls1.ListIndex
E = -a - c
ElseIf Form1.Ls1.ListIndex
E = -a + c
End If
If Form1.Ls2.ListIndex = 0
f = -b + d
ElseIf Form1.Ls2.ListIndex
f = -d - b
ElseIf Form1.Ls2.ListIndex
f = b + d
ElseIf Form1.Ls2.ListIndex
f = b - d
End If
And Form1.Ls3.ListIndex = 0 Then
= 0 And Form1.Ls3.ListIndex = 1 Then
= 1 And Form1.Ls3.ListIndex = 0 Then
= 1 And Form1.Ls3.ListIndex = 1 Then
And Form1.Ls4.ListIndex = 0 Then
= 0 And Form1.Ls4.ListIndex = 1 Then
= 1 And Form1.Ls4.ListIndex = 0 Then
= 1 And Form1.Ls4.ListIndex = 1 Then
43
If a < c And Form1.Ls1.ListIndex = 0 And Form1.Ls3.ListIndex =
0 Then
G = c - a
ElseIf Form1.Ls1.ListIndex = 1 And Form1.Ls3.ListIndex = 0 Then
G = c + a
ElseIf a > c And Form1.Ls1.ListIndex = 1 And
Form1.Ls3.ListIndex = 1 Then
G = a - c
End If
If b > d And Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex =
0 Or b > d And Form1.Ls2.ListIndex = 1 And Form1.Ls4.ListIndex
= 0 Then
H = b - d
ElseIf Form1.Ls2.ListIndex = 0 And Form1.Ls4.ListIndex = 1 Then
H = b + d
ElseIf b < d And Form1.Ls2.ListIndex = 1 And
Form1.Ls4.ListIndex = 1 Then
H = d - b
End If
If f = 0 Then
Form2.Label6h.Caption = "{x: x <= 0}"
Form2.Label7h.Caption = "( -~ , 0 ]"
Form2.Label8h.Caption = "0"
ElseIf f > 0 Then
Form2.Label6h.Caption
Form2.Label7h.Caption
Form2.Label8h.Caption
Else
Form2.Label6h.Caption
Form2.Label7h.Caption
Form2.Label8h.Caption
End If
'End of frm5b'
End If
= "{x: x <= -" & f & "/" & G & "}"
= "( -~ , -" & f & "/" & G & " ]"
= "-" & f & "/" & G
= "{x: x <= " & H & "/" & G & "}"
= "( -~ , " & H & "/" & G & " ]"
= H & "/" & G
'Aljabar 1'
'Aljabar 2'
'frm6'
If Frame2.Enabled = True And Cb3.ListIndex = 0 And
Cb4.ListIndex = 0 Then
Form2.Show
Form2.frm6.Visible = True
Form1.Enabled = False
I
J
K
L
=
=
=
=
Val(Form1.T5)
Val(Form1.T6)
Val(Form1.T7)
Val(Form1.T8)
If Form1.Ls5.ListIndex = 0 And Form1.Ls6.ListIndex = 0 Then
Mc = I - K
ElseIf Form1.Ls5.ListIndex = 0 And Form1.Ls6.ListIndex = 1 Then
Mc = I + K
ElseIf Form1.Ls5.ListIndex = 1 And Form1.Ls6.ListIndex = 0 Then
44
Mc = -I - K
ElseIf Form1.Ls5.ListIndex = 1 And Form1.Ls6.ListIndex = 1 Then
Mc = -I + K
End If
If Form1.Ls6.ListIndex = 0
Nc = L - K
ElseIf Form1.Ls6.ListIndex
Nc = -L - K
ElseIf Form1.Ls6.ListIndex
Nc = L + K
ElseIf Form1.Ls6.ListIndex
Nc = -L + K
End If
And Form1.Ls7.ListIndex = 0 Then
= 0 And Form1.Ls7.ListIndex = 1 Then
= 1 And Form1.Ls7.ListIndex = 0 Then
= 1 And Form1.Ls7.ListIndex = 1 Then
Form2.Label5i.Caption = "{ x: " & Mc & "/" & J & " < x < " & Nc
& "/" & J & " }"
Form2.Label6i.Caption = "( " & Mc & "/" & J & " , " & Nc & "/"
& J & " )"
Form2.Label7i.Caption = Mc & "/" & J
Form2.Label8i.Caption = Nc & "/" & J
End If
'End of frm6'
'frm7'
If Frame2.Enabled = True And Cb3.ListIndex = 0 And
Cb4.ListIndex = 1 Then
Form2.Show
Form2.frm7.Visible = True
Form1.Enabled = False
I
J
K
L
=
=
=
=
Val(Form1.T5)
Val(Form1.T6)
Val(Form1.T7)
Val(Form1.T8)
If Form1.Ls5.ListIndex = 0
Md = I - K
ElseIf Form1.Ls5.ListIndex
Md = I + K
ElseIf Form1.Ls5.ListIndex
Md = -I - K
ElseIf Form1.Ls5.ListIndex
Md = -I + K
End If
If Form1.Ls6.ListIndex = 0
Nd = L - K
ElseIf Form1.Ls6.ListIndex
Nd = -L - K
ElseIf Form1.Ls6.ListIndex
Nd = L + K
ElseIf Form1.Ls6.ListIndex
Nd = -L + K
End If
And Form1.Ls6.ListIndex = 0 Then
= 0 And Form1.Ls6.ListIndex = 1 Then
= 1 And Form1.Ls6.ListIndex = 0 Then
= 1 And Form1.Ls6.ListIndex = 1 Then
And Form1.Ls7.ListIndex = 0 Then
= 0 And Form1.Ls7.ListIndex = 1 Then
= 1 And Form1.Ls7.ListIndex = 0 Then
= 1 And Form1.Ls7.ListIndex = 1 Then
45
Form2.Label5j.Caption = "{ x: " & Md & "/" & J & " < x <= " &
Nd & "/" & J & " }"
Form2.Label6j.Caption = "( " & Md & "/" & J & " , " & Nd & "/"
& J & " ]"
Form2.Label7j.Caption = Md & "/" & J
Form2.Label8j.Caption = Nd & "/" & J
End If
'End of frm7'
'frm8'
If Frame2.Enabled = True And Cb3.ListIndex = 1 And
Cb4.ListIndex = 0 Then
Form2.Show
Form2.frm8.Visible = True
Form1.Enabled = False
I
J
K
L
=
=
=
=
Val(Form1.T5)
Val(Form1.T6)
Val(Form1.T7)
Val(Form1.T8)
If Form1.Ls5.ListIndex = 0
Ma = I - K
ElseIf Form1.Ls5.ListIndex
Ma = I + K
ElseIf Form1.Ls5.ListIndex
Ma = -I - K
ElseIf Form1.Ls5.ListIndex
Ma = -I + K
End If
If Form1.Ls6.ListIndex = 0
Na = L - K
ElseIf Form1.Ls6.ListIndex
Na = -L - K
ElseIf Form1.Ls6.ListIndex
Na = L + K
ElseIf Form1.Ls6.ListIndex
Na = -L + K
End If
And Form1.Ls6.ListIndex = 0 Then
= 0 And Form1.Ls6.ListIndex = 1 Then
= 1 And Form1.Ls6.ListIndex = 0 Then
= 1 And Form1.Ls6.ListIndex = 1 Then
And Form1.Ls7.ListIndex = 0 Then
= 0 And Form1.Ls7.ListIndex = 1 Then
= 1 And Form1.Ls7.ListIndex = 0 Then
= 1 And Form1.Ls7.ListIndex = 1 Then
Form2.Label5k.Caption = "{ x: " & Ma & "/" & J & " <= x < " &
Na & "/" & J & " }"
Form2.Label6k.Caption = "[ " & Ma & "/" & J & " , " & Na & "/"
& J & " )"
Form2.Label7k.Caption = Ma & "/" & J
Form2.Label8k.Caption = Na & "/" & J
End If
'End of frm8'
46
'frm9'
If Frame2.Enabled = True And Cb3.ListIndex = 1 And
Cb4.ListIndex = 1 Then
Form2.Show
Form2.frm9.Visible = True
Form1.Enabled = False
I
J
K
L
=
=
=
=
Val(Form1.T5)
Val(Form1.T6)
Val(Form1.T7)
Val(Form1.T8)
If Form1.Ls5.ListIndex = 0 And Form1.Ls6.ListIndex = 0 Then
Mb = I - K
ElseIf Form1.Ls5.ListIndex = 0 And Form1.Ls6.ListIndex = 1 Then
Mb = I + K
ElseIf Form1.Ls5.ListIndex = 1 And Form1.Ls6.ListIndex = 0 Then
Mb = -I - K
ElseIf FForm1.Ls5.ListIndex = 1 And Form1.Ls6.ListIndex = 1
Then
Mb = -I + K
End If
If Form1.Ls6.ListIndex = 0
Nb = L - K
ElseIf Form1.Ls6.ListIndex
Nb = -L - K
ElseIf Form1.Ls6.ListIndex
Nb = L + K
ElseIf Form1.Ls6.ListIndex
Nb = -L + K
End If
And Form1.Ls7.ListIndex = 0 Then
= 0 And Form1.Ls7.ListIndex = 1 Then
= 1 And Form1.Ls7.ListIndex = 0 Then
= 1 And Form1.Ls7.ListIndex = 1 Then
Form2.Label5l.Caption = "{ x: " & Mb & "/" & J & " <= x <= " &
Nb & "/" & J & " }"
Form2.Label6l.Caption = "[ " & Mb & "/" & J & " , " & Nb & "/"
& J & " ]"
Form2.Label7l.Caption = Mb & "/" & J
Form2.Label8l.Caption = Nb & "/" & J
End If
'End of frm9'
'Aljabar 2'
'Aljabar 3'
If Frame4.Enabled = True Then
Form2.Hslfrm4.Visible = True
End If
Ac = Val(T9)
Bc = Val(T10)
Cc = Val(T11)
'pos1'
47
If Ac = Bc And Bc = Cc Then
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
If Ac > Bc And Bc = Cc Then
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
If Ac < Bc And Bc > Cc Then
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
If Ac = Bc And Bc > Cc Then
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
If Ac = Bc And Bc > Cc Then
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
If Ac < Bc And Bc = Cc Then
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
If Ac > Bc And Bc < Cc Then
Ec = Cc - Bc
Eco1 = Ec & "/" & Ac
End If
If Ac > Cc And Bc < Cc Then
Ec = Cc - Bc
Eco1 = Ec & "/" & Ac
End If
If Ac > Bc And Ac < Cc Then
Ec = Cc - Bc
Eco1 = Ec & "/" & Ac
End If
If Ac > Bc And Bc > Cc Then
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
If Ac < Bc And Bc < Cc Then
Ec = Cc - Bc
Eco1 = Ec & "/" & Ac
End If
If Ac < Cc And Bc > Cc Then
48
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
If Ac < Bc And Ac > Cc Then
Ec = Bc - Cc
Eco1 = Ec & "/" & Ac
End If
'eco1'
'eco2'
If Ac = Bc And Bc = Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
If Ac > Bc And Bc = Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
If Ac < Bc And Bc > Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
If Ac = Bc And Bc > Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
If Ac = Bc And Bc > Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
If Ac < Bc And Bc = Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
If Ac > Bc And Bc < Cc Then
Ecc = Cc + Bc
Eco2 = Ecc & "/" & Ac
End If
If Ac > Cc And Bc < Cc Then
Ecc = Cc + Bc
Eco2 = Ecc & "/" & Ac
End If
If Ac > Bc And Ac < Cc Then
49
Ecc = Cc + Bc
Eco2 = Ecc & "/" & Ac
End If
If Ac > Bc And Bc > Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
If Ac < Bc And Bc < Cc Then
Ecc = Cc + Bc
Eco2 = Ecc & "/" & Ac
End If
If Ac < Cc And Bc > Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
If Ac < Bc And Ac > Cc Then
Ecc = Bc + Cc
Eco2 = Ecc & "/" & Ac
End If
'eco2'
If Cb5.ListIndex = 0
Form2.Label6.Caption
" & Ac & "x + " & Bc
Form2.Label7.Caption
" & Ecc
Form2.Label8.Caption
Then
= Ac & "x + " & Bc & " > + " & Cc & " atau
& " < " & Cc
= Ac & "x > " & Ec & " atau " & Ac & "x <
= "x > " & Eco1 & " atau x < " & Eco2
Form2.Label1.Caption = "{ x : x > " & Eco1 & " } U { x : x < "
& Eco2 & " }"
Form2.Label2.Caption = "( " & Eco1 & ", ~ ] U [ - ~ , " & Eco2
& ")"
Form2.gr2aa.Visible = True
Form2.Label3.Caption = ""
Form2.Label3as.Caption = Eco1
Form2.gr2bb.Visible = True
Form2.Label4.Caption = ""
Form2.Label4as.Caption = Eco2
ElseIf Cb5.ListIndex
Form2.Label6.Caption
atau " & Ac & "x + "
Form2.Label7.Caption
<= " & Ecc
Form2.Label8.Caption
=
=
&
=
1 Then
Ac & "x + " & Bc & " >= + " & Cc & "
Bc & " <= " & Cc
Ac & "x >= " & Ec & " atau " & Ac & "x
= "x >= " & Eco1 & " atau x <= " & Eco2
Form2.Label1.Caption = "{ x : x >= " & Eco1 & " } U { x : x <=
" & Eco2 & " }"
Form2.Label2.Caption = "( " & Eco1 & " , ~ ] U [ - ~ , " & Eco2
& " )"
Form2.gr1aa.Visible = True
Form2.Label3.Caption = ""
Form2.Label3as.Caption = Eco1
50
Form2.gr1bb.Visible = True
Form2.Label4.Caption = ""
Form2.Label4as.Caption = Eco2
ElseIf Cb5.ListIndex
Form2.Label6.Caption
" & Ac & "x + " & Bc
Form2.Label7.Caption
" & Ecc
Form2.Label8.Caption
=
=
&
=
2 Then
Ac & "x + " & Bc & " < + " & Cc & " atau
" > " & Cc
Ac & "x < " & Ec & " atau " & Ac & "x >
= "x < " & Eco1 & " atau x > " & Eco2
Form2.Label1.Caption = "{ x : x < " & Eco1 & " } U { x : x > "
& Eco2 & " }"
Form2.Label2.Caption = "( - ~ , " & Eco1 & " ] U [ " & Eco2 & "
, ~ )"
Form2.gr2a.Visible = True
Form2.Label3.Caption = Eco1
Form2.Label3as.Caption = ""
Form2.gr2b.Visible = True
Form2.Label4.Caption = Eco2
Form2.Label4as.Caption = ""
ElseIf Cb5.ListIndex
Form2.Label6.Caption
atau " & Ac & "x + "
Form2.Label7.Caption
>= " & Ecc
Form2.Label8.Caption
=
=
&
=
3 Then
Ac & "x + " & Bc & " <= + " & Cc & "
Bc & " >= " & Cc
Ac & "x <= " & Ec & " atau " & Ac & "x
= "x <= " & Eco1 & " atau x >= " & Eco2
Form2.Label1.Caption = "{ x : x <= " & Eco1 & " } U { x : x >=
" & Eco2 & " }"
Form2.Label2.Caption = "( - ~ , " & Eco1 & " ] U [ " & Eco2 & "
, ~ )"
Form2.gr1a.Visible = True
Form2.Label3.Caption = Eco1
Form2.Label3as.Caption = ""
Form2.gr1b.Visible = True
Form2.Label4.Caption = Eco2
Form2.Label4as.Caption = ""
End If
'Aljabar 3'
'Trigonometri'
If Frame5.Enabled = True Then
Form2.Hslfrm5.Visible = True
End If
sudut = 180 / 3.14159265358979
Ab = Val(T12)
Bb = Val(T13)
51
If Frame5.Enabled = True And Ab = 90 Or Ab = 270 Then
Ab = 0
ElseIf Frame5.Enabled = True And Bb = 90 Or Bb = 270 Then
Bb = 0
End If
If Frame5.Enabled = True And Lsa.ListIndex = 0 And
Lsc.ListIndex = 0 Then
Fb = Ab + Bb
Gb = Ab - Bb
Eb = 2 * Cos((Fb / sudut) / 2) * Cos((Gb / sudut) / 2)
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 1 And
Lsc.ListIndex = 1 Then
Fb = -Ab - Bb
Gb = -Ab + Bb
Eb = 2 * Cos((-Fb / sudut) / 2) * Cos((-Gb / sudut) / 2)
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 1 And
Lsc.ListIndex = 0 Then
Fb = -Ab + Bb
Gb = -Ab - Bb
Eb = 2 * Cos((-Fb / sudut) / 2) * Cos((Gb / sudut) / 2)
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 0 And
Lsc.ListIndex = 1 Then
Fb = Ab - Bb
Gb = Ab + Bb
Eb = 2 * Cos((Fb / sudut) / 2) * Cos((-Gb / sudut) / 2)
End If
If Frame5.Enabled = True And Lsa.ListIndex = 0 And
Lsc.ListIndex = 0 Then
Form2.lst1.Caption = " 2 . COS . 1/2 " & " ( " & Ab & " + "
& Bb & " ) " & " . " & " COS . 1/2 " & "( " & Ab & " - " & Bb &
" )"
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 1 And
Lsc.ListIndex = 1 Then
Form2.lst1.Caption = " 2 . COS . 1/2 " & " ( " & -Ab & " " & Bb & " ) " & " . " & " COS . 1/2 " & "( " & -Ab & " + " &
Bb & " )"
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 1 And
Lsc.ListIndex = 0 Then
Form2.lst1.Caption = " 2 . COS . 1/2 " & " ( " & -Ab & " +
" & Bb & " ) " & " . " & " COS . 1/2 " & "( " & -Ab & " - " &
Bb & " )"
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 0 And
Lsc.ListIndex = 1 Then
Form2.lst1.Caption = " 2 . COS . 1/2 " & " ( " & Ab & " - "
& Bb & " ) " & " . " & " COS . 1/2 " & "( " & Ab & " + " & Bb &
" )"
End If
Form2.Lst2.Caption = " 2 . COS . 1/2 " & " ( " & Fb & " ) "
& " . " & " COS . 1/2 " & " ( " & Gb & " )"
Form2.Lst3.Caption = " 2 . COS " & Fb / 2 & " . " & " COS "
& Gb / 2
Form2.Lst4.Caption = " " & Eb
'Trigonometri'
52
End Sub
Private Sub Cmd2_Click()
Frame3.Enabled = True
Label1.Caption = ""
'Peringatan'
a = Val(T1)
b = Val(T2)
c = Val(T3)
d = Val(T4)
I = Val(T5)
J = Val(T6)
K = Val(T7)
L = Val(T8)
q = Val(T14)
w = Val(T15)
t = Val(T16)
Aa = Val(T9)
Ba = Val(T10)
Ca = Val(T11)
Ab = Val(T12)
Bb = Val(T13)
If a > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T1.Text = ""
Exit Sub
End If
If b > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T2.Text = ""
Exit Sub
End If
If c > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T3.Text = ""
Exit Sub
End If
If d > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T4.Text = ""
Exit Sub
End If
If I > 999 Then
53
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T5.Text = ""
Exit Sub
End If
If J > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T6.Text = ""
Exit Sub
End If
If K > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T7.Text = ""
Exit Sub
End If
If L > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T7.Text = ""
Exit Sub
End If
If w > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T15.Text = ""
Exit Sub
End If
If t > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T16.Text = ""
Exit Sub
End If
If q > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T14.Text = ""
Exit Sub
End If
If Aa > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T9.Text = ""
Exit Sub
End If
If Ba > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T10.Text = ""
54
Exit Sub
End If
If Ca > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T11.Text = ""
Exit Sub
End If
If Ab > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T12.Text = ""
Exit Sub
End If
If Bb > 999 Then
MsgBox "Nilai tidak boleh lebih besar dari 999", vbOKOnly +
vbCritical, "Kesalahan"
T13.Text = ""
Exit Sub
End If
aau = Val(gog1)
abu = Val(gog2)
acu = Val(gog3)
If aau >= 10 Then
MsgBox "Nilai tidak boleh lebih besar dari 10", vbOKOnly +
vbCritical, "Kesalahan"
gog1.Text = ""
Exit Sub
End If
If abu >= 10 Then
MsgBox "Nilai tidak boleh lebih besar dari 10", vbOKOnly +
vbCritical, "Kesalahan"
gog2.Text = ""
Exit Sub
End If
If acu >= 10 Then
MsgBox "Nilai tidak boleh lebih besar dari 10", vbOKOnly +
vbCritical, "Kesalahan"
gog3.Text = ""
Exit Sub
End If
If Cb1.ListIndex = 0 And Cb2.Text = "Hubungan" Or Cb1.ListIndex
= 1 And Cb3.Text = "Hubungan" Or Cb1.ListIndex = 1 And Cb4.Text
= "Hubungan" Or Cb1.ListIndex = 2 And Cb5.Text = "Hubungan"
Then
MsgBox "Anda belum memilih hubungan pertaksamaan", vbOKOnly
+ vbCritical, "Kesalahan"
Cmd1.Enabled = False
Exit Sub
End If
55
If Cb1.ListIndex = 0 And Ls1.Text = "" Or Cb1.ListIndex = 0 And
Ls2.Text = "" Or Cb1.ListIndex = 0 And Ls3.Text = "" Or
Cb1.ListIndex = 0 And Ls4.Text = "" Then
MsgBox "Anda belum memilih operator", vbOKOnly +
vbCritical, "Kesalahan"
Cmd1.Enabled = False
Exit Sub
End If
If Cb1.ListIndex = 1 And Ls5.Text = "" Or Cb1.ListIndex = 1 And
Ls6.Text = "" Or Cb1.ListIndex = 1 And Ls7.Text = "" Then
MsgBox "Anda belum memilih operator", vbOKOnly +
vbCritical, "Kesalahan"
Cmd1.Enabled = False
Exit Sub
End If
If Cb1.ListIndex = 2 And Ls8.Text = "" Or Cb1.ListIndex = 2 And
Ls9.Text = "" Or Cb1.ListIndex = 2 And Ls10.Text = "" Then
MsgBox "Anda belum memilih operator", vbOKOnly +
vbCritical, "Kesalahan"
Cmd1.Enabled = False
Exit Sub
End If
If Cb1.ListIndex = 3 And Lsa.Text = "" Or Cb1.ListIndex = 3 And
Lsc.Text = "" Then
MsgBox "Anda belum memilih operator", vbOKOnly +
vbCritical, "Kesalahan"
Cmd1.Enabled = False
Exit Sub
End If
If Cb1.ListIndex = 4 And Lsd.Text = "" Or Cb1.ListIndex = 4 And
Lse.Text = "" Or Cb1.ListIndex = 4 And Lsf.Text = "" Then
MsgBox "Anda belum memilih operator", vbOKOnly +
vbCritical, "Kesalahan"
Cmd1.Enabled = False
Exit Sub
End If
If Cb1.ListIndex = 0 And E = 0 Then
MsgBox "Ada kesalahan dalam memasukkan input data, silahkan
masukkan angka yang berbeda", vbOKOnly + vbCritical,
"Kesalahan"
Cmd1.Enabled = False
T1.Text = "0"
T3.Text = "0"
Exit Sub
End If
If Cb1.ListIndex = 1 And T6 = "0" Then
MsgBox "Nilai x tidak boleh 0", vbOKOnly + vbCritical,
"Kesalahan"
Cmd1.Enabled = False
Exit Sub
End If
56
If Cb1.ListIndex = 1 And Ls5.ListIndex = Ls7.ListIndex And T5 =
T8 Then
MsgBox "Nilai tidak boleh sama", vbOKOnly + vbCritical,
"Kesalahan"
T5.Text = "0"
T8.Text = "0"
Cmd1.Enabled = False
Exit Sub
End If
If Cb1.ListIndex = 1 And Ls5.ListIndex = 0 And T5 > T8 Or
Cb1.ListIndex = 1 And Ls5.ListIndex = 0 And Ls7.ListIndex = 1
Or Cb1.ListIndex = 1 And Ls5.ListIndex = 1 And Ls7.ListIndex =
1 And T5 < T8 Then
MsgBox "Nilai di sebelah kiri tidak boleh lebih besar dari
nilai di sebelah kanan", vbOKOnly + vbCritical, "Kesalahan"
T5.Text = "0"
T8.Text = "0"
Cmd1.Enabled = False
Exit Sub
End If
'Peringatan'
'Eksponen'
q = Val(T14)
w = Val(T15)
t = Val(T16)
If Frame6.Enabled = True And Lsd.ListIndex = 0 And
Lse.ListIndex = 0 And Lsf.ListIndex = 0 Then
Label1.Caption = q & "e^" & gog1 & " + " & w & "e^" & gog2 & "
+ " & t & "e^" & gog3 & " = "
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 1 And
Lse.ListIndex = 1 And Lsf.ListIndex = 1 Then
Label1.Caption = -q & "e^" & gog1 & " - " & w & "e^" & gog2 & "
- " & t & "e^" & gog3 & " = "
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 1 And
Lse.ListIndex = 0 And Lsf.ListIndex = 0 Then
Label1.Caption = q & "e^" & gog1 & " + " & w & "e^" & gog2 & "
+ " & t & "e^" & gog3 & " = "
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 0 And
Lse.ListIndex = 0 And Lsf.ListIndex = 1 Then
Label1.Caption = q & "e^" & gog1 & " + " & w & "e^" & gog2 & "
- " & t & "e^" & gog3 & " = "
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 1 And
Lse.ListIndex = 1 And Lsf.ListIndex = 0 Then
Label1.Caption = -q & "e^" & gog1 & " - " & w & "e^" & gog2 & "
+ " & t & "e^" & gog3 & " = "
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 0 And
Lse.ListIndex = 1 And Lsf.ListIndex = 1 Then
57
Label1.Caption = q & "e^" & gog1 & " - " & w & "e^" & gog2 & "
- " & t & "e^" & gog3 & " = "
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 0 And
Lse.ListIndex = 1 And Lsf.ListIndex = 0 Then
Label1.Caption = q & "e^" & gog1 & " - " & w & "e^" & gog2 & "
+ " & t & "e^" & gog3 & " = "
ElseIf Frame6.Enabled = True And Lsd.ListIndex = 1 And
Lse.ListIndex = 0 And Lsf.ListIndex = 1 Then
Label1.Caption = -q & "e^" & gog1 & " + " & w & "e^" & gog2 & "
- " & t & "e^" & gog3 & " = "
End If
'Eksponen'
'Aljabar 1'
a
b
c
d
=
=
=
=
Val(T1)
Val(T2)
Val(T3)
Val(T4)
If Frame1.Enabled = True And
Ls3.ListIndex = 0 Then
E = a - c
ElseIf Frame1.Enabled = True
Ls3.ListIndex = 1 Then
E = a + c
ElseIf Frame1.Enabled = True
Ls3.ListIndex = 0 Then
E = -a - c
ElseIf Frame1.Enabled = True
Ls3.ListIndex = 1 Then
E = -a + c
End If
Ls1.ListIndex = 0 And
And Ls1.ListIndex = 0 And
And Ls1.ListIndex = 1 And
And Ls1.ListIndex = 1 And
If Frame1.Enabled = True And Cb2.ListIndex = 0 Then
If Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x + " & b & " < " & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x + " & b & " < " & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x + " & b & " < -" & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x + " & b & " < -" & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
58
Label1.Caption = a & "x - " & b & " < " & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x - " & b & " < " & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x - " & b & " < -" & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x - " & b & " < -" & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x + " & b & " < " & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x + " & b & " < " & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x + " & b & " < -" & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x + " & b & " < -" & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x - " & b & " < " & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x - " & b & " < " & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x - " & b & " < -" & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x - " & b & " < -" & c & "x
- " & d
End If
59
ElseIf Frame1.Enabled = True And Cb2.ListIndex = 1 Then
If Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x + " & b & " <= " & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x + " & b & " <= " & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x + " & b & " < -" & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x + " & b & " <= -" & c & "x - "
& d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x - " & b & " <= " & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x - " & b & " <= " & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x - " & b & " <= -" & c & "x + "
& d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x - " & b & " <= -" & c & "x - "
& d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x + " & b & " <= " & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x + " & b & " <= " & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x + " & b & " <= -" & c &
"x + " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
60
Label1.Caption = "-" & a & "x + " & b & " <= -" & c &
"x - " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x - " & b & " <= " & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x - " & b & " <= " & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x - " & b & " <= -" & c &
"x + " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x - " & b & " <= -" & c &
"x - " & d
End If
ElseIf Frame1.Enabled = True And Cb2.ListIndex = 2 Then
If Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x + " & b & " > " & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x + " & b & " > " & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x + " & b & " > -" & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x + " & b & " > -" & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x - " & b & " > " & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x - " & b & " > " & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
61
Label1.Caption = a & "x - " & b & " > -" & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x - " & b & " > -" & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x + " & b & " > " & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x + " & b & " > " & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x + " & b & " > -" & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x + " & b & " > -" & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x - " & b & " > " & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x - " & b & " > " & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x - " & b & " > -" & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x - " & b & " > -" & c & "x
- " & d
End If
ElseIf Frame1.Enabled = True And Cb2.ListIndex = 3 Then
If Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x + " & b & " >= " & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
62
Label1.Caption = a & "x + " & b & " >= " & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x + " & b & " >= -" & c & "x + "
& d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x + " & b & " >= -" & c & "x - "
& d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x - " & b & " >= " & c & "x + " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x - " & b & " >= " & c & "x - " &
d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = a & "x - " & b & " >= -" & c & "x + "
& d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 0 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = a & "x - " & b & " >= -" & c & "x - "
& d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x + " & b & " >= " & c & "x
+ " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x + " & b & " >= " & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x + " & b & " >= -" & c &
"x + " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 0 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x + " & b & " >= -" & c &
"x - " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x - " & b & " >= " & c & "x
+ " & d
63
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 0 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x - " & b & " >= " & c & "x
- " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 0
Then
Label1.Caption = "-" & a & "x - " & b & " >= -" & c &
"x + " & d
ElseIf Frame1.Enabled = True And Ls1.ListIndex = 1 And
Ls2.ListIndex = 1 And Ls3.ListIndex = 1 And Ls4.ListIndex = 1
Then
Label1.Caption = "-" & a & "x - " & b & " >= -" & c &
"x - " & d
End If
End If
'Aljabar 1'
'Aljabar 2'
I
J
K
L
=
=
=
=
Val(T5)
Val(T6)
Val(T7)
Val(T8)
If Frame2.Enabled = True And Cb3.ListIndex = 0 And
Cb4.ListIndex = 0 Then
If Frame2.Enabled = True And Ls5.ListIndex = 0 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 0 Then
Label1.Caption = I & " < " & J & "x + " & K & " < " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 0 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 0 Then
Label1.Caption = I & " < " & J & "x -" & K & " < " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 0 Then
Label1.Caption = "-" & I & " < " & J & "x + " & K & " <
" & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 1 Then
Label1.Caption = "-" & I & " < " & J & "x + " & K & " <
-" & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 0 Then
Label1.Caption = "-" & I & " < " & J & "x - " & K & " <
" & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 1 Then
Label1.Caption = "-" & I & " < " & J & "x - " & K & " <
-" & L
End If
ElseIf Frame2.Enabled = True And Cb3.ListIndex = 0 And
Cb4.ListIndex = 1 Then
If Frame2.Enabled = True And Ls5.ListIndex = 0 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 0 Then
64
Label1.Caption = I & " < " & J & "x + " & K & " <= " &
L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 0 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 0 Then
Label1.Caption = I & " < " & J & "x -" & K & " <= "
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 0 Then
Label1.Caption = "-" & I & " < " & J & "x + " & K &
<= " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 1 Then
Label1.Caption = "-" & I & " < " & J & "x + " & K &
<= -" & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 0 Then
Label1.Caption = "-" & I & " < " & J & "x - " & K &
<= " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 1 Then
Label1.Caption = "-" & I & " < " & J & "x - " & K &
<= -" & L
End If
& L
"
"
"
"
ElseIf Frame2.Enabled = True And Cb3.ListIndex = 1 And
Cb4.ListIndex = 0 Then
If Frame2.Enabled = True And Ls5.ListIndex = 0 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 0 Then
Label1.Caption = I & " <= " & J & "x + " & K & " < " &
L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 0 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 0 Then
Label1.Caption = I & " <= " & J & "x -" & K & " < " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 0 Then
Label1.Caption = "-" & I & " <= " & J & "x + " & K & "
< " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 0 And Ls7.ListIndex = 1 Then
Label1.Caption = "-" & I & " <= " & J & "x + " & K & "
< -" & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 0 Then
Label1.Caption = "-" & I & " <= " & J & "x - " & K & "
< " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex = 1 And
Ls6.ListIndex = 1 And Ls7.ListIndex = 1 Then
Label1.Caption = "-" & I & " <= " & J & "x - " & K & "
< -" & L
End If
ElseIf Frame2.Enabled = True And Cb3.ListIndex = 1
Cb4.ListIndex = 1 Then
If Frame2.Enabled = True And Ls5.ListIndex = 0
Ls6.ListIndex = 0 And Ls7.ListIndex = 0 Then
Label1.Caption = I & " <= " & J & "x + " &
L
ElseIf Frame2.Enabled = True And Ls5.ListIndex
Ls6.ListIndex = 1 And Ls7.ListIndex = 0 Then
And
And
K & " <= " &
= 0 And
65
Label1.Caption = I & " <= " & J & "x -" & K & " <= " &
L
ElseIf Frame2.Enabled = True And Ls5.ListIndex
Ls6.ListIndex = 0 And Ls7.ListIndex = 0 Then
Label1.Caption = "-" & I & " <= " & J & "x
<= " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex
Ls6.ListIndex = 0 And Ls7.ListIndex = 1 Then
Label1.Caption = "-" & I & " <= " & J & "x
<= -" & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex
Ls6.ListIndex = 1 And Ls7.ListIndex = 0 Then
Label1.Caption = "-" & I & " <= " & J & "x
<= " & L
ElseIf Frame2.Enabled = True And Ls5.ListIndex
Ls6.ListIndex = 1 And Ls7.ListIndex = 1 Then
Label1.Caption = "-" & I & " <= " & J & "x
<= -" & L
End If
End If
= 1 And
+ " & K & "
= 1 And
+ " & K & "
= 1 And
- " & K & "
= 1 And
- " & K & "
'Aljabar 2'
'Aljabar 3'
Aa = Val(T9)
Ba = Val(T10)
Ca = Val(T11)
If Frame4.Enabled = True And Cb5.ListIndex = 0 Then
If Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
-" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
-" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
-" & Ca
" <
" <
" <
" <
" <
" <
" <
66
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & " | " & Aa & "x " & " < -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x + "
& " < " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x + "
& " < " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x + "
& " < -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x + "
& " < -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 1 And LLs10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x - "
& " < " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x - "
& " < " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x - "
& " < -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x - "
& " < -" & Ca
End If
= 0 And
" & Ba & " |
= 1 And
& Ba & " | "
= 1 And
& Ba & " | "
= 1 And
& Ba & " | "
= 1 And
& Ba & " | "
= 1 And
& Ba & " | "
= 1 And
& Ba & " | "
= 1 And
& Ba & " | "
= 1 And
& Ba & " | "
ElseIf Frame4.Enabled = True And Cb5.ListIndex = 1 Then
If Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
<= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
<= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
-" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
<= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
<= " & Ca
"
"
" <
"
"
67
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
<= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
<= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
<= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " <= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " <= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " <= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " <= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " <= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " <= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " <= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " <= -" & Ca
End If
"
"
"
| "
| "
| "
| "
| "
| "
| "
| "
ElseIf Frame4.Enabled = True And Cb5.ListIndex = 2 Then
If Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " & " >
" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " & " >
" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " & " >
-" & Ca
68
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
-" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
-" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
-" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " > " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " > " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " > -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " > -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " > " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " > " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " > -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " > -" & Ca
End If
" >
" >
" >
" >
" >
| "
| "
| "
| "
| "
| "
| "
| "
ElseIf Frame4.Enabled = True And Cb5.ListIndex = 3 Then
If Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " & "
>= " & Ca
69
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
>= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
>= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x + " & Ba & " | " &
>= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
>= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
>= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
>= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 0 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & Aa & "x - " & Ba & " | " &
>= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " >= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " >= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " >= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 0 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x + " & Ba & "
& " >= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " >= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 0 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " >= " & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & "
& " >= -" & Ca
ElseIf Frame4.Enabled = True And Ls8.ListIndex = 1 And
Ls9.ListIndex = 1 And Ls10.ListIndex = 1 Then
"
"
"
"
"
"
"
| "
| "
| "
| "
| "
| "
| "
70
Label1.Caption = " | " & "-" & Aa & "x - " & Ba & " | "
& " >= -" & Ca
End If
End If
'Aljabar 3'
'Trigonometri'
Ab = Val(T12)
Bb = Val(T13)
If Frame5.Enabled = True And Lsa.ListIndex = 0 And
Lsc.ListIndex = 0 Then
Label1.Caption = "COS " & Ab & " + COS " & Bb
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 1 And
Lsc.ListIndex = 1 Then
Label1.Caption = "COS " & -Ab & " + COS " & -Bb
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 1 And
Lsc.ListIndex = 0 Then
Label1.Caption = "COS " & -Ab & " + COS " & Bb
ElseIf Frame5.Enabled = True And Lsa.ListIndex = 0 And
Lsc.ListIndex = 1 Then
Label1.Caption = "COS " & Ab & " + COS " & -Bb
End If
'Trigonometri'
Cmd1.Enabled = True
End Sub
Private Sub Form_Load()
Xmili.Caption = "00"
xdetik.Caption = "00"
xmenit.Caption = "00"
Cmd1.Enabled = False
Cmd2.Enabled = False
Label1.Caption = "Soal Yang
Cb1.AddItem "Aljabar Contoh
Cb1.AddItem "Aljabar Contoh
Cb1.AddItem "Aljabar Contoh
Cb1.AddItem "Trigonometri"
Cb1.AddItem "Eksponensial"
Cb2.AddItem "<"
Cb2.AddItem "<="
Cb2.AddItem ">"
Cb2.AddItem ">="
Cb3.AddItem "<"
Cb3.AddItem "<="
Cb4.AddItem "<"
Cb4.AddItem "<="
Cb5.AddItem "<"
Cb5.AddItem "<="
Cb5.AddItem ">"
Cb5.AddItem ">="
Ls1.AddItem "+"
Ls1.AddItem "-"
Ls2.AddItem "+"
Ls2.AddItem "-"
Ls3.AddItem "+"
Anda Buat"
Ke -1"
Ke -2"
Ke -3"
71
Ls3.AddItem "-"
Ls4.AddItem "+"
Ls4.AddItem "-"
Ls5.AddItem "+"
Ls5.AddItem "-"
Ls6.AddItem "+"
Ls6.AddItem "-"
Ls7.AddItem "+"
Ls7.AddItem "-"
Ls8.AddItem "+"
Ls8.AddItem "-"
Ls9.AddItem "+"
Ls9.AddItem "-"
Ls10.AddItem "+"
Ls10.AddItem "-"
Lsa.AddItem "+"
Lsa.AddItem "-"
Lsc.AddItem "+"
Lsc.AddItem "-"
Lsd.AddItem "+"
Lsd.AddItem "-"
Lse.AddItem "+"
Lse.AddItem "-"
Lsf.AddItem "+"
Lsf.AddItem "-"
T1.Text = ""
T2.Text = ""
T3.Text = ""
T4.Text = ""
T5.Text = ""
T6.Text = ""
T7.Text = ""
T8.Text = ""
Ls8.Text = ""
Ls9.Text = ""
Ls10.Text = ""
T9.Text = ""
T10.Text = ""
T11.Text = ""
Lsa.Text = ""
Lsc.Text = ""
T12.Text = ""
T13.Text = ""
Lsd.Text = ""
Lse.Text = ""
Lsf.Text = ""
T14.Text = ""
T15.Text = ""
T16.Text = ""
gog1.Text = ""
gog2.Text = ""
gog3.Text = ""
Frame1.BackColor
Frame2.BackColor
Frame4.BackColor
Frame5.BackColor
Frame6.BackColor
Label6.BackColor
Label7.BackColor
=
=
=
=
=
=
=
&HFFFFFF
&HFFFFFF
&HFFFFFF
&HFFFFFF
&HFFFFFF
&HFFFFFF
&HFFFFFF
72
Label9.BackColor = &HFFFFFF
Label5.BackColor = &HFFFFFF
Label19.BackColor = &HFFFFFF
End Sub
'Source Code aplikasi perhitungan bilangan real'
73
3.3
Hasil Program
3.3.1 Contoh Soal ke - 1 (Aljabar)
74
3.3.2 Contoh Soal ke – 2 (Aljabar)
75
3.3.3 Contoh Soal ke – 3 (Aljabar)
76
3.3.4 Contoh Soal Trigonometri
77
3.3.5 Contoh Soal Eksponensial
78
3.3.6 Latihan Soal ke - 1 (Aljabar)
79
3.3.7 Latihan Soal ke - 2 (Aljabar)
80
3.3.8 Latihan Soal ke - 3 (Aljabar)
81
3.3.9 Latihan Soal Trigonometri
82
3.3.10 Latihan Soal Eksponensial
83
BAB IV
PENUTUP
4.1 Kesimpulan
Bilangan-bilangan real adalah tinjauan himpunan semua bilangan (rasional dan
irasional) yang dapat mengukur panjang, bersama-sama dengan negatifnya dan nol.
Sistem bilangan real
Bilangan rasional adalah bilangan-bilangan yang dapat dituliskan dalam
bentuk
dengan m dan n adalah bilangan-bilangan bulat dengan n ≠ 0.
Bilangan irasional adalah bilangan yang tidak dapat dituliskan sebagai suatu
hasil bagi dari dua bilangan bulat, contoh:
Ketaksamaan ganda
menggambarkan selang terbuka yang terdiri dari
semua bilangan antara a dan b,tidak termasuk titik titik ujung a dan b. Sebaliknya
ketaksamaan
menggambarkan selang tertutup, yang mencakup titik- titik
ujung a dan b.
Nilai mutlak suatu bilangan real x, dinyatakan dengan |x|, didefinisikan sebagai
Jika
Jika
4.2 Saran
Demikianlah yang dapat kami sajikan kepada pembaca tentang makalah proyek
Sistem Bilangan Real, adapun dalam pengerjaan makalah proyek dan sebagai referensi
kami menggunakan Software VISUAL BASIC Versi 6.0 dan buku Kalkulus Edisi
Kedelapan Jilid 1 serta sumber - sumber lain. Makalah proyek ini kami sajikan secara
bertahap, mulai dari pengenalan teori, contoh soal latihan , latihan soal , algoritma , list
program dan hasil program , sehingga makalah proyek ini dapat mempermudah
pembaca dalam mengikuti panduan penggunaan dari Program tersebut. Akhir kata, kami
berharap mudah - mudahan makalah proyek ini kami dapat bermanfaat dan bakerja
dengan baik apabila digunakan dikemudian hari, dan seutas saran juga sangat berharga
84
bagi kami dalam pengembangan makalah dan program kedepanya. Apabila diproyek
dan dimakalah ini terdapat kesalahan kami mohon maaf sebesar-besarnya.
85
DAFTAR PUSTAKA
Purcell, Edwin J., Dale Vanberg., Steven E Rigdon. Kalkulus Edisi Kedelapan
Jilid 1. Jakarta: Erlangga, 2003.
Erlangga, 1993.
Terbuka, 1986.
Leithold Louis. Kalkulus dan Ilmu Ukur Analitik Edisi Kelima Jilid 2. Jakarta:
Soedadyatmodjo. Buku Materi Pokok Trigonometri. Jakarta: Universitas
Buku kompilasi Matematika I
Related papers
Transnational Subalternity: A Sub Theory within Subaltern Studies and the Post Migration Experience
Explorations - E-journal of Indian Sociological Society, New Delhi, 2024
Betonarme Ki̇ri̇şleri̇n Çeli̇k Levhalarla Kesmeye Karşi Güçlendi̇ri̇lmesi̇
Ömer Halisdemir Üniversitesi Mühendislik Bilimleri Dergisi, 2016
Six Faces of Epistemic Oppression, A.Wolf
Just Immigration in the Americas: A Feminist Account, 2020
VIGIL, J.M., «Inculturacion y Nuevos Paradigmas».
Publicado en la serie Theologie der Einen Welt editada por el Missionswissenschaftliches Institut Missio, Aachen, Alemania (November 2017).
Toward an Effective Long-Term Strategy for Preventing Motor Vehicle Crashes and Injuries
International Journal of Environmental Research and Public Health, 2014
Nature(s) of Power: Environment, Politics and Prestige on Brijuni Islands in the Twentieth Century
Entire of Itself?: Towards an Environmental History of Islands, 2024
Andaht nah bildricher wise. Hans Belting e le figurazioni devozionali
«Aesthetica Preprint: Supplementa», 2009
Quantitative local equivalence ratio determination in laminar premixed methane–air flames by laser induced breakdown spectroscopy (LIBS)
Chemical Physics Letters, 2005
Pharmacokinetics of 400 mg ropivacaine after periarticular local infiltration analgesia for total knee arthroplasty
Acta Anaesthesiologica Scandinavica, 2017
A Pilot Study of User-Requirements for Building Maintenance Systems in Malaysian Higher Education Institutions
Applied Mechanics and Materials, 2015
Investigation of arsenic release from sediment minerals to water phases
Arsenic Exposure and Health Effects V, 2003
Measurement of chemotherapy-induced nausea and vomiting
Applied Nursing Research, 1989
Prostomis mandibularis F. (Coleoptera: Prostomidae), Pandivirilia melaleuca (Loew) (Diteptera: Therevidae) and other saproxylic insects in Cantabria (Insecta: Coleoptera, Diptera and Hemiptera)
Boletin De La Sea, 2009
NOAA's Coral Reef Watch program from satellite observations
Annals of GIS, 2011
Avaliação de diferentes métodos de estabilização mecânica físico-granulométrica dos solos da Formação Cabo para aplicação em obras de engenharia
Congresso Brasileiro de Mecânica dos Solos e Engenharia Geotécnica, 2020