LISTING PROGRAM
#Region Project Attributes #ApplicationLabel: Matematika dasar anak SD #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region
#Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region
Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules.
End Sub
Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim latar As BitmapDrawable,latar2 As BitmapDrawable, latar3 As BitmapDrawable
Universitas Sumatera Utara
Dim hal1 As Panel Dim hal2 As Panel Dim hal3 As Panel Dim hal4 As Panel Dim hal5 As Panel Dim hal6 As Panel
Dim halpen As Panel Dim halket As Panel Dim halpec As Panel Dim halhim As Panel Dim halpeng As Panel Dim halbul As Panel Dim halkeluar As Panel
Dim lblpen As Label
Dim lblket As Label Dim lblpec As Label Dim lblhim As Label Dim lblpeng As Label Dim lblbul As Label
Universitas Sumatera Utara
Dim pen As String Dim cmdfoto(40) As ImageView Dim cmd2 As ImageView, cmd3 As ImageView,cmd4 As ImageView, cmd5 As ImageView Dim cmd6 As ImageView Dim cmdkeluar As ImageView
Dim cmdback As Button
End Sub
Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1")
'HAlAMAN Pertama <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
hal1.Initialize("") Activity.AddView(hal1,0,0,100%x,100%y)
Universitas Sumatera Utara
If File.Exists(File.DirAssets,"1.jpg")=True Then latar2.Initialize(LoadBitmap(File.DirAssets,"1.jpg")) Activity.Background = latar2
Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"info.jpg")=True Then cmd2.initialize("cmd2") cmd2.Bitmap=LoadBitmap(File.DirAssets,"info.jpg") cmd2.Gravity=Gravity.FILL hal1.addview(cmd2,55%x,50%y,17%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"keluar.jpg")=True Then cmdkeluar.initialize("cmdkeluar") cmdkeluar.Bitmap=LoadBitmap(File.DirAssets,"keluar.jpg") cmdkeluar.Gravity=Gravity.FILL hal1.addview(cmdkeluar,55%x,70%y,17%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
Universitas Sumatera Utara
'Halaman Kedua <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< hal2.Initialize("") Activity.AddView(hal2,0,0,100%x,100%y) hal2.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) hal2.Background = latar Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"bangundatarr.jpg")=True Then cmd3.Initialize("cmd3") cmd3.Bitmap=LoadBitmap(File.DirAssets,"bangundatarr.jpg") cmd3.Gravity=Gravity.FILL hal2.AddView(cmd3,10%x,10%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"bangunruangg.jpg")=True Then
Universitas Sumatera Utara
cmd4.Initialize("cmd4") cmd4.Bitmap=LoadBitmap(File.DirAssets,"bangunruangg.jpg") cmd4.Gravity=Gravity.FILL hal2.AddView(cmd4,10%x,20%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"bilanganpecahan.jpg")=True Then cmd5.Initialize("cmd5") cmd5.Bitmap=LoadBitmap(File.DirAssets,"bilanganpecahan.jpg") cmd5.Gravity=Gravity.FILL hal2.AddView(cmd5,10%x,30%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"pengukuran.jpg")=True Then cmd6.Initialize("cmd6") cmd6.Bitmap=LoadBitmap(File.DirAssets,"pengukuran.jpg") cmd6.Gravity=Gravity.FILL hal2.AddView(cmd6,10%x,40%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"himpunan.jpg")=True Then cmdfoto(22).Initialize("cmdfoto22") cmdfoto(22).Bitmap=LoadBitmap(File.DirAssets,"himpunan.jpg")
Universitas Sumatera Utara
cmdfoto(22).Gravity=Gravity.FILL hal2.AddView(cmdfoto(22),10%x,50%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"bilanganbulat.jpg")=True Then cmdfoto(23).Initialize("cmdfoto23") cmdfoto(23).Bitmap=LoadBitmap(File.DirAssets,"bilanganbulat.jpg") cmdfoto(23).Gravity=Gravity.FILL hal2.AddView(cmdfoto(23),10%x,60%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
'Halaman Ketiga <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
hal3.Initialize("") Activity.AddView(hal3,0,0,100%x,100%y) hal3.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then
Universitas Sumatera Utara
latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) hal3.Background = latar Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"persegi.jpg")=True Then cmdfoto(1).Initialize("cmdfoto1") cmdfoto(1).Bitmap=LoadBitmap(File.DirAssets,"persegi.jpg") cmdfoto(1).Gravity=Gravity.FILL hal3.AddView(cmdfoto(1),10%x,10%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"persegipanjang.jpg")=True Then cmdfoto(2).Initialize("cmdfoto2") cmdfoto(2).Bitmap=LoadBitmap(File.DirAssets,"persegipanjang.jpg") cmdfoto(2).Gravity=Gravity.FILL hal3.AddView(cmdfoto(2),10%x,20%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"jajargenjang.jpg")=True Then cmdfoto(3).Initialize("cmdfoto3")
Universitas Sumatera Utara
cmdfoto(3).Bitmap=LoadBitmap(File.DirAssets,"jajargenjang.jpg") cmdfoto(3).Gravity=Gravity.FILL hal3.AddView(cmdfoto(3),10%x,30%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"layanglayang.jpg")=True Then cmdfoto(4).Initialize("cmdfoto4") cmdfoto(4).Bitmap=LoadBitmap(File.DirAssets,"layanglayang.jpg") cmdfoto(4).Gravity=Gravity.FILL hal3.AddView(cmdfoto(4),10%x,40%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"lingkaran.jpg")=True Then cmdfoto(5).Initialize("cmdfoto5") cmdfoto(5).Bitmap=LoadBitmap(File.DirAssets,"lingkaran.jpg") cmdfoto(5).Gravity=Gravity.FILL hal3.AddView(cmdfoto(5),10%x,50%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"segitiga.jpg")=True Then cmdfoto(6).Initialize("cmdfoto6") cmdfoto(6).Bitmap=LoadBitmap(File.DirAssets,"segitiga.jpg") cmdfoto(6).Gravity=Gravity.FILL
Universitas Sumatera Utara
hal3.AddView(cmdfoto(6),10%x,60%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"trapesium.jpg")=True Then cmdfoto(7).Initialize("cmdfoto7") cmdfoto(7).Bitmap=LoadBitmap(File.DirAssets,"trapesium.jpg") cmdfoto(7).Gravity=Gravity.FILL hal3.AddView(cmdfoto(7),10%x,70%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
'Halaman Keempat <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
hal4.Initialize("") Activity.AddView(hal4,0,0,100%x,100%y) hal4.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) hal4.Background = latar
Universitas Sumatera Utara
Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"bangunruang.jpg")=True Then cmdfoto(8).Initialize("cmdfoto8") cmdfoto(8).Bitmap=LoadBitmap(File.DirAssets,"bangunruang.jpg") cmdfoto(8).Gravity=Gravity.FILL hal4.AddView(cmdfoto(8),10%x,3%y,80%x,35%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"kubus.jpg")=True Then cmdfoto(9).Initialize("cmdfoto9") cmdfoto(9).Bitmap=LoadBitmap(File.DirAssets,"kubus.jpg") cmdfoto(9).Gravity=Gravity.FILL hal4.AddView(cmdfoto(9),10%x,30%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"limas.jpg")=True Then cmdfoto(10).Initialize("cmdfoto10") cmdfoto(10).Bitmap=LoadBitmap(File.DirAssets,"limas.jpg") cmdfoto(10).Gravity=Gravity.FILL hal4.AddView(cmdfoto(10),10%x,40%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan")
Universitas Sumatera Utara
End If
If File.Exists(File.DirAssets,"tabung.jpg")=True Then cmdfoto(11).Initialize("cmdfoto11") cmdfoto(11).Bitmap=LoadBitmap(File.DirAssets,"tabung.jpg") cmdfoto(11).Gravity=Gravity.FILL hal4.AddView(cmdfoto(11),10%x,50%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"bola.jpg")=True Then cmdfoto(12).Initialize("cmdfoto12") cmdfoto(12).Bitmap=LoadBitmap(File.DirAssets,"bola.jpg") cmdfoto(12).Gravity=Gravity.FILL hal4.AddView(cmdfoto(12),10%x,60%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"kerucut.jpg")=True Then cmdfoto(13).Initialize("cmdfoto13") cmdfoto(13).Bitmap=LoadBitmap(File.DirAssets,"kerucut.jpg") cmdfoto(13).Gravity=Gravity.FILL hal4.AddView(cmdfoto(13),10%x,70%y,80%x,10%x) Else Msgbox("file tidak ada","peringatan") End If
Universitas Sumatera Utara
'Halaman Kelima <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
hal5.Initialize("") Activity.AddView(hal5,0,0,100%x,100%y) hal5.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) hal5.Background = latar Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"pecahanbiasa.jpg")=True Then cmdfoto(14).Initialize("cmdfoto14") cmdfoto(14).Bitmap=LoadBitmap(File.DirAssets,"pecahanbiasa.jpg") cmdfoto(14).Gravity=Gravity.FILL hal5.AddView(cmdfoto(14),10%x,20%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"pecahanmurni.jpg")=True Then
Universitas Sumatera Utara
cmdfoto(15).Initialize("cmdfoto15") cmdfoto(15).Bitmap=LoadBitmap(File.DirAssets,"pecahanmurni.jpg") cmdfoto(15).Gravity=Gravity.FILL hal5.AddView(cmdfoto(15),10%x,30%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"pecahancampuran.jpg")=True Then cmdfoto(16).Initialize("cmdfoto16") cmdfoto(16).Bitmap=LoadBitmap(File.DirAssets,"pecahancampuran.jpg") cmdfoto(16).Gravity=Gravity.FILL hal5.AddView(cmdfoto(16),10%x,40%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"pecahandesimal.jpg")=True Then cmdfoto(17).Initialize("cmdfoto17") cmdfoto(17).Bitmap=LoadBitmap(File.DirAssets,"pecahandesimal.jpg") cmdfoto(17).Gravity=Gravity.FILL hal5.AddView(cmdfoto(17),10%x,50%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"persenperseratus.jpg")=True Then cmdfoto(18).Initialize("cmdfoto18") cmdfoto(18).Bitmap=LoadBitmap(File.DirAssets,"persenperseratus.jpg")
Universitas Sumatera Utara
cmdfoto(18).Gravity=Gravity.FILL hal5.AddView(cmdfoto(18),10%x,60%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"permilperseribu.jpg")=True Then cmdfoto(19).Initialize("cmdfoto19") cmdfoto(19).Bitmap=LoadBitmap(File.DirAssets,"permilperseribu.jpg") cmdfoto(19).Gravity=Gravity.FILL hal5.AddView(cmdfoto(19),10%x,70%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
'Halaman Keenam <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<<<<<<< hal6.Initialize("") Activity.AddView(hal6,0,0,100%x,100%y) hal6.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
Universitas Sumatera Utara
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) hal6.Background = latar Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"pengertianpengukuran.jpg")=True Then cmdfoto(20).Initialize("cmdfoto20") cmdfoto(20).Bitmap=LoadBitmap(File.DirAssets,"pengertianpengukuran.jpg") cmdfoto(20).Gravity=Gravity.FILL hal6.AddView(cmdfoto(20),10%x,20%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
If File.Exists(File.DirAssets,"waktukecepatanjarak.jpg")=True Then cmdfoto(21).Initialize("cmdfoto21") cmdfoto(21).Bitmap=LoadBitmap(File.DirAssets,"waktukecepatanjarak.jpg") cmdfoto(21).Gravity=Gravity.FILL hal6.AddView(cmdfoto(21),10%x,40%y,80%x,12%x) Else Msgbox("file tidak ada","peringatan") End If
Universitas Sumatera Utara
'Halaman Bangun Ruang <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
halpen.Initialize("") Activity.AddView(halpen,0,0,100%x,100%y) halpen.Visible=False cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halpen.Background = latar Else Msgbox("file tidak ada","peringatan") End If
lblpen.Initialize("") lblpen.Text="" halpen.addview(lblpen,10%x,25%y,80%x,80%y)
'Halaman Bangun Datar <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<< halket.Initialize("") Activity.AddView(halket,0,0,100%x,100%y)
Universitas Sumatera Utara
halket.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halket.Background = latar Else Msgbox("file tidak ada","peringatan") End If
lblket.Initialize("") lblket.Text="" halket.addview(lblket,10%x,25%y,80%x,80%y)
'Halaman Pecahan <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
halpec.Initialize("") Activity.AddView(halpec,0,0,100%x,100%y) halpec.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
Universitas Sumatera Utara
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halpec.Background = latar Else Msgbox("file tidak ada","peringatan") End If
lblpec.Initialize("") lblpec.Text="" halpec.addview(lblpec,10%x,7%y,80%x,80%y)
'Halaman Pengukuran <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
halpeng.Initialize("") Activity.AddView(halpeng,0,0,100%x,100%y) halpeng.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halpeng.Background = latar Else Msgbox("file tidak ada","peringatan") End If
Universitas Sumatera Utara
lblpeng.Initialize("") lblpeng.Text="" halpeng.addview(lblpeng,10%x,7%y,80%x,80%y)
'Halaman Himpunan <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
halhim.Initialize("") Activity.AddView(halhim,0,0,100%x,100%y) halhim.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halhim.Background = latar Else Msgbox("file tidak ada","peringatan") End If
lblhim.Initialize("") lblhim.Text="" halhim.addview(lblhim,10%x,7%y,80%x,80%y)
Universitas Sumatera Utara
'Halaman Bilangan Bulat <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
halbul.Initialize("") Activity.AddView(halbul,0,0,100%x,100%y) halbul.Visible=False
cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x,90%y,80%x,12%x)
If File.Exists(File.DirAssets,"0.jpg")= True Then latar.initialize (LoadBitmap (File.DirAssets, "0.jpg")) halbul.Background = latar Else Msgbox("file tidak ada","peringatan") End If
lblbul.Initialize("") lblbul.Text="" halbul.addview(lblbul,10%x,7%y,80%x,80%y)
End Sub Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Universitas Sumatera Utara
End Sub Sub cmd2_click hal1.Visible=False hal2.Visible=True cmdback.Visible=False End Sub Sub cmd3_click hal2.Visible=False hal3.Visible=True End Sub Sub cmd4_click hal2.Visible=False hal4.Visible=True End Sub Sub cmd5_click hal2.Visible=False hal5.Visible=True End Sub Sub cmd6_click hal2.Visible=False hal6.Visible=True End Sub
Sub cmdkeluar_click Activity.Finish End Sub
'PROSES BACK <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Universitas Sumatera Utara
Sub cmdback_click
If
hal2.Visible=True Then hal2.Visible=False hal1.Visible=True cmdback.Visible=False
Else If hal3.visible=True Then hal3.Visible=False hal2.Visible=True
Else If halpen.Visible=True Then halpen.Visible=False hal3.Visible=True
Else If hal4.Visible=True Then hal4.Visible=False hal3.Visible=False hal2.Visible=True
Else If halket.Visible=True Then halket.Visible=False hal4.Visible=True
Else If hal5.Visible=True Then hal5.Visible=False hal4.Visible=False
Universitas Sumatera Utara
hal3.Visible=False hal2.Visible=True
Else If halpec.Visible=True Then halpec.Visible=False hal5.Visible=True
Else If hal6.Visible=True Then hal6.Visible=False hal5.Visible=False hal4.Visible=False hal3.Visible=False hal2.Visible=True
Else If halpeng.Visible=True Then halpeng.Visible=False hal6.Visible=True
Else If halhim.Visible=True Then halhim.Visible=False hal2.Visible=True
Else If halbul.Visible=True Then halbul.Visible=False hal2.Visible=True
End If
Universitas Sumatera Utara
End Sub 'PENGISIAN INFO INFO 'BANGUN DATAR <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub cmdfoto1_click pen="Bangun datar adalah bagian dari bidang datar yang dibatasi oleh garis-garis lurus atau lengkung (Imam Roji, 1997)." & CRLF &""& CRLF & " Bangun datar dapat didefinisikan sebagai bangun yang rata yang mempunyai dua demensi yaitu panjang dan lebar, tetapi tidak mempunyai tinggi atau tebal. "&CRLF&" "&CRLF&" Persegi adalah persegi panjang yang semua sisinya sama panjang " &CRLF&" • Rumus Persegi :" & CRLF &" Luas = s x s = s2 ( Luas = ½ x diagonal (d) 1 x diagonal (d) 2,)" & CRLF &" Keliling = 4 x s" & CRLF &" dengan s = panjang sisi persegi."
hal3.Visible=False halpen.Visible=True lblpen.TextColor=Colors.Blue lblpen.Text=pen
End Sub Sub cmdfoto2_click pen="Persegi Panjang adalah bangun datar yang mempunyai sisi berhadapan yang sama panjang, dan memiliki empat buah titik sudut siku-siku." & CRLF &"" & CRLF &" • Rumus Persegi Panjang : Luas = p x l "&CRLF&" p = Luas : lebar " & CRLF &" l = Luas : panjang" & CRLF &" Keliling = 2p + 2l = 2 x (p + l) "&CRLF&" dengan p = panjang persegi panjang, dan l = lebar persegi panjang."
hal3.Visible=False halpen.Visible=True lblpen.TextColor=Colors.Blue lblpen.Text=pen
End Sub Sub cmdfoto3_click
Universitas Sumatera Utara
pen="Jajar Genjang adalah segi empat yang sisinya sepasang-sepasang sama panjang dan sejajar." &CRLF& "" &CRLF& " Rumus Jajar Genjang" &CRLF& " Luas = a x t " &CRLF& " dengan a = panjang alas jajargenjang, dan t = tinggi jajargenjang."
hal3.Visible=False halpen.Visible=True lblpen.TextColor=Colors.Blue lblpen.Text=pen
End Sub Sub cmdfoto4_click pen="Layang-layang adalah segi empat yang salah satu diagonalnya memotong tegak lurus sumbu diagonal lainnya." &CRLF& " " &CRLF& "Rumus Layang-layang " &CRLF& " Luas = ½ x diagonal (d) 1 x diagonal (d) 2 ."
hal3.Visible=False halpen.Visible=True lblpen.TextColor=Colors.Blue lblpen.Text=pen
End Sub Sub cmdfoto5_click pen="Lingkaran adalah bangun datar yang terbentuk dari himpunan semua titik persekitaran yang mengelilingi suatu titik asal dengan jarak yang sama. jarak tersebut biasanya dinamakan r, atau radius, atau jari-jari." &CRLF& "" &CRLF& " Rumus Lingkaran " &CRLF& " Luas = π (pi) x jari-jari (r) 2 " &CRLF& " = πr2."
hal3.Visible=False halpen.Visible=True lblpen.TextColor=Colors.Blue lblpen.Text=pen
Universitas Sumatera Utara
End Sub Sub cmdfoto6_click pen="Segitiga adalah bangun datar yang terbentuk oleh tiga buah titik yang tidak segaris." &CRLF&" macam macamnya: segitiga sama sisi, segitiga sama kaki, segitiga siku-siku, segitiga sembarang. " &CRLF&"" &CRLF& " • Rumus Segitiga: " &CRLF&"Luas = ½ x a x t "&CRLF& " dengan a = panjang alas segitiga, dan t = tinggi segitiga"&CRLF& "Panjang sisi miring segitiga siku-siku dicari dengan rumus Phytagoras (A2 + B2 = C2)."
hal3.Visible=False halpen.Visible=True lblpen.TextColor=Colors.Blue lblpen.Text=pen
End Sub Sub cmdfoto7_click pen="trapesium adalah segi empat yang memiliki tepat sepasang sisi yang sejajar." &CRLF&"" &CRLF& " Rumus Trapesium :" &CRLF&" Luas = ½ x (s1 + s2) x t " &CRLF&" dengan s1 dan s2 = sisi-sisi sejajar pada trapesium, dan t = tinggi trapesium."
hal3.Visible=False halpen.Visible=True lblpen.TextColor=Colors.Blue lblpen.Text=pen
End Sub 'BANGUN RUANG <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Sub cmdfoto8_click
Universitas Sumatera Utara
pen="Bangun ruang adalah bagian ruang yang dibatasi oleh himpunan titik-titik yang terdapat pada seluruh permukaan bangun tersebut."&CRLF&" Ada beberapa macam bangun ruang diantaranya yaitu : Balok, Kubus, Tabung, Limas, Kerucut, Bola." &CRLF& " " &CRLF& " Balok adalah bangun ruang tiga dimensi yang dibentuk oleh tiga pasang persegi atau persegi panjang, dengan paling tidak satu pasang diantaranya berukuran berbeda. Balok memiliki 6 sisi, 12 rusuk dan 8 titik sudut." &CRLF&" RUMUS :" &CRLF& " Luas permukaan" &CRLF& " L = 2.(p.l+p.t+l.t)" &CRLF& " Volume " &CRLF& " V = p.l.t."
hal4.Visible=False halket.Visible=True lblket.TextColor=Colors.Blue lblket.Text=pen
End Sub Sub cmdfoto9_click pen="Kubus adalah bangun ruang tiga dimensi yang dibatasi oleh enam bidang sisi yang berbentuk bujur sangkar."&CRLF&" Kubus memiliki 6 sisi, 12 rusuk dan 8 titik sudut. "&CRLF&"Kubus juga disebut bidang enam beraturan, selain itu juga merupakan bentuk khusus dalam prisma segiempat."&CRLF&"" &CRLF& " RUMUS : "&CRLF&" Luas"&CRLF&" K = 6.r * r "&CRLF&" Volume"&CRLF&" L = r3."
hal4.Visible=False halket.Visible=True lblket.TextColor=Colors.Blue lblket.Text=pen
End Sub Sub cmdfoto10_click pen="limas adalah bangun ruang tiga dimensi yang dibatasi oleh alas berbentuk segi-n dan sisi-sisi tegak berbentuk segitiga."&CRLF&"Kerucut dapat disebut sebagai limas dengan alas berbentuk lingkaran."&CRLF&" Limas dengan alas berupa persegi disebut juga piramida."&CRLF&"" &CRLF& " RUMUS :"&CRLF&" Luas permukaan "&CRLF&" Luas permukaan limas dengan alas segi-n dapat dihitung dengan rumus berikut: "&CRLF&" L = luas alas + n.luas sisi tegak "&CRLF&" Volume"&CRLF&" V = 1/3.luas alas.t "
Universitas Sumatera Utara
hal4.Visible=False halket.Visible=True lblket.TextColor=Colors.Blue lblket.Text=pen
End Sub Sub cmdfoto11_click pen="Dalam geometri, tabung atau silinder adalah bangun ruang tiga dimensi yang dibentuk oleh dua buah lingkaran identik yang sejajar dan sebuah persegi panjang yang mengelilingi kedua lingkaran tersebut. Kubus memiliki 3 sisi dan 2 rusuk."&CRLF&" Kedua lingkaran disebut sebagai alas dan tutup tabung serta persegi panjang yang menyelimutinya disebut sebagai selimut tabung."&CRLF&"" &CRLF& " RUMUS :"&CRLF&" Volume Tabung = Luas Alas x Tinggi "&CRLF&" V = Π r2 "&CRLF&" *alas tabung berbentuk lingkaran."
hal4.Visible=False halket.Visible=True lblket.TextColor=Colors.Blue lblket.Text=pen
End Sub Sub cmdfoto12_click pen="Dalam geometri, bola adalah bangun ruang tiga dimensi yang dibentuk oleh tak hingga lingkaran berjari-jari sama panjang dan berpusat pada satu titik yang sama. Bola hanya memiliki 1 sisi."&CRLF&"" &CRLF& "rumus: " &CRLF& " luas : L = 4Πr2 "&CRLF&" " &CRLF& "volume Bola = 4/3 Π r3r = jari-jari."
hal4.Visible=False halket.Visible=True lblket.TextColor=Colors.Blue lblket.Text=pen
End Sub
Universitas Sumatera Utara
Sub cmdfoto13_click pen="Dalam geometri, kerucut adalah sebuah limas istimewa yang beralas lingkaran. Kerucut memiliki 2 sisi dan 1 rusuk.Dalam geometri, kerucut adalah sebuah limas istimewa yang beralas lingkaran. Kerucut memiliki 2 sisi dan 1 rusuk.Sisi tegak kerucut tidak berupa segitiga tapi berupa bidang lengkung yang disebut selimut kerucut."&CRLF&"" &CRLF& "rumus :Volume Kerucut = 1/3 x Luas Alas x TinggiV = 1/3 Πr2 t."&CRLF&"*alas tabung berbentuk lingkaran"
hal4.Visible=False halket.Visible=True lblket.TextColor=Colors.Blue lblket.Text=pen End Sub ' PECAHAN<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub cmdfoto14_click pen=" Pecahan Biasa Yaitu pecahan dengan pembilang dan penyebutnya merupakan bilangan bulat "&CRLF&"" &CRLF& " Contoh: 1/4 , 2/5 , 9/10"
hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen End Sub Sub cmdfoto15_click pen="Pecahan Murni Yaitu pecahan yang pembilang dan penyebutnya merupakan bilangan bulat dan berlaku pembilang kurang atau lebih kecil dari penyebut." &CRLF& " Pecahan murnai dapat dikatakan sebagai pecahan biasa tetapi pecahan biasa belum tentu dapat dikatakan sebagai pecahan murni"&CRLF&"" &CRLF& "Contoh:"&CRLF&"1/6 , 3/5, 7/15"
hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue
Universitas Sumatera Utara
lblpec.Text=pen End Sub Sub cmdfoto16_click pen="Pecahan campuran yaitu Pecahan yang terdiri atas bagian bilangan bulat dan bagian pecahan murni"&CRLF&"" &CRLF& "Contoh:"&CRLF&"3 ½, 4 ½, 5 ¾,"
hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen End Sub Sub cmdfoto17_click pen="Pecahan desimal Yaitu pecahan dengan penyebut 10, 100, 1000, dan seterusnya, dan ditulis dengan tanda koma,"&CRLF&"" &CRLF& "Contoh:"&CRLF&"0,4; 4,6; 9,2"
hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen End Sub Sub cmdfoto18_click pen="Persen atau perseratus yaitu pecahan dengan penyebut 100 dan dilambangkan dengan %"&CRLF&"Contoh:" &CRLF& ""&CRLF&"4% artinya 4/100"&CRLF&"35% artinya 35/100"
hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen
Universitas Sumatera Utara
End Sub Sub cmdfoto19_click pen="Permil atau perseribu Yaitu pecahan dengan penyebut 1.000 dan dilambangkan dengan%0% "&CRLF&"" &CRLF& " Contoh:%"&CRLF&"8%0 artinya 8/1000%"&CRLF&"125%0 artinya 125/1000"
hal5.Visible=False halpec.Visible=True lblpec.TextColor=Colors.Blue lblpec.Text=pen End Sub ' Pengukuran <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub cmdfoto20_click pen="A. PENGERTIAN PENGUKURAN"&CRLF&"pengukuran adalah suatu proses memberikan bilangan kepada kualitas fisik panjang, kapasitas volume, luas, sudut, berat ( massa ) dan suhu. setiap unit yang di ukur memiliki sifat yang sama sebagaimana benda yang akan di ukur."&CRLF&"B.DUA JENIS PROSES PENGUKURAN"&CRLF&"Pengukuran dapat dilakukan secara langsung atau tidak langsung. proses menentukan ukuran panjang dan kapasitas adalah langsung, yaitu dengan cara menerapkan unit ( satuan) secara langsung pada benda yang sedang di ukur. dan pengukuran secara langsung ialah terdapat benda langsung yang dapat di ukur secara langsung."&CRLF&"C. SISTEM PENGUKURAN"&CRLF&"terdapat dua jenis pengukuran yaitu sistem inggris dan sistem matrik. sistem inggris di embangkan di eropa. dan satuan - satun pengukuran di kembangkan dari benda - benda di sekitar kita."&CRLF&"Ukuran pajang sistem inggris"&CRLF&""&CRLF&"12 inchi = 1 kaki"&CRLF&"3 kaki = 1 yard"&CRLF&"36 inchi = 1 yard"&CRLF&"5.280 kaki = 1 mil"&CRLF&"1.760 yard 1 mil "
hal6.Visible=False halpeng.Visible=True lblpeng.TextColor=Colors.Blue lblpeng.Text=pen End Sub Sub cmdfoto21_click
Universitas Sumatera Utara
pen="1. Pengukuran Waktu Tempuh"&CRLF&"Pengukuran waktu tempuh sangat erat kaitannya dengan satuan waktu dan satuan panjang."&CRLF&"Perhatikan contoh soal di bawah ini !"&CRLF&"Jarak Jakarta - Bogor 60 km. Ayah berangkat ke Bogor dengan sepeda motor pukul 07.30."&CRLF&"Kecepatan rata-rata 40 km/jam."&CRLF&"a. Berapa lama waktu tempuh yang dibutuhkan oleh ayah untuk sampai ke Bogor ?"&CRLF&"b. Pukul Berapakah ayah tiba di Bogor?"&CRLF&" Jawaban :"&CRLF&"a. Rumus menghitung waktu tempuh = Jarak:kecepatan"&CRLF&" = 60 km : 40 km/jam"&CRLF&" = 1, 5 jam"&CRLF&" Jadi ayah memerlukan waktu untuk menempuh jarak Jakarta - Bogor adalah"&CRLF&" 1,5jam = 1 jam 30 menit."&CRLF&" b. Ayah tiba di Bogor = Waktu keberangkatan + waktu tempuh"&CRLF&" = pukul07.00 + pukul01.30"&CRLF&" = 08.30"&CRLF&"Jadi ayah tiba di Bogor pukul 08.30."
hal6.Visible=False halpeng.Visible=True lblpeng.TextColor=Colors.Blue lblpeng.Text=pen End Sub ' HImpunan <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub cmdfoto22_click pen="1. HIMPUNAN "&CRLF&"Himpunan adalah kumpulan benda atau objek yang dapat didefinisikan dengan jelas, sehingga dengan tepat dapat diketahui objek yang termasuk himpunan dan yang tidak termasuk dalam himpunan tersebut."&CRLF&""&CRLF&"2. NOTASI HIMPUNAN "&CRLF&" Suatu himpunan biasanya diberi nama atau dilambangkan dengan huruf besar (kapital) A, B, C, ..., Z. Adapun benda atau objek yang termasuk dalam himpunan tersebut ditulis dengan menggunakan pasangan kurung kurawal {...}."&CRLF&" Contoh Soal : "&CRLF&"Nyatakan himpunan berikut dengan memberikan tanda kurung kurawal :"&CRLF&""&CRLF&"1. A adalah himpunan bilangan cacah kurang dari 6 "&CRLF&"2. P adalah himpunan huruf-huruf vokal "&CRLF&"3. Q adalah himpunan tiga binatang buas"&CRLF&"Jawab :"&CRLF&"A adalah himpunan bilangan cacah kurang dari 6."&CRLF&"Anggota himpunan bilangan cacah kurang dari 6 adalah 0, 1, 2, 3, 4, 5.vJadi, A = {0, 1, 2, 3, 4, 5}."&CRLF&"P adalah himpunan huruf-huruf vokal."&CRLF&"Anggota himpunan huruf-huruf vokal adalah a, e, i, o, dan u, sehingga ditulis"&CRLF&" P = {a, e, i, o, u}."&CRLF&""&CRLF&"Q adalah himpunan tiga binatang buas."&CRLF&"Anggota himpunan binatang buas antara lain harimau, singa, dan serigala. "&CRLF&"Jadi, Q = {harimau, singa, serigala}."
hal2.Visible=False halhim.Visible=True lblhim.TextColor=Colors.Blue
Universitas Sumatera Utara
lblhim.Text=pen End Sub ' Bilangan Bulat <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub cmdfoto23_click pen= "PEMBAHASAN :"&CRLF&" Perlu kita ingat ada beberapa bilangan yang kita tahu :"&CRLF&"- Bilangan Asli : 1 2 3 4 5 . . ."&CRLF&"- Bilangan Cacah : 0 1 2 3 4 . . ."&CRLF&"Bilangan Bulat : . . . - 4 – 3 -2 – 1 0 1 2 3 4 . . . ."&CRLF&"Untuk menjelaskan ke peserta didik tentang macam bilangan di atas adalah kita mulai dengan bilangan Asli mengapa demikian ? Karena dari sejak kecil secara tidak langsung kita sudah di ajarkan oleh orang tua kita tentang bilangan asli yaitu pada saat belajar mengenal bilangan . kita dikenalkan dengan bilangan 1 , 2 , 3 , 4 ,… menggunakan jari kita bilangan – bilangan yang dikenalkan tersebut adalah merupakan anggota bilangan asli."&CRLF&" "&CRLF&"Kemudian setelah kita mengenal bilangan asli dikembangkan dengan bilangan bulat yang didapat dari perluasan bilangan asli ."&CRLF&"coba perhatikan soal dibawah ini !"&CRLF&"Soal 1"&CRLF&"1 + 2 = 3 "&CRLF&""&CRLF&"Kita tahu bilangan 1 , 2 , dan 3 adalah bilangan asli"&CRLF&""&CRLF&"Kesimpulannya :"&CRLF&""&CRLF&"hasil dari penjumlahan 2 bilangan asli akan menghasilkan bilangan asli."
hal2.Visible=False halbul.Visible=True lblbul.TextColor=Colors.Blue lblbul.Text=pen End Sub
Universitas Sumatera Utara
KEMENTERIAN PENDIDIKAN NASIONAL
UNIVERSITAS SUMATERA UTARA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM(FMIPA)
Jl. Bioteknologi No.1 Kampus USU Telp. (061) 8211050 Fax (061) 8214290 MEDAN – 20155, Email :
[email protected]
KARTU BIMBINGAN TUGAS AKHIR MAHASISWA Nama Mahasiswa
: VINNY PRANATA S
Nomor Induk Mahasiswa
: 112406080
Judul Tugas Akhir
: Aplikasi Belajar Matematika Anak SD Berbasis Android
No
*
Dosen Pembimbing
: Prof.Dr.Opim Salim Sitompul,M.sc
Tanggal Mulai Bimbingan
:
Tanggal Selesai Bimbingan
:
TANGGAL ASISTEN BIMBINGAN
PEMBAHASAN PADA ASISTENSI MENGENAI, PADA BAB
PARAF DOSEN PEMBIMBING
KETERANGAN
Kartu ini harap dikembalikan ke Departemen Matematika bila bimbingan telah selesai.
Diketahui: Prodi D3 Tehnik Informatika, Ketua
Dr. Elly Rosmaini, M.Si NIP. 1960052011985032002
Disetujui: Pembimbing Utama/ Penanggung Jawab
Prof.Dr.Opim Salim Sitompul,M.Sc NIP. 19610817 198701 1 001
Universitas Sumatera Utara
SURAT KETERANGAN Hasil Uji Program Tugas Akhir
Yang bertanda tangan dibawah ini, menerangkan bahwa Mahasiswa Tugas Akhir Program Diploma III Teknik Informatika/Statistika :
Nama
: VINNY PRANATA S
NIM
: 112406080
Prog. Studi
: D3 TEKNIK INFORMATIKA
Judul TA
: Aplikasi Belajar Matematika Anak SD Berbasis Android
Telah melaksanakan test program Tugas Akhir Mahasiswa tersebut di atas pada tanggal Juni 2014
Dengan Hasil : SUKSES / GAGAL
Demikian diterangkan untuk digunakan melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa bersangkutan di Departemen Matematika FMIPA USU Medan.
Medan, Juni 2014 Dosen Pembimbing
Prof.Dr.Opim Salim Sitompul,M.Sc NIP. 19610817 198701 1 001
Universitas Sumatera Utara