visual basic1 tugas ke 4

nama:fanny ridho juanda

kelas:twiterr 12

npm:12201156

 

 

 

 

FANY2

 Private Sub Command1_Click()
 Dim S As String
 S = Mid(Combo1.Text, 3, 3)
 If S = "SIM" Then
 TXTfanny1.Text = "Sistem Informasi Manajemen"
 TXTfanny2.Text = "Yati Nur Oktavia"
 TXTfanny5.Text = 75900
 ElseIf S = "EDP" Then
 TXTfanny1.Text = "Elektronik Data Processing"
 TXTfanny2.Text = "Imam Tarmizi"
 TXTfanny5.Text = 62000
 ElseIf S = "MNJ" Then
 TXTfanny1.Text = "Manajemen"
 TXTfanny2.Text = "Valentina Mariana Adiwiyanti"
 TXTfanny5.Text = 42000
 ElseIf S = "CDR" Then
 TXTfanny1.Text = "Corel Draw"
 TXTfanny2.Text = "Riyan Suhandi"
 TXTfanny5.Text = 53000
 ElseIf S = "RLP" Then
 TXTfanny1.Text = "Rekayasa Perangkat Lunak"
 TXTfanny2.Text = "Sinta Umpu Singa"
 TXTfanny5.Text = 83000
 End If
 S = Left(Combo1.Text, 1)
 If S = "A" Then
 TXTfanny4.Text = "Andi Offset Yogyakarta"
 ElseIf S = "I" Then
 TXTfanny4.Text = "Indah Surabaya"
 ElseIf S = "S" Then
 TXTfanny4.Text = "Salemba Empat"
 ElseIf S = "E" Then
 TXTfanny4.Text = "Elek Media Komputindo"
 ElseIf S = "M" Then
 TXTfanny4.Text = "Maxicom"
 End If

 S = Right(Combo1.Text, 2)
 If S = "01" Then
 TXTfanny3.Text = "2001"
 ElseIf S = "02" Then
 TXTfanny3.Text = "2002"
 ElseIf S = "03" Then
 TXTfanny3.Text = "2003"
 ElseIf S = "04" Then
 TXTfanny3.Text = "2004"
 ElseIf S = "05" Then
 TXTfanny3.Text = "2005"
 End If
 End Sub

 Private Sub Command2_Click()
 Combo1.Text = ""
 TXTfanny1.Text = ""
 TXTfanny2.Text = ""
 TXTfanny3.Text = ""
 TXTfanny4.Text = ""
 TXTfanny5.Text = ""
 TXfanny1.SetFocus
 End Sub

 Private Sub Command3_Click()
 Combo1.Text = ""
 TXTfanny1.Text = ""
 TXTfanny2.Text = ""
 TXTfanny3.Text = ""
 TXTfanny4.Text = ""
 TXTfanny5.Text = ""
 TXTfanny1.SetFocus
 End Sub

 Private Sub Command4_Click()
 End
 End Sub

 Private Sub Form_Load()
 Combo1.AddItem "A-SIM-01"
 Combo1.AddItem "I-EDP-02"
 Combo1.AddItem "S-MNJ-03"
 Combo1.AddItem "E-CDR-04"
 Combo1.AddItem "M-RLP-05"
end sub
FANY1

Private Sub Command1_Click()
Dim S As String
S = Mid(Text1.Text, 1, 3)
If S = "SIM" Then
TXTfanny1.Text = "Sistem Informasi Manajemen"
TXTfanny2.Text = "Fadiya Ulfa"
TXTfanny5.Text = 75900
ElseIf S = "EDP" Then
TXTfanny1.Text = "Elektronik Data Processing"
TXTfanny2.Text = "Nurul Agustina"
TXTfanny5.Text = 62000
ElseIf S = "MNJ" Then
TXTfanny1.Text = "Manajemen"
TXTfanny2.Text = "Rian Hidayat"
TXTfanny5.Text = 42000
ElseIf S = "CDR" Then
TXTADI1.Text = "Corel Draw"
TXTADI2.Text = "Siti Nur Khotimah"
TXTADI5.Text = 53000
ElseIf S = "RPL" Then
TXTfanny1.Text = "Rekayasa Perangkat Lunak"
TXTfanny2.Text = "Winda Erlianti"
TXTfanny5.Text = 83000
End If
S = Right(Text1.Text, 1)
If S = "A" Then
TXTfanny4.Text = "Andi Offset Yogyakarta"
ElseIf S = "I" Then
TXTfanny4.Text = "Indah Surabaya"
ElseIf S = "S" Then
TXTfanny4.Text = "Salemba Empat"
ElseIf S = "E" Then
TXTfanny4.Text = "Elek Media Komputindo"
ElseIf S = "M" Then
TXTfanny4.Text = "Maxicom"
End If

S = Mid(Text1.Text, 5, 2)
If S = "09" Then
TXTfanny3.Text = "2009"
ElseIf S = "10" Then
TXTfanny3.Text = "2010"
ElseIf S = "11" Then
TXTfanny3.Text = "2011"
ElseIf S = "12" Then
TXTfanny3.Text = "2012"
ElseIf S = "13" Then
TXTfanny3.Text = "2013"
End If
End Sub

Private Sub Command2_Click()
Combo1.Text = ""
TXTfanny1.Text = ""
TXTfanny2.Text = ""
TXTfanny.Text = ""
TXTfanny4.Text = ""
TXTfanny5.Text = ""
TXTfanny1.SetFocus
End Sub

Private Sub Command3_Click()
TXTfanny1.Text = ""
TXTfanny2.Text = ""
TXTfanny3.Text = ""
TXTfanny4.Text = ""
TXTfanny5.Text = ""
TXTfanny1.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub
FANY3

Private Sub Command1_Click()
Dim S As String
S = Mid(txtfanny11.Text, 1, 4)
txtfanny4.Text = S

S = Mid(txtAdi11.Text, 5, 1)
If S = "A" Then
txtfanny1.Text = "A"
txtfanny5.Text = "Manajer"
txtfanny7.Text = "4000000"
txtfanny8.Text = "1025000"
txtfanny9.Text = (Val(txtfanny7.Text) + Val(txtfanny8.Text))
ElseIf S = "B" Then
txtfanny1.Text = "B"
txtfanny5.Text = "Ka. Seksi"
txtfanny7.Text = "3500000"
txtAdi8.Text = "975000"
txtfanny9.Text = (Val(txtfanny7.Text) + Val(txtfanny8.Text))
ElseIf S = "C" Then
txtfanny1.Text = "C"
txtfanny5.Text = "Staff"
txtfanny7.Text = "3000000"
txtfanny8.Text = "925000"
txtfanny9.Text = (Val(txtfanny7.Text) + Val(txtfanny8.Text))
End If

S = Mid(txtfanny11.Text, 7, 1)
If S = "S" Then
txtfanny2.Text = "S"
txtfanny3.Text = "Single"
ElseIf S = "M" Then
txtfanny2.Text = "M"
txtfanny3.Text = "Menikah"
ElseIf S = "J" Then
txtfanny2.Text = "J"
txtfanny3.Text = "Janda"
ElseIf S = "D" Then
txtfanny2.Text = "D"
txtfanny3.Text = "Duda"
End If
S = Right(txtfanny11.Text, 3)
If S = "KEU" Then
txtfanny6.Text = "Accounting"
ElseIf S = "ADM" Then
txtfanny6.Text = "Administrasi"
ElseIf S = "SDM" Then
txtAdi6.Text = "General Affair"
ElseIf S = "EDP" Then
txtfanny6.Text = "IT Unit"
ElseIf S = "SPM" Then
txtfanny6.Text = "Security"
End If
End Sub

Private Sub Command2_Click()
txtfanny1.Text = ""
txtfanny2.Text = ""
txtfanny3.Text = ""
txtfanny4.Text = ""
txtfanny5.Text = ""
txtfanny6.Text = ""
txtfanny7.Text = ""
txtfanny8.Text = ""
txtfanny9.Text = ""
txtfanny10.Text = ""
txtfanny11.Text = ""
txtfanny10.SetFocus
End Sub

Private Sub Command3_Click()
txtfanny1.Text = ""
txtfanny2.Text = ""
txtfanny3.Text = ""
txtfanny4.Text = ""
txtfanny5.Text = ""
txtfanny6.Text = ""
txtfanny7.Text = ""
txtfanny8.Text = ""
txtfannny9.Text = ""
txtfanny10.Text = ""
txtfanny11.Text = ""
txtfanny10.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub


maaf pak telat

 

 

Leave a comment

Filed under Uncategorized

Tugas 3 vb 10 program

Nama:fanny ridho juanda

kelas:twitter 12

npm:12201156

 

1.kakutator sederhana

5-md-perhitungan-diskon

Source Code :
C = Val(A.Text) + Val(B.Text)
End Sub

Private Sub Command2_Click()
C = Val(A.Text) – Val(B.Text)
End Sub

Private Sub Command3_Click()
C = Val(A.Text) * Val(B.Text)
End Sub

Private Sub Command4_Click()

Private Sub Command1_Click()
C = Val(A.Text) / Val(B.Text)
End Sub

Private Sub Command5_Click()
C = Val(A.Text) ^ Val(B.Text)
End Sub

Private Sub Command6_Click()
A.Text = Clear
B.Text = Clear
C.Text = Clear
A.SetFocus
End Sub

Private Sub Command7_Click()
End
End Sub

2.properti test

properti-test

Source Kode :

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value

End sub

3.font color

md-font-color

Source Kode :

Private Sub chkBold_Click()
‘membuat teks tebal
If chkBold.Value = 1 Then
lblTeks.FontBold = True
Else
lblTeks.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
‘membuat teks miring
If chkItalic.Value = 1 Then
lblTeks.FontItalic = True
Else
lblTeks.FontItalic = False
End If
End Sub

Private Sub chkStrike_Click()
‘membuat teks bergaris tengah
If chkStrike.Value = 1 Then
lblTeks.FontStrikethru = True
Else
lblTeks.FontStrikethru = False
End If
End Sub

Private Sub chkUnder_Click()
‘membuat teks bergaris bawah
If chkUnder.Value = 1 Then
lblTeks.FontUnderline = True
Else
lblTeks.FontUnderline = False
End If
End Sub

Private Sub cmdExit_Click()
End sub

4.data nama pasien

data-nama-pasien

Source kode

Private Sub Form_Load()
Text3 = Format(Now, “DD-MMMM-YYYY”)
Text4 = Format(Now, “HH:MM”)
Text3.Enabled = False
Text4.Enabled = False

Combo1.AddItem “PRIA”
Combo1.AddItem “WANITA”
End Sub

Private Sub Text1_keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text5_keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text6.SetFocus
End If
End Sub
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text5.Text = “”
Text6.Text = “”

5.penghitungan gaji

aplikasi-perhitungan-gaji

Surce kode :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.2
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End If
End Sub

Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.2
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

6.perhitungan diskon

5-md-perhitungan-diskon

Source Kode :

Private Sub Combo1_Click()
Combo1.AddItem “ABA”
Combo1.AddItem “AMIK”
Combo1.AddItem “AKA”
End Sub

Private Sub Combo2_Click()
If Combo2 = “MI-0101-KTI” Then
Text4.Text = “Konsep Teknologi Informasi”
Text5.Text = “4″
Text6.Text = “20000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0102-PA” Then
Text4.Text = “Penghantar Akutansi”
Text5.Text = “4″
Text6.Text = “25000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0103-LA” Then
Text4.Text = “Logika ALgoritma”
Text5.Text = “3″
Text6.Text = “30000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0104-MD” Then
Text4.Text = “Matematika Dasar”
Text5.Text = “2″
Text6.Text = “15000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-LS” Then
Text4.Text = “Listening”
Text5.Text = “4″
Text6.Text = “25000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-SP” Then
Text4.Text = “speaking”
Text5.Text = “3″
Text6.Text = “40000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-CV” Then
Text4.Text = “Conversation”
Text5.Text = “2″
Text6.Text = “35000″
Text6.SetFocus
Else
End If
End Sub

Private Sub Command1_Click()
Text9.Text = Val(Text7.Text) – Val(Text8.Text)
End Sub

Private Sub Form_Load()
Combo1.AddItem “ABA”
Combo1.AddItem “AMIK”
Combo1.AddItem “AKA”
Combo2.AddItem “MI-0101-KTI”
Combo2.AddItem “MI-0102-PA”
Combo2.AddItem “MI-0103-LA”
Combo2.AddItem “MI-0104-MD”
Combo2.AddItem “BA-0101-LS”
Combo2.AddItem “BA-0101-SP”
Combo2.AddItem “BA-0101-CV”
End Sub

Private Sub Option1_Click()
Text8.Text = Val(Text7.Text) * 0.5
End Sub

Private Sub Option2_Click()
Text8.Text = Val(Text7.Text) * 0.1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

7.gaji karyawan

md-gaji-karyawan

Source Kode :

Private Sub Command1_Click()
Text9.Text = Val(Text6.Text) – Val(Text8.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text4.Text)
Text7.SetFocus
End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.Text = Val(Text6.Text) * Val(Text7.Text) / 100
Text8.SetFocus
End If
End Sub

8.nilai mutu

nilai-mutu

Source Kode :

Private Sub Form_Load()
Combo1.AddItem “12100515″
Combo1.AddItem “12100525″
Combo1.AddItem “12100535″
Combo1.AddItem “12100545″
Combo1.AddItem “12100555″
Combo1.AddItem “12100565″
Combo1.AddItem “12100575″
Combo1.AddItem “12100585″
Combo1.AddItem “12100595″
Combo1.AddItem “12100666″
End Sub

Private Sub Combo1_Click()
If Combo1 = “12100515″ Then
txtNama.Text = “Marchoni”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100525″ Then
txtNama.Text = “Siti Kholijah”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100535″ Then
txtNama.Text = “Adi Setiawan”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100545″ Then
txtNama.Text = “Barnes Setiawan”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100555″ Then
txtNama.Text = “Adhy Pangestu”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100565″ Then
txtNama.Text = “Setiawan Adi”
txtjurusan.Text = “Design Grafis”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100575″ Then
txtNama.Text = “Sunardi”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100585″ Then
txtNama.Text = “Arif Lukman”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100595″ Then
txtNama.Text = “Alivia”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100666″ Then
txtNama.Text = “Adi Barnes Setiawan”
txtjurusan.Text = “Design Grafis”
txtQuis.SetFocus
Else
End If
End Sub

Private Sub txtQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTugas.SetFocus
End If
End Sub

Private Sub txtTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUts.SetFocus
End If
End Sub

Private Sub txtUas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNA.Text = (Val(txtQuis.Text) + Val(txtTugas.Text) + Val(txtUts.Text) + Val(txtUas.Text)) / 4
If Val(txtNA.Text) <= 50 Then txtHuruf.Text = “E”
If Val(txtNA.Text) >= 50 Then txtHuruf.Text = “D”
If Val(txtNA.Text) >= 60 Then txtHuruf.Text = “C”
If Val(txtNA.Text) >= 70 Then txtHuruf.Text = “B”
If Val(txtNA.Text) >= 80 Then txtHuruf.Text = “A”
End If
End Sub

Private Sub txtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUas.SetFocus
End If
End Sub

Private Sub cmdProses_Click()
txtNA.Text = (Val(txtQuis.Text) + Val(txtTugas.Text) + Val(txtUts.Text) + Val(txtUas.Text)) / 4
If Val(txtNA.Text) <= 50 Then txtHuruf.Text = “E”
If Val(txtNA.Text) >= 50 Then txtHuruf.Text = “D”
If Val(txtNA.Text) >= 60 Then txtHuruf.Text = “C”
If Val(txtNA.Text) >= 70 Then txtHuruf.Text = “B”
If Val(txtNA.Text) >= 80 Then txtHuruf.Text = “A”
End Sub

Private Sub cmdBatal_Click()
txtNama.Text = “”
txtjurusan.Text = “”
txtQuis.Text = “”
txtTugas.Text = “”
txtUts.Text = “”
txtUas.Text = “”
txtNA.Text = “”
txtHuruf.Text = “”
txtNama.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

9.penjualan

penjualan

Source kode :

Private Sub Text1_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text7.Text = Val(Text3.Text) * Val(Text4.Text)
Text8.SetFocus
End If
End Sub

Private Sub Text8_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text9.Text = Val(Text8.Text) – Val(Text7.Text)
End If
End Sub

Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text1.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub

10.data mahasiswa

data-mahasiswa

Source Kode :

Private Sub Command1_Click()
Dim S As String
Text5.Text = “20″ & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = “1″ Then
Text3.Text = “Sistem Informasi”
ElseIf S = “2″ Then
Text3.Text = “Manajemen Informatika”
ElseIf S = “3″ Then
Text3.Text = “Tehnik Informatika”
ElseIf S = “4″ Then
Text3.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Text2.Text, 4, 2)
If S = “01″ Then
Text4.Text = “Strata Satu”
ElseIf S = “02″ Then
Text4.Text = “Diploma Tiga”
ElseIf S = “03″ Then
Text4.Text = “Diploma Empat”
ElseIf S = “04″ Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Leave a comment

Filed under Uncategorized

Kalkolator mini

Leave a comment

Filed under Uncategorized

TUGAS 2 VISUL BASIC

fendi1

nama     :fanny ridho juanda

npm       :12201156

kelas     :twitter 12

PRIVATE SUB TEXT1_KEYPRESS (KEY ASCII AS INTEGER)

IF KEY ASCII=13 THEN

TEXT2.SET FOCUS

END IF

END SUB

PRIVATE SUB TEXT2_KEYPRESS (KEY ASCII AS INTEGER)

IF KEYASCII=13 THEN

TEXT 3.TEXT=VAL(TEXT1.TEXT)+VAL(TEXT2.TEXT)

TEXT4.TEXT=VAL(TEXT1.TEXT)*VAL(TEXT2.TEXT)

TEXT5.TEXT=VAL(TEXT1.TEXT)/VAL(TEXT2.TEXT)

TEXT6.TEXT=VAL(TEXT1.TEXT)-VAL(TEXT2.TEXT)

END IF

END SUB

PRIVATE SUB COMMAND1_CLICK ( )

TEXT3.TEXT=VAL (TEXT1.TEXT)+VAL(TEXT2.TEXT)

TEXT4.TEXT=VAL(TEXT1.TEXT)*VAL(TEXT2.TEXT)

TEXT5.TEXT=VAL(TEXT1.TEXT)/VAL(TEXT2.TEXT)

TEXT6.TEXT=VAL(TEXT1.TEXT)-VAL(TEXT2.TEXT)

END IF

END SUB

PRIVATE SUB COMMAND2_CLICK ( )

TEXT1.TEXT=” “

TEXT2.TEXT=” “

TEXT3.TEXT=” “

TEXT4.TEXT=” “

TEXT5.TEXT=” “

TEXT6.TEXT=” “

TEXT1.SET FOCUS

END IF

END SUB

PRIVATE SUB COMMAND3_CLICK( )

END IF

END SUB

Leave a comment

Filed under Uncategorized

stadion riau

kita harus senang dan bangga karena stadion utama riau menjadi 15 stadion terbaik dunia.854(2)

Leave a comment

Filed under Uncategorized

Coklat ungkapan hati

images        karena rasa nya yang maniz dan legit ,makanan ini selalu menjadi makanan vaforit….makanan ini jg sering menjadi ungkapan haticoklat

Leave a comment

Filed under Uncategorized

Cara mengatasi stress dalam waktu singkat

pekerjaan membut kita stress,itu adalah hal wajar tetapi kita harus bisa menghadapi hal tersebut.

Orang Kerja

Leave a comment

January 31, 2013 · 1:47 am