Program selisih tehingga biasa

Assalamua'laikum..

selamat malam semua, akhirnya saya disini bisa posting juga untuk kali ini saya akan posting untuk bahasa pemograman Visual Basic 6.0. saya disini akan coba untuk program sederhana untuk perhitungan selisih terhingga biasa,,,, ok tanpa basa -basi langsung aja ke TKP..

1. Langkah pertama yang anda yang lakukan adalah buka kolor vb 6.0 klik new application
2. Klik standart exe
3. Buat form dan ikuti sesuai gambar di bawah ini

copy kan source code di bawah ini:

Sub kosong()
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
Label14.Caption = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
Text22.Text = ""
Text23.Text = ""
Text24.Text = ""
Text25.Text = ""
Text26.Text = ""
Text27.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
End Sub

Sub tbdk()
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
Text16.Enabled = False
Text17.Enabled = False
Text18.Enabled = False
Text19.Enabled = False
Text20.Enabled = False
Text21.Enabled = False
Text22.Enabled = False
Text23.Enabled = False
End Sub


'mengisi data pada combo

Sub data()
Combo1.AddItem "X^3"
Combo3.AddItem "X^2"
Combo5.AddItem "X"
Combo2.AddItem "+"
Combo2.AddItem "-"
Combo4.AddItem "+"
Combo4.AddItem "-"
Combo6.AddItem "+"
Combo6.AddItem "-"
End Sub

' mencari nilai F(X)
Sub fx()
Text4.Text = (Text24.Text * (Label5.Caption ^ 3)) + (Text28.Text * (Label5.Caption ^ 2)) + (Text29.Text * (Label5.Caption)) + (Text30.Text)
Text5.Text = (Text24.Text * (Label6.Caption ^ 3)) + (Text28.Text * (Label6.Caption ^ 2)) + (Text29.Text * (Label6.Caption)) + (Text30.Text)
Text6.Text = (Text24.Text * (Label7.Caption ^ 3)) + (Text28.Text * (Label7.Caption ^ 2)) + (Text29.Text * (Label7.Caption)) + (Text30.Text)
Text7.Text = (Text24.Text * (Label8.Caption ^ 3)) + (Text28.Text * (Label8.Caption ^ 2)) + (Text29.Text * (Label8.Caption)) + (Text30.Text)
Text8.Text = (Text24.Text * (Label9.Caption ^ 3)) + (Text28.Text * (Label9.Caption ^ 2)) + (Text29.Text * (Label9.Caption)) + (Text30.Text)
End Sub

' mencari nilai /\ 1
Sub sigma1()
Text9.Text = (Text5.Text - Text4.Text)
Text10.Text = (Text6.Text - Text5.Text)
Text11.Text = (Text7.Text - Text6.Text)
Text12.Text = (Text8.Text - Text7.Text)
End Sub

' mencari nilai /\2
Sub sigma2()
Text14.Text = (Text10.Text - Text9.Text)
Text15.Text = (Text11.Text - Text10.Text)
Text16.Text = (Text12.Text - Text11.Text)
End Sub

' mencari nilai /\3
Sub sigma3()
Text19.Text = (Text15.Text - Text14.Text)
Text20.Text = (Text16.Text - Text15.Text)
End Sub

Private Sub Command4_Click()
Call kosong
Text24.SetFocus
Command1.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Command5_Click()
Call sigma1
End Sub

Private Sub Command6_Click()
Call sigma2
End Sub

Private Sub Command7_Click()
Call sigma3
End Sub

' saat di run mana dulu yang akif
Private Sub Form_Activate()
Text24.SetFocus
End Sub

' saat di run mana dulu di load
Private Sub Form_Load()
Call tbdk
Call kosong
Call data
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Command1.Enabled = False
Command3.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
End Sub

' mendefinisikan soal
Private Sub Command2_Click()
Call jika
Call jika1
Call jika2
Label14.Caption = Text24.Text + Combo1.Text + Text28.Text + Combo3.Text + Text29.Text + Combo5.Text + Text30.Text
Command1.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text1.SetFocus
End Sub

' mencari nilai X
Private Sub Command1_Click()
Call aturan
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Call jika3
Call jika4
Call jika5
' memanggil rumus fx
Call fx
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
End Sub

Sub jika3()
If Text24.Text = "" Then
Text24.Text = "1"
End If
End Sub

Sub jika4()
If Text25.Text = "" Then
Text25.Text = "1"
End If
End Sub

Sub jika5()
If Text26.Text = "" Then
Text26.Text = "1"
End If
End Sub

Sub jika()
If Combo2.Text = "-" Then
Text28.Text = -1 * Text25.Text
Else
If Combo2.Text = "+" Then
Text28.Text = Combo2.Text + Text25.Text
End If
End If
End Sub

Sub jika1()
If Combo4.Text = "-" Then
Text29.Text = -1 * Text26.Text
Else
If Combo4.Text = "+" Then
Text29.Text = Combo4.Text + Text26.Text
End If
End If
End Sub

Sub jika2() 
If Combo6.Text = "-" Then Text30.Text = -1 * Text27.Text 
Else If Combo6.Text = "+" Then Text30.Text = Combo6.Text + Text27.Text 
End If 
End If 
End Sub 

Sub ilang()
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
End Sub 

Sub aturan() 
If Text1.Text = "" Then Call ilang MsgBox " variable x gk boleh ada yang kosong " 
Else Label5.Caption = Text1.Text Label6.Caption = Text1.Text + 2 - 2 + Text2.Text Label7.Caption = Label6.Caption + 2 - 2 + Text2.Text Label8.Caption = Label7.Caption + 2 - 2 + Text2.Text Label9.Caption = Label8.Caption + 2 - 2 + Text2.Text If Label9.Caption = Text3.Text Then Command3.Enabled = True Command3.SetFocus
 Else 
MsgBox " maaf hanya 5 variable x " 
Call kosong 
Text1.SetFocus 
End If 
End If 
End Sub 

Tralaaaaa... Coba Temen temen jalankan...dan hasilnya akan seperti ini..

ok cukup sekian dari saya
semoga bermanfaat yach buat teman- teman..
wassalam.