alexa-tracking
Selamat Guest, Agan dapat mencoba tampilan baru KASKUS Masih Kangen Tampilan Sebelumnya
Kategori
Kategori
Home / FORUM / All / Tech / ... / Programmer Forum /
[HELP] ADA YG BISA JELASIN POTONGAN CODING INI GA
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
Urutan Terlama
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?
Diubah oleh Lifeburner
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??
Diubah oleh DH7


×
GDP Network
Copyright © 2018, Kaskus Networks, PT Darta Media Indonesia.
Ikuti KASKUS di