kalkulator VB

TUGAS VB 2
YAYAN NURYANA
NPM:43A87067100022
D3\KA\3\M


LANGKAH – LANGKAH MEMBUAT
PROGRAM KALKULATOR
Dim st, st2 As String







Private Sub Text1_Click()
st = "T"
st2 = "f"
End Sub
Private Sub Text2_Click()
st = "f"
st2 = "T"
End Sub
1.   Private Sub Command1_Click()
If st = "T" Then
Text1.Text = 1
Else
If st2 = "T" Then
Text2.Text = 1
End If
End If
End Sub
2.   Private Sub Command2_Click()
If st = "T" Then
Text1.Text = 2
Else
If st2 = "T" Then
Text2.Text = 2
End If
End If
End Sub
3.   Private Sub Command3_Click()
If st = "T" Then
Text1.Text = 3
Else
If st2 = "T" Then
Text2.Text = 3
End If
End If
End Sub
4.   Private Sub Command4_Click()
If st = "T" Then
Text1.Text = 4
Else
If st2 = "T" Then
Text2.Text = 4
End If
End If
End Sub
5.   Private Sub Command5_Click()
If st = "T" Then
Text1.Text = 5
Else
If st2 = "T" Then
Text2.Text = 5
End If
End If
End Sub
6.   Private Sub Command6_Click()
If st = "T" Then
Text1.Text = 6
Else
If st2 = "T" Then
Text2.Text = 6
End If
End If
End Sub
7.   Private Sub Command7_Click()
If st = "T" Then
Text1.Text = 7
Else
If st2 = "T" Then
Text2.Text = 7
End If
End If
End Sub
8.   Private Sub Command8_Click()
If st = "T" Then
Text1.Text = 8
Else
If st2 = "T" Then
Text2.Text = 8
End If
End If
End Sub
9.   Private Sub Command9_Click()
If st = "T" Then
Text1.Text = 9
Else
If st2 = "T" Then
Text2.Text = 9
End If
End If
End Sub
10. Private Sub Command10_Click()
If st = "T" Then
Text1.Text = 0
Else
If st2 = "T" Then
Text2.Text = 0
End If
End If
End Sub
11. Private Sub Command11_Click()
Label1.Caption = "+"
End Sub
12. Private Sub Command12_Click()
Label1.Caption = "-"
End Sub
13. Private Sub Command13_Click()
Label1.Caption = "x"
End Sub
14. Private Sub Command14_Click()
Label1.Caption = "/"
End Sub
15. Private Sub Command15_Click()
If Label1.Caption = "+" Then
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
   If Label1.Caption = "-" Then
      Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Else
   If Label1.Caption = "x" Then
       Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Else
  Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End If
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

sistem informasi manajement

Yayan nuryana 43A87067100022 D3/KA/4/M TUGAS SISTEM INFORMASI MANAGEMENT Informasi lebih lanjut   kunjungi : Email: yayanbekasi@gmail.com Blogger: yayankuningan.blogspot.com SOAL LATIHAN 1. Uraikanlah perkembangan sistem informasi manajemen yang Saudara ketahui! 2. Dengan bahasa saudara sendiri, definisikanlah sistem informasi manajemen! 3.        Mengapa belakangan ini sistem informasi manajemen mendapat perhatian besar? Jelaskan! 4.        Tingkat manajemen mana yang paling tertarik untuk menyesuaikan sistem informasi dengan kebutuhannya ? 5.        Uraikanlah pengguna sistem informasi manajemen di kantor Saudara! 6.        Uraikanlah penggunaan sistem informasi manajemen di kantor objek yang Saudara periksa! Jika Saudara ditugaskan untuk merancang Laporan Bulanan Penugasan Audit untu...
Baca selengkapnya

tugas sistem informasi management

Gambar
¨   Uraikanlah model-model pengembangan sistem informasi yang ada? model air terjun (waterfall model) dimana model ini mendeskripsikan alur proses pengembangan sistem informasi   .Kebutuhan spesifikasi>>>analisis>>perancangan>>implementasi&pengetesan unit>>integrasi>>pemeliharaan ¨   Uraikanlah tahap-tahap pengembangan sistem informasi tradisional ¨    Tahap Perencanaan ¨   Tahap Analisis ¨   Tahap Perancangan/Desain ¨   Tahap Pembangunan Fisik/Konstruksi ¨   Tahap Pasca Implementasi   ¨   Ditahap apakah biasanya dilakukan kegiatan pemrograman (coding)? Tahap Perancangan/Desain ¨   Pada tahap ini, tim teknologi informasi bekerja sama dengan tim bisnis atau manajemen melakukan perancangan komponen-komponen sistem terkait. Tim teknologi informasi akan melakukan perancangan teknis dari teknologi informasi yang akan dibangun, seperti sistem basis data, jaringan komputer,...
Baca selengkapnya

OBJEK OBJEK PADA VISUAL BASIC

Gambar
TUGAS VB 1 YAYAN NURYANA  NPM:43A87067100022 D3\KA\M\3 TOOLBOX DAN PENGERTIANYA PADA VISUAL BASIC Control Description Pointer Menyediakan suatu cara untuk memindahkan dan mengubah ukuran bentuk kontrol PictureBox Menampilkan PictureBox icons / bitmaps dan metafiles . Ini menampilkan teks atau bertindak sebagai kontainer visual untuk kontrol lain . TextBox Digunakan untuk menampilkan pesan dan masukkan teks . Frame Berfungsi sebagai bingkai wadah visual dan fungsional untuk kontrol CommandButton Digunakan untuk melaksanakan tindakan tertentu ketika pengguna memilih itu . CheckBox Menampilkan kotak centang pilihan / Benar / Salah atau Ya Tidak . OptionButton yang merupakan bagian dari kelompok pilihan memungkinkan pengguna untuk memilih hanya satu pilihan bahkan ini akan menampilkan pilihan mulitiple...
Baca selengkapnya