Membuat Program Mencari Rata-rata Bilangan Ganjil/Genap dengan Input Nilai Awal dan Akhir Menggunakan Visual Basic

Desain Form

Source Code

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdulang_Click()
Txt1.SetFocus
Txt1.Text = ""
Txt2.Text = ""
Opsiganjil.Value = False
Opsigenap.Value = False
cboperulangan = "Pilih Jenis Perulangan"
lbljumlah.Caption = ""
lblrata.Caption = ""
List1.Clear
End Sub

Private Sub Cboperulangan_click()
Dim awal, akhir As String
Dim jum, rata As Double
awal = Txt1.Text
akhir = Txt2.Text
If awal = "" And akhir = "" Then
MsgBox "NILAI AWAL DAN NILAI AKHIR BELUM ANDA INPUTKAN !!!"
ElseIf awal = "" Or akhir = "" Then
MsgBox "NILAI AWAL ATAU NILAI AKHIR BELUM ANDA INPUTKAN !!!"
ElseIf Opsiganjil.Value = False And Opsigenap.Value = False Then
MsgBox "PILIHAN BILANGAN BELUM DIPILIH !!!"
ElseIf cboperulangan = "For" And Opsiganjil.Value = True Then
List1.Clear
If awal <= akhir Then
For i = awal To akhir
If i Mod 2 = 1 Then
List1.AddItem i
jum = jum + i
awal = awal + 2
n = n + 1
End If
Next i
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "Do While" And Opsiganjil.Value = True Then
List1.Clear
If awal <= akhir Then
Do
If awal Mod 2 = 1 Then
List1.AddItem (awal)
n = n + 1
jum = jum + awal
End If
awal = awal + 1
Loop While awal <= akhir
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "Do Until" And Opsiganjil.Value = True Then
List1.Clear
If awal <= akhir Then
Do
If awal Mod 2 = 1 Then
List1.AddItem (awal)
n = n + 1
jum = jum + awal
End If
awal = awal + 1
Loop Until awal > akhir
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "For" And Opsigenap.Value = True Then
List1.Clear
If awal <= akhir Then
For i = awal To akhir
If i Mod 2 = 0 Then
List1.AddItem i
jum = jum + i
m = m + i
n = n + 1
End If
Next i
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "Do While" And Opsigenap.Value = True Then
List1.Clear
If awal <= akhir Then
Do
If awal Mod 2 = 0 Then
List1.AddItem (awal)
n = n + 1
jum = jum + awal
End If
awal = awal + 1
Loop While awal <= akhir
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "Do Until" And Opsigenap.Value = True Then
List1.Clear
If awal <= akhir Then
Do
If awal Mod 2 = 0 Then
List1.AddItem (awal)
n = n + 1
jum = jum + awal
End If
awal = awal + 1
Loop Until awal > akhir
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

End If
End Sub

Private Sub Form_Load()
cboperulangan.AddItem "For"
cboperulangan.AddItem "Do While"
cboperulangan.AddItem "Do Until"
End Sub

SILAHKAN DOWNLOAD PROGRAMNYA DISINI

Program Pencarian Simpangan Baku dengan Microsoft Visual Basic 6.0

Desain form

Source Code

Private Sub Cmdhitung_Click()

Dim i, n, jum, jumkuadrat, simpanganbaku, rata As Double

For i = 0 To List1.ListCount - 1

jum = jum + Val(List1.List(i))

jumkuadrat = jumkuadrat + (List1.List(i)) ^ 2

n = n + 1

Next i

rata = jum / n

simpanganbaku = Sqr(((n * jumkuadrat) - (jum ^ 2)) / (n * (n - 1)))

lbljumlah.Caption = jum

lblrata.Caption = rata

lblsb.Caption = simpanganbaku

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdulang_Click()

List1.SetFocus

List1.Clear

lbljumlah.Caption = ""

lblrata.Caption = ""

lblsb.Caption = ""

End Sub

Private Sub Txt1_keypress(keyascii As Integer)

Dim a As Integer

a = Val(Txt1.Text)

If keyascii = 13 Then

List1.AddItem a

Txt1.Text = ""

End If

End Sub

Silahkan download programnya disini

Contoh Tugas Microsoft Excel

Tugas MS Excel

Indonesia Pada Masa Reformasi

Indonesia Pada Masa Reformasi

Melukis Sudut 36

OBuat lingkaran dan sudut 90°.

OBagi r lingkaran menjadi dua pada titik C.

ODari titik C jangkaukan sepanjang R sehingga memotong AB di D.

OJangkaukan OD pada keliling lingkaran dimulai dari E.

ODari titik O tarik garis ke F sehingga terbentuk sudut 36°.

BUKU AJAR PENGANTAR STRUKTUR ALJABAR 1 (PSA 1) UNIVERSITAS NEGERI SEMARANG

BUKU AJAR

Mata Kuliah : Pengantar Struktur Aljabar 1

No. Kode Mata Kuliah : MAT205

Semester : 3

Nama Dosen : Isnarto, S.Pd, M.Si

NIP : 132092853

Jurusan/Program Studi : Matematika/ S-1 Matematika,

S-1 Pend. Matematika

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS NEGERI SEMARANG

2008

Pengantar_struktur_aljabar1

Contoh Program Pascal menggunakan if .. then

program point1;

uses wincrt;

var point:byte;

begin

write('masukkan point anda =');readln(point);

If point>100 Then

Writeln('Selamat Anda Menang')

else

writeln('Anda Belum Beruntung');

end.

Program Pascal untuk Menghitung Luas dan Volume

1.       Luas Segitiga

program segitiga;

uses wincrt;

var a,t,l:real;

begin

     writeln('                       ==============================');

     writeln('                       ==*Menghitung Luas Segitiga*==');

     write('================================================================================');

     writeln;

     writeln;

     write('Masukkan alas segitiga    = '); readln(a);

     write('Masukkan tinggi segitiga  = '); readln(t);

     writeln;

     l:=1/2*a*t;

     write('Maka luas segitiga        =',l:5:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

2.       Luas Bujur Sangkar

program bujur_sangkar;

uses wincrt;

var s,l:real;

begin

     writeln('                      ===================================');

     writeln('                      ==*Menghitung Luas Bujur Sangkar*==');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan sisi bujur sangkar    = '); readln(s);

     writeln;

     l:=s*s;

     write('Maka luas bujur sangkar        =',l:5:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

3.       Luas Lingkaran

program lingkaran;

uses wincrt;

var r,luas:real;

begin

     writeln('                    =====================================');

     writeln('                    =====*Menghitung Luas Lingkaran*=====');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan jari-jari lingkaran = '); readln(r);

     writeln;

     luas:=3.14*r*r;

     write('Maka luas lingkaran          =',luas:6:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

4.       Luas Persegi Panjang

program persegi_panjang;

uses wincrt;

var p,l,luas:real;

begin

     writeln('                    =====================================');

     writeln('                    ==*Menghitung Luas Persegi Panjang*==');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan panjang persegi panjang = '); readln(p);

     write('Masukkan lebar persegi panjang   = '); readln(l);

     writeln;

     luas:=p*l;

     write('Maka luas persegi panjang        =',luas:5:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

5.       Volume Balok

program balok;

uses wincrt;

var p,l,t,v:real;

begin

     writeln('                    =====================================');

     writeln('                    ======*Menghitung Volume balok*======');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan panjang balok = '); readln(p);

     write('Masukkan lebar balok   = '); readln(l);

     write('Masukkan tinggi balok  = '); readln(t);

     writeln;

     v:=p*l*t;

     write('Maka volume balok      =',v:6:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

6.       Volume Bola

program bola;

uses wincrt;

var r,v:real;

begin

     writeln('                    ====================================');

     writeln('                    ======*Menghitung Volume Bola*======');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan jari-jari bola = '); readln(r);

     writeln;

     v:=4/3*(3.14*r*r*r);

     write('Maka volume bola        =',v:8:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

7.       Volume Kubus

program kubus;

uses wincrt;

var s,v:real;

begin

     writeln('               =====================================');

     writeln('                    ======*Menghitung Volume kubus*======');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan sisi kubus = '); readln(s);

     writeln;

     v:=s*s*s;

     write('Maka volume kubus   =',v:5:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

8.       Volume Kerucut

program kerucut;

uses wincrt;

var r,t,v:real;

begin

     writeln('                    =====================================');

     writeln('                    =====*Menghitung Volume kerucut*=====');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan jari-jari kerucut = '); readln(r);

     write('Masukkan tinggi kerucut    = '); readln(t);

     writeln;

     v:=(3.14*r*r*t)/3;

     write('Maka volume kerucut      =',v:6:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

9.       Volume Tabung

program tabung;

uses wincrt;

var r,t,v:real;

begin

     writeln('                    ====================================');

     writeln('                    =====*Menghitung Volume Tabung*=====');

     writeln('================================================================================');

     writeln;

     writeln;

     write('Masukkan jari-jari tabung = '); readln(r);

     write('Masukkan tinggi tabung    = '); readln(t);

     writeln;

     v:=3.14*r*r*t;

     write('Maka volume tabung        =',v:6:2);

     writeln;

     writeln;

     writeln;

     writeln;

     write('================================================================================');

     writeln('                      ==*Selvidiah Mutiara_4111412061*==');

     writeln('                      ==================================');

end.

Contoh Program Perulangan Sederhana dalam Pascal

For…to…do

program kelipatan_3;

uses wincrt;

var i:integer;

begin

writeln('kelipatan 3 sampai 21:');

for i:=3 to 21 do

if i mod 3 =0 then

writeln(i);

end.

While…do…

Inisialisasi=1

Program whiledo1;

Uses wincrt;

Var i:byte;

Begin

     Writeln('Kelipatan 7 sampai 70:');

     i:=1;

     While i<=70 Do

     Begin

          If i mod 7 = 0 then

          Writeln(i);

          i:=i+1;

          end; 

end.

Inisialisasi=0

Program whiledo0;

Uses wincrt;

Var i:byte;                                

Begin

     Writeln('Bilangan cacah ganjil sampai 20:');

     i:=0;

     While i<=20 Do

     Begin

          If i mod 2 = 1 then

          Writeln(i);

          i:=i+1;

          end; 

end.

Repeat…until

Inisialisasi=0

program rufaktorial;

uses wincrt;

var

i,n,f:integer;

begin

     write('n = '); read(n);

     i:=0;

     f:=1;

     repeat

       i:=i+1;

       f:=f*i;

     until i=n;

       writeln(n,' faktorial = ',f);

end.

Inisialisasi=1

Program ru1;

Uses wincrt;

Var x:integer;

Begin

x:=1;

repeat

writeln(x,'. Selvidiah Mutiara adalah seorang Mahasiswi Prodi Matematika');

x:=x+1;

until x>9;

end.

PERINTAH SELEKSI DALAM PASCAL

Bahasa pemrograman Pascal memiliki kemampuan untuk melakukan pemilihan terhadap beberapa alternatif yang ada. Sebuah aksi atau statemen akan dilaksanakan apabila sebuah kondisi terpenuhi. Pemilihan ini tidak hanya berlaku untuk satu buah kondisi tetapi juga dapat beberapa kondisi.

A. Perintah Seleksi If … Then …

Kondisi merupakan ekspresi yang bernilai logika yaitu bernilai benar atau salah. Jika pernyataan yang akan dieksekusi oleh If ketika kondisi bernilai benar hanya berupa sebuah pernyataan, maka dapat dituliskan dalam satu baris sebagai berikut :

If < kondisi 1 > Then < pernyataan >

Contoh

If nilai>75 Then Writeln(‘A’);

Jika pernyataan yang akan dieksekusi oleh If ketika kondisi bernilai benar namun berupa beberapa pernyataan, maka di awal pernyataan harus diawali dengan begin dan di akhir pernyataan yang terakhir harus diakhiri dengan end. Struktur perintah seleksi tersebut adalah sebagai berikut :

If < kondisi 1 > Then

Begin

   < pernyataan_1 >

   < pernyataan_2 >

                End;

Contoh

If nilai>75 Then

Begin

   Writeln(‘A’);

      Writeln(‘Anda Lulus’);

End;

B. Perintah Seleksi If … Then … Else

Struktur perintah seleksi If … Then ... Else memungkin programmer melakukan spesifikasi untuk menyatakan kondisi yang benar dan salah. Kondisi merupakan ekspresi yang bernilai logika yaitu bernilai benar atau salah. Jika pernyataan yang akan dieksekusi oleh If ketika kondisi bernilai benar hanya berupa sebuah pernyataan :

Struktur Perintah Seleksi If … Then … Else

If < kondisi 1 > Then

pernyataan

       Else

    Pernyataan;

Jika hanya terdapat satu pernyataan pada kondisi pertama maka tidak menggunakan titik koma diakhir pernyataan tersebut. Jika hanya ada satu pernyataan setelah else maka diakhir pernyataan tersebut menggunakan titik koma.

Contoh

Membuat Program Kelulusan. Jika nilai lebih atau sama dengan 60 maka cetak lulus. Jika tidak cetak tidak lulus.

Program :

If nilai>=60 Then

Writeln(’Lulus’)

Else

Writeln(’Tidak Lulus’);

Jika pernyataan yang akan dieksekusi oleh If ketika kondisi bernilai benar dan berupa beberapa pernyataan, maka dapat dituliskan sebagai berikut :

If < kondisi 1 > Then

Begin

Pernyataan_1

Pernyataan_2

       End

       Else

       Begin

Pernyataan_1

Pernyataan_2

End;

Jika ada dua atau lebih pernyataan di dalam if … then … else … maka harus diawali dengan Begin dan End. End Sebelum else tidak menggunakan titik koma. Namun Pernyataan didalam begin dan end diakhiri dengan titik koma. Sedangkan End terakhir menggunakan titik koma.

Contoh :

Membuat Program Kelulusan. Jika nilai lebih atau sama dengan 60 maka cetak ’Lulus’ dan cetak ’Anda dapat sertifikat’. Jika tidak cetak ’Tidak lulus’ dan cetak ’Anda tidak mendapat sertifikat’.

Program

If nilai>=60 Then

Begin

Writeln(’Lulus’);

Writeln(’Anda dapat Sertifikat’);

End;

Else

Begin

   Writeln(’Tidak Lulus’);

   Writeln(’Anda tidak dapat Sertifikat’)

End;

Berikut adalah struktur if ... then ... else ... jika ada tiga kondisi atau lebih :

If < kondisi 1 > Then

Pernyataan

       Else If < kondisi 2 > Then

   Pernyataan

       Else

    Pernyataan;

Selama menemukan else di dalam struktur if ... then … maka pernyataan tidak diakhiri dengan titik koma atau jika didalamnya terdapat dua pernyataan atau lebih dan menemukan else maka End juga tidak diakhiri dengan titik koma.

If nilai > 85 Then

Writeln(‘A’)

Else If nilai > 75 Then

       Writeln(‘B’)

Else If nilai > 60 Then

       Writeln(‘C’)

Else If nilai > 50 Then

       Writeln(‘D’)

Else

       Writeln(‘E’);

C. Perintah Seleksi Case - Of

Pernyataan case .. of merupakan perluasan dari pernyataan if. Untuk pemilihan yang terdiri dari banyak kondisi, struktur if melakukan pengecekan terhadap setiap kondisi, bila satu kondisi tidak terpenuhi baru akan dilanjutkan pada kondisi yang berikutnya. Berbeda dengan pernyataan if, penyataan case melakukan pengecekan dengan pemilihan kondisi yang sesuai parameter yang ada.

Pernyataan case dapat dituliskan dengan struktur sebagai berikut:

Case < kondisi > Of

Nilai_1 : Pernyataan_1;

Nilai_2 : Pernyataan_2;

Nilai_3 : Pernyataan_3;

…

   Nilai_n : Pernyataan_n;

End ; { end dari case }

Nilai pada pernyataan case dapat berupa konstanta, range dari konstanta  yang bukan bertipe real. Pada program dibawah nilai berupa huruf.

Program nilai;

Var nil : Char ;

Begin

Write ('Nilai Numerik yang didapat :');

Readln (nil);

Case nil Of

'A': Writeln ('Sangat Baik’);

'B': Writeln('Baik’);

'C': Writeln('Cukup');

'D': Writeln('Kurang');

'E': Writeln('Sangat Kurang');

End;

End.

hasil :

Nilai Numerik yang didapat : B (Input)

Baik

Pada program dibawah nilai berupa angka.

Program Hari;

Var h : angka ;

Begin

Write ('Ini Angka :');

Readln (h);

Case h Of

1: Writeln ('Satu');

2: Writeln('Dua');

3: Writeln('Tiga');

4: Writeln('Empat');

5: Writeln('Lima');

End;

End.

hasil :

Ini Angka : 1

Satu