Visual Basic Siyah Ekran(Konsol) Hesap Makinesi

ads

ads

Bu derste  visual basic ile siyah ekranda yani ( konsol ) ekranında hesap makinası yapımını anlatyacağız.

Console Aplication projesi açalım  sonrasında  aşağıdaki kodları sıraıyla yazalım.




Module Module1
Dim sayi1 As Integer
Dim sayi2 As Integer
Dim secim As Integer
Dim kontrol As String
Dim secimkontrol As String

Sub Main()
kontrol = "E"
While kontrol = "E" Or kontrol = "e"
Console.Title = "Visual Basic Siyah Ekran(Konsol) Hesap Makinesi"
Console.Write("1.Sayıyı Giriniz : ")
sayi1 = Console.ReadLine()
Console.Write("2.Sayıyı Giriniz : ")
sayi2 = Console.ReadLine()
Console.Write("1)Toplama " + vbNewLine + "2)Çıkarma" + vbNewLine + "3)Çarpma" + vbNewLine + "4)Bölme" + vbNewLine + "Seçiminiz : ")
secim = Console.ReadLine()
secimkontrol = "e"
While secimkontrol = "e"
Select Case secim
Case 1
Console.WriteLine(sayi1 & " + " & sayi2 & " = " & (sayi1 + sayi2))
Case 2
Console.WriteLine(sayi1 & " - " & sayi2 & " = " & (sayi1 - sayi2))
Case 3
Console.WriteLine(sayi1 & " * " & sayi2 & " = " & (sayi1 * sayi2))
Case 4
Console.WriteLine(sayi1 & " / " & sayi2 & " = " & (sayi1 / sayi2))
Case Else
Console.Write("Yeniden seçim yapınız..." + vbNewLine + "Seçiminiz : ")
secim = Console.ReadLine()

If secim <= 0 Or secim >= 5 Then
secimkontrol = "e"
Else
secimkontrol = "h"
Select Case secim
Case 1
Console.WriteLine(sayi1 & " + " & sayi2 & " = " & (sayi1 + sayi2))
Case 2
Console.WriteLine(sayi1 & " - " & sayi2 & " = " & (sayi1 - sayi2))
Case 3
Console.WriteLine(sayi1 & " * " & sayi2 & " = " & (sayi1 * sayi2))
Case 4
Console.WriteLine(sayi1 & " / " & sayi2 & " = " & (sayi1 / sayi2))
Case Else
End Select

End If


End Select
End While
Console.WriteLine("Yeni işlem yapmak ister misiniz?EH")
kontrol = Console.ReadLine()
End While
End Sub

End Module

ads