alexa-tracking

[HELP] ADA YG BISA JELASIN POTONGAN CODING INI GA

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/53a3ba58a09a39d5308b463c/help-ada-yg-bisa-jelasin-potongan-coding-ini-ga
[HELP] ADA YG BISA JELASIN POTONGAN CODING INI GA
Sub life()
Dim randomNumber As Integer = rng.Next(1, maxRange)
Console.Clear()
Console.WriteLine("Permainan Menebak Angka")
Console.WriteLine("=======================")
Console.WriteLine()
Console.WriteLine("Anda Mempunyai " & bykLife & "x Kesempatan untuk Menebak")
Console.WriteLine("Tingkat Kesulitan " & lvl & " <Range Angka dari 1 s.d " & maxRange & ">")
Console.WriteLine()
For i As Integer = 1 To bykLife
ulang:
Console.WriteLine("Percobaan " & i)
Console.WriteLine("---------------")
Try
Console.Write("Masukan Angka Tebakan Anda : ")
tebakan = Console.ReadLine()
Catch ex As Exception
Console.WriteLine("Hati-Hati")
Console.WriteLine("Yang Anda Masukkan Bukan Angka")
Console.WriteLine("Anda akan Diminta Menebak ulang")
Console.WriteLine()
GoTo ulang
End Try

If tebakan > maxRange Or tebakan < 1 Then
Console.WriteLine("Hati-Hati")
Console.WriteLine("Anda telah Memasukan Angka Kurang/Melebihi Range")
Console.WriteLine("Anda akan Diminta Menebak ulang")
Console.WriteLine()
GoTo ulang
ElseIf (tebakan < randomNumber) Then
If (randomNumber - tebakan <= 3) Then
Console.WriteLine("Tebakan Sedikit Terlalu Kecil")
Else
Console.WriteLine("Tebakan Terlalu Kecil")
End If

ElseIf (tebakan > randomNumber) Then
If (tebakan - randomNumber <= 3) Then
Console.WriteLine("Tebakan Sedikit Terlalu Besar")
Else
Console.WriteLine("Tebakan Terlalu Besar")
End If
ElseIf tebakan = randomNumber Then
Exit For
End If
Select Case i
Case 1 To bykLife - 1
Console.WriteLine("Kesempatan Anda Tinggal " & bykLife - i & "x lagi")
Case bykLife
Console.WriteLine()
Console.WriteLine("Anda Gagal ... Kesempatan Anda Telah Habis T.T")
Console.WriteLine("Jawaban yang Benar adalah " & randomNumber)
Console.WriteLine("Silakan Coba Lagi")
Console.ReadLine()
Call HalUtama()
End Select
Console.WriteLine()
Next
Call win()
End Sub
Ini sih text-based game. Sesuai stringnya, ini permainan "Tebak Angka". Emang apa lagi yg perlu dijelasin?

Edit: Tunggu dulu. Ini materi kuliahan ya? Buat belajar binary search jangan2?
mirip2 di codacademy nih...
kayaknya ni tugas kuliah ya gan.
hayoooooo, TS minta diterangin fungsi n keterangan syntax. emoticon-Ngakakemoticon-Ngakakemoticon-Ngakakemoticon-Ngakakemoticon-Ngakak
Kayanya cm sebuah permainan simulasi deh ini, cuma algoritma IF ELSE aja nih.. harusnya ga ribet-ribet banget.. cuma saya masih bingung ini pake bahasa pemrograman apa.. emoticon-Ngakak
Quote:


Kalo menurut gw sih ini pake Visual Basic .NET, jelas banget awalan pake sub itu kan khas nya Basic... lalu pake Console.WriteLine ... ini khas nya Framework .NET

lalu pake Dim itu bahasa Basic... terkecuali dia pake Procedure,define, ... mungkin gw masih bisa nebak2 jenis bahasa pemrograman yg di pake

Kalo pake goto, bukannya itu gak di anjurkan dalam semua buku pemrograman Basic kan ya??
×