Saturday, May 17, 2008

Permutasi

Option Explicit

Dim id As Integer
Dim N As Integer
Dim perm() As Integer

Function Engine(i As Integer)
   Dim t As Integer
   Dim j As Integer
  
   id = id + 1
   perm(i) = id
   If (id = N) Then stampaj
   For j = 1 To N
      If (perm(j) = 0) Then
         Engine (j)
      End If
   DoEvents
   Next j
   id = id - 1
   perm(i) = 0
End Function

Private Sub cmdClear_Click()
  List1.Clear
End Sub

Private Sub cmdGen_Click()
  If Val(txtLength.Text) > Len(txtChar.Text) Then
    MsgBox “Jumlah Permutasi Salah”
    Exit Sub
  End If
  
  If Len(txtChar.Text) = 0 Or (Val(txtLength.Text) = 0) Then Exit Sub
 
  Dim i As Integer
  N = Val(txtLength.Text)
  ReDim perm(N)
  For i = 1 To N
     perm(i) = 0
  Next i
  If ChSave.Value = 1 Then
     MsgBox “Disimpan pada hasil.txt”
     Open App.Path + “\hasil.txt” For Output As #1
  End If
  Engine 0
  If ChSave.Value = 1 Then Close #1
 
End Sub

Sub Form_Load()
   On Error Resume Next
   id = -1
  
End Sub

Sub stampaj()
   Dim i As Integer
   Dim result As String
   result = “”
   For i = 1 To N
      result = result & CStr(Mid$(txtChar.Text, perm(i), 1))
   Next i
   List1.AddItem result
   If ChSave.Value = 1 Then Print #1, result
End Sub

 

Posted by Administrator at 05:05:49
Comments

5 Responses to “Permutasi”

  1. Anonymous says:
    June 24, 2008 at 9:49 pm

    salam kenal, nama saya danang, saya lg buat program billing parkiran dengan vb untuk tugas uas, 1 jam = 3600 detik, nah 1 jamnya itu 2ribu, dan 1 jam lbh 1 detik ja tarif berubah mnjadi 4 ribu, dan begitu seterusnya,tp saya masi blm bisa mndptkan rumus perulangannya, klo pake “if” terus terang saya tidak sanggup, klo ada tolong kirim k email saya co_gilaaabbeezz@yahoo.co.id

  2. Anonymous says:
    August 1, 2008 at 7:42 am

    Ok kebetelun pernah dibuat billing parkir, sebenarnya sama aja dengan billing program untuk wartel…..ok nanti saya akan email code-nya keanda..

    Terima Kasih

  3. Anonymous says:
    November 29, 2008 at 3:14 am

    Alangkah bagusnya jika pelajaran sekolah ilmu-ilmu dasar matematika seperti permutasi dan lain-lainnya diterapkan dalam kehidupan sehari-hari atau diterapkan dengan bahasa programming misalnya visual basic.

    salam
    hartoto, Ir

    http://www.xbasicpro.com

  4. Anonymous says:
    July 3, 2009 at 8:05 am

    saya masih 13 tahun tapi sudah tertarik buat bikin vb. Nah kalo vb.5 cara menyalakan message box serta input box bagaimana? juga bagaimana cara menggunakan wait, apakah menggunakan wait 1 second tetapi jadinya malah error expression… Mohon dijawab atau email di incredible_frozone@yahoo.com

  5. Anonymous says:
    September 11, 2009 at 7:45 am

    slm knl..
    Wah asyik nie kayaknya belajar vb,ak juga pengin,,,
    http://www.sipmultimedia.blogspot.com

Leave a Reply