任意の数字を入力し、Len関数とMid関数を使って2進数を10進数に変換するというプログラムを作っているのですが、うまくいきません。
コードは
Dim a As Integer
Dim b As Integeｒ
Dim i As Integer
a = Val(TextBox1.Text)
For i = Len(a) To 1 Step -1
If Mid(a, Len(a), 1) = "1" Then
b += 2 ^ (i - 1)
End If
Next
Label3.Text = b
End Sub
上記のものが作ったコードです。
問題点の指摘をよろしくお願いします。
Fortranのread/writeをＶＢへの書き換え方を教えて下さい。
他の方の作られたfortran.90のprogramをvisual basicに書きなおす作業をしています。その中の下記のfileのaccessが上手出来ません。このなかに有るbinary,とかbig_endianが原因のようです。
(これの無いfile accessの箇所は問題なく出来ました。)
program内でdataをfileに書込み保存して蓄積しているようで、後日このdataをreadして使うようになっていますので新しくfileを作り直すわけにもいきません。
いろいろとcodeを入れてみたが、結果は文字化けばかりで10日も費してしまいました。
binary,bigendianなどの理屈が判っていないのでどうしょうもないと感じました。
どうか下記のfortranをVisual Basicへの書き変え方をご教授お願いします。
REAL ShipDim(17)
'読み込みの時
filename = 'c:\pbcal\pbcal\pushdata\'//'push04'
open (3,file= filename, status='old', &
& form='BINARY', convert='BIG_ENDIAN',err=930)
DO 10 J= 1,17
read(3) shipDim(j)
10 CONTINUE
（中略) '見やすいように簡略化しています。
CLOSE (3,STATUS='KEEP')
'書込みの時はopenは下記で、後readをwriteに変えただけです。
open (3,file= filename, status=pstatus,form='BINARY', convert='BIG_ENDIAN',err=940)
VBでTRYしたことの一例
Dim dat() As Byte = New Byte(-1) {}
Dim sr As System.IO.Stream = Nothing
Dim br As System.IO.BinaryReader = Nothing
Dim strf As String = filepath & "push04" 'filepathは適当にしている
sr = System.IO.File.Open(strf, _
System.IO.FileMode.Open, System.IO.FileAccess.Read)
br = New System.IO.BinaryReader(sr)
ReDim dat(sr.Length - 1)
dat = br.ReadBytes(sr.Length)
dat に=572個の2-3桁の数字が入っています。encodingなどでためしてみたが文字化け
ばかりです。
(System.Text.Encoding.GetEncoding("＊＊＊＊").GetString(dat) など）
どうかよろしくお願いします。
勉強させてください。
ｖｂ2010.net
win764bit
FTPサーバーにアクセスし、FTPサーバーにあるCSVファイルをすべて
指定のフォルダにコピーしたいのです。
http://dobon.net/vb/dotnet/internet/ftpwebrequest.html#downloadfile
を参考に作成しましたがうまくいきません。
1, Cドライブにコピーしたいのですが下記部分でアクセスに拒否されましたと
エラーが発生します。
Dim fs As New System.IO.FileStream( _
downFile, System.IO.FileMode.Create, System.IO.FileAccess.Write)
フォルダの設定をPrivate Const PATH_Folder = " C:\DATA"から
Private Const PATH_Folder = " \DATA"に変更するとサーバー上にアクセス（ファイルの書き込み）
が行われます。（プログラムの保存先が影響？）
指定したローカルにコピーするにはどうしららよいでしょうか。
2,1でサーバー上にファイルの書き込みができたのですが、FTPサーバーにあるCSVのデータの内容を
書くみたいでコピーできませんでした。
fs.Write(buffer, 0, readSize)をfs.CopyTo()に変更すればいいのではないかとおもい変更してみましたが、
fs.CopyTo(ここがわからない)が理解できずに動作しません。
アドバイスよろしくお願いいたします。
Imports System.Net
Imports System.IO
Module Module1
'FTP用host
Private Const FTP_HOST = "ftp://TEST"
'FTP用USER
Private Const FTP_USER = "ftpuser"
'FTP用PASSWORD
Private Const FTP_PASS = "ftppass"
'FTPファイルコピー先フォルダ
Private Const PATH_Folder = " C:\DATA"
Private Function FTPDownLoad() As Boolean
FTPDownLoad = False
'Try
'ダウンロードするファイルのURI
Dim u As New Uri(FTP_HOST)
'ダウンロードしたファイルの保存先
Dim downFile As String = PATH_Folde
Sub Main()
'-----------------------------
'-- FTP データ取得
'-----------------------------
If FTPDownLoad() = False Then
body = "FTPからのデータダウンロードに失敗しました。" + vbCrLf + sys_date & sys_time
Exit Sub
End If
Private Function FTPDownLoad() As Boolean
FTPDownLoad = False
'Try
'ダウンロードするファイルのURI
Dim u As New Uri(FTP_HOST)
'ダウンロードしたファイルの保存先
Dim downFile As String = Palet_PATH_Folder
'FtpWebRequestの作成
Dim ftpReq As System.Net.FtpWebRequest = _
CType(System.Net.WebRequest.Create(u), System.Net.FtpWebRequest)
'ログインユーザー名とパスワードを設定
ftpReq.Credentials = New System.Net.NetworkCredential(FTP_USER, FTP_PASS)
'MethodにWebRequestMethods.Ftp.DownloadFile("RETR")を設定
'ftpReq.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
ftpReq.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
'要求の完了後に接続を閉じる
ftpReq.KeepAlive = False
'ASCIIモードで転送する
ftpReq.UseBinary = False
'PASSIVEモードを無効にする
ftpReq.UsePassive = False
'FtpWebResponseを取得
Dim ftpRes As System.Net.FtpWebResponse = _
CType(ftpReq.GetResponse(), System.Net.FtpWebResponse)
'ファイルをダウンロードするためのStreamを取得
Dim resStrm As System.IO.Stream = ftpRes.GetResponseStream()
'ダウンロードしたファイルを書き込むためのFileStreamを作成
Dim fs As New System.IO.FileStream( _
downFile, System.IO.FileMode.Create, System.IO.FileAccess.Write)
'ダウンロードしたデータを書き込む
Dim buffer(1023) As Byte
While True
Dim readSize As Integer = resStrm.Read(buffer, 0, buffer.Length)
If readSize = 0 Then
Exit While
End If
fs.Write(buffer, 0, readSize)
End While
fs.Close()
resStrm.Close()
'FTPサーバーから送信されたステータスを表示
Console.WriteLine("{0}: {1}", ftpRes.StatusCode, ftpRes.StatusDescription)
'閉じる
ftpRes.Close()
'Catch ex As Exception
' MsgBox(ex.Message)
' Exit Function
'End Try
FTPDownLoad = True
End Function
END sub
勉強させてください。
ｖｂ2010.net
win764bit
FTPサーバーにアクセスし、FTPサーバーにあるCSVファイルをすべて
指定のフォルダにコピーしたいのです。
http://dobon.net/vb/dotnet/internet/ftpwebrequest.html#downloadfile
を参考に作成しましたがうまくいきません。
1, Cドライブにコピーしたいのですが下記部分でアクセスに拒否されましたと
エラーが発生します。
Dim fs As New System.IO.FileStream( _
downFile, System.IO.FileMode.Create, System.IO.FileAccess.Write)
フォルダの設定をPrivate Const PATH_Folder = " C:\DATA"から
Private Const PATH_Folder = " \DATA"に変更するとサーバー上にアクセス（ファイルの書き込み）
が行われます。（プログラムの保存先が影響？）
指定したローカルにコピーするにはどうしららよいでしょうか。
2,1でサーバー上にファイルの書き込みができたのですが、FTPサーバーにあるCSVのデータの内容を
書くみたいでコピーできませんでした。
fs.Write(buffer, 0, readSize)をfs.CopyTo()に変更すればいいのではないかとおもい変更してみましたが、
fs.CopyTo(ここがわからない)が理解できずに動作しません。
アドバイスよろしくお願いいたします。
Imports System.Net
Imports System.IO
Module Module1
'FTP用host
Private Const FTP_HOST = "ftp://TEST"
'FTP用USER
Private Const FTP_USER = "ftpuser"
'FTP用PASSWORD
Private Const FTP_PASS = "ftppass"
'FTPファイルコピー先フォルダ
Private Const PATH_Folder = " C:\DATA"
Private Function FTPDownLoad() As Boolean
FTPDownLoad = False
'Try
'ダウンロードするファイルのURI
Dim u As New Uri(FTP_HOST)
'ダウンロードしたファイルの保存先
Dim downFile As String = PATH_Folde
Sub Main()
'-----------------------------
'-- FTP データ取得
'-----------------------------
If FTPDownLoad() = False Then
body = "FTPからのデータダウンロードに失敗しました。" + vbCrLf + sys_date & sys_time
Exit Sub
End If
Private Function FTPDownLoad() As Boolean
FTPDownLoad = False
'Try
'ダウンロードするファイルのURI
Dim u As New Uri(FTP_HOST)
'ダウンロードしたファイルの保存先
Dim downFile As String = Palet_PATH_Folder
'FtpWebRequestの作成
Dim ftpReq As System.Net.FtpWebRequest = _
CType(System.Net.WebRequest.Create(u), System.Net.FtpWebRequest)
'ログインユーザー名とパスワードを設定
ftpReq.Credentials = New System.Net.NetworkCredential(FTP_USER, FTP_PASS)
'MethodにWebRequestMethods.Ftp.DownloadFile("RETR")を設定
'ftpReq.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
ftpReq.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
'要求の完了後に接続を閉じる
ftpReq.KeepAlive = False
'ASCIIモードで転送する
ftpReq.UseBinary = False
'PASSIVEモードを無効にする
ftpReq.UsePassive = False
'FtpWebResponseを取得
Dim ftpRes As System.Net.FtpWebResponse = _
CType(ftpReq.GetResponse(), System.Net.FtpWebResponse)
'ファイルをダウンロードするためのStreamを取得
Dim resStrm As System.IO.Stream = ftpRes.GetResponseStream()
'ダウンロードしたファイルを書き込むためのFileStreamを作成
Dim fs As New System.IO.FileStream( _
downFile, System.IO.FileMode.Create, System.IO.FileAccess.Write)
'ダウンロードしたデータを書き込む
Dim buffer(1023) As Byte
While True
Dim readSize As Integer = resStrm.Read(buffer, 0, buffer.Length)
If readSize = 0 Then
Exit While
End If
fs.Write(buffer, 0, readSize)
End While
fs.Close()
resStrm.Close()
'FTPサーバーから送信されたステータスを表示
Console.WriteLine("{0}: {1}", ftpRes.StatusCode, ftpRes.StatusDescription)
'閉じる
ftpRes.Close()
'Catch ex As Exception
' MsgBox(ex.Message)
' Exit Function
'End Try
FTPDownLoad = True
End Function
END sub
太陽と地球の距離、或いは銀河系内の星の距離は広がらないのでしょう？
Dr Brian GreeneやDr Michio Kakuのユーチューブにある”Fabric of the Cosmos”等を見ていると非常に興味深いのですが、宇宙が常に拡大している、更に拡大しているスピードが時間と共に早まっている、と言う見解が天文学会では常識の様ですが、それはGalaxy間の距離が広がっているだけで、Galaxy内の星の間の距離は広がらない様な映像で説明してます。
これは何故でしょう？Galaxy内の星の引力で、Galaxyの形を維持できている為でしょうか？でも、そうであれば、Galaxy同士の引力もあるはずで、そちらの引力の方が各星の引力より強いと想像されます。宇宙を拡大させている力は、このGalaxy間の引力よりも強い、と言う事であれば、星の間の引力なんて大した事ないはずでは？
興味本位で聞いているものです、暇なときにでもお付き合い頂ければ、有難いです。私は生粋の文系ですので、噛み砕いて教えて頂ければ有難いです。
初めて質問させていただきます。
fortran を使い15を任意の数で割るプログラムを作成しようとしているのですが
実行時に n を read し結果を書き出すとn+1個の数値が書き出されてしまいます。かつ、n+1個目の数が全く予想しない数値になってしまいます…
コンパイルエラーは発生しません。
初心者なりにひとつひとつ精査したのですが原因がわかりません。
お助けください、よろしくお願いいたします。
画像：実行時n=10としたときの例
PROGRAM work6
IMPLICIT NONE
REAL , ALLOCATABLE :: x(:)
REAL :: dx
INTEGER :: n
PRINT *,' How many numbers do you separate it? '
READ(*,*) n
ALLOCATE (x(n))
dx=15.0/REAL(n)
do n=1,n
x(n)=dx*REAL(n)
enddo
PRINT *,x(1:n)
READ (*,*)
ENDPROGRAM work6
