古い.BASファイルを実行する方法

Question

私は起動しようとしている古い.BASファイルを持っています。私は仕事のためのプログラムが必要です - 私はコードを編集したり、何かする必要はありません。誰かがそれを実行する方法を知っているので、私はプログラムを見ることができます - 私はコードがどのように書かれているかを示す例として私が使っていた古いソリティアゲームです。私はビジュアルスタジオ2010を介してそれを実行することができます - はい場合どのように？またはプログラムを使用して起動する必要がありますか？

Public Class Form1 
    SCREEN 9,0 'medium resolution' 
    FORGRUND%=4 
    BAGGRUND%=63 
    PILE%=9 
    DUG%=2 
    RUNDE%=1 
    ANTFLYT%=0 
    ANTKONGER%=0 
    KONGE13%=0 
    COLOR FORGRUND%,BAGGRUND%:CLS:KEY OFF 
    OPTION BASE 1 'laveste v‘rdi i tabeller s‘ttes til 1' 
'*********************************************************' 
' en lille startmelodi til at komme ignag med' 
'*********************************************************' 
'PLAY "mb o3 l8 ffffafffafdfe4.l8 eeeegeeedefed4" kattekilling 
    PLAY "mb o3 t255 l8 df+ga2df+ga2df+gl4af+df+e2l8f+f+ed4.df+4aaag2f+gl4af+ded2" 
'*********************************************************' 
'lav en konverteringstabel' 
'*********************************************************' 
    GOSUB 2060 
'*********************************************************' 
'lav kasser s† de er flotte' 
'*********************************************************' 
    GOSUB 2260 
'*********************************************************' 
'2 tabeller: randomizer, kort' 
'randomizer initieres med vilk†rlige tal' 
'*********************************************************' 
    GOSUB 2640 
'*********************************************************' 
'vi skal putte kortet p† rette plads p† bordet/sk‘rmen' 
'*********************************************************' 
    GOSUB 2840 
'*********************************************************' 
'l‘s bord og flyt til sk‘rm' 
'*********************************************************' 
    GOSUB 2950 
'*********************************************************' 
'pr›v at l‘se F fra sk‘rm' 
'*********************************************************' 
    X=6 
    Y=3 
    FRASKARMX%=0 'initier fra-koordinat til brug ved mark›rbev‘gelser' 
    FRASKARMY%=0 'initier fra-koordinat til brug ved mark›rbev‘gelser' 
    COLOR PILE%,BAGGRUND% 
    LOCATE X,Y:PRINT CHR$(24) 
    COLOR FORGRUND%,BAGGRUND% 
    LOCATE 23,2:PRINT"V‘lg kort der skal flyttes ved at  
    taste         " 
    FUNDET=1 
    WHILE FUNDET 's†l‘nge F ikke er indtastet' 
    FT$=INKEY$:IF FT$="" THEN LOCATE 1,72:PRINT TIME$:GOTO 510 
    IF LEN(FT$)=1 GOTO 630 
    IF LEN(FT$)=2 GOTO 560 'evt. mark›r bev‘gelse' 
    GOTO 680 'til endwhile' 
     'find mark›r-bev‘gelse' 
    FT$=RIGHT$(FT$,1) 
    IF ASC(FT$)=77 THEN GOSUB 1660 'pil til h›jre' 
    IF ASC(FT$)=75 THEN GOSUB 1750 'pil til venstre' 
    IF ASC(FT$)=72 THEN GOSUB 1850 'pil op' 
    IF ASC(FT$)=80 THEN GOSUB 1940 'pil ned' 
    GOTO 680 
     'find bogstav' 
    IF (FT$<>"f") AND (FT$<>"F") AND (FT$<>"a") AND (FT$<>"A") AND (FT$<>"N") AND  
    (FT$<>"n") AND (FT$<>"b") AND (FT$<>"B") GOTO 680 
    FUNDET=0 
    WEND 

など

Answer 1

VB2005 Expressは、アップグレードウィザードを持っています。 VB6プロジェクトを開こうとすると自動的に開きます。