Welcome back to my blog arybyan
Beranda
VB6

Kalkulator Sederhana Visual Basic 6

0 min read

Visual Basic 6 - Fungsi Operator 




Listing Code :

Private Sub Command1_Click()
Text4.Text = Val(Text2.Text) + Val(Text3.Text)
End Sub

Private Sub Command2_Click()
Text4.Text = Val(Text2.Text) - Val(Text3.Text)
End Sub

Private Sub Command3_Click()
Text4.Text = Val(Text2.Text) / Val(Text3.Text)
End Sub

Private Sub Command4_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub

Private Sub Command5_Click()
Dim a As String
a = MsgBox("Yakin arep metu ? ", vbQuestion + vbOKCancel, "Penting kie !!!")
If a = vbOK Then
End
End If
End Sub

Anda mungkin menyukai postingan ini

  • Kalkulator Model klasik VB6
    Kalkulator Model klasik VB6   Desain awal Buatlah ketentuan seperti ini :    Text1.Text  Name = Text1 Command1 Name    = Cmd_0 Cap…
  • Kalkulator Sederhana Visual Basic 6
    Visual Basic 6 - Fungsi Operator  Listing Code : Private Sub Command1_Click() Text4.Text = Val(Text2.Text) + Val(Text3.Text) End Sub Private Sub Command2_Click() Te…
  • CAFE OF YUNFA
    Membuat form Kasir CAFE OF YUNFA Dengan VB6 Listing Code nya : Private Sub Form_Load() cmbmenu.AddItem ("Sarapan Pagi") cmbmenu.AddItem ("Makan Siang") cmbpaket.AddItem ("Pake…
  • GHOZALI COURSE
    Membuat form input pendaftaran " GHOZALI COURSE " Program ghozali course vb6 Logika Program : 1. Prosedur aktif, non aktif, bersih 2. Saat dijalankan tampil tanggal secar…
  • Visual Basic 6 - Fungsi Operator
    Visual Basic 6 - Fungsi Operator  Listing Code : Private Sub cmddiv_Click()txthasil = Val(txtnil1.Text) & Val(txtnil2.Text)End SubPrivate Sub cmdtambah_Click…

Posting Komentar