Diary Kuli Pabrik

Nama: Frida Fatah Abdullah Aziz
NIM: SIR200913
Dosen: Nahar Mardiyantoro, M.Kom

METODE SIMPLEKS


Alhamdullilah saya telah menyelesaikan kuliah Semester 2, dan kali ini saya memposting "Metode Simpleks" yang saya praktekan pada saat ujian utama pada mata kuliah Pemrograman Matematika.

Metode simpleks merupakan prosedur aljabar yang bersifat iteratif, yang bergerak
step by step, dimulai dari suatu titik ekstrim pada daerah fisibel menuju ke titik ekstrim yang
optimum.


source code tabulasi:
---------------------
Private Sub HSL_Click()
Z1.Text = 1
Z2.Text = 0
Z3.Text = 0
Z4.Text = 0
X1A.Text = (CB * -1)
X1B.Text = CB1
X1C.Text = CB2
X1D.Text = CB3
X2A.Text = (PR * -1)
X2B.Text = PR1
X2C.Text = PR2
X2D.Text = PR3
S1A.Text = 0
S1B.Text = 1
S1C.Text = 0
S1D.Text = 0
S2A.Text = 0
S2B.Text = 0
S2C.Text = 1
S2D.Text = 0
S3A.Text = 0
S3B.Text = 0
S3C.Text = 0
S3D.Text = 1
NK1.Text = 0
NK2.Text = TOTAL1
NK3.Text = TOTAL2
NK4.Text = TOTAL3


End Sub
-------------------------


source code iterasi:
-------------------------
Private Sub DISS_Click()
If Int(X1A) < kk1 =" X1A" kk2 =" X1B" kk3 =" X1C" kk4 =" X1D" caption = "CB" vganti_bp = "CB" kk1 =" X2A" kk2 =" X2B" kk3 =" X2C" kk4 =" X2D" caption = "PR" vganti_bp = "PR" kk2 =" 0" a =" 0" a =" NK2" kk3 =" 0" b =" 0" b =" NK3" kk4 =" 0" c =" 0" c =" NK4"> c Then'
'tak mungkin'

If A < x =" A" f =" KK2" p =" Z2" q =" X1B" r =" X2B" s =" S1B" t =" S2B" u =" S3B" v =" NK2" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z1" text =" X1C" text =" X2C" text =" S1C" text =" S2C" text =" S3C" text =" NK3" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP" a =" c"> C And A > C Then
x = C
F = KK4
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
Label19.Caption = "CB"
ElseIf A <> C And A < x =" A" f =" KK2" p =" Z2" q =" X1B" r =" X2B" s =" S1B" t =" S2B" u =" S3B" v =" NK2" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z1" text =" X1C" text =" X2C" text =" S1C" text =" S2C" text =" S3C" text =" NK3" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP"> c And a = c Then'
'tak mungkin'
'ElseIf a < b =" c"> c Then
'tak mungkin'
ElseIf A < b =" C" x =" A" f =" KK2" p =" Z2" q =" X1B" r =" X2B" s =" S1B" t =" S2B" u =" S3B" v =" NK2" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z1" text =" X1C" text =" X2C" text =" S1C" text =" S2C" text =" S3C" text =" NK3" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP" b =" c" a =" c"> B And B <> C Then
x = B
F = KK3
P = Z3 / F
Q = X1C / F
R = X2C / F
S = S1C / F
T = S2C / F
U = S3C / F
V = NK3 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z4.Text = Z4 - (KK4 * P)
X1D.Text = X1D - (KK4 * Q)
X2D.Text = X2D - (KK4 * R)
S1D.Text = S1D - (KK4 * S)
S2D.Text = S2D - (KK4 * T)
S3D.Text = S3D - (KK4 * U)
NK4.Text = NK4 - (KK4 * V)
Z3.Text = P
X1C.Text = Q
X2C.Text = R
S1C.Text = S
S2C.Text = T
S3C.Text = U
NK3.Text = V
Label18.Caption = VGANTI_BP
ElseIf A > B And B < x =" B" f =" KK3" p =" Z3" q =" X1C" r =" X2C" s =" S1C" t =" S2C" u =" S3C" v =" NK3" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z2" text =" X1B" text =" X2B" text =" S1B" text =" S2B" text =" S3B" text =" NK2" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP"> B And B < a =" C" x =" B" f =" KK3" p =" Z3" q =" X1C" r =" X2C" s =" S1C" t =" S2C" u =" S3C" v =" NK3" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z2" text =" X1B" text =" X2B" text =" S1B" text =" S2B" text =" S3B" text =" NK2" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP"> B And B > C And A > C Then
x = C
F = KK4
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
Label19.Caption = VGANTI_BP


'ElseIf a > b And b > c And a <> b And b > c And a = c Then
'tak mungkin'
'ElseIf a > b And b = c And a > c Then
'tak mungkin'
'ElseIf a > b And b = c And a <> b And b = c And a = c Then
'tak mungkin'
'ElseIf a = b And b <> c Then
'tak mungkin'
'ElseIf a = b And b < a =" b" a =" c" a =" B"> C And A > C Then
x = C
F = KK4
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NKZ2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
Label19.Caption = VGANTI_BP


'ElseIf a = b And b > c And a < a =" b"> c And a = c Then
'tak mungkin'
'ElseIf a = b And b = c And a > c Then
'tak mungkin'
'ElseIf a = b And b = c And a < a =" b" b =" c" a =" c" caption = "CB" text =" NK2" caption = "CB" text =" NK3" caption = "CB" text =" NK4" caption = "PR" text =" NK2" caption = "PR" text =" NK3" caption = "PR" text =" NK4" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8oEhob32LUggZDymo5oaMnx-kSOeJHBff64zoQw9ZJdkv2gj4uDPkP8R_tbgffRpYwQqWpq2b_BCQl48NYRfqHAwqPpO0TsT7cs9qCl70N2Lh4REBDhFccnwaPHF8gCi5ozAWavi_COyq/s1600/tampilan4.jpg">
maaf jika postingan saya masih acak2an,(masih newbie klo nulis2) hehehe
dan juga source code yg saya cantumkan hanya untuk tabulasi dan iterasinya saja, karena source code untuk keluar dan ulang sudah ada pada postingan sebelumnya.
mungkin jika ada yang ingin mengcopy program ini bisa PM saya di "frida_fatah@yahoo.com" atau "frida.fatah@gmail.com"

best regards

FAD-21
-creative never dies-

semoga bermanfaat

Nama: Frida Fatah Abdullah Aziz
NIM: SIR200913
Kuliah: Pemrograman Matematika

1. Pengertian FPB:
Kepanjangan : Faktor persekutuan terbesar
Artinya : Merupakan faktor-faktor pembagi yang paling besar dari suatu bilangan.
Apa sih arti faktor pembagi itu : Angka-angka yang dapat membagi suatu bilangan.
misalnya : faktor pembagi dari angka 10 adalah (cari angka yang dapat membagi angka tersebut) 1, 2, 5, 10
Lihat : faktor pembagi angka 10 = 1, 2, 5, 10 (angka 10 dapat dibagi angka 1, angka 10 dapat dibagi angka 2, angka 10 dapat dibagi angka 5, dan angka 10 dapat dibagi oleh angka 10)

2. Menentukan FPB dengan Visual Basic
a.Pengertian Algoritma Euclid
Salah satu cara mencari FPB adalah dengan algoritma Euclid. Tahun 1950, algoritma pertama kali di gunakan pada “Algoritma Euclidean (Euclid’s algorithm)“.
Euclid, matematikawan Yunani (lahir 350 SM), buku Element menuliskan langkah-langkah untuk menemukan pembagi bersama terbesar (common greatest divisor atau gcd), dari dua buah bilangan bulat, m dan n.
pembagi bersama terbesar dari dua buah bilangan bulat tak negatif adalah bilangan bulat positif terbesar yang habis membagi kedua bilangan tersebut.

Misalnya, m = 80 dan n = 12.
Semua faktor pembagi 80 adalah 1, 2, 4, 5, 8, 10, 16, 20, 40, 80
Semua faktor pembagi 12 adalah 1, 2, 3, 4, 6, 12
maka gcd(80,12) = 4
Langkah-langkah mencari gcd(80,12) dengan algoritma euclidean sbb :
1.80 di bagi 12 = 6, sisa 8 ( atau 80 = 6 * 12 + 8 )
2.12 di bagi 8 = 1, sisa 4 (atau 12 = 1 * 8 + 4)
3.8 di bagi 4 = 2, sisa 0 (atau 8 = 4 * 2 + 0)
Pembagian terkahir menghasilkan 0, maka sisa pembagian terakhir sebelum 0, yaitu 4, menjadi gcd(80,12). Jadi gcd(80,12) = gcd(12,8) = gcd(8,4) = gcd(4,0) =4.
Proses mencari gcd dari 80 dan 12 juga dapat di ilustrasikan dalam diagram berikut ini :


b. Membuat Flowcart.
Sebelum menuju membuat programnya hendaknya kita membuat flowcartnya terlebih dahulu


c. Program

source codde nya:
--------------------------------------------------------------------------
Dim X As Integer
Dim a, b, c, i As Integer
--------------------------------------------------------------------------
Private Sub cmd_search_Click()
a = Val(fpb_a.Text)
b = Val(fpb_b.Text)
If a < b Then
X = b
Else
X = a
End If
Print X
For i = 1 To X
If a Mod i = 0 And b Mod i = 0 Then
c = i
fp.Text = fp.Text & " " & Str(c)
End If

If a Mod i = 0 Then
fak_a.Text = fak_a.Text & " " & Str(i)
End If

If b Mod i = 0 Then
fak_b.Text = fak_b.Text & " " & Str(i)
End If
Next i
thasil.Text = c
End Sub
-------------------------------------------------------------------------
Private Sub cmd_exit_Click()
End
End Sub
-------------------------------------------------------------------------
Private Sub cmd_repeat_Click()
fpb_a.Text = ""
fpb_b.Text = ""
fak_a.Text = ""
fak_b.Text = ""
fp.Text = ""
thasil.Text = ""
fpb_a.SetFocus
End Sub
-------------------------------------------------------------------------
Private Sub Form_Activate()
fpb_a.SetFocus
End Sub
------------------------------------------------------------------------
Private Sub fpb_a_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
fpb_b.SetFocus
End If
End Sub
-------------------------------------------------------------------------


silahkan di coba, semoga bermanfaat

Nama: Frida Fatah Abdullah Aziz
NIM: SIR200913
Kuliah: Pemrograman Matematika


Program mencari factorial


Seperti yang kita ketahui rumus factorial adalah n! = n x (n-

bil = 1
For i = 1 To txtangka.Text
bil = bil * i
Next
txthasil.Text = Str(bil)

Syntax diatas bermakna : dalam melakukan bilangan ini kita gunakan variable Bantu yaitu bil = 1, diberi harga 1 karena kalau tidak akan diberi harga 0. Kemudian untuk fungsi i maka 1 sampai angka yang dimasukkan dalam textbox txtangka.Text maka lakukanlah perintah bil (=1) dikalikan angka-angka yang disebutkan oleh fungsi i dan lakukanlah perulangan (next) sampai angka yang dimasukkan dalam textbox dan tempatkanlah hasil perhitungan tersebut dalam textbox txthasil.Text

-----------------------------------------------------------------------------------------------
berikut ini adalah source code'a:

Dim vbil, vproses As Double
-----------------------------------------------------------------------------------------------
Private Sub factorial_Click()
vbil = Val(tangka.Text)
vproses = 1
For i = 1 To vbil
vproses = i * vproses
Next i

thasil.Text = vproses
End Sub
--------------------------------------------------------------------------------------------
Private Sub exit_Click()
End
End Sub
---------------------------------------------------------------------------------------------
Private Sub input_Click()
tangka.Text = ""
thasil.Text = ""
tangka.SetFocus
End Sub
---------------------------------------------------------------------------------------------

Nama: Frida Fatah Abdullah Aziz
NIM: SIR200913
Kuliah: Pemrograman Matematika

Program mencari bilangan prima


Seperti program diatas buatlah 1 textbox (beri nama misal : txtangka) untuk menampung angka dan 1 buah label (beri nama misal : lblhasil)untuk menampung hasil.
Buat command button Proses, untuk button “INPUT” atau “EXIT” bisa ditambahkan sesuai selera dengan format seperti diatas.Perintah tersebut berarti : khusus untuk angka 1 definisikanlah sebagai “Bukan Prima” dan khusus untuk angka 2 definisikanlah sebagai “Prima” (anda akan melihat ada if dan elseIf itu dikarenakan ada 2 fungsi if yang berlaku dalam syntax tersebut sehingga ketika ada fungsi if lain maka fungsi if berikutnya diberi syntax elseIf. Kemudian perintah perhitungan berikut dalam fungsi tersebut bermakna : lakukanlah perhitungan ke-2 sampai ke-angka yang bersangkutan dikurangi 1 (untuk melakukan fungsi perulangan gunakan fungsi Next). Kenapa hal ini dilakukan? Jawabannya adalah karena kita hanya menyoroti hasil sisa bagi (Mod) dari perhitungan ke-2 sampai angka yang bersangkutan dikurangi 1 saja, karena semua angka prima maupun bukan prima sudah jelas habis dibagi oleh angka 1 dan angka yang itu sendiri jadi yang kita fokuskan adalah perhatian pada penghitungan ke-2 sampai ke-angka dikurangi 1. Jika dalam perhitungan tersebut terdapat sisa hasil bagi (Mod) = 0 maka bilangan tersebut bukan prima.

---------------------------------------------------------------------------------------
berikut ini source code'a:

Private Sub PROSES_Click()
For i = 2 To Text1.Text - 1
If Text1.Text Mod i = 0 Then
Text2.Text = "BUKAN BILANGAN PRIMA"
Exit For
Else
Text2.Text = "BILANGAN PRIMA"
End If
Next i

If Text1.Text = "" Then
pesan = MsgBox("harap mengisi datanya!", vbInformation)
End If

Command1.Enabled = False
Command2.Enabled = True
Command2.SetFocus
End Sub
------------------------------------------------------------------------------------
Private Sub INPUT_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command2.Enabled = False
Command1.Enabled = True
End Sub
----------------------------------------------------------------------------------
Private Sub EXIT_Click()
pesan = MsgBox("yakin anda mo keluar?", vbYesNo + vbQuestion)
If pesan = vbYes Then
End
Else
pesan = vbCancel
End If
End Sub
----------------------------------------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

Nama: Frida Fatah Abdullah Aziz
NIM: SIR200913
Kuliah: Pemrograman Matematika


Buatlah 1 textbox (beri nama misal : txtangka) untuk menampung angka dan 1 buah label (beri nama misal : lblhasil)untuk menampung hasil.
Buat command button Proses, untuk button “PROSES” , "ULANG" atau “KELUAR” bisa ditambahkan sesuai selera dengan format seperti diatas.
Untuk syntax cmdproses kita harus mendefinisikan apa arti bilangan genap dan ganjil.
Bilangan genap : adalah bilangan yang habis dibagi 2
Bilangan ganjil : adalah bilangan yang tidak habis dibagi 2.
Bahasa pemrogramannya adalah :

If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "genap"
Else
Label1.Caption = "ganjil"

Yang berarti jika angka yang dimasukkan ke dalam textbox 1 mempunyai sisa hasil bagi (Mod) = 0 maka bilangan tersebut adalah genap jika tidak maka berarti bilangan itu ganjil.
-------------------------------------------------------------------------------------------------
berikut ini adalah source code'a:

Private Sub CMDKELUAR_Click()
End
End Sub
----------------------------------------------------
Private Sub CMDPROSES_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "GENAP"
Else
Label1.Caption = "GANJIL"
End If
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub
----------------------------------------------------
Private Sub CMDULANG_Click()
Text1.Text = ""
Label1.Caption = ""
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
Text1.SetFocus
End Sub
-----------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CMDPROSES.SetFocus
End If
End Sub
-----------------------------------------------------
Visit My Portfolio Blog FAD-21

Nama: Frida Fatah Abdullah Aziz
NIM: SIR200913
Kuliah: Pemrograman Matematika
Dosen: Nahar Mardiyantoro, S.Kom

Ini adalah postingan lanjutan dari pemrograman matematika sebelumnya, kali ini akan membahas tentang bagaimana mencari himpunan factor persekutuan dalam kaitannya mencari sebuah FPB (Faktor Persekutuan Terbesar). Sebelum jauh melangkah dalam mencari sebuah FPB yang perlu kita ketahui adalah bagaimana cara menentukan himpunan factor persekutuan dari sebuah bilangan. Pengertian factor persekutuan disini adalah bilangan bulat positif yang dapat membagi habis bilangan itu.
Dalam bentuk matematika : x mod y = 0
Dengan x adalah bilangan utama dan y adalah bilangan pembagi.
Misalnya : faktor pembagi dari angka 10 adalah (cari angka yang dapat membagi angka tersebut) 1, 2, 5, 10
Lihat : faktor pembagi angka 10 = 1, 2, 5, 10 (angka 10 dapat dibagi angka 1, angka 10 dapat dibagi angka 2, angka 10 dapat dibagi angka 5, dan angka 10 dapat dibagi oleh angka 10). Faktor-faktor pembagi tersebut membagi angka 10 sampai habis,
Berikut model matematikanya :
10 mod 1 = 0
10 mod 2 = 0
10 mod 5 = 0
10 mod 10 = 0
Untuk membuat sebuah program, logika tersebut kemudian dituangkan dalam syntax coding. Berikut contoh coding program mencari himpunan factor persekutuan menggunakan visual basic :
Private Sub Command1_Click()
vbil = Val(Text1.Text)
For i = 1 To vbil
If vbil Mod i = 0 Then
Text2.Text = Text2.Text + Str(i)
End If
End Sub

Makna coding :
Vbil adalah variabel yang dimasukkan dalam textbox text 1 (inputan angka).
i disini berisi perintah kerjakan perintah dibawah ini dimulai dari angka satu sampai dengan angka yang diinputkan dalam textboxt 1 (vbil).
If vbil Mod i = 0 Then
Text2.Text = Text2.Text + Str(i)
End If

Jika sisa hasil vbil dan i adalah 0 maka cetaklah semua hasil dalam textbox 2 dalam bentuk string. Kenapa harus bentuk string? Hal ini agar kita mendapatkan deret angka-angka yang berurutan dan angka-angka tersebut tidak didefinisikan sebagai value untuk dihitung semua melainkan untuk ditampilkan berjejer.


-semoga bermanfaat-
"creative never dies!!!"

Visit My Portfolio Blog FAD-21

Nama : Frida Fatah Abdullah Aziz
NIM : SIR200913
Kuliah : Pemrograman Matematika

Sesuai judul postingan ini yaitu "menghitung luas persegi panjang" maka kita akan mencoba membuat sebuah program dengan menggunakan Microsoft Visual Basic,
Yups langsung aja kita ke TKP (hehehe), Ikuti Langkah2 berikut ini:
1. Menentukan Rumus'a ( L=p x l )
2. a. buat label dengan caption: Panjang, diikuti textbox dengan nama : txtpanjang dan kosongkan caption-nya.
b. buat label dengan caption: Lebar, diikuti textbox dengan nama : txtlebar dan kosongkan caption-nya.
3. Buat command button dengan nama cmd proses dan caption : PROSES,
double klik command button tersebut sehingga akan muncul :
Private sub_cmd proses click()
End sub
syntax tersebut akan kita isi dengan rumus luas persegi panjang.
L = p x l
Syntaxnya adalah :
Txthasil.text = txtpanjang.text * txtlebar.text
Yang bermakna tempatkanlah hasil perhitungan di kolom txthasil.text dengan rumus perhitungan angka yang dimasukkan ke dalam kolom txtpanjang.text akan dikalikan dengan angka yang dimasukkan ke dalam kolom txtlebar.text.
Jadi syntax cmdproses akan menjadi :
Private sub_cmd proses click()
Txthasil.text = txtpanjang.text * txtlebar.text
End sub
Kita juga dapat menambahkan fungsi agar user dapat melakukan penghitungan dalam program tersebut tanpa harus menutup dan membuka kembali program tadi. Buatlah command button dengan caption: “LAGI” , kemudian isi dengan syntax :
Txtpanjang.text = “”
Txtlebar.text = “”
Txt.panjang.setFocus
(“”) tanda kutip tersebut menunjukkan fungsi untuk mengosongkan textbox dan setFocus mengarahkan kursor ke textbox yang dituju dalam hal ini adalah textbox dari txtpanjang.
Anda juga dapat membuat tombol untuk fungsi keluar dari program yaitu dengan menggunakan command button, beri nama : EXIT (atau terserah anda), kemudian pada syntaxnya hanya ditambahkan kata “end”, contoh:
Privat sub cmdproses_click()
End
End Sub
-----------------

yeah ini salah satu contoh tugas pada kuliah Pemrograman Matematika yang dikerjakan menggunakan program Visual Basic 6.0

Visit My Portfolio Blog FAD-21