Question

我有一个旧的.BAS文件即将尝试启动。我只需要程序工作 - 我不需要编辑或对代码做任何事情。有没有人知道如何运行它所以我可以看到该程序 - 它是一个旧的单人纸牌游戏，我用一个例子来说明代码是如何编写的。我可以通过visual studio 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项目时，它会自动打开。

如何运行旧的.BAS文件

1 个答案: