Visual Basic

CALL FUNCTION 'ZTEST_RFC'
     TABLES
        IT_RFCTABLE      =  VB_TABLE_NAME????
     EXCEPTIONS
        NOT FOUND        =  1
        INSERT_FAILURE   =  2
        OTHERS           =  3.   

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Public Class Player


    Private isOpen As Boolean = False
    Private GetFileName As String = Nothing

    'mciSendString 
    <[DllImport]("winmm.dll")> _
    Private Shared Function mciSendString(ByVal command As String, ByVal ReturnValue As StringBuilder, _
                                          ByVal returnLength As Integer, ByVal winHandle As IntPtr) As Long
    End Function

    'This procedure closes the playing media file

    Public Sub ClosePlayer()

        If (isOpen) Then

            Dim PlayCommand As String = "Close " + GetFileName

            mciSendString(PlayCommand, Nothing, 0, IntPtr.Zero)
            isOpen = False

        End If

    End Sub

    'This procedure will open the media file

    Private Sub OpenMediaFile()

        ClosePlayer()
        Dim PlayCommand As String = "open \""" + GetFileName + " \ "" type mpegvideo alias MediaFile"

        mciSendString(PlayCommand, Nothing, 0, IntPtr.Zero)
        isOpen = True

    End Sub

    'This sub procedure will play the media file
    '
    Private Sub PlayMediaFile()

        If (isOpen) Then
            Dim PlayCommand As String = "play " + GetFileName
            mciSendString(PlayCommand, Nothing, 0, 0)
        End If

    End Sub

    'This sub procedure will initiate playing

    Public Sub Play(ByVal FileName As String)

        GetFileName = fileName
        OpenMediaFile()
        PlayMediaFile()

    End Sub

    'this procedure will pause the file
    '
    Public Sub Pause()
        mciSendString("pause " + GetFileName, Nothing, 0, IntPtr.Zero)
    End Sub

    'This sub procedure will resume the file
    '
    Public Sub Resumit()
        mciSendString("resume " + GetFileName, Nothing, 0, 0)
    End Sub


End Class

Dim playclass as new Player
    playclass.play("hello.mp3") 

'genOne is the name of the first generator
'txtStatOne is the name for the first text box in the column
'statOne is the name of the random variable
genOne.txtStatOne.text = statOne