hmm program console y..
rumit ngatur kursor/lokasi tampilan hurufnya..
tapi OK lah

menyederhanakan maksudnya biar mudah dibaca/dimengerti y?
bisa si, solusinya dipecah jadi beberapa function/sub


sub untuk tampilan, cuma copy paste aja sebagian code diatas

Shared Sub TampilanAwal()
        WriteLine("----------------------BINGO!!------------------------")
        WriteLine()
        WriteLine("Tebak angka 4 digit dengan angka berbeda [1023-9876].")
        WriteLine("Anda diberi kesempatan 10 x menebak.")
        WriteLine("- Tanda O menunjukkan angka dan posisi benar.")
        WriteLine("- Tanda / menunjukkan angka benar, tapi posisi salah.")
        WriteLine("- Tanda X menunjukkan angka salah.")
        WriteLine()
        WriteLine("Masukkan tebakan anda : ")
        WriteLine("1.  ____ [         ]")
        WriteLine("2.  ____ [         ]")
        WriteLine("3.  ____ [         ]")
        WriteLine("4.  ____ [         ]")
        WriteLine("5.  ____ [         ]")
        WriteLine("6.  ____ [         ]")
        WriteLine("7.  ____ [         ]")
        WriteLine("8.  ____ [         ]")
        WriteLine("9.  ____ [         ]")
        WriteLine("10. ____ [         ]")
End Sub


function random nilai 4 angka

Shared Sub RandomNilai(ByRef Num() As Integer)
  Dim i As Integer
  Dim Sudah(9) As Integer

  for i=0 to 3
    Do
      Num(i)=Int(Rnd() * 10)
      if Sudah(Num(i))<>1 then Exit Do
    Loop
    Sudah(Num(i))=1  'tanda angka itu sudah dipakai
  Next
End Sub


sub untuk memecah angka (integer) ke array
agak dirubah, menggunakan mod (modulo), sehingga lebih ringkas

Shared Sub Pecah(ByVal Num As Integer, ByRef Pecah() As Integer)
  Pecah(0) = Num \ 1000
  Pecah(1) = (Num \ 100) mod 10
  Pecah(2) = (Num \ 10) mod 10
  Pecah(3) = Num mod 10
End Sub


function untuk mengetahui posisi angka di array
return value (nilai function) 0 s/d 3 jika ditemukan, -1 jika tidak

Shared Function PosisiDi(ByVal Nilai As Integer, ByVal Pada() As Integer)
  Dim i As Integer
  PosisiDi=-1
  i=0
  Do Until i=4
    if Pada(i)=Nilai then Return(i)
    i=i+1
  Loop
End Function


kemudian langsung aja ke total kodenya

Imports System.console
Module Module1
    Dim data(3), angka(3) As Integer
    Dim tebakan As Integer
    Dim i,j,P,Pos As Integer
    Dim R As String

Sub main()
  TampilanAwal
  Randomize()
  RandomNilai(Data)
  i=0
  Do Until i=10
    CursorTop = 9 + i
    CursorLeft = 4
    Tebakan = Console.ReadLine
    Pecahkan(Tebakan, Angka)
    P = 0
    CursorTop = 9 + i
    CursorLeft = 13
    For j=0 to 3
      Pos=PosisiDi(Angka(j), Dari)
      if j=Pos then
        Write(" O")
        P=P+5
        if P=20 then Exit Do
      else if Pos>=0 then
        Write(" /")
      else
        Write(" X")
      end if
    Next
    i= i + 1
  Loop
  CursorTop = 20
  If P=20 Then
    WriteLine("BINGO!! Anda BENAR di tebakan ke-" & i + 1 & "!")
  Else
    WriteLine("Semua tebakan anda salah. Anda parah dalam menebak angka.")
  End If
  WriteLine()
  Write("Jawaban yang benar adalah : ")
  For i = 0 To 3
    Write(data(i))
  Next
End Sub


'Selanjutnya Sub/Function yang tadi
Shared Sub TampilanAwal()
        WriteLine("----------------------BINGO!!------------------------")
        WriteLine()
        WriteLine("Tebak angka 4 digit dengan angka berbeda [1023-9876].")
        WriteLine("Anda diberi kesempatan 10 x menebak.")
        WriteLine("- Tanda O menunjukkan angka dan posisi benar.")
        WriteLine("- Tanda / menunjukkan angka benar, tapi posisi salah.")
        WriteLine("- Tanda X menunjukkan angka salah.")
        WriteLine()
        WriteLine("Masukkan tebakan anda : ")
        WriteLine("1.  ____ [         ]")
        WriteLine("2.  ____ [         ]")
        WriteLine("3.  ____ [         ]")
        WriteLine("4.  ____ [         ]")
        WriteLine("5.  ____ [         ]")
        WriteLine("6.  ____ [         ]")
        WriteLine("7.  ____ [         ]")
        WriteLine("8.  ____ [         ]")
        WriteLine("9.  ____ [         ]")
        WriteLine("10. ____ [         ]")
End Sub

Shared Sub RandomNilai(ByRef Num() As Integer)
  Dim i As Integer
  Dim Sudah(9) As Integer

  for i=0 to 3
    Do
      Num(i)=Int(Rnd() * 10)
      if Sudah(Num(i))<>1 then Exit Do
    Loop
    Sudah(Num(i))=1  'tanda angka itu sudah dipakai
  Next
End Sub

Shared Sub Pecah(ByVal Num As Integer, ByRef Pecah() As Integer)
  Pecah(0) = Num \ 1000
  Pecah(1) = (Num \ 100) mod 10
  Pecah(2) = (Num \ 10) mod 10
  Pecah(3) = Num mod 10
End Sub

Shared Function PosisiDi(ByVal Nilai As Integer, ByVal Pada() As Integer)
  Dim i As Integer
  PosisiDi=-1
  i=0
  Do Until i=4
    if Pada(i)=Nilai then Return(i)
    i=i+1
  Loop
End Function

End Module


mungkin jadi lebih panjang, tapi kalau mengerti sub dan function jadi lebih mudah dibaca

CATATAN: CODE BELUM TENTU VALID..(karena ga ada [pranala luar disembunyikan, sila masuk atau daftar.] 2005)

wahh..
TQ bang adisae.. ^^
Ntar saya coba..

Imports System.console
Module Module1
    Dim data(3), angka(3) As Integer
    Dim tebakan As Integer
    Dim i,j,P,Pos As Integer
    Dim R As String

Sub main()
  TampilanAwal
  Randomize()
  RandomNilai(Data)
  i=0
  Do Until i=10
    CursorTop = 9 + i
    CursorLeft = 4
    Tebakan = Console.ReadLine
    Pecahkan(Tebakan, Angka)
    P = 0
    CursorTop = 9 + i
    CursorLeft = 13
    For j=0 to 3
      Pos=PosisiDi(Angka(j), Dari)
      if j=Pos then
        Write(" O")
        P=P+5
        if P=20 then Exit Do
      else if Pos>=0 then
        Write(" /")
      else
        Write(" X")
      end if
    Next
    i= i + 1
  Loop
  CursorTop = 20
  If P=20 Then
    WriteLine("BINGO!! Anda BENAR di tebakan ke-" & i + 1 & "!")
  Else
    WriteLine("Semua tebakan anda salah. Anda parah dalam menebak angka.")
  End If
  WriteLine()
  Write("Jawaban yang benar adalah : ")
  For i = 0 To 3
    Write(data(i))
  Next
End Sub

pecahkan dan "dari" itu gak dideklarasikan bang?

o iya ralat..
sub Pecah harusnya Pecahkan

Shared Sub Pecahkan(ByVal Num As Integer, ByRef Pecah() As Integer)
  Pecah(0) = Num \ 1000
  Pecah(1) = (Num \ 100) mod 10
  Pecah(2) = (Num \ 10) mod 10
  Pecah(3) = Num mod 10
End Sub


Dari diganti Data

      Pos=PosisiDi(Angka(j), Data)


oo..
ok ok..
terus bang..
gimana caranya bikin angka tebakan kita itu tidak berulang bang?

maksudnya biar yang udah ditebak ga bisa ditebak lagi yah?
atau gimana?

urm..

maksudna..
data(i) jangan 2334 gitu..
kan "3"nya berulang..
hehehe..

hadoh.. y rumit sis..
sebenere itu resiko yang nebak lah..

mau diaplikasikan kayak apa dulu?
jika ada yang tebakan ke n ada yangkembar maka
a. kembali minta tebakan ke n?
b. cuma keluar peringatan aja lanjut ke tebakan berikutnya, ke (n+1)

aa..
bingung.. =))

gmn nie hasilnya? pengen tahu...

ohh..
uda ada bung insan..
Tapi berhubung laptop sisca yang bisa VB lagi rusak, ndak bisa dibuka deh.. hahahhaa..
Besok bung sisca post di sini.. ^^

@Sisca : ditungguuuuu...

maap nih mas.. hahaa..
baru OL dari sp**dy..
heheh..
ini dia.. ^^

ini yang setelah sisca modif2..
wkwkkwk~

Kalo mau di jalankan, hati2 ya mas.. hehehe..
Ada ranjau.. =))

@Sisca
Gak bisa dijalanin nie. Gak ada VB soalnya. Ada program yang udah dijadiin executablesnya gak?