[ASK] VB.NET Prakira Alur Program yang salah dan agak tricky di mengerti

Beranda

...

Programmer Forum
[ASK] VB.NET Prakira Alur Program yang salah dan agak tricky di mengerti

tandasanyu

28-08-2018 02:34

[ASK] VB.NET Prakira Alur Program yang salah dan agak tricky di mengerti

Langsung aja gan, ane agak bingung sama alur program VB ini, sejauh ini pengertian ane sih secara pemahaman logika pemrograman :

setiap case yg di definisikan, berapapun jumlahnya akan di jalankan dari awal hingga akhir.

namun ada satukasus dimana case tersebut di akses melalui loop control yg batasan nya di tentukan melalui parameter.
berikut sontoh kasus ane :

Spoiler for Potongan Script VB:

If TxtNoSurat.Text = "" Then
If Mid(MyAccess, 1, 1) = "1" Then CallAddRecord(1)

Spoiler for Function Add Record:

Sub AddRecord(ByVal mTYPE As Byte)
Dim QuerySqlSts As Byte
Dim iloop As Byte

For iloop = mTYPE To 5
Select Case iloop
Case 1 : QuerySqlSts = CREATE_NO()
Case 2 : QuerySqlSts = INSERT_SURAT()
Case 3 : QuerySqlSts = UPDATE_SPK()
Case 4 : QuerySqlSts = UPDATE_SURAT()
Case 5 : Call LoginDOING(MyTglHariIni, "02061", TxtNoSPK.Text & IIf(mTYPE = 1, ":FKT.ADD:", ":FKT.EDT:") & TxtNoSurat.Text, "")
End Select
If QuerySqlSts <> 1 Then

_StatusBar1_Panel1.Text = BarMsg(1, "", iloop)
TxtNoSurat.Text = "" : Exit Sub
End If
Next

_StatusBar1_Panel1.Text = BarMsg(0, "NO. SURAT " & TxtNoSurat.Text, iloop)
End Sub

nah yang ane mau tanya, dan sukar ane mengerti :

saat Call AddRecord(1), fungsi tersebut memiliki parameter berupa 1. kemudian value tersebut menjadi nilai mTYPE untuk di gunakan sebagai parameter batasan saat looping. Maka jika nilai nya 1, looping akan terus berjalan dari 1 hingga batas looping . namun jika nilai parameter AddRecord(3) : apakah looping akan berjalan dari case 3 hingga selesai atau hanya case 3 saja yang di eksekusi ?

berikut permasalahan yg masih ane bingung, mungkin agan sekalian ada yg bisa bantu?