VB'de virgüllü işlem

 
  Dim islem As Integer 
  Dim al As Integer 
  Dim secim As String 
  Dim hafiza As Integer 
   
  Private Sub Command1_Click(Index As Integer) 
   
  End Sub 
   
  Private Sub Form_Load() 
   
  islem = 0 
   
  End Sub 
   
  Private Sub hakkinda_Click() 
   
  hakkinda.Show 
   
  End Sub 
   
  Private Sub hakkimda_Click() 
   
  hakkinda.Show 
   
   
  End Sub 
   
   
  Private Sub mArti_Click(Index As Integer) 
   
  al = Val(ekran.Text) 
   
  hafiza = hafiza + al 
  mEkrani.Text = "M" 
   
   
  End Sub 
   
  Private Sub mc_Click(Index As Integer) 
   
  hafiza = 0 
  ekran.Text = 0 
  mEkrani.Text = "" 
   
  End Sub 
   
   
  Private Sub mr_Click(Index As Integer) 
   
   
  ekran.Text = hafiza 
   
   
  End Sub 
   
  Private Sub ms_Click(Index As Integer) 
   
  hafiza = Val(ekran.Text) 
   
  End Sub 
   
  Private Sub tus0_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
  ekran.Text = ekran.Text + "0" 
  End If 
   
  End Sub 
   
  Private Sub tus1_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "1" 
   
  End Sub 
   
  Private Sub tus1Bolu_Click(Index As Integer) 
   
  ekran.Text = (1 / ekran.Text) 
   
  End Sub 
   
  Private Sub tus2_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "2" 
   
  End Sub 
   
  Private Sub tus3_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "3" 
   
  End Sub 
   
   
  Private Sub tus4_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "4" 
   
  End Sub 
   
   
  Private Sub tus5_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "5" 
   
  End Sub 
   
   
  Private Sub tus6_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "6" 
   
  End Sub 
   
   
  Private Sub tus7_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "7" 
   
  End Sub 
   
   
  Private Sub tus8_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "8" 
   
  End Sub 
   
   
  Private Sub tus9_Click() 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "9" 
   
  End Sub 
   
   
  Private Sub tusArtiEksi_Click(Index As Integer) 
   
  al = Val(ekran.Text) 
   
  ekran.Text = al * (-1) 
   
  End Sub 
   
  Private Sub tusBol_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
     al = Val(ekran.Text) 
     
     If islem = 0 Then 
        islem = al / 1 
     Else 
        islem = islem / al 
     End If 
   
  End If 
   
  ekran.Text = 0 
  secim = "bol" 
   
  End Sub 
   
  Private Sub tusBosalt_Click() 
   
  secim = "" 
   
  End Sub 
   
  Private Sub tusCarp_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
     al = Val(ekran.Text) 
     
     If islem = 0 Then 
        islem = al * 1 
     Else 
        islem = al * islem 
     End If 
   
  End If 
   
  ekran.Text = 0 
  secim = "carp" 
   
  End Sub 
   
  Private Sub tusCıkar_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
     al = Val(ekran.Text) 
     
     islem = al - islem 
        
  End If 
   
   
  ekran.Text = 0 
  secim = "cikar" 
   
  End Sub 
   
  Private Sub tusEsittir_Click(Index As Integer) 
   
  If secim = "topla" Then 
  ekran.Text = islem + ekran.Text 
   
  ElseIf secim = "cikar" Then 
  ekran.Text = islem - ekran.Text 
   
  ElseIf secim = "carp" Then 
  ekran.Text = islem * ekran.Text 
   
  ElseIf secim = "bol" Then 
  ekran.Text = islem / ekran.Text 
   
  End If 
  End Sub 
   
  Private Sub tusGeri_Click() 
   
  ekran.Text = Mid(ekran.Text, 1, Len(ekran.Text) - 1) 
   
  End Sub 
   
   
  Private Sub tusKok_Click(Index As Integer) 
   
  ekran.Text = Sqr(Val(ekran.Text)) 
   
  End Sub 
   
   
  Private Sub tusMarti_Click(Index As Integer) 
   
  hafiza = hafiza + ekran.Text 
   
  End Sub 
   
  Private Sub tusMC_Click(Index As Integer) 
   
  hafiza = 0 
  mEkrani.Text = "" 
   
  End Sub 
   
  Private Sub tusMR_Click(Index As Integer) 
   
  ekran.Text = hafiza 
   
  End Sub 
   
  Private Sub tusMS_Click(Index As Integer) 
   
  hafiza = Val(ekran.Text) 
  mEkrani.Text = "M" 
   
  End Sub 
   
  Private Sub tusSil_Click() 
   
  ekran.Text = 0 
  al = 0 
  islem = 0 
  secim = "" 
   
  End Sub 
   
   
  Private Sub tusTopla_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
     al = Val(ekran.Text) 
     islem = islem + al 
  End If 
   
  ekran.Text = 0 
  secim = "topla" 
   
   
  End Sub 
   
   
  Private Sub tusVirgul_Click(Index As Integer) 
   
  ekran.Text = ekran.Text + "." 
   
  End Sub 
   
   
  Private Sub tusYuzde_Click(Index As Integer) 
   
  If secim = "carp" Then 
  ekran.Text = (al / 100) * Val(ekran.Text) 
  Else 
  ekran.Text = 0 
  End If 
   
  End Sub