19 Oktober 2010

Mencari Bilangan Genap Ganjil dengan Console Aplication di Vb.Net

19 Oktober 2010
Pengennya buat program nyari bilangan prima, tapi malah jadi bilangan ganjil ama genap. Dooooohhh....,!! ada yang tau salahnya dimana ya??? helppp meee!!!
Module Module1
Sub Main()
Dim D As Integer
Dim I As Integer
Dim C As Integer
C = 1
Console.Write("Bilangan: ")
D = Console.ReadLine
For I = 2 And I <= D - 1 And I = 2 To D Step +1
If D Mod 2 <> 0 Then
C = 0
End If
Next I
If C <> 1 Then
Console.Write(D & ", Bilangan Ganjil")
Else
Console.Write(D & ", Bilangan Genap")
End If
Console.ReadLine()
End Sub

End Module


8 comments:

VengeancE mengatakan...

Sub Main()

Dim d, i, c As Integer

For d = 1 To 20

c = 0

For i = 1 To d

If d Mod i = 0 Then c = c + 1

Next

If c = 2 Then

Console.Writeline(d)

End If

Next

Console.ReadKey()

End Sub

Anonim mengatakan...

bilangan prima pakek VB.NET ada gak..........?

Opie Eyek mengatakan...

itu udah di jawab ama yang di atas... :)

@VengeancE
makasi jawabannya

Anonim mengatakan...

nih ada yang lebih ringkas..
Imports System.Console
Module Module1

Sub Main()
Dim bil As Integer
Write("Masukan Bilangan : ")
bil = ReadLine()
If bil Mod 2 = 0 Then
Write("Bilangan tersebut Genap")
Else
WriteLine("Bilangan tersebut Ganjil")
End If
ReadLine()
End Sub

End Module

Anonim mengatakan...

menentukan urutan bilangan prima berdasarkan bnyaknya deret yang di input..
Imports System.Console
Module Module1

Sub Main()
Dim bil, y, a As Integer
Write("Masukan Banyaknya deret bilangan : ")
bil = ReadLine()
y = -1
For a = 1 To bil
y = (y + 1)
Write(y)
Next
ReadLine()
End Sub

End Module

Opie Eyek mengatakan...

buat anonim
................
makasi, jadi banyak ada source codenya
oh ya kalau cuma nentuin apakah itu bilangan prima atau bukan gmna?

inputin 5
5 adalah bilangan prima

inputin 6
6 adalah bukan bilangan prima

Anonim mengatakan...

cara membuat menu d vb.net console gmn???
mohon bantuan nya kk...

tri yulianti mengatakan...

makasih kak infonya

Poskan Komentar

sampaikan komentar dengan sopan dan bertanggung jawab :)